q[VAX-11 Librarian V2A.00` ,nS!'BKK  SACOPYGYADSTRGALLDIGTAMOVENBKSCANQBKSCNQcCANTEC}CHKARGCLOSEC^CLOSEC`CLOSELCLOWERF>CONCATSACOPYGYADSTRGALLDIGTAMOVENBKSCANQBKSCNQcCANTEC}CHKARGCLOSEC^CLOSEC`CLOSELCLOWERF>CONCATOPNSTDeOUTLINKPMATCHnPROMPTjPUTCHCPUTDECkPUTLINPUTNUMfREMARKREMOVERSTARGW|SCANYMSCOPYCLOWERCONCATCUPPEREQLDY FOLDY GETWRDITOCYOPNEYRSTARGSCOPYYSTCOPYXITSTAOPNSTDeOUTLINKPMATCHnPROMPTjPUTCHCPUTDECkPUTLINPUTNUMfREMARKREMOVERSTARGW|SCANYMSCOPYCLOWERCONCATCUPPEREQLDY FOLDY GETWRDITOCY OPNEYRSTARGSCOPYYSTCOPYXITSTA CITOCRJDLENGTHILOWERRNUQCP\OPENC[OPENCOPN CITOCRJDLENGTHILOWERRNUQCP\OPENC[OPENCOPNFPARSEmFSIZENlFSKIPNtGARGNNyGARG2NrGCLINNxGCMDRGwGETARGiGETCHNhGETLINgGETRECGETWRDI ITOCFPARSEmFSIZENlFSKIPNtGARGNNyGARG2NrGCLINNxGCMDRGwGETARGiGETCHNhGETLINgGETRECGETWRDI ITOCsEQUALdERRORDXESCDRDWFCOPYDGFOLDRDsEQUALdERRORDXESCDRDWFCOPYDGFOLDRDvDEFNAM{DELARGDOREDRuENDR4PEQUALvDEFNAM{DELARGDOREDRuENDR4PEQUALrZCREATECTOIHCUPPERrZCREATECTOIHCUPPERFTYPEUNIQMUPCMDJUPPERoUSRBINXITSTAFTYPEUNIQMUPCMDJUPPERoUSRBINXITSTArLSEARCHNSKIPBLSTCOPYrLSEARCHNSKIPBLSTCOPYzGTARG2INDEXQUINDEXXINITR4ITOCzGTARG2INDEXQUINDEXXINITR4ITOCrqCMDGETMCONCATVCONCATrqCMDGETMCONCATVCONCATr~SAVARGOSCANYESCOPYr~SAVARGOSCANYESCOPY !"#$%&'()*+,-./0123456789:;<=>?@AB1N"`S011ITOCRJ01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23P P P[Ь ޼ ITOCPY ZXYZIJhYZYkZ JhZZм P@h PP ITOCRJITOCa$CODE$PDATA<$LOCAL0P4P GPwwATA8$LOCALSP^PdP Pww|PwwP[Ь R1i(`S011LENGTH01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23NP P [ЬԫZЫP@֫ЫPC LENGTH/$CODE$PDATA$LOCAL$PwwITOCRJITOCa$CODE$PDATA<$LOCAL0P4P GPwwATA8$LOCALSP^PdP Pww|Pwwww1@`S01X0SCOPY01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23}P  P[Ь Ь  ,мXмZY,WJiJiHgXZZkHgXH SCOPYJ$CODE$PDATA0$LOCAL3P wwPDATA4$LOCALL "P 6PwwwwATA8$LOCAL9SP^PdP PwwFORTRAN V2.4-64P 1F`S01/TYPE01 2-Dec-1982 15:18 2-Dec-1982 15:185VAX-11 FORTRAN V3.1-23WP'0' ''''''P[P2PP@|PA TYPE#$CODE$PDATA$LOCALP$ww$PDATA0$LOCAL3P wwPDATA4$LOCALL "P 6PwwwwATA8$LOCALSP^PdP Pww  P1M`S01X/FOLD01 2-Dec-1982 15:18 2-Dec-1982 15:186VAX-11 FORTRAN V3.1-23aP P[ЬYZIjIjAIjZAIjPaPIjYYkA FOLDB$CODE$PDATA$LOCAL$P&P-P wwCAL3P wwPDATA4$LOCALL "P 6PwwwwATA8$LOCALSP^PdP PwwkPD EQUALD$CODE1`W`S01Q1CUPPER01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-235P[azaPAPPC CUPPER/$CODE$PDATA$LOCALBPP$PAww$LOCAL$P&P-P wwCAL3P wwPDATA4$LOCALL "P 6Pwwww$PDATA0$LOCAL%,P2PGPMPSPYP ww1 cl 011]`S01:0LOWER01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23aP P[ЬYZIjIjAIjZAIjPaPIjYYkB LOWERB$CODE$PDATA$LOCALP&P-P wwCAL3P wwPDATA4$LOCALL "P 6PwwwwN V2.4-64$P Q0123456789P[Ь$мP@$֫zP{1`c`S010UPPER01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23aP P[ЬYZIjIjaIjzaIjPAPIjYYkB UPPERB$CODE$PDATA$LOCALP&P-P wwCAL3P wwPDATA4$LOCAL "P 6PwwP[Ь ޼ ITOCPY ZXYZIJhYZYkZ JhZ1` p`S011PMATCH01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23PP  P[ЬЬ(k04,UNIQMkԫЫPO PMATCHUNIQME$CODE$PDATAD$LOCAL 6P;P<wwMPSPXP_P gPww x 011PUTNUM0118-Dec-1@t`S01-1SEARCH01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23P  P[Ь Ь(4ԫ<8LENGTHPЫP<8LENGTHPkЫ Z4YЫXѫkX XXP PЫ Q@jAi֫ XPPЫPAP SEARCHLENGTH$CODE$PDATAD$LOCAL4P`P.iP}PwwP [޼ ITOCPYYZ1z`S01Y/CONC01 2-Dec-1982 15:18 2-Dec-1982 15:183VAX-11 FORTRAN V3.1-23PP   P[ЬЬ(Ь 0 <kD L@STCOPYD L@SCOPYZ CONCSTCOPYSCOPYR$CODE$PDATAT$LOCALww$LOCAL4P`P.iP}Pww$CODE$PDATA0$LOCAL1`S011SKIPBL01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23MP P [ЬZмP@j @j ּE SKIPBL.$CODE$PDATA$LOCAL !P'Pww$PDATA,$LOCAL/PwwSTCOPYSCOPYR$CODE$PDATAT$LOCALww$LOCAL4P`P.iP}Pww P[Ь18`S01/SCAN01 2-Dec-1982 15:18 2-Dec-1982 15:183VAX-11 FORTRAN V3.1-23P  P [ЬЬ$м ZЫP@j,ЫP@j0(INDEXXP֫ЫPPP SCANINDEXXW$CODE$PDATA8$LOCAL0P!JPLPLwwwwT$LOCALww$LOCAL4P`P.iP}Pww1CUPPER0118-1@S`S01V-EQ01 2-Dec-1982 15:18 2-Dec-1982 15:183VAX-11 FORTRAN V3.1-23wP  P[ЬЬ(kZ(YkP@j@i@jPkPA EQD$CODE$PDATA0$LOCAL 3P 8Pww$PDATA8$LOCAL0P!JPLPLwwwwT$LOCALww$LOCAL4P`P.iP}PLwwB$CODE$PDATA1 `S01V1BKSCNQ01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23P  P [ЬЬ$,޼ 0(NUQCPPZЫP@j,ЫP@j0(INDEXXP,~^0(NUQCP^PЫP\ BKSCNQINDEXXNUQCP$CODE$PDATA8$LOCALAP;[P]PwwwwVAX-11 FORTRAN V2.4-64P16`S010NUQCP01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23nP P [ЬZмP@j"PЫP@j@j"֫ЫP@j"֫ЫPD NUQCPO$CODE$PDATA$LOCAL!P0P6PCPww BKSCNQINDEXXNUQCP$CODE$PDATA8$LOCALAP;[P]Pwwww P1=}S01Q0ACOPY01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23BPP[м k޼ ޼COPYO ACOPYCOPY $CODE$PDATA$LOCALOww$PDATA$LOCAL!P0P6PCPww BKSCNQINDEXXNUQCP$CODE$PDATA8$LOCALAP;[P]Pww Z4YЫXѫkX XXP PЫ Q@jA1}S010AMOVE01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23PRWP  0 OPEN@L CREATE@P[Ь Ь ,<8OPENPkPHDCANTXTCREATEPPHDCANT`FCOPYk AMOVECREATEOPENCANTFCOPYk$CODE$PDATA1z_S011INDEXX01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23TP P [ЬZЫP@j@j֫PE INDEXX5$CODE$PDATA$LOCALh $P +PwwTWRDq$CODE$PDATA0$LOCAL%,P2PGPMPSPYP Cww'P6P ?PNP*dPfP|Pww1@ZL1;ZN16ZR1@_S011CONCAT01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23 P  P[Ь Ь ,40LENGTHPXXZ,YWZ XZP@iXZP@iJgZXJgZPZkR CONCATLENGTHf$CODE$PDATA<$LOCAL @PIP wwLOCAL1!P'P6P ?PNP*dPfP|Pww1@ZL1;ZN16ZR1. }S01$0FCOPY01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23HPQP[޼ ޼COPYM FCOPYCOPY$CODE$PDATA$LOCALwwЬ Ь ,<8OPENPkPHDCANTXTCREATEPPHDCANT`FCOPYk AMOVECREATEOPENCANTFCOPYk$CODE$PDATA1-901.ESC01 3-Mar-1982 14:08 3-Mar-1982 14:08VAX-11 FORTRAN V2.4-64 P P[Ь мP@@мP@1P@@1ּмP@ CUPPERPk111 11 1 1 1 1 11мZYJi0Ji7PZPP0JiQQPZÀZZ1мP@1kZZ$Z0Z7ZB1PZE1KZF1EZG1@ZL1;ZN16ZR1t}S010ADSTR01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23QP* P   T INDEXQ@ h SCAN@h SCAN@P[Ь Ь ,Ь4@ռHLDCONCATP 1,ZЫY$мP@j`\INDEXQPYYYY1@~}S011CREATE01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P: can't create.P 0 REMARK@P[ЬOPENPP$ PUTLIN4REMARKЫPd CREATEOPENPUTLINREMARKH$CODE$PDATA@$LOCAL-P7wwP&ww INDEXQ@1}S010OPENC01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P: can't open.P  0 REMARK@P[ЬOPENPP$ PUTLIN4REMARKЫPc OPENCOPENPUTLINREMARKH$CODE$PDATA@$LOCALL-P-wwwwP&ww INDEXQ@1@}S01/OPEN01 2-Dec-1982 15:19 2-Dec-1982 15:195VAX-11 FORTRAN V3.1-23~P.too many files opened. P  0 DEFNAM@l REMARK@P[Ь $CONCATP4DEFNAMxѫxЫYIYZZ^X`TOPN^kZIЫPxpREMARK $ INDEXQ@ ` BKSCNQ@ "&& BKSCNQ@ ) -P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP k1}S011CLOSEC01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23Perror closing file.P REMARK@P[޼kCLOSELPPREMARKЫP[ CLOSECCLOSELREMARK/$CODE$PDATA $LOCAL!PNwwP4DEFNAMxѫxЫYIYZZ^X`TOPN^kZIЫPxpREMARK INDEXX@ $ INDEXX@ ` BKSCAN@ "&& BKSCAN@ ) -P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN1#}S01Y1CLOSEL01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23fPillegal command in closel.P@ REMARK@P[ѼмP@ PS޼k FOR$CLOSEPD޼ FOR$CLOSEPP޼0( FOR$CLOSEPDREMARKЫPѼмP@ ЫP޼k FOR$CLOSEPѼмP@ ЫPl Cec-1981 14:04VAX-11 FORTRAN V2.4-64P :A@][ .; ;P  B A \     SCAN@  INDEXX@   INDEXX@ $ INDEXX@ c` BKSCAN@ "&& BKSCAN@ ) -P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP kЫP@INDEXXPZJ:ZZZ޼ ADSTRЫP@1@һ}S01S/CANT01 2-Dec-1982 15:19 2-Dec-1982 15:193VAX-11 FORTRAN V3.1-23P: can't open.P    ERROR@P[ЬPUTLIN(ERRORV CANTPUTLINERROR*$CODE$PDATA0$LOCALww0( FOR$CLOSEPDREMARKЫPѼмP@ ЫP޼k FOR$CLOSEPѼмP@ ЫPl C1!}S0100ERROR01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23PP P[ЬXITSTAP@ REMARKENDR4Ub ERRORXITSTAREMARKENDR4:$CODE$PDATA$$LOCAL$P ww0( FOR$CLOSEPDREMARKЫPѼмP@ ЫP޼k FOR$CLOSEPѼмP@ ЫPl C1@<}S011OUTLIN01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23~P P P[Ь޼PUTLIN޼( PUTCHZ OUTLINPUTLINPUTCH4$CODE$PDATA,$LOCALwwL$P ww0( FOR$CLOSEPDREMARKЫPѼмP@ ЫP޼k FOR$CLOSEPѼмP@ ЫPl C1V}S011REMARK01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P P P [ЬkZkP@j@j.@kP@jPUTCHkk$PUTCHkP@ $PUTCHOM REMARKPUTCHh$CODE$PDATA0$LOCALP+"P"(P.P0PIP SP^PPww FOR$CLOSEPѼмP@ ЫPl C1}S011GETREC01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P Scan't close STDIN in getrec.SYS$INPUTFcan't open STDIN in getrec.error code returned in getrec.P @ CLOSEL@T ERROR@ /9d/ OPN@l9 OPN@;; ERROR@ WW PUTLIN@1@}S011GETLIN01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P P[ЬԫZ֪֫YЫPЪQA@iѪڔ@޼GETRECPЫP^ GETLINGETRECk$CODE$PDATA$$LOCALFCOMR  P/OPwwOPN@l9 OPN@;; ERROR@ WW PUTLIN@1 :}S010GETCH01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23ePP [ZѪ޼kGETRECPԪP  P֪ЪP@P] GETCHGETRECH$CODE$PDATA$LOCALFCOMR P-Pww$$LOCALFCOMR  P/OPwwOPN@l1 OPN@33 ERROR@ OO PUTLIN@[1}S01P0PUTCH01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P error code returned in putchputchP  SCOPY@ CONCAT@ /QxP [ѫ ޼ PUTkITOCPZ4SCOPYHCONCATPZ`CONCATPpPUT˄1~S011PUTLIN01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23iP P[ЬZYJiJi޼ PUTCHZZkO PUTLINPUTCH:$CODE$PDATA$$LOCALPAww /QxP [ѫ ޼ PUTkITOCPZ4SCOPYHCONCATPZ`CONCATPpPUT˄1_~S010FSKIP01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-239PP[мk޼ SKIPM FSKIPSKIP$CODE$PDATA$LOCALww:$CODE$PDATA$$LOCALPAww+/QxP [ѫ ޼ PUTkITOCPZ4SCOPYHCONCATPZ`CONCATPpPUT˄1@z~S01d0FSIZE01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23Pfile too big. P  ERROR@QP[޼ SKIPѫ ERRORЫݼ FOR$REWINDЫPd FSIZESKIPERROR<$CODE$PDATA,$LOCAL FOR$REWINDPww PUTkITOCPZ4SCOPYHCONCATPZ`CONCATPpPUT˄1 "~S011PROMPT01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23P$ P P[Ь PUTCH$ PUTLIN,PUTCHf PROMPTPUTCHPUTLIN:$CODE $PDATA8$LOCALFCOMRPwww PUTkITOCPZ4SCOPYHCONCATPZ`CONCATPpPUT˄1,~S011USRBIN01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23PSYS$PUBLIC:P   SCOPY@P[Ь(SCOPYM USRBINSCOPY"$CODE$PDATA0$LOCAL$ww$PDATA8$LOCALFCOMRPOwwPwwITOCPZ4SCOPYHCONCATPZ`CONCATPpPUT˄qt open STDIN in getrec.error code  returned in getrec.P @ CLOSEL@ T ERROR@ '2d' OPN@l2 OPN@44 ERROR@ PP PUTLIN@\`\dd REMARK@P [Ь ޼ $GET۞Zkk Ѽ8CLOSELPLERRORdOPNիˀ1S01L1CMDGET01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23-Perror reading command line.P   P REMARK@P [ЬЬ(8<޼ H,GCMDLNkkTREMARKΞZk kЫP @j@ЫP] CMDGETGCMDLNREMARK$CODE(1S01@0GCLIN01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23P P[Ь ޼$CMDGETPkPPDOREDR g GCLINCMDGETDOREDRO$CODE$PDATA($LOCALCARGM7P;P=PwwkЫP @j@ЫP] CMDGETGCMDLNREMARK$CODE(1@8_S010EQUAL01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23wP  P[ЬЬ(kZ(YkP@j@i@jPkP,D EQUALD$CODE$PDATA0$LOCAL 3P 8PGww$CODE$PDATA<$LOCAL @PIP wwLOCAL1!P'P6P ?PNP*dPfP|Pww PUTkITOCPZ1@ S01/GARG01 2-Dec-1982 15:20 2-Dec-1982 15:206VAX-11 FORTRAN V3.1-23OP P  QP[Ь Ь  ,ռ P @,ЫPռ޼4 8޼<0GTARG2PѫּP@, P@D@GCLIN T޼XLGTARG2PPռkP@, ЫP\ GARGGTARG217}S01.0ENDR401 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23PSP  CLOSEC@ CLOSEC@ CLOSEC@P[CLOSECCLOSEC CLOSECɏ~^0,FOR$EXITe ENDR4CLOSECFOR$EXIT:$CODE$PDATA4$LOCALSTATUSww@RR ERROR@P 1;}S011DEFNAM01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23;PP  B A R    P[ЬЬ$Ь , 8Ь@LЬT`Ьht|ˀ ˄ˈˌː޼˘xFPARSEZ DEFNAMFPARSE$1`S011GETARG01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23P> P  GCLIN@P[Ь GCLIN޼04޼ 8,GTARG2i GETARGGTARG2GCLIN;$CODE$PDATA@$LOCALCARGPTwwPռkP@, ЫP\ GARGGTARG21՛S01/GCMD01 2-Dec-1982 15:20 2-Dec-1982 15:203VAX-11 FORTRAN V3.1-23eP  QP[Ь Ь ( 4Լ ԫ <޼@8GETMCRռk4ZkkP@j @/kkZX4YZXZPJi@iZZkXXռԼռ ޼HL P޼T~^XDREADPR^ռѼPPмPPP@4a GCM1#ݛS01C0GARG201 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23hPP  QP [Ь Ь ( 4 ռP @4ЫPռ޼< @޼D8GTARG2PּP@ ռѫ޼LPHGCMDk ЫZիZZ JJZ l޼pdGTARG2PЫPk G1S011GTARG201 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23gP P[Ь(ԫԫѫ1ZЫP@ @ @,֫➻(YЫP@@ @ P@// ԫ ֫ PPZ(Yѫ Ы PЫQA@iЫP@[@]ԫ@ @ @ @,@/Ы QQ м QAiP֫1Ы PP м PP0,UPPERЫP^ |1eS0111DELARG01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23PP [ԫkԫ ѫ1kZkP@ @ @,kkP@@ ZkP@[ @]ԫ kkP@ @ @ @,@/ ֫1gkZѫJ/J ZZkSCOPYZ DELARGSCOPY$CODE$PDATA$$LOCALCARGiP0P7P>PMPTPgPmP uPPPPPPP Pww&P9P@PGP\PcP tP ~PPPP PPPPP'P eww:0418-Dec-1981 14:04VAX-11 FORTRAN V2.4-64P> P  GCLIN@P[Ь GCLIN޼04޼ 8,GTARG2i GETARGGTARG2GCLIN;$CODE$PDATA@$L1@S0101CHKARG01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23P: ignoredP 0 REMARK@P[мYZZYDELARGYZZk GTARG2PLENGTH@$PUTLIN8REMARK CHKARGGTARG2LENGTHDELARGPUTLINREMARKU$CODE$PDATA@$LOCALCARGP P 41S011SAVARG01 2-Dec-1982 15:20 2-Dec-1982 15:20PVAX-11 FORTRAN V3.1-23cPP P[Ь SCOPYEZ SAVARGSCOPY"$CODE$PDATA($LOCALCARGwwPUTLIN8REMARK CHKARGGTARG2LENGTHDELARGPUTLINREMARKU$CODE$PDATA@$LOCALCARGP P 41c S0121RSTARG01 2-Dec-1982 15:20 2-Dec-1982 15:20DVAX-11 FORTRAN V3.1-23bPP P[ЬSCOPYZ RSTARGSCOPY"$CODE$PDATA($LOCALCARGwwwPUTLIN8REMARK CHKARGGTARG2LENGTHDELARGPUTLINREMARKU$CODE$PDATA@$LOCALCARGP P 41 S01P0UPCMD01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23PмO UPCMD $CODE$PDATA$LOCALCARGwwRSTARGSCOPY"$CODE$PDATA($LOCALCARGww0,UPPERЫP^ GTARG2UPPER:$CODE$PDATA8$LOCALCARGq&P9P@PGP\PcP tP ~P1 S011DOREDR01 2-Dec-1982 15:20 2-Dec-1982 15:20VAX-11 FORTRAN V3.1-23Pcommand line overflow in doredr.<>?RSYS$INPUTFWSYS$OUTPUTSYS$ERRORP  ERROR@55 INDEXX@9 ;E 9 OPNSTD@; OPNSTD@E OPNSTD@ 1`T#S01C1OPNSTD01 2-Dec-1982 15:20 2-Dec-1982 15:20CVAX-11 FORTRAN V3.1-23{PS: can't open in opnstd..: can't open.P   , CLOSEC@` ERROR@&p& DEFNAM@` ERROR@ (( ERROR@P[ЬЬ(޼84CLOSEC1,nS01T1XITSTA01 2-Dec-1982 15:21 2-Dec-1982 15:21VAX-11 FORTRAN V3.1-23cPQPP[ѼPPмPP@R XITSTA1$CODE$PDATA$LOCALSTATUSPww@&p& DEFNAM@` ERROR@ (( ERROR@P[ЬЬ(޼84CLOSECޠ1"011XITSTA0119-Nov-1982 10:3619-Nov-1982 10:36VAX-11 FORTRAN V3.1-23cPQPP[ѼPPмPP@R XITSTA1$CODE$PDATA$LOCALSTATUSPww4CLOSECP1P@޼DHL@OPNkXTPUTLINhERRORѼ 1˄ˀDEFNAM޼DH L@OPNk޼DHL: can't open.P  , CLOSEC@ ` ERROR@ ",p" DEFNAM@x, DEFNAM@.` ERROR@ 22 ERROR@P[ЬЬ(޼84CLOSECP1P@޼DHL@OPNkXTPUTLINhERRORѼ 1˄ˀDEFNAM޼DH L@OPNk޼DHNSTD@> OPNSTD@ JD-<J OPNSTD@DD OPNSTD@ VFdV OPNSTD@DD OPNSTD@P[ SCOPY\Lwѫ(ERRORLw@8INDEXXPЫP @֫Lw>Lx>Lw?Lx?ЫPLw@֫\ЫPLw@֫\1zЫP@kDGTARG2P1x<TSCOPYˀOPNSTD˘DELARGx>Wy>Aˠ1 0`S01W1PUTNUM01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23vP PP  [޼ ITOCPZZJ޼ PUTCHZZkX PUTNUMITOCPUTCH>$CODE$PDATA0$LOCAL"P$ww<$LOCAL0P4P GPwwATA8$LOCALSP^PdP Pww-1981 14:0418-Dec-1981 14:04VAX-11 FORTRAN V1$6`S01$1PUTDEC01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23P PP [޼ ITOCPYYZZPUTCZZZYJ$ PUTCZYZkW PUTDECITOCPUTCQ$CODE$PDATA4$LOCALL "P 6PwwwwATA8$LOCALSP^PdP Pww|PwwTLINhERRORѼ 1"S`S011CLOWER01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-235P[AZAPaPPC CLOWER/$CODE$PDATA$LOCALBPP$PAww$LOCAL$P&P-P wwCAL3P wwPDATA4$LOCALL "P 6Pwwwwwww1`S01/ITOC01 2-Dec-1982 15:18 2-Dec-1982 15:183VAX-11 FORTRAN V3.1-23$P Q0123456789P[Ь$мP@$֫zP{ PPk$YkPPPЫQ@AikP PQ ռQ ֫ЫP-@iZЫXZЫP@iXJi@iXJi׫ZXZ ЫPE ITOC$CODE$PDATA8$LOCALSP^PdP Pww|Pww1j`S010UNIQM01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23P  P[ЬЬ(Z(YkkP@j@j@ikռռ м kP@iμ LH UNIQMn$CODE$PDATA,$LOCAL7+P0P

P.YP`P fPmPtP{PPPPPPP#PPPPPwwPR BKSCANINDEXXW$CODE$PDATA8$LOCAL0P!JPLPwwRTRAN V2.4-64aP P[ЬYZIjIjAIjZAIjPaPI1`_S011GETWRD01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23P  P[ЬЬ  (ZмP@j @j ּY(XмP@j@j @j @j @jIhּYٔIhYPYkG GETWRDq$CODE$PDATA0$LOCAL%,P2PGPMPSPYP Cww'P6P ?PNP*dPfP|Pww1@ZL1;ZN16ZR1`$}S011INITR401 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23PSYS$ERRORWcan't open ERROUTSYS$INPUTFcan't open STDIN.SYS$OUTPUTcan't open STDOUT.P   OPN@ OPN@ )34) OPN@<3 OPN@5X5 ERROR@ GhG OPN@ OPN@RR ERROR@P 1`a}S011FPARSE01 2-Dec-1982 15:19 2-Dec-1982 15:19RVAX-11 FORTRAN V3.1-23PA@Q  :] .; ;P  B A R    $$ SCAN@&& INDEXQ@  & INDEXQ@ $ INDEXQ@ ` BKSCNQ@ "&& BKSCNQ@ ) -P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP k1` }S010CLOSE01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23RPSP CLOSEL@P[޼ CLOSELM CLOSECLOSEL$CODE$PDATA$LOCALwwCLOSELREMARK/$CODE$PDATA $LOCAL!Pww  $CONCATP<DEFNAMˀѫˀЫYIYZZ^`h\OPN^k[ZԪԪ\L\\jOPNk߫,FOR$STOPDOPNk`ERROR pOPNkˌERROR$y INITR4OPNERRORz$CODEe$PDATA$LOCALFCOMRCARGFOR$STOPAP WPoP NwwOPEN$CODE$PDATA,$LOCALRzP5P8P@PWPZPbPxPhzPcPPGPBPP&P!PPPwwzP'PwwCATDGETMCRREADPR$CODE$PDATA`$LOCALG%Pi?POPPYP`PbPvP PEPP7P LwwFOR$STOPPPX)P=oPwwZ֪֫YЫPЪQA@iѪڔ@޼GETRECPЫP^ GETLINGETRECk$CODE$PDATA$$LOCALFCOMR  P/OPwwOPN@l2 OPN@44 ERROR@ PP PUTLIN@\1I_S01 1ALLDIG01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23hP P [ЬԫZЫPkkP@j@j0@j9ЫPkPC ALLDIGI$CODE$PDATA$LOCALP/P5P;PwwGPOPEN GPCRE8 GPCRE8P[Ь Rl$LOCAL 2P TP wwW޼LTDFOR$OPENP11 A޼|˄tFOR$OPENP X޼ˬ˴ˤFOR$OPENP P޼FOR$OPENP F޼ FOR$OPENPԼi OPNGPCRE8GPOPENFOR$OPEN$CODE$PDATA,$LOCALzP5P8P@PWPZPbPxPhzPcPPGPBPP&P!PPPww  (4( INDEXQ@  *p* BKSCNQ@ .. BKSCNQ@    P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP kHLDCONCATP t~^|pSCAN^P1мPPмPPk˄мP@jˈ PkP~^ˌˀCONCAT^P ˔~^˜ːSCAN^P ˤ PkP~^˨ˬˠSCOPY^Y{ ADSTR CONCATSCANINDEXQSCOPY<$CODE $PDATA$LOCAL5.PFPSPiPoP=uP7PP&ww\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP k1}S011REMOVE01 2-Dec-1982 15:19 2-Dec-1982 15:19VAX-11 FORTRAN V3.1-23PXDP  OPEN@, CLOSEL@P[Ь OPENPP0CLOSELPЫPNW REMOVEOPENCLOSEL:$CODE$PDATA@$LOCALO(P ww@$LOCAL-Pww˨ˤSCAN Z@j˼˴CONCATP kARG2GTARG2GCMD$CODE$PDATAx$LOCALCARG?:&P+P =PdPiPdsPZPPPwww GCLIN@P[Ь GCLIN޼04޼ 8,GTARG2i GETARGGTARG2GCLIN;$CODE$PDATA@$LOCALCARGPTwwPռkP@, ЫP\ GARGGTARG2GTARG2UPPER:$CODE$PDATA8$LOCALCARGq&P9P@PGP\PcP tP ~PPPP PPPPP'P wwGETARG0127-Dec-1981 23:0627-Dec-1981 23:06VAX-11 FORTRAN V2.4-64P> P  GCLIN@P[Ь GCLIN޼04޼ 8,GTARG2i GETARGGTARG2GCLIN;$CODEIG<I OPNSTD@DG OPNSTD@ TdT OPNSTD@DG OPNSTD@P[ SCOPY\Lwѫ(ERRORLw@8INDEXXPЫP @֫Lw>Lx>Lw?Lx?ЫPLw@֫\ЫPLw@֫\1zЫP@kDGTARG2P1x<TSCOPYˀOPNSTD˘DELARGx>Wy>AˠSCOPYOPNSTD˘DELARGx?Wy?P1P@޼DHL@OPNkXTPUTLINhERRORѼ 1|xDEFNAM޼DH L@OPNk޼DHL@OPNkXTPUTLIN˘ERRORѼ XTPUTLIN˨ERRORѼ  OPNSTDCLOSECOPNPUTLINERRORDEFNAM $CODE6$PDATA$LOCALFCOMRQ1P;PBVPmP sP|PPXPP PP Pww?JD-<J OPNSTD@DD OPNSTD@ VFdV OPNSTD@DD OPNSTD@P[ SCOPY\Lwѫ(ERRORLw@8INDEXXPЫP @֫Lw>Lx>Lw?Lx?ЫPLw@֫\ЫPLw@֫\1zЫP@kDGTARG2P1x<TSCOPYˀOPNSTD˘DELARGx>Wy>AˠSCOPYOPNSTD˘DELARGx?Wy?1=S011.OPN01 2-Dec-1982 15:18 2-Dec-1982 15:18VAX-11 FORTRAN V3.1-23gP   GPOPEN GPCRE8 GPCRE8 GPOPEN GPCRE8 GPCRE8P[Ь RCODE$PDATA$LOCALwwOPNk߫,FOR$STOPDOPNk`ERROR pOPNkˌERRORy INITR4OPNERRORz$CODEe$PDATA$LOCALFCOMRCARGFOR$STOPAP WPoP wwPXPP PP PwwLOSEL FOR$CLOSEREMARK$CODE$PDATAP$LOCALFCOMRQPP*P9PV;P?BPRPBTP&[PkP)mP P P ww ˔~^˜ːSCAN^P ˤ PkP~^˨ˬˠSCOPY^Y{ ADSTR CONCATSCANINDEXQSCOPY<$CODE $PDATA$LOCAL5.PFPSPiPoP=uP7PP&ww INDEXQ@ $ INDEXQ@ ` BKSCNQ@ "&& BKSCNQ@ ) -P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP k $ INDEXQ@ ` BKSCNQ@ "&& BKSCNQ@ ) -P [Ь Ь(4Ь < HЬP\ЬdpЬx˄Ьˌ˘˨ˤSCAN Z@j˼˴CONCATP kGCLIN$CODE$PDATA`$LOCALT"P'P=P?P4dPiP^sPT|PKPPPPPww OTS$LINKAGEFOR$STOPPPX)P=oPwwPUTLIN˜ITOCˬPUTLINREMARK1rkЫP @j@ЫP GETRECCLOSELGETERROROPNPUTLINITOCREMARK$CODEx$PDATA$LOCALFCOMRQ,-Pv6PDGP1SPhP zP'Pww1FOR$STOPԫ ֫ЫP@kw PUTCHCONCATPUTITOCSCOPY$CODE4$PDATA $LOCALFOR$STOPPPX)P=oPwwR ːPUTLIN˜ITOCˬPUTLINREMARK1rkЫP @j@ЫP GETRECCLOSELGETERROROPNPUTLINITOCREMARK$CODEx$PDATA$LOCALFCOMRQ,-Pv6PDGP1SPhP zP'Pww1$PDATA`$LOCAL%9PBP LPNP]P jPwwATPUTITOCSCOPY$CODE4$PDATA $LOCALFOR$STOPPPX)P=oPwwR ːPUTLIN˜ITOCˬPUTLINREMARK1rkЫP @j@ЫP GETRECCLOSELGETERROROPNPUTLINITOCREMARK$CODEx$PDATA$LOCALFCOMRQ,-Pv6PDGP1SPhP zP'Pww1 cc REMARK@P [Ь ޼ $GET۞Zkk Ѽ8CLOSELPLERRORdOPNիˀERROR ːPUTLIN˜ITOCˬPUTLINREMARK1rkЫP @j@ЫP GETRECCLOSELGETERROROPNPUTLINITOCREMARK$CODEx$PDATA$LOCALFCOMRQ,-Pv6PDGP1SPhP zP'Pww1PwwmP uPPPPPPP Pww&P9P@PGP\PcP tP ~PPPP PPPPP'P wwP   T INDEXQ@h SCAN@h SCAN@P[Ь Ь ,Ь4@ռHLDCONCATPz OPENCONCATDEFNAMOPNREMARK$CODE%$PDATA$LOCALFCOMR%+PFPKSPUP6sPyP DwwLX`޼ hHADSTR^xBKSCNQëP~^ˌ˘ˠ޼ ˨޼$ˬˈADSTR^˸BKSCNQëP~^޼ ޼$ADSTR^ PëP~^޼ ADSTR FPARSE INDEXQBKSCNQCONCATSCANADSTR$CODE1P1P@޼DHL@OPNkXTPUTLINhERRORѼ 1|xDEFNAM޼DH L@OPNk޼DHL@OPNkXTPUTLIN˘ERRORѼ XTPUTLIN˨ERRORѼ  OPNSTDCLOSECOPNPUTLINERRORDEFNAM $CODE6$PDATA$LOCALFCOMRQ1P;PBVPmP sP|PPXPP PP Pww?޼$FOR$OPENP11 W޼LTDFOR$OPENP11 A޼|˄tFOR$OPENP X޼ˬ˴ˤFOR$OPENP P޼FOR$OPENP F޼ FOR$OPENPԼi OPNGPCRE8GPOPENFOR$OPEN$CODE$PDATA,$LOCALzP5P8P@PWPZPbPxPhzPcPPGPBPP&P!PPPwwpnstd.SYS$DISK:.: caP@INDEXQPZJ:ZZZ޼ ADSTRЫP@INDEXQP^ $޼ , ADSTR^ЫP@@<INDEXQP^LX`޼ hHADSTR^xBKSCNQëP~^ˌ˘ˠ޼ ˨޼$ˬˈADSTR^˸BKSCNQëP~^޼ ޼$ADSTR^ PëP~^޼ ADSTR FPARSE INDEXQBKSCNQCONCATSCANADSTR$CODE1AˠSCOPYOPNSTD˘DELARGk1J DOREDRGTARG2INDEXXSCOPYERROROPNSTDDELARGc$CODE^$PDATA$LOCALCARGkP(PCPCZPbPjPrPPPP|P6P P?&P66P \Pww޼ ޼$ADSTR^ PëP~^޼ ADSTR FPARSE INDEXQBKSCNQCONCATSCANADSTR$CODE1$PDATA$LOCALPPPww1@y