ì k820309Ó¬< problem.f90PROBLEMSETPROBQINITB4STEPSETAUXSRCPHYSFLUXPROBLEMBC@ #@ SETPROB%NODEINFODEF@ #@ QINIT%NODEINFODEFQINIT%SININFO@ SINDhNODEINFO#@ INFOhNODEINFO#@ INFOhNODEINFO#@ INFOhNODEINFO#@ PHYSFLUX%NODEINFODEFIXYINDXIREQUESTINFOQFSA@  ppphNODEINFO &&D && && &&&#@ PROBLEMBC%NODEINFODEFINFO@ hNODEINFO¸fn#fnÔ?buapp(PROBLEM8JNODEINFODEFKTSETPROB$Ÿ8KSETPROB%NODEINFODEF×aQINIT"88KQINIT%NODEINFODEFp4QINIT%SIN¤IaQINIT%INFOíEB4STEP2IaB4STEP%INFO{ESETAUXÀIaSETAUX%INFO ESRCNIaSRC%INFO—tPHYSFLUX% 8KPHYSFLUX%NODEINFODEFC8aPHYSFLUX%IXY{ŒaPHYSFLUX%INDX"8aPHYSFLUX%IREQUEST?IaPHYSFLUX%INFOˆœaPHYSFLUX%Q$œaPHYSFLUX%FÀœaPHYSFLUX%S\´aPHYSFLUX%A [PROBLEMBC&k 8KPROBLEMBC%NODEINFODEF£ IaPROBLEMBC%INFO