q[VAX-11 Librarian V2A.00`?@AB1`u/018 ICR_FIND_FILE0113-Oct-1982 10:1213-Oct-1982 10:12VAX-11 FORTRAN V3.0-2P P[}PQPk}PQ P}PQPռ  ICR_$PARSEPP( ICR_$SEARCHPPּ Լ o  ICR_FIND_FILE ICR_$PARSE ICR_$SEARCHY$CODE$PDATA4$LOCALQ0P?POPTPPwwPPPICR_EDIVP E1~L%00SWITCH018-NOV-1982 09:51 VAX-11 Macro V03-00./OBJECT=SWITCH SWITCH#parse next switch in command lineh LIB$FREE_VM LIB$GET_VM LIB$TPARSE STR$COPY_R  SWITCH_KEY  SWITCH_STATE . ABS . . BLANK .P$ABS$D PP _LIB$STATE$nPP _LIB$KEY0$P _LIB$KEY1$PPPPPPPPPP] 844&44P P PP P P/P P PP P P4444&PPPPPPPPPPPPy/844&!44P+P+PP/P/PP/P/PP1P1PP3P3PP3P3P=P5P5P:P7P7PP7P7PP9P9PP;P;PP;P;PP?P?PPCPCP,J44PPPPP,,W44P]P]P/h1&01ICR_GET010-NOV-1982 16:03 VAX-11 Macro V03-003+/DISABLE=(DEBUG,TRACEBACK)/OBJECT=GET GETN R GET ICR_GETRMS$_EOFRMS$_RTBRMS$_TNSSYS$GET . ABS .E . BLANK .PR GP PQhICR_CODEPмRBR$ABS$P޼$ ʏRSYS$GETP<"PRMS$_EOFPRMS$_RTBPRMS$_TNSv1=0<ICR_$PARSE_$SEARCH010-NOV-1982 16:03 VAX-11 Macro V03-00E//DISABLE=(DEBUG,TRACEBACK)/OBJECT=PARSE PARSE - STR$COPY_R SYS$PARSE SYS$SEARCHS . ABS . . BLANK .PN ICR_IMPUREP$ABS$P`Q^QQQQQL`PPQNQQQQQICR_1 01ICR_PUT010-NOV-1982 16:03 VAX-11 Macro V03-003+/DISABLE=(DEBUG,TRACEBACK)/OBJECT=PUT PUTN + ICR_PUT PUTSYS$PUTF . ABS .$ . BLANK .P GP PQWICR_CODEPмRBR$ABS$WP޼( "ʏlլ ȏRSYS$PUTʏPԼЏwwEOFPRMS$_RTBPRMS$_TNSp1".0;ICR_CREATE_SYMBOL010-NOV-1982 16:05 MVAX-11 Macro V03-00=/OBJECT=CRESYMBOL CRESYMBOLi'create a dcl symbol (global or local) SYS$CLI . ABS .O . BLANK .KP>ICR_CODEP $ABS$ PPD ICR_LOCAL_SYMBOL&3   ICR_GLOBAL_SYMBOL&J3}P ICR_IMPUREww44&!44P+P+PP/P/PP/P/PP1P1PP3P3PP3P3P=P5P5PP5P5PP7P7PP9P9PP9P9PP=P=PPAPAP,HI44PNPNP,,U44P[P[Pr1@0 0READPR010-NOV-1982 16:03 VAX-11 Macro V03-00o1/DISABLE=(DEBUG,TRACEBACK)/OBJECT=READPR READPR D READPRRMS$_EOFRMS$_RTBRMS$_TNSSYS$GET . ABS . . BLANK .IPU GP PQ ICR_IMPURE P QICR_CODE8P<мRBRSЬT3USSS$ABS$+PԢ0S4ȏ@޼ $ ȏʏRSYS$GETʏʏ@P <" PRMS$_EOFPRMS$_RTBPRMS$_TNSЏЏЏwwDQUAD&}P~RPbQ}P 0ICR_QUAD_TO_DFP E  ICR_QUAD_TO_D&0}PnQRR RQ QQRP `PRnPP`RP ICR_QUAD_MATH ICR_ADDQUAD ICR_COMPQUADICR_EDIVICR_EMUL ICR_QUAD_TO_D ICR_SUBQUAD . BLANK . ICR_SUB TRNLOG_STR SS$_NORMAL SS$_NOTRAN SS$_IVLOGNAM LIB$INDEXLIB$SYS_TRNLOG$CODE$PDATA$LOCALMP$P3PJPdQP]^P cPgPxP}PP PwwDPP<D[}PQPмk1k?1 SS$_NOTRAN׫kPQ,PA _ LIB$INDEXPkkk0 LIB$INDEXkQPQkkk<@DLIB$SYS_TRNLOGP SS$_NORMALQPQ,? k SS$_IVLOGNAMЫP <1801 :ICR_GET_COMMAND0113-Oct-1982 10:1513-Oct-1982 10:15VAX-11 FORTRAN V3.0-2P_P  HP LIB$GET_INPUT@HQP [}PQPԼ kk޼ 0$LIB$GET_FOREIGNPP1ռ 1Լ RMS$_EOF- n޼ 0$ LIB$GET_INPUTP޼ @4 LIB$GET_INPUTP<  ZZ P-PJ -DE$PDATAd$LOCAL P)ww˄ˀ GCMDLN_CONCATPk lph GCMDLN_CONCATPku GCMDLN_DFAULT GCMDLN_CONCAT GCMDLN_INDEX$CODE$PDATA$LOCALC0LPP PPPPPww$LOCALGCMD01%P?PMCP#fP$P%PP PP PP-P% PPPP!*P0P2P CPIPaPkPqPsPPP CODEP   ICR_$PARSE&ЬR`P޲,b4lЬR`P޲0b5 `P5` SYS$PARSEPSl*Ь R$ 3?R STR$COPY_RPSPP   ICR_$SEARCH&AЬR` SYS$SEARCHPS3wwh~,n PJPQ^Y޼H< ICR_FIND_FILEռY(WYZZYX-XJ nJPPIgYߔIgYk0[ FNDFIL ICR_FIND_FILE$CODE$PDATA T,TTssߒ  STR$COPY_RPT03ЏPS\ ICR_IMPUREPQ8Q _LIB$STATE$4PD _LIB$KEY0$PC _LIB$KEY1$P\PPP\PPP\PPP\PPP\PPP\PPPM844&0344\P P P\P P P\PPP\PPPIh844&(344\PPPE(344\PPP\PPPIv8 44& 3"44\P8ICR_EMUL0 SYS$SETIMR SYS$WAITFR&ICR_WAITICR_WAITF . BLANK . ICR_IMPUREHICR_CODEPwwV}T}R)Tec VfԼ f P լ ЬP KICR_SET_SWITCHES&fTՄdt LIB$FREE_VMP3Ԅd\RЂS'SSdSt߄ LIB$GET_VMPSdTЂВSd   ICR_SWITCH\&ЬRbXSPCP PPsZPmPP;P.PwwRR]Q6PZZZRR.ЬR^b~خ]Q STR$COPY_DXPZYZiY]Q]Q LIB$SFREE1_DDPZYZiY]Q]Q LIB$SF1`05 ICR_STDESCR010-NOV-1982 16:04 VAX-11 Macro V03-000//DISABLE=(DEBUG,TRACE)/OBJECT=STDESCR STDESCR 'array descriptor to string descriptor  . ABS . . BLANK .$P'ICR_CODEP $ABS$P   ICR_STDESCR&'ЬRТ Pl ЬQP gPmPPwwYMBOLO . BLANK .ICR_CREATE_SYMBOL> ICR_IMPUREwwARSE STR$COPY_R  SWITCH_KEY  SWITCH_STATE . ABS . . BLANK .HPPSWITCHPR$ABS$PP$PP _LIB$STATE$YPA _LIB$KEY0$PD _LIB$KEY1$PS LIB$TPARSEPssݬc44\PBPBPE3D44\PHPHP\PHPHPI8J44&3L44\PPPPPE3R44\PVPVP\PVPVPI8X44&Z44\P^P^PE`44\PdPdP\PdPdP\PhPhP\PhPhP\PjPjP\PjPjP 8l44&\PnPnP\PpPpP\PpPpP:\PrPrP\PrPrP:\PvPvP\PvPvP\PxPxP8z44&\P~P~P\P~P~P:\PPP\PPP[\PPP\PPP\PPP.\PPP-\PPP*\PPP%\PPP]\PPP\PPP\PPP*\PPP%\PPP\PPP\PPP.\PPP\PPP\PPP*\PPP%\PPP\PPP\PPP;\PPP.\PPP\PPP\PPP*\PPP\PPP\PPP"\PPP\PPP"\PP\PwwPP]\PPP\PPP\PPP\PPP*\PPP\PPP.\PPP\PPP\PPP*\PPP\PPP\PPP;\PPP.\PPP\PPP ZZ PPDJHT LIB$GET_INPUTP PP ЫZZ~h DHd STR$COPY_DXPZZZZЫPA ICR_GET_COMMANDRMS$_EOFLIB$GET_FOREIGN LIB$GET_INPUT STR$COPY_DX$CODE$PDATAt$LOCALDHP%2P8P>PCP PP|ZPmPPDP.PwwRIP_FRONT LIB$INDEXICR_REMOVE_FRONTe$CODE$PDATA8$LOCAL%P>>P DPww1`N8e01@L˸ GCMDLN_DFAULT^ŏjP@L޼ GCMDLN_OPNREAռ1FLUSHRR GCMDLN GCMDLN_GMESS GCMDLN_RMESSPUTMARKR FOR$CLOSE GCMDLN_DFAULT GCMDLN_OPNREAFLUSHR:$CODE $PDATA$LOCALGCMD01%P?PMCP#fP$P%PP PP PP-P% PPPP!*P0P2P CPIPaPkPqPsPPPPP PPTww SS$_NOTRAN SS$_IVLOGNAM LIB$INDEXLIB$SYS_TRNLOG$CODE$PDATA$LOCALMP$P3PJPdQP]^P cPgPxP}PP Pww D[}PQ PSTR$TRIMЫZP( TRNLOG_STRPZZ SS$_NORMALPZP( TRNLOG_STRPZ~@k4< STR$COPY_DXPZZZ SS$_IVLOGNAM~LH STR$COPY_DXPZZZZЫP ICR_TRNLOG_STR SS$_NORMAL SS$_IVLOGS