JTMODACE0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173JTMODACEP@Dev:file or (n,s,v)>\ISYS$DISK:$MK<>P<I<SA(), JTD$DB:OP)).GDB JTD$DB:OP).GDBJTMODACEPP` P      p   t  d LIB$GET_FOREIGN@ !%% LIB$SYS_TRNLOG@   FGETFID. h.T,T0TTT0T|0TT< @   # 244H7\dx   97    <7    ?,    \  N@AD@P| [LNޫ PޫTXZޫ\`dhl,n ˠԫ˚˸LIB$GET_FOREIGN,kL LLPP 1Lq1LQ1(PLˬ LIB$INDEXP\,I F\\P,Pˬ Pˬ\\P,PLL FILENP\L(1\PFPPM FOR$READ_IF߫ FOR$IO_L_R߫ FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_ENDǏPzQ{QQQxPPPPː˒Q˔˖ː˔LIB$SYS_TRNLOGP1, P\ˬ FOR$OPENP18 FOR$CLOSEH LIB$INDEXP , ˬ PT SYS$GETDVIW,@ @@_,A @ˀ LIB$INDEXPP,P@ @ˌIVLENP\TT\PPUUP@@9TUJUTT\\˘D@˜˘ FOR$READ_IF߫$ FOR$IO_L_R FOR$IO_ENDU,U@ @ի1˨ LIB$INDEXP\\P,P@ \P,PL@ @˴IVLENP\,\@ Lˈ FOR$WRITE_IF˨ FOR$IO_T_DS\ FOR$IO_T_DSݫ$ FOR$IO_L_V FOR$IO_ENDի1 LIB$INDEXP\,\@@ @ LIB$INDEXPU,U@@ @IVLENP\,\@ cˈ FOR$WRITE_IFݫ FOR$IO_L_V\ FOR$IO_T_DSݫ$ FOR$IO_L_V FOR$IO_ENDIVLENP@FOR$OPENP1(~~p FOR$READ_KUː FOR$IO_X_SE FOR$IO_ENDP0Ы0,ѫ,4P4dLIB$WAITԫ(hjԫ8lnԫP"PPWPsPP[PP-PPPPP@P7PPP|PMPGlPNPPcPPr$ FGETFID0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173FGETFIDFGETFID0PP PD DP0[ЬЬ,(SYS$OPENPRRP@P`PP40GETFIDRP FGETFIDSYS$OPENGETFIDV$CODE$PDATAl$LOCAL FFIIDD,P%VILEN0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 ILEN ILENPPP[}PQPPQQQRBRR PPQP ILEN6$CODE$PDATA $LOCAL)P6GETPV0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 GETPV GETPVPPP [}PQԼ ԼмPQռQRBR SRS SRSռ ּ ռּPQ GETPVV$CODE$PDATA $LOCAL"P2EPMPVIVLEN0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 IVLEN IVLENPP[}PQPмPQռRQRSSTDTT PQSPP IVLENG$CODE$PDATA$LOCAL P#9P?P G