JTMODACE0116-Sep-1996 10:38Digital Fortran V6.4-165ð¼JTMODACEPÁ¬, JTD$DB:OP)).GDB JTD$DB:OP).GDBœý¾÷JTMODACEQº€@Dev:file or (n,s,v)>\ISYS$DISK:$MK<>P<I<SA()  PüP üP` üú° üúª üü ô ¤ ü¤Xô ¤€¤ ü $ üLü° L LIB$GET_FOREIGN@d øaü° ü  ôeü@e LIB$SYS_TRNLOG@„ ¨ ì XôFGETFIDìnü  ô¨ Pðnüð Èüð Dôpüð ðüð Dôpüð üpüð ,üð DôØ @ì`À ¬@  Œ ücü¸ ¼ürü¸ Ðütü¸ äôwüøô ” ˜ üyü¸ 0ôwüDLüø    ü|ü¸ |ôwü˜ô    üü¸ Èô    ôøt ìt Nì@ü4<ô„üPXô@lHøPýüÞd ®[Â^›€Ëœò›èËžòÞ« Ë òÞ«ˤò°˨ò›ò˪òÞ«ˬòÔ˰òÔË´òÔ˸òÔ˼ò,n úËðòÔ«”ËêóúˤLIB$GET_FOREIGNÃ,kËLü úËLüšËLü\Ñ\ 1‘ËLüq1‘ËLüQ1(PËLüˬûúËÀ LIB$INDEXÁÐPV,I úËFýÕVÃV\,\ˬû PˬûÕVÃVú\,\FËLü úËFýúËÌILENîÐPV‘ËLü(1žvVßïì×V°VËÔžËMüËØŸËÔû FOR$READ_IFûß«û FOR$IO_L_Rûß«û FOR$IO_L_Rûß«û FOR$IO_L_Rþû FOR$IO_ENDÈÇ«Tz«U{U\\xTTÀ«T÷TËàò÷«Ëâò÷\Ëäò´ËæòÐËàòüÐËäòüúËäLIB$SYS_TRNLOGØèP1,« Ëüû PËüû°VËôžË¬ûËøúËüFOR$OPENöèP1úË$ FOR$CLOSEüúË4 LIB$INDEXëÐP« ,« ˬû PËüûúË@ SYS$GETDVIWà,«Ë@ÿ €Ë@ÿ‘Ë@ÿ_,ËAÿ €ùË@ÿúËl LIB$INDEXêÕP×P,PË@ÿ €Ë@ÿúËxIVLENÝÐPVÐ\Ã\VRÖRÐRTÃTS‘CË@ÿ9ó\çÖTßïæÃTUÂUV°VË„žEË@ÿˈŸË„û FOR$READ_IFûß«$û FOR$IO_L_Rþû FOR$IO_ENDæ×T,TË@ÿ €Ë@ÿÕ«1úË” LIB$INDEX×ÐP\Ã\V,VË@ÿ «ÀÃ\€V,VLË@ÿ €Ë@ÿúË IVLENòÐPV,VË@ÿ «àßïûŸ«tû FOR$WRITE_IFúŸË”û FOR$IO_T_DSï°Vˬž«à˰ŸË¬û FOR$IO_T_DSûÝ«$û FOR$IO_L_Vþû FOR$IO_ENDôÕ«1ú˼ LIB$INDEXçÃP€\,\@Ë@ÿ €Ë@ÿúËÐ LIB$INDEXçÃP€V,V@Ë@ÿ €Ë@ÿúËÜIVLENòÐPV,VË@ÿ «àßïûŸ«tû FOR$WRITE_IFûÝ«û FOR$IO_L_Vï°VËèž«àËìŸËèû FOR$IO_T_DSûÝ«$û FOR$IO_L_Vþû FOR$IO_ENDüúËðIVLENð°PËüžË@þËúËFOR$OPENæèP1ЭüŸ¯Ô~Ô~Ÿ«\Ýû FOR$READ_KUûŸ«|û FOR$IO_X_SEþû FOR$IO_ENDëÐPRÐRSÑS4P«(úËPLIB$WAITú¼Ô­ü÷üˤû÷ì˦ûÔ­ø´Ë¨û´ËªûÔXúË` LIB$INDEXêÕP, úËðòÐXúËt LIB$INDEXìÕPÖXÃXRBËðòúˈ LIB$INDEXÞÐPRÁRSÃSúT°TË”žCËFý˘úˤ LIB$INDEXÜÀRPÖPÃRPVÁV«,×RÂRP°P˰žBËFýË´ú˸GETPVì÷«0Ëœû÷«4ËžûЭøúËÔ LIB$INDEXÓÐPT1Õ­ø1ÁTUÃUúR°RËàžEËFýËäúËð LIB$INDEXõÀTPÖPŸÏßï6è×TÂTP°PËüžDËFýËŸËüû FOR$READ_IFû?«dû FOR$IO_X_DAþû FOR$IO_ENDüúËJTSCRðÖXÁXYÐYZ2Ë ûËÀò€À¹{ôúúúúûúúüüüüöýü÷ôóêöôõìçôöý¼÷ñøûúûü÷÷÷úóûå÷óó÷óê÷îôý÷ôüþÊòøôóëô÷¾ø÷ë÷ëô÷¿¿÷ãüÖþûü÷þý÷÷ýüüþóõýóþöôþÞû÷åúúüôûøÞûÈ÷þùÄ2Ë¢ûËÄò2˨ûËÈò2˪ûËÌòÂ^(ËÀòn~×XÂXZ,n ZHËðòÁPQ^ÐYXúË  LIB$INDEXÐÐPWÐWZ1Õ­ø1ÁW\Ã\úR°RË,žLËFýË0úË< LIB$INDEXõÀWPÖPŸÏßï6è×WÂWP°PËHžGËFýËLŸËHû FOR$READ_IFû?«dû FOR$IO_X_DAþû FOR$IO_ENDüúËPJTSCR€ÖXÁXYÐY\2Ë ûËÀò2Ë¢ûËÄò2˨ûËÈò2˪ûËÌòÂ^(ËÀòn~×XÃX\P,n PHËðòÁPQ^ÐYXÑZÑ\ÈÃ\úWÂW^(WLËFýnÐWY×ZÂZ^(ZËFýnÐZVÁYVW,Wn ìúËFýÁPQ^1ïþúËl LIB$INDEXïÕP1Õ­øŸ¯ßï<òž@ËFýË|ŸËxû FOR$READ_IFûß«8û FOR$IO_L_Rþû FOR$IO_ENDãÕ«8Ñ«8ë8Z÷ZË û´Ë¢ûúË€JTSCR¨2˨ûËÀò2˪ûËÄòÖXÝËÀòZ~~ÃXW(nGËðòÐQ^ÀXÁ XZÕXöZËêóËëóËìó”ËíóËîó”Ëïó”Ëðó”ËñóІÐËòó Z,XËðò ZËöó”HËêó”HËëó”HËìó°« Ë”žËüû˘úËœ SYS$ASSIGNüú˸REPLENTöЫËÌúËÈ SYS$DASSGNúžËôô\ÐùlžËøôVÐífÕX1žËXõËÔúËà LIB$INDEXÛÐPYÃYZÃZ@RžËXõS°RËìžJcËðúËü LIB$INDEX¶ÁYUÀPUÃU@\žËXõVÂ\^(\EfnÐ\Z×YÂY^(YËXõnÐYVÁZVW,Wn @ËXõÁPQ^žËXõË úËIVLEN¹ÐPV)~ÂX^(XËðònÐXWÁW\°A(~Á\XÂV^(VËXõnÐVWÁXWZ,Zn @ËXõÁPQ^Ñ­üÝûFOR$REWRITE_SUûŸ«|û FOR$IO_X_SEþû FOR$IO_END÷Õ­üÝû FOR$WRITE_SUûŸ«|û FOR$IO_X_SEþû FOR$IO_ENDüúË FOR$CLOSEþûFOR$EXITüÐP†PüGCEV üJTMODACEFGETFID SYS$ASSIGN SYS$DASSGNLIB$SYS_TRNLOGLIB$GET_FOREIGN LIB$INDEXILENFOR$OPEN FOR$CLOSE SYS$GETDVIWIVLENLIB$WAITGETPVJTSCRREPLENTFOR$EXITé $CODE©Š$PDATA‰ˆ$LOCAL½ FFFIII½ FFIIDD FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU FOR$READ_IF FOR$READ_IF FOR$WRITE_IFvPþƒPþxŒPþm²PÿÆPÿðPþ®ŒPþmœPÿA¹Pþ@ûPÿPÿHPÿ™Pþ…&Pþ’ÜPþæPÿ!PÿPÿRPÿmPÿ ‡Pÿ[òPþ¶úPþ®%Pþƒ¾PþÆPþøñPþÍ{PÿD„Pÿ;ÎPþÔPÿz×PÿwPÿH PÿBVPÿIëPþPÿd¸Pÿ×Pÿ‰m¹ùùùùâûôýûøÞûÈ÷þùùùùùáýòËú÷ùûÓõûûü÷ùùþèýüüûûûüûüüü÷óûûûê÷ñôôùíþÛùÈíÆàá÷ùü¿ ½FGETFID0116-Sep-1996 10:38Digital Fortran V6.4-165ñ¼FGETFIDý¾øFGETFID4PÈP PD DPýÞ4ó[Ь«Ь«Îøž¼«,ú«(SYS$OPENðÐPRéRÐQžA»PÐ`ÿ´øž¼«4ú«0GETFIDüÐRP FGETFIDSYS$OPENGETFIDéS$CODE©$PDATA‰p$LOCAL½ FFIIDD,Pÿ"Ṛíùðýñúóü¿S½ILEN0116-Sep-1996 10:38Digital Fortran V6.4-165ô ¼ILENý ¾ûILENPøPPýÞÒ[}¼PÐQ«ÐPÃPQQÃQRšB»RÑR óPPâÐQP ILENé6$CODE©$PDATA‰ $LOCAL)Pÿæ¹ïýøòøü¿6½GETPV0116-Sep-1996 10:38Digital Fortran V6.4-165ó ¼GETPVý ¾úGETPVPøPPý|Þ®[}¼PÐQ«мPÞ¼ QÔaÞ¼RÔbÐSÕPÃSTšD»TÅaUÀTUÐUaÅbVÀTVÐVbÕUÁUaÕVÁVbóPSÏ |GETPVéZ$CODE©$PDATA‰ $LOCAL'Pÿ1HPÿPPÿå¹çúþù÷ööøøüÿ¿Z½IVLEN0116-Sep-1996 10:38Digital Fortran V6.4-165ó ¼IVLENý ¾úIVLENPøPýÞÅ[}¼PÐQ«°P«мPÐQÕPÁPRÃQRSÃSTšD»TÑT óPQêÐSPÔP IVLENéC$CODE©$PDATA‰$LOCALPÿ 5Pÿ;Pÿâ¹çùøòú üý¿C½