0 k820309J°< problem.f90PROBLEMSETPROBQINITB4STEPSETAUXSRCPHYSFLUXPROBLEMBC@ #@ SETPROB%NODEINFODEF@ #@ QINIT%NODEINFODEFINFO@ DhNODEINFO#@ INFOhNODEINFO#@ INFOhNODEINFO#@ INFOhNODEINFO#@ PHYSFLUX%NODEINFODEFPHYSFLUX%MAXPHYSFLUX%MINIXYINDXIREQUESTINFOQFSA@ MAXMIN ppphNODEINFO &&D && && &&&#@ PROBLEMBC%NODEINFODEFINFO@ hNODEINFO¸fn#fnÔ?buapp(PROBLEM8JNODEINFODEFKTSETPROB$Ÿ8KSETPROB%NODEINFODEF×WQINIT".8KQINIT%NODEINFODEFfIaQINIT%INFO¯EB4STEPôIaB4STEP%INFO=ESETAUX‚IaSETAUX%INFOËESRCIaSRC%INFOYŽPHYSFLUX%ç8KPHYSFLUX%NODEINFODEF4PHYSFLUX%MAXS4PHYSFLUX%MIN‡8aPHYSFLUX%IXY¿ŒaPHYSFLUX%INDX"K8aPHYSFLUX%IREQUESTƒIaPHYSFLUX%INFOÌœaPHYSFLUX%QhœaPHYSFLUX%FœaPHYSFLUX%S ´aPHYSFLUX%AT [PROBLEMBC&¯ 8KPROBLEMBC%NODEINFODEFç IaPROBLEMBC%INFO