Ë !k820309nü< problem.f90PROBLEM SETPROBQINITB4STEPSETAUXSRCPHYSFLUXPROBLEMBCAFTERSTEPPROBLEMIO@ #@ #@ INFODNODEINFO#@ INFONODEINFO#@ INFONODEINFO#@ INFONODEINFO#@ IXYINDXIREQUESTINFOQFSA pppNODEINFO &&D &&D &&D &&&#@ PROBLEMBC%NODEINFODEFINFO@ NODEINFO#@ INFONODEINFO#@ NFRAMETNOWIOREQUESTINFOQMAXQMIN NODEINFO  &  &¸fn#fnÔSbuapp(PROBLEM'8JNODEINFODEF_@SETPROBŸEQINITäIaQINIT%INFO-EB4STEPrIaB4STEP%INFO»ESETAUXIaSETAUX%INFOIESRCŽIaSRC%INFO×_PHYSFLUX68aPHYSFLUX%IXYnŒaPHYSFLUX%INDX"ú8aPHYSFLUX%IREQUEST2IaPHYSFLUX%INFO{œaPHYSFLUX%QœaPHYSFLUX%F³œaPHYSFLUX%SO´aPHYSFLUX%A[PROBLEMBC&^8KPROBLEMBC%NODEINFODEF–IaPROBLEMBC%INFOßEAFTERSTEP$ IaAFTERSTEP%INFOm ePROBLEMIO!Ò 8aPROBLEMIO%NFRAME 8aPROBLEMIO%TNOW$B 8aPROBLEMIO%IOREQUESTz IaPROBLEMIO%INFOà „aPROBLEMIO%QMAXG „aPROBLEMIO%QMIN