q[VAX-11 Librarian V02.00~f@a5!p(B'&::$  |ADDQUADETBACKFILET BACKSPACEBSTAPEINT~BUFFERINT{ BUFFEROUTuCFIRSTDCLOWERCREPRCC|CUPPERDIB$B_DEVCLASSFD_CCOKFD_CLOS~BUFFERINT{ BUFFEROUTuCFIRSTDCLOWERCREPRCC|CUPPERoDIBDEFFDISKIOENDFILE*ENDPRCeERRMESfGCMLNKpGETPNAM|FD_LENKFD_MARKFD_NAMEFD_OPENFD_PMTKFD_PTAKFD_PUTKFD_RNAMFD_RNEKFD_SBMTFD_SPOOLFD_TRUNCCNBLANKCUPPER# DIB$L_OPCNT$D_CLOSD_ERAS D_JUMPD_SBMTGCMLPRCGKILPRCTACTIOCLOSSTACT JPI$C_PHDTYPE JPI$_ASTACT JPI$_CPUTIM JPI$_EXCVECFD_SPOOLFD_TRUNCFD_UNITEDIVILEEMULILEENDFILE*ENDPRCeERRMESGBITNKgGBITSKjGBYTESgGBYTESfGCMLNKzIOCLOSx"IOPENKjIOWAITFJPIDEFFKILPRCFLCMEMMFLCMREQFLENGTHFLOGTRANSCNBLANKPEEVEESKIPFILE SKIPSPACE0ERRMESMGETPNAMCEIFERRPACEPEEVEEACE SKIPSPACET_WEOF!UNLCCKWRTAPEx"IOPENKjIOWAITF JOB_ENLUNTYPE JOB_ENTERTYPE JOB_RELEASEPE JOB_REMOVEYPE JPI$C_ADRTYPE JPI$C_CTLTYPE JPI$C_LISTEND JPI$C_PCBTYPE JPI$C_PHDTYPE JPI$_APTCNT JPI$_ASTACTrFD_FIDKFD_GETKFD_JUMP SKIPSPACESUBQUADTLIMITTLM_ASTTLM_SETT_ASSGT_CHECK<T_READT_RWNDT_SKPFT_SKPRT_WEOFNT_WRIT|LOGTRANSCNBLANKPEEAPE PQL$_ASTLM PQL$_BIOLM PQL$_BYTLM PQL$_CPULM PQL$_DIOLM PQL$_FILLM PQL$_LENGTH PQL$_LISTENDR1MACH"RDTAPE| JPI$_ASTCNT JPI$_ASTEN JPI$_ASTLM JPI$_BIOCNT JPI$_BIOLM JPI$_BUFIO JPI$_BYTCNT JPI$_BYTLM JPI$_CPULIM JPI$_CPUTIM JPI$_CURPRIV JPI$_DFPFCLENGTHF| JPI$_CURPRIV JPI$_DFPFC JPI$_DFWSCNT JPI$_DIOCNT JPI$_DIOLM JPI$_DIRIO JPI$_EFCS JPI$_EFCU JPI$_EFWM JPI$_EXCVEC JPI$_FILCNT JPI$_FILLMLENGTHF| JPI$_FILCNT JPI$_FILLM JPI$_FINALEXC JPI$_FREP0VA JPI$_FREP1VA JPI$_GPGCNTJPI$_GRP JPI$_LASTADR JPI$_LASTCTL JPI$_LASTPCB JPI$_LASTPHD JPI$_LOGINTIMLENGTHF| JPI$_LASTPHD JPI$_LOGINTIMJPI$_MEM JPI$_OWNER JPI$_PAGEFLTSJPI$_PGFLQUOTAJPI$_PID JPI$_PPGCNT JPI$_PRCCNT JPI$_PRCLM JPI$_PRCNAMJPI$_PRILENGTHF| JPI$_PRCNAMJPI$_PRI JPI$_PRIB JPI$_PROCPRIV JPI$_STATEJPI$_STS JPI$_TMBU JPI$_TQCNT JPI$_TQLMJPI$_UIC JPI$_USERNAME JPI$_VIRTPEAKLENGTHF JPI$_USERNAME JPI$_VIRTPEAK JPI$_VOLUMES JPI$_WSAUTH JPI$_WSPEAK JPI$_WSQUOTA JPI$_WSSIZEKILPRCFLCMRDQFLCMREQFLCMWTHFLENGTHFSYMJOBTLIMITTLM_ASTTLM_SETT_ASSGT_CHECK<T_READT_RWNDT_SKPFT_SKPR\T_WAITT_WEOFhUNLCCKrFD_CVTKFD_DELTFD_ERASVLENGTHFE PQL$_LENGTH'RDTAPELE&SBITSILE%SKIPFILE T_SKPR"T_WRIT UNLCRDWRTAPEr JPI$_EXCVECJPI$_UICWRTAPEGET_JPIHGKILPRCrI1MACHtIFERRKVPQLDEFTHmQDIVMATHQUADMATHR1MACH"RDTAPE2RD_PRCLESGBITILESKIPFILE SKIPSPACErrI1MACHtIFERRKzIOCLOSrGETPNAMGET_JPIHGKILPRCgGBITSKjGBYTEKfGCMLNKGETPNAMr JPI$_ACCOUNT JPI$_APTCNT JPI$_ASTACTr JPI$_LASTPCB JPI$_PRCLMJPI$_UICUNLCWTVEEAPEWAITPE}NWRTAPEBUNLCRDUNLCWTWAITPE}NWRTAPErUNITPEhUNLCCKBUNLCRDrNT_WRITUNITPEhUNLCCKr\T_WAITT_WEOFNT_WRIT|oDIB$B_DEVCLASSo DIB$B_DEVTYPEo DIB$B_SECTORSo DIB$B_TRACKSo DIB$C_LENGTHo DIB$K_LENGTHo DIB$L_DEVCHARoDIB$L_DEVDEPENDoDIB$L_MAXBLOCKo DIB$L_OPCNT DIB$L_OWNUICFD_CCOKFD_CLOSo DIB$L_OWNUICo DIB$L_PIDo DIB$T_DEVNAMEoDIB$W_CYLINDERSoDIB$W_DEVBUFSIZoDIB$W_DEVNAMOFFo DIB$W_ERRCNTo DIB$W_RECSIZo DIB$W_UNIToDIB$W_VOLNAMOFFo DIB$W_VPROTFD_CCOKFD_CLOSrjSBYTESLEgSBYTESLESKIPFILEr2RD_PRCLESBITFILEgSBITSILE| PQL$_LISTENDPQL$_PGFLQUOTA PQL$_PRCLM PQL$_TQELMPQL$_WSDEFAULT PQL$_WSQUOTAmQDIVCHQMULCHR1MACH"RDTAPE)*+,-./0123456789:;<=>?@ABD1f011NBLANK01 8-Jul-1980 11:07 8-Jul-1980 11:07!VAX-11 FORTRAN IV-PLUS V1.3-27  NBLANK NBLANKP;PH[}PQP<kkkP@ ЫPkP HNBLANK-5$CODE$PDATA$LOCAL(P 5ww1f011CUPPER01 8-Jul-1980 11:07 8-Jul-1980 11:07!VAX-11 FORTRAN IV-PLUS VE1.3-27  CUPPER CUPPERPTPN[}PQP< kkYIaIzIPPZ ZZ~ZI k NCUPPER-N$CODE$PDATA$LOCAL (P0P Nww1f011CLOWER01 8-Jul-1980 11:07 8-Jul-1980 11:07!VAX-11 FORTRAN IV-PLUS V1.3-27  CLOWER CLOWERPTPN[}PQP< kkYIAIZIPPZ ZZ~ZI k NCLOWER-N$CODE$PDATA$LOCAL (P0P NwwG1C)f00DISKIO022-AUG-1980 10:49 VAX-11 Macro V02.30 /LIS DISKIO  <@D_CCO ;D_CLOS p@D_CVT ?D_DELT ??D_ERAS >D_FID =D_GET ^>D_JUMP K=D_LEN 8>D_MARK >D_NAME ,:D_OPEN @D_PMT @D_PTA =D_PUT >D_RNAM V@D_RNE @D_SBMT "@D_SPOOL @D_TRUNC c=D_UNITERRMESMTH$_WRONUHMARGRMS$_ACCRMS$_ATRRMS$_ATWRMS$_CDARMS$_CHNRMS$_CRERMS$_DACRMS$_DNFRMS$_DPERMS$_ENTRMS$_EOFRMS$_EXTRMS$_FNDRMS$_FNFRMS$_IFARMS$_IRCRMS$_MKDRMS$_NETRMS$_NMF RMS$_NORMALRMS$_RERRMS$_RMVRMS$_RPLRMS$_RTBRMS$_SUPRMS$_SYSRMS$_WBERMS$_WERRMS$_WPL SYS$CLOSE SYS$CONNECT SYS$CREATE SYS$ERASESYS$FINDSYS$GETSYS$OPEN SYS$PARSESYSI$PUT SYS$RENAME SYS$SEARCH SYS$TRUNCATESYS$WAIT . ABS .A . BLANK .#PQPQPQPTFABT PTRABT PTNAMT PTPRMT PTXABTPP$ABS$PPPQNQQQQQQQQQQ QQQQQQQ&QQQQQJ$RMSNAMPIOP001.DATPQQ QPPLPDQBQQQQQQQQQQQQ QQQQQQPPP8Q6QQQ HQQQ$QQQPPPPPPQQQQQQPPLPPPPPQNQQQQQQQQQKQ QQQQQQQ&QlQQQQ PIOP002.DATPQ Q QDQBQQQQQQQQQQQQ QQQQQQ8Q6QQQ $QQQ$QQQQQQQQQPP(PlPPPPQNQLQQQQQQQQQ Q QQQQQQ&QHQQQQPIOP003.DATPQQ QDQBQQQQQQQQQQQQ QQQQQQ8Q6QQQ QQQ$QQQQQQQQQ PM P PH P P  PPQNQQQQQQQQQQ Q\ QQQQQQ&Q$ QQQQPIOP004.DAT PQQ QDQBQQQQQQQQQQQQ  QQQQQQ8Q6Q\ QQ  QQQ$QQNQQQQQQQP P P$ P\ P\ l PPQNQQQQQQQQQQ Q8QQQQQQ&Q QQQQ(PIOP005.DAT PQ(Q QDQBQQQQQQQQQQQQ l QQQQQQ8Q6OQ8 QQ  QQQ$QQQQQQQQQPl P P P8P8HPPQNQQQQQQQQQQ QQQQQQQ&QQQQQ2PIOP006.DATdPQ2Q QDQBQQQQQQQQQQQQ PHQQQQQQ8Q6QQQ QQQ$QQQQQQQQQPHPPPP$PPQNQQQQQQQQQQ QQQQQQQ&QQQQQPRxRRP>PQSYS$FINDP<RxRRQRޱQ޼Pм4ЬޫPFOR$INI_DES1_R2м\ЬDޫ@PFOR$INI_DES1_R2 LGBITS LSBITS (LGBYTES <LSBYTESGBITSBITGBYTESBYTEK$CODE$PDATAx$LOCALFOR$INI_DES1_R2| P P(P:P!P'P&2P5P;PFPIPdPfP+hPNjPqPgPDP!-!Kww JPI$_BYTLMPP JPI$_BYTCNTPPު ԫ JPI$_CPULIMPPުԫ JPI$_CPUTIMPPޫԫ JPI$_DIOLMPPުԫ JPI$_FILLMPP JPI$_FILCNTPPުԫJPI$_PGFLQUOTAPPZުԫȰ JPI$_PRCLMPPު$ԫ԰ JPI$_TQLMPP JPI$_TQCNTPPު)ԫ JPI$_WSQUOTAPPު.ԫ JPI$_WSAUTHPPު3ԫԫ SYS$GETJPIP^ˌˈIFERRk1%α01O0GBYTE01 2-Oct-1980 13:28 2-Oct-1980 13:28VAX-11 FORTRAN V2.0-2 GBYTE GBYTE4PILLEGAL VALUE FOR NBITS IN S/GBYTE(S) CALL(P * SS$_ABORT  $$PO[Ь,8ԼO[Ь,8 WWPP  PPPPVѼ ~ FOR$WRITE_SL< FOR$IO_T_DS FOR$IO_ENDDSYS$ElXITԫVZ8XLPYTP Z\PYZV PP~^hd^P ë YPP$ѫZWP@hplGBIT޼˄ˀSBIT޼˄ˀGBITZWP@hplSBIT$Z1bVWYZ@zP{PPPPP OGBYTE SS$_ABORT OSBYTESYS$EXITGBITSBITG$CODE2$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLHPXP#PPP PPPvP"P -!GRww~ FOR$WRITE_SLP FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF߫  FOR$IO_X_DA߼ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLX FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ  FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_Rߪ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_ENDn1 ʣ01O/QDIV01 2-Oct-1980 16:22 2-Oct-1980 16:22VAX-11 FORTRAN V2.0-2 QDIV QDIV@ P  QPO[Ь Ь ( 4X޻ ZЪЪмkի8SUBQUADXXkkkXX޻4YkЫЫkǫZūZPP޼ THEDIVzZP{PPPPȏZZX޼ `޼ dXSUBQUADX Z OQDIVSUBQUADEDIV$CODE$PDATAx$LOCAL'7P FPUP aPAPP)HwwR SYS$GETJPI$CODE$PDATA@$LOCAL8QUOTA OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SL P P vP P P P CPbPP+PPS&PEPSPP%P P%<P%rPPP+14jA00DIBDEF028-SEP-1980 09:02 VAX-11 Macro V02.454DIBDEF DIB$B_DEVCLASS DIB$B_DEVTYPE DIB$B_SECTORS DIB$B_TRACKSt DIB$C_LENGTHt DIB$K_LENGTH DIB$L_DEVCHARDIB$L_DEVDEPENDpDIB$L_MAXBLOCK DIB$L_OPCNT DIB$L_OWNUIC DIB$L_PID$ DIB$T_DEVNAME DIB$W_CYLINDERSDIB$W_DEVBUFSIZDIB$W_DEq1ʆf012GETPNAM0130-Nov-1979 14:4130-Nov-1979 14:41!VAX-11 FORTRAN IV-PLUS V1.3-27 !GETPNAMGETPNAMPUNABLE TO DETERMINE PROCESS NAMEP   SS$_ABORTPN[Ь޻YˏPZPj JPI$_PRCNAMPPЩ޼Ԫ  SYS$GETJPIPkzPY{YYPP8ERRMES~ FOR$WRITE_SL@ FOR$IO_T_DS FOR$IO_ENDHSYS$EXIT_ NGETPNAM JPI$_PRCNAM SS$_ABORT SYS$GETJPIERRMESSYS$EXIT}$CODE $PDATAP$LOCALGET_NAM OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL[P+ww s1AWf011I1MACH0124-Sep-1979 09:3424-Sep-1979 09:34!VAX-11 FORTRAN IV-PLUS V1.2-13  I1MACH I1MACHP ERROR IN I1MACH - I OUT OF BOUNDS"DP#'Q 8>PHD[ѼѼмP@PkULIBERFOR$STOP$ HI1MACHULIBERJ-$CODE+$PDATAT$LOCAL OTS$LINKAGEFOR$STOP PP  -ww 1f0/IFERR028-JUL-1980 10:21 VAX-11 Macro V02.30 /LIS IFERR , IFERRSYS$EXIT SYS$PUTMSG . ABS .F . BLANK .`PмPP~PnR}6>b SYS$PUTMSGݼSYS$EXIT} IFERR . BLANK .Fwwv1pf011CFIRST01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27  CFIRST CFIRSTPBAD TRANSLATION IN IOPACKERROR IN SETTING UP DEFAULT NAME IN IOPACKMT:WIOPACK UNABLE TO OPEN DISK FILERlP(()|XtT SS$_ABORTl*)CFHJiwH D_OPEN@i D_OPEN@PQPQ`P0102030405060708091011121314151617181920PPRP?\Pww1 Df011RDTAPE01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27  RDTAPE RDTAPE/ P PL[ZмP@L޼ CFIRSTмkмP@ʜ޼޼D_GETмP@мP@ʜ($T_WAITмP@ʜ޼T_READмP@J LRDTAPECFIRSTD_GETT_WAITT_READK$CODE$PDATA4$LOCAL@IOPACK(IOPAKC3PGP?QPww1@壈f012LENGTHF01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27 !LENGTHFLENGTHFdPCALL TO LENGTHF PRECEDES FIRST TRANSFER P' SS$_ABORTPH[мP@~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDSYS$EXITмP@޼D_LENPPмP@$ T_WAITPPмP@ЫPJ HLENGTHFD_LEN SS$_ABORTSYS$EXITT_WAIT$CODE'$PDATA4$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLP#DP[P*ww1 f01/UNIT01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27  UNIT UNITaPCALL TO UNIT PRECEDES FIRST TRANSFER P$ SS$_ABORTPH[мP@~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDSYS$EXITмP@ ޼D_UNITPмP@$ T_WAITkPNPмP@ЫPH HUNIT SS$_ABORTSYS$EXITD_UNITT_WAIT$CODE$$PDATA4$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLP#DPWP(ww1@f011IOWAIT01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27  IOWAIT IOWAITcPCALL TO IOWAIT PRECEDES FIRST TRANSFERP& SS$_ABORTPH[мP@~ FOR$WRITE_SLk FOR$IO_T_DS FOR$IO_ENDSYS$EXITмP@޼D_UNIT@ PJP޼D_LENP мP@޼ ޼ $T_WAITмP@V HIOWAITD_LEN SS$_ABORTSYS$EXITD_UNITT_WAIT$CODE&$PDATA($LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLP"CP'jP*ww1'f012ENDFILE01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27 !ENDFILEENDFILEP!PH[޼kIOCLOS# HENDFILEIOCLOS-$CODE$PDATA$LOCALww14f013SKIPFILE01 3-Mar-1980 16:25 3-Mar-1980 16:25!VAX-11 FORTRAN IV-PLUS V1.3-27 #SKIPFILESKIPFILE_PCAN'T SKIP DISK FILES P SS$_ABORTPL[kL[kZмP@L޼ CFIRSTмP@ʜ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDSYS$EXITмP@мP@ʜ($T_WAITмP@ʜ84T_SKPFмP@' LSKIPFILE SS$_ABORTG  LBACKFILECFIRSTSYS$EXITT_WAITT_SKPF$CODE$PDATA@$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL P @P#mPww1wňf014 SKIPSPACE01 3-Mar-1980 16:25 3-Mar-1980 16:25!VAX-11 FORTRAN IV-PLUS V1.3-27 % SKIPSPACE SKIPSPACEiPCAN'T SKIP DISK RECORDS FOR NOW P SS$_ABORTPL[kL[L[kZмP@L޼ CFIRSTмP@ʜ~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDSYS$EXITмP@мP@ʜ($T_WAITмP@ʜ84T_SKPRмP@( L SKIPSPACE SS$_ABORT L BACKSPACEG LBSTAPECFIRSTSYS$EXITT_WAITT_SKPR$CODE$PDATA@$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL PP KP#xPww1BZf00JPIDEF016-NOV-1979 12:16 VAX-11 Macro V02.30JPIDEF  JPI$C_ADRTYPE JPI$C_CTLTYPE JPI$C_LISTEND JPI$C_PCBTYPE JPI$C_PHDTYPE JPI$_ACCOUNT  JPI$_APTCNT JPI$_ASTACT JPI$_ASTCNT JPI$_ASTEN  JPI$_ASTLM JPI$_BIOCNT JPI$_BIOLM  JPI$_BUFIO JPI$_BYTCNT JPI$_BYTLM  JPI$_CPULIM JPI$_CPUTIM JPI$_CURPRIV JPI$_DFPFC JPI$_DFWSCNT JPI$_DIOCNT JPI$_DIOLM  JPI$_DIRIO JPI$_EFCS JPI$_EFCU JPI$_EFWM JPI$_EXCVEC JPI$_FILCNT JPI$_FILLM JPI$_FINALEXC JPI$_FREP0VA JPI$_FREP1VA  JPI$_GPGCNTJPI$_GRP JPI$_LASTADR JPI$_LASTCTL JPI$_LASTPCB JPI$_LASTPHD JPI$_LOGINTIMJPI$_MEM JPI$_OWNER  JPI$_PAGEFLTSJPI$_PGFLQUOTAJPI$_PID  JPI$_PPGCNT JPI$_PRCCNTq JPI$_PRCLM JPI$_PRCNAMJPI$_PRI  JPI$_PRIB JPI$_PROCPRIV JPI$_STATEJPI$_STS  JPI$_TMBU JPI$_TQCNT JPI$_TQLMJPI$_UIC JPI$_USERNAME JPI$_VIRTPEAK JPI$_VOLUMES JPI$_WSAUTH JPI$_WSPEAK JPI$_WSQUOTA JPI$_WSSIZE . ABS . . BLANK .P$ABS$ PP JPIDEF, . BLANK .$ABS$ww1jf011LCMREQ0128-May-1980 15:1828-May-1980 15:18!VAX-11 FORTRAN IV-PLUS V1.3-27  LCMREQ LCMREQpPERROR IN LCMREQBAD ADDR IN LCMREQ - SEE RAYP IFERR@iPH[~^k LIB$GET_VM^P^ IFERR^zP{PPPP߫FOR$STOPЫP2 HLCMREQ LIB$GET_VMIFERRJO$CODE,$PDATA,$LOCAL OTS$LINKAGEFOR$STOP;P Oww1ZмP@޼@޼ D8RD_PRCP FOR$WRITE_SLL FOR$IO_T_DS߼ FOR$IO_L_RT FOR$IO_T_DS FOR$IO_END SS$_ABORTPмP>@~d\ SYS$CREMBXP  FOR$WRITE_SL| FOR$IO_T_DS FOR$IO_END ˄ERRMES˄PЫPмP@~ːˌ SYS$GETCHNP DIB$W_UNITPP@  FOR$WRITE_SLˤ FOR$IO_T_DS FOR$IO_END ˄ERRMES˄PЫPռ1޼ ˬGET_JPI-04 nмP@ЫЫ м SYS$CREPRCPмP@ЫЫ м $ SYS$CREPRCP޼ @,GET_JPI-04 nмP@HЫ`Ы hpD SYS$CREPRCPмP@|Ы˔Ы ˜ˤx SYS$CREPRCP  FOR$WRITE_SLˬ FOR$IO_T_DS FOR$IO_END ˄ERRMESЫP@zP{PPPPQPQP LCREPRC  DIB$W_UNIT SS$_ABORTRD_PRC SYS$CREMBXERRMES SYS$GETCHNGET_JPI SYS$CREPRC$CODE$PDATA$LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRIT E_SL_PKtP6PP PP&PEP TP-XPdP}~P2P0PoP,'P*UPtP 5)ww1f011KILPRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  KILPRC KILPRC@P process already endedP  PH[мP@ FOR$WRITE_SLk FOR$IO _T_DS߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END޼޼ENDPRCЫP& HKILPRCENDPRC^$CODE$PDATA $LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SL P1P- ^ww1f012GKILPRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27 !GKILPRCGKILPRC\P process already endedP   SS$_CONTROLYPH[мP@ FOR$WRITE_SL FOR$IO_T_DS߼ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDмP@ SYS$FORCEXPk޼(޼,$ENDPRCЫPG HGKILPRC SS$_CONTROLY SYS$FORCEXENDPRCw$CODE$PDATA4$LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SL P2P . www1@f011ENDPRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  ENDPRC ENDPRCP process already endedinternal error in endprcbad termination mailbox readon process P  3 O SS$_ABORTPH[мP@ FOR$WRITE_SL FOR$IO_T_DS߼ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END SS$_ABORTP޼޼ RD_PRCP~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL8 FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END@SYS$EXITkPA HENDPRCRD_PRC SS$_ABORTSYS$EXIT$CODEZ$PDATAL$LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SLP:P.dPc  ww1@&f011RD_PRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  RD_PRC RD_PRCPRD_PRC UNABLE TO GET AN EFRD_PRC UANBLE TO FREE EFXP    &H ZPxTH& IFERR@ IFERR@4P status =  , pid =   end time was ) account =  , username =   cpu time =  , pagefaults =   , peak =   working set =  , bio =  , dio J=   volumes mounted =   start time = ) owner process id =  PLH[@ LIB$GET_EFP^IFERR^ IO$_READVBLKZIO$M_NOWPPZkTмP@~XZ\ZPSYS$QIOW2P SS$_NORMALQԫPQ׫@ LIB$FREE_EFP^IFERR^Z1ˌ SYS$ASCTIMˠ SYS$ASCTIM ˴ERRMES 14 FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_R˼˼ FOR$IO_T_DS FOR$IO_X_DA  FOR$IO_X_DAN,PGCP~ FOR$IO_F_Vߪ0 FOR$IO_L_Rߪ4 FOR$IO_L_Rߪ8 FOR$IO_L_Rߪ< FOR$IO_L_Rߪ@ FOR$IO_L_RߪD FOR$IO_L_R  FOR$IO_T_DSߪP FOR$IO_L_R FOR$IO_ENDмP@мP@~ SYS$DASSGNЪЫP LRD_PRC IO$_READVBLKIO$M_NOW SS$_NORMALIFERR LIB$GET_EFSYS$QIOW LIB$FREE_EF SYS$ASCTIMERRMES SYS$DASSGN$CODE'$PDATA4$LOCALPROCSUBPR_MAIL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_F_V FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF.P PP P$ww1nn~702QUADMATH0 4-OCT-1980 11:57 VAX-11 Macro V02.45/LIS QUADMATH  . ABS . . BLANK .P SUBQUAD&}P~R‚PbQ}P  ADDQUAD&}P~RPbQ}P @ *@EDIV}&}PмR{RPPQP @ >@EMULz&~Pz `<@ M<@QMUL&2~R~SzbcTŢcPbQQPbcPcbPPU}T hQUADMATHADDQUAD *EDIV >EMUL MQMULSUBQUAD . BLANK .wwww 1f011R1MACH0125-Sep-1979 10:1825-Sep-1979 10:18!VAX-11 FORTRAN IV-PLUS V1.2-13  R1MACH R1MACH`P ERROR IN R1MACH - I OUT OF BOUNDS"P#'Q455 1PH[ѼѼkULIBERмP@P$ HR1MACHULIBER-&$CODE+$PDATA,$LOCAL PP&ww 1f0/SGBIT014-AUG-1979 11:38 VAX-11 Macro V02.30SGBIT  GBIT  SBIT . ABS . . BLANK .P   SGBIT . BLANK .ww VNAMOFF DIB$W_ERRCNT" DIB$W_RECSIZ DIB$W_UNIT DIB$W_VOLNAMOFF DIB$W_VPROT . ABS . . BLANK .P$ABS$ PP DIBDEF, . BLANK .$ABS$twwPL[00kL[00kL[00kL[00kм мt kЫP@(dЫ P@Ph޼p`GBITЫP@(dЫ P@Ph޼p`SBITЫP@(dЫ P@Ph޼p`GBYT1@a5012GETPNAM0121-Oct-1980 14:4121-Oct-1980 14:41VAX-11 FORTRAN V2.0-2!GETPNAMGETPNAM %PUNABLE TO GET EF IN GETPNAMUNABLE TO DETERMINE PROCESS NAMEUNABLE TO FREE EF IN GETPNAMP $ IFERR@  SS$_ABORT<p< IFERR@PN[Ь ޻YˏPZPj JPI$_PRCNAMPP޼Ԫ  LIB$GET_EFP^0,IFERR^k<8 SYS$GETJPIPzPY{YYPPXERRMES~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_ENDhSYS$EXIT LIB$FREE_EFP^|xIFERRS NGETPNAM JPI$_PRCNAM SS$_ABORTIFERR LIB$GET_EF SYS$GETJPIERRMESSYS$EXIT LIB$FREE_EF$CODEY$PDATA$LOCALGET_NAM OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLyP+wwVV~ FOR$WRITE_SL< FOR$IO_T_DS FOR$IO_ENDDSYS$EXITԫVZ8XLPYTP Z\PYZV PP~^hd^P ë YPP$ѫ~ZWP@hplGBIT޼˄ˀSBIT޼˄ˀGBITZWP@hplSBIT$Z1aVWYZ@zP{PPPPP* OGBYTE SS$_ABORT; OSBYTESYS$EXITGBITSBITmD$CODE0$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLIPTP#PPP PPPvP"P , Dww 1`Eqf00SYMJOB020-AUG-1980 13:21 VAX-11 Macro V02.30SYMJOB D_CLOSD_FIDD_NAMED_OPEN IO$_READVBLK  JOB_ENLUN  JOB_ENTER p JOB_RELEASE  JOB_REMOVE LIB$FREE_EF LIB$GET_EF SYS$CREMBX SYS$DASSGNSYS$EXITSYS$QIOW SYS$SNDSMB . ABS .u . BLANK .P$ABS$PPPPQdPQQPR|~|~? SYS$CREMBXPs<~` SYS$SNDSMBPa߯ LIB$GET_EFP PSYS$EXIT|~|~\|~< IO$_READVBLK&~SS$_DATAOVERUNkERRMESмPѼ @0@0 p LT_WAIT SS$_ENDOFFILESS$_DATAOVERUNT _CHECKIFERR SYS$WAITFRERRMESJ$CODE$PDATA($LOCAL8T_COMIO_ERR*pP)PPP0P(P% ww10f011T_WEOF01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_WEOF T_WEOFPT_WEOF COULDN'T SET EFP IO$_WRITEOF H IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@j SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@m LT_WEOF IO$_WRITEOFT_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P kP ww13f011T_RWND01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_RWND T_RWNDPT_RWND COULDN'T SET EFP IO$_REWINDH IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@j SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@l LT_RWN D IO$_REWINDT_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P kP ww1C?f011T_SKPF01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_SKPF T_SKPFPT_SKPF COULDN'T SET EFP IO$_SKIPFILE H IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@jм( SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@p LT_SKPF IO$_SKIPFILET_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P pP ww1Cf011T_SKPR01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_SKPR T_SKPRPT_SKPR COULDN'T SET EFP IO$_SKIPRECORDH IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@jм( SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@r LT_SKPRIO$_SKIPRECORDT_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P pP ww1 If012T_CHECK01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27 !T_CHECKT_CHECK4PILLEGAL VALUE OF LDRV IN TAPEIO :P!sPH[ռѼ~ FOR$WRITE_SLk FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_ENDFOR$STOP HT_CHECK@$CODE!$PDATA$LOCAL OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SL  PP@ww1f011TLIMIT0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  TLIMIT TLIMITP0 :01:.BAD DELTA TIME IN TLIMITTLIMIT UANBLE TO GET EFILLEGAL ATTEMPT TO CALL TLIMIT TWICE.P  %8 SYS$BINTIM@( IFERR@QPH[kм8 SYS$BINTIMPPERRMES߫FOR$STOP LIB$GET_EF P^HDIFERR^TLM_ASTk~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_END@zP{PPPPQPQPV HTLIMIT SYS$BINTIMERRMESIFERR LIB$GET_EFTLM_AST$CODE]$PDATAP$LOCALT_LIMIT OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL PS$PU(P^Pww1if012TLM_SET0120-Aug-1980 13 :2120-Aug-1980 13:21!VAX-11 FORTRAN IV-PLUS V1.3-27 !TLM_SETTLM_SETUPERROR IN TLIMIT CALL TO SETIMRPTLM_ASTmPH[  SYS$SETIMRPkPERRMES߫ FOR$STOP@zP{PPPPQPQP< HTLM_SETTLM_AST SYS$SETIMRERRMESZR$CODE$PDATA($LOCALT_LIMIT OTS$LINKAGEFOR$STOP P$P Rww1 f012TLM_AST0120-Aug-1980 13:2120-Aug-1980 13:21!VAX-11 FORTRAN IV-PLUS V1.3-27 !TLM_ASTTLM_ASTPBAD GETJPI CALL FROM TLIMITCPU TIME LIMIT EXPIREDP SS$_ABORTPQPPH[ JPI$_CPUTIMPPޫ SYS$GETJPIP0P0ERRMES߫8FOR$STOPkЫ k« Əpѫ~ FOR$WRITE_SL@ FOR$IO_T_DS FOR$IO_ENDHSYS$EXITTLM_SET@zP{PPPPQPQPg HTLM_AST JPI$_CPUTIM SS$_ABORT SYS$GETJPIERRMESSYS$EXITTLM_SET$CODE1$PDATAP$LOCALT_LIMITTLM_JPI OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL/Pa3PHPfP#! ww1 ϒf01/WAIT0121-Dec-1979 11:2121-Dec-1979 11:21!VAX-11 FORTRAN IV-PLUS V1.3-27  WAIT WAITPERROR IN OBTAINING EVENT FLAG IN WAITERROR IN SETTING TIMER IN WAITERROR IN WAITING FOR FLAG IN WAITERROR FREEING EVENT FLAG IN WAITP % SS$_ABORT)!G hPL[ELZE0ZPJPNPDPPBPZҫSZZEZPZkJPݫ^ MTH$JISHFT^PΫ LIB$GET_EFP P ERRMES~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END0SYS$EXITЫ<8 SYS$SETIMRP P ERRMES~ FOR$WRITE_SLL FOR$IO_T_DS FOR$IO_END0SYS$EXITЫXT SYS$WAITFRP P ERRMES~ FOR$WRITE_SL\ FOR$IO_T_DS FOR$IO_END0SYS$EXIT LIB$FREE_EFP P nERRMES~ FOR$WRITE_SLd FOR$IO_T_DS FOR$IO_END0SYS$EXIT@zP{PPPPQPQP LWAIT SS$_ABORT MTH$JISHFT LIB$GET_EFERRMESSYS$EXIT SYS$SETIMR SYS$WAITFR LIB$FREE_EFm$CODE$PDATAt$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL;mPqP+PP+PoP+7P/;P+3'ww1' h00DIBDEF028-SEP-1980 09:02 VAX-11 Macro V02.45DIBDEF DIB$B_DEVCLASS DIB$B_DEVTYPE DIB$B_SECTORS DIB$B_TRACKSt DIB$C_LENGTHt DIB$K_LENGTH DIB$L_DEVCHARDIB$L_DEVDEPENDpDIB$L_MAXBLOCK DIB$L_OPCNT DIB$L_OWNUIC DIB$L_PID$ DIB$T_DEVNAME DIB$W_CYLINDERSDIB$W_DEVBUFSIZDIB$W_DEVNAMOFF DIB$W_ERRCNT" DIB$W_RECSIZ DIB$W_UNIT DIB$W_VOLNAMOFF DIB$W_VPROT . ABS . . BLANK .P$ABS$ PP DIBDEF, . BLANK .$ABS$tww 1 h00PQLDEF028-SEP-1980 09:02 VAX-11 Macro V02.45PQLDEF  PQL$_ASTLM PQL$_BIOLM PQL$_BYTLM PQL$_CPULM PQL$_DIOLM PQL$_FILLM PQL$_LENGTH PQL$_LISTENDPQL$_PGFLQUOTA PQL$_PRCLM PQL$_TQELM PQL$_WSDEFAULT PQL$_WSQUOTA . ABS . . BLANK .P$ABS$ PP PQLDEF, . BLANK .$ABS$ww1i0012GET_JPI0130-Sep-1980 15:2830-Sep-1980 15:28VAX-11 FORTRAN V2.0-2!GET_JPIGET_JPIP NO EVENT FLAGS AVAIL FOR GETJPICREPRC ERROR IN GETJPIERROR RETURNING EF IN GETJPIRESULTS FROM GETJPI :priv(1), priv(2), & base prioastval, bioval, BYTVAL, CPUVAL, jcpuval,& diovalFILVAL, PGFVAL, PRCVAL, TQVAL, wsdval, & wsqvalFINAL RESULTSP  IFERR@% % IFERR@< < IFERR@Yn0/ PL[Ь  PQL$_ASTLMPZPj PQL$_BIOLMPP PQL$_BYTLMPP PQL$_CPULMPP PQL$_DIOLMPP PQL$_FILLMPPPQL$_PGFLQUOTAPP PQL$_PRCLMPP# PQL$_TQELMPP(PQL$_WSDEFAULTk PQL$_WSQUOTA PQL$_LISTENDPP7T JPI$_CURPRIVPPV޼ X\` JPI$_PRIBPPb޼dhl JPI$_ASTLMPPnުptx JPI$_BIOLMPPzު|ԫ JPI$_BYTLMPPު ԫ JPI$_CPULIMPPުԫ JPI$_CPUTIMPPޫԫ JPI$_DIOLMPPުԫ JPI$_FILLMPPުԫJPI$_PGFLQUOTAPPުԫȰ JPI$_PRCLMPPު$ԫ԰ JPI$_TQLMPPު)ԫ JPI$_WSQUOTAPPު.ԫ JPI$_WSAUTHPPު3ԫԫ$ LIB$GET_EFP^84IFERR^Ы D@ SYS$GETJPIP^lhIFERR^$ LIB$FREE_EFP^ˀ|IFERR^~ FOR$WRITE_SLˈ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLː FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF߫ FOR$IO_X_DA߼ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL˘ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ  FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_Rߪ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˠ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ$ FOR$IO_L_Rߪ) FOR$IO_L_Rߪ. FOR$IO_L_Rߪ3 FOR$IO_L_R FOR$IO_ENDժëPP~ FOR$WRITE_SL˨ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLː FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF߫ FOR$IO_X_DA߼ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL˘ FOR$IO_T_DS FOR$IO_ENDZ~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ  FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_Rߪ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˠ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ$ FOR$IO_L_Rߪ) FOR$IO_L_Rߪ. FOR$IO_L_Rߪ3 FOR$IO_L_R FOR$IO_ENDj LGET_JPI PQL$_ASTLM PQL$_BIOLM PQL$_BYTLM PQL$_FILLMPQL$_PGFLQUOTA PQL$_CPULM PQL$_DIOLM PQL$_PRCLM PQL$_TQELM PQL$_LISTENDPQL$_WSDEFAULT PQL$_WSQUOTA JPI$_CURPRIV JPI$_PRIB JPI$_ASTLM JPI$_BIOLM JPI$_BYTLM JPI$_CPULIM JPI$_CPUTIM JPI$_DIOLM JPI$_FILLMJPI$_PGFLQUOTA JPI$_PRCLM JPI$_TQLM JPI$_WSQUOTA JPI$_WSAUTHIFERR LIB$GET_EF SYS$GETJPI LIB$FREE_EF$CODE$PDATA\$LOCAL8QUOTA OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SLq?P_PP+PPS%PEPSPP PPP+PFPSPPSmaww