% VAX-11 Librarian V04-00{'`o<!FGSK  h CKDIR"hCKDKMC%CKEDIT-CKIF1CKINP7CKV3SW;JCLSFIL< COMCHKBCOMCHMFCOMPIDHrCTLCRDdjCTLCREe0DELFILfDIRCHKgEDIADDkPEDIADTl0EDIBKIqEDIBKOsbEDIBOTu|EDICH1yEDICH2{EDICHA}FEDICNSEDIDELEDIDIREDIEND(EDIFINEDIHE3JEDIHELHEDIINIEDIINSEDILISZEDIMINEDINEX.EDIOPLnEDIOPTEDIPLSEDIPOSh CKDIR"hCKDKMC%CKEDIT-CKIF1CKINP1CKINPI7CKV3SW;JCLSFIL< COMCHKBCOMCHMFCOMPIDHrCTLCRDdjCTLCREe0DELFILfDIRCHKgEDIADDkPEDIADTl0EDIBKIqEDIBKOsbEDIBOTu|EDICH1yEDICH2{EDICHA}FEDICNSEDIDELEDIDIREDIEND(EDIFINEDIHE3JEDIHELHEDIINIEDIINSEDILISZEDIMINEDINEX.EDIOPLnEDIOPTEDIPLShEDIHE3JEDIHELHEDIINIEDIINSEDILISZEDIMINEDINEX.EDIOPLnEDIOPTEDIPLSEDIPOSEDIPRIEDIPRSZEDIPRTEDIREPEDISEREDISIDpEDISWIEDITOPEDITORTEDIVMDPEXALEXINhFILECKxFILEID.FSEADDvFSECMDFSEDEL$xFSEDIT)FSEDWN,FSEEND0RFSEGET3FSEHELS&FSEIPLY<FSELOC^.FSESCNp6FSETRMt FSEUPLEDIFINFSEDELINSGRP PRENAM SCANDIYWRRTPhJEDIHELHEDIINIEDIINSEDILISZEDIMINEDINEX.EDIOPLnEDIOPTEDIPLSEDIPOSEDIPRIEDIPRSZEDIPRTEDIREPEDISEREDISIDpEDISWIEDITOPEDITORTEDIVMDPEXALEXINhFILECKxFILEID.FSEADDvFSECMDFSEDEL$xFSEDIT)FSEDWN,FSEEND0RFSEGET3FSEHELS&FSEIPLY<FSELOC^.FSESCNp6FSETRMt FSEUPwFFSEXECKEDIHE3FSEDIT KOMYAN PSERCH TRDECYWRRTPl$xFSEDIT)FSEDWN,FSEEND0RFSEGET3FSEHELS&FSEIPLY<FSELOC^.FSESCNp6FSETRMt FSEUPwFFSEXECbGETBUFGTAWDGTFWDZHEADCHZHEADERZHEADI<ICKGRPIFINDKIFINMDRINALINCHWINILOCININ6INITLINPINPADDINSCOMINSGRPKOMDECKOMMODKOMYANZLININCLISCRDLISDCKZSUBHEDSWADECSWAMODSWAYANa)FSEDWN,FSEEND0RFSEGET3FSEHELS&FSEIPLY<FSELOC^.FSESCNp6FSETRMt FSEUPwFFSEXECbGETBUFGTFWDZHEADER<ICKGRPIFINDKIFINMDRINALINCHWININ6INITLINPINPADDINSCOMINSGRPITRAILKOMDECKOMMODKOMYANLISCRDLISDCKLISERR"LISMODLOCCNTLOCREC MAINhMODDCKpMOVCHRRMOVDKNPSEIOdITRAILKOMDECKOMMODKOMYANZLININCLISCRDLISDCKLISERR"LISMODLOCCNTLOCREC MAINhMODDCKpMOVCHRRMOVDKNPSEIO`NXUNIN#VOPENER'PADD0`PDECK5>PDEFIN7PDELET:@PEDIT>PIDENTCHPINSRTEPMOVEKXPPURGEP6PRENAMX@PRESTO[PROC3cPROC4rVPROFILrPSERCH{PSERCX}"PUPDATZSUBHEDSWADECSWAMODSWAYANbLISCRDLISDCKLISERR"LISMODLOCCNTLOCREC MAINhMODDCKpMOVCHRRMOVDKNPSEIO`NXUNIN#VOPENER'PADD0`PDECK5>PDEFIN7PDELET:@PEDIT>PIDENTCHPINSRTEPMOVEKXPPURGEP6PRENAMX@PRESTO[PROC3cPROC4rVPROFILrPSERCH{PSERCX}"PUPDATfPVLEVLPYANKQIKSRT2RDDKRDINPDRDOPARDOPLRDOPLA`RDPL1_X@PRESTO[PROC3cPROC4rVPROFIL&PRSTATrPSERCH{PSERCX}"PUPDATfPVLEVLPYANKQIKSRT2RDDKRDINPDRDOPARDOPLRDOPLA`RDPL1RDPLAvRDTERMhRDTIORECADDRECDEL|RECMOVRECRESlREPINCRVAL2SCANCCSCANDISCANFSnSRTMOD&STATISZSUBHEDSWADECSWAMODSWAYANSWIDEFTHEENDTRDECDWROPA`{PSERCX}"PUPDATfPVLEVLPYANKQIKSRT2RDDKRDINPDRDOPARDOPLRDOPLA`RDPL1RDPLAvRDTERMhRDTIORECADDRECDEL|RECMOVRECRESlREPINCRVAL2SCANCCSCANDISCANFSnSRTMOD&STATISSWIDEFTHEENDTRDECdUCASE0UPV3SWVAXMODVLEVELpWRBLKCWRBLKIfWRDKWRERRbWRMESWRNPL(WRNPLASCANFSnSRTMOD&STATISZSUBHEDSWADECSWAMODSWAYANSWIDEFTHEENDTRDECdUCASE0UPV3SWVAXMODVLEVELpWRBLKCWRBLKIfWRDKWRERRbWRMESWRNPL(WRNPLADWROPA1fWROUT3zWRPL14WRPLA6WRSERC7WRTIO9.XDATE:XTIME;xYADDA1=jYADDA2>YADDRC>YADDTP>YINITPCYRRRCYWRRdUCASE0UPV3SWVAXMODVLEVELpWRBLKCWRBLKIfWRDKWRERRbWRMESWRNPL(WRNPLA1fWROUT3zWRPL14WRPLA6WRSERC7WRTIO9.XDATE:XTIME;xYADDA1=jYADDA2>YINITPCYWRR!1^8Ǎ010CKDIR01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 CKDIRN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9 >4P ,'P$, CKDIRPMPOPhP pPwPP.P>P~P\PPww1pv8Ǎ01/CKIF01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 CKIFN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9 P/dToo many switches'Too many switches for program maximum =%(parameter MAXSWI must be increased). P   8 THEEND@ CKIFP2qww1 T8Ǎ011CLSFIL01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 CLSFILN74`8ǍH US=ERS1:[PROGS.SLIB77]MOD99.FOR;9[ P CLSFIL$PH[޼k FOR$CLOSE HCLSFIL  LUN; FOR$CLOSE$CODE$PDATA $LOCAL  ww1`a8Ǎ011COMCHK01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 COMCHKN74 `8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9 j ?PԠ>$ COMCHKPn Q^WRERRPPP<kk<kP@n Q^1 @ë@ (PЫ@Q,PA 4IFINDKPռмPPP@ Լ )~}~$^($ln}~^(?n,Pn Q^  @ë@ ,PЫ@Q,PA  ,n  WRERR,  WRERR P**ERROR** An extra *ENDIF directive was foundQ in deck QAImproper *CALLG directive in deck Q (directive ignored)QFCould not find common deck Q requesting record ignored (in deck % P0PPP0PPP P PP3P3PdPvP;}PeP2P!PRFww1 D8Ǎ011COMCHM01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 COMCHMN74 `8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9 H =P   COMCHMPd@$x@ FILECK@Hx( H $(xH OPENER@x@ OPENER@L $,SS HEADER@i i FILECK@`x( ~  (xH OPENER@ ~ OPENER@ $,@ FILECK@X x( (xH OPENER@ ~ OPENER@,  FILECK@Px(  (x OPENER@ OPENER@M ,# THEEND@& THEEND@QF 'Q 'LO 'C 'L 'S 'N 'NA 'P 'PA 'W 'SQ 'LA 'CD 'UC 'M 'PR 'QACDEIMSTQFULL 'COMPRESSEDNONE ' CTLCRDPH[}PQhPdkԫ-dh n,dh H}~ FOR$READ_SF}˰ˬ FOR$IO_T_DS FOR$IO_END}˸˼UCASE)}}V}- found.~N^(}n^(n,^(,n>>V^WRTIOV^THEENDTG ѫ T dd PdQT-PA} nTTT  dd PPdQA} LIB$INDEXPիЫ PPXЫѫXddPdQT-PA} nTTX1ЫkxkP@CTLCREk xkP@ FOR$WRITE_IFdd PPdQA} FOR$IO_T_DS FOR$IO_ENDxkP@ITRAILPxkPO@$WRTIOddPdQT-PA} -TTЫ FOR$READ_SFdGPdPPdQA} FOR$IO_T_DS FOR$IO_END1}$UCASEﰫ}$SCANCC ֫ ѫ 1$Ы P@dЫ Pd@ P$QdRT-PB} A)TT1$Ы P@( Ы P@dЫ Pd@PdQT-PA} =TT PPPP kxkP@CTLCREkxkP@ FPOR$WRITE_IF(dЫ Pd@ PPdQA} FOR$IO_T_DS FOR$IO_ENDxkP@ITRAILPxkP@$WRTIO1Ы$,n He,ԫ0ѫ1 PP1Ы P@dЫ Pd@PdQT-PA} =TT1Ы P@dЫ Pd@(PdQT-PA} 0TT0Ы P@dЫ Pd@(PdQ,PA} HeЫ P@@(PP,0ϫ1kxkP@CTLCREkZxkP@Q FOR$WRITE_IF FOR$IO_ENDxkP@ITRAILPxkP@$WRTIO11kxkP@CTLCREkxkP@ FOR$WRITE_IF FOR$IO_ENDxkP@ITRAILPxkP@$nWRTIO1ѫ014Ы4P@4Ы,\4ѫ4\14dd4PPdQAe, LIB$INDEXP8ի8Ы8P@1kxkP@CTLCREkxkP@R FOR$WRITE_IF4dd4PPdQAe FOR$IO_T_DS FOR$IO_ENDxkP@ITRAILPxkP@$WRTIO\4 1ѫ0 1 ﰫ,e@ LIB$INDEXP1ﰫ,eT LIB$INDEXP<ի<׫,(Heѫ<ë PE P dN Pq Pw P P P P PI PS P:Y Pu P! P P  P P P P P P P PQ#PiPPPPPPPPTPqPPCP8@PzPCP8P PJPCP8P P<)P8P^P9gPuP"~PP P PP eȹww1Ȼ8Ǎ011CTLCRE01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 CTLCREN74 `8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9  P ***** NOTE  Messages are missing here *****7 there are too many messages (CTLCRD parameter MAXCTL).PQ CTLCREbPH[} fPQPk FOR$WRITE_IFk FOR$IO_L_R FOR$IO_END׼ּ  HCTLCRE5A NCTLS  NCCERR NSKPD\>$CODEk$PDATA $LOCAL FOR$IO_END FOR$IO_L_R FOR$WRITE_IF >ww1λ8Ǎ011DELFIL01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 DELFILN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FgOR;9  P DELFIL$PH[޼k FOR$CLOSE HDELFIL  LUN; FOR$CLOSE$CODE$PDATA$LOCAL  ww1@ѻ8Ǎ011DIRCHK01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 DIRCHKN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9!  9#Ph DIRCHK3PH[}PQ ޼ CKDIR HDIRCHK$ ALFN  ITDIR7CKDIR)$CODE$PDATA$LOCAL6)ww1ܻ8Ǎ011EDIADD01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIADDN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9Z  PD Record cannot be added toi.P D EDIBKO@L EDIBKO@d | WRTIO@ EDIADDPH[}PQ P1 1P@ EXINիP«PPk EXINkP@@@EDIBKOP@TXEDIADTpWRTIOEDIPOS HEDIADD7AEDECK)IRj]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  k-MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT*IRD 1100 EXIN NC IRCEDIBKOEDIADTWRTIOEDIPOS$CODE($PDATA$LOCALEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12'P.PJP ltWP$dPZ{P *qww1߻8Ǎ011EDIADT01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIADTN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9  E(P EDIADTPH[}PQ } PQPмkkk(ë(kPЫ(QT-PA nTTkk<PPk<VV^(Vnk^(k nkWWV,Vn `PQ^ m` EDIINSEDIPOS HEDIADTh A1N A2BUX E100I R200 LENACEDIINSEDIPOS$CODE$PDATA$LOCAL %P)DP :ww1 8Ǎ011EDIBKI01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIBKIN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FnOR;9'  kP)P EDIBKIPPSP,PUP? P $:/ww1K8Ǎ011EDICHA01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDICHAN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9P  lP Second change delimeter not found. New string has no length.P#, WRTIO@}$<$ WRTIO@L EDICHAPH[}PQ P<kk`ë`kPЫ`QT-PA  TTkkPPQA   LIB$INDEXPѫ4WRTIOPkPDWRTIOPPQA ëkPPLЫQA PTEDICH1 HEDICHAEAEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE ~IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT LENA LD{ LIB$INDEXWRTIOEDICH1$CODE?$PDATAd$LOCALEDTCHLEDIIN$EDIPOI8PcP vP $Zww1`"8Ǎ011EDICNS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDICNSN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9  P Continue processing errorD). **ERROR** File read error encountered on unit during CONTINUE processing Records deleted  Records added.P    0 THEEND@ %p% EDIBKO@x EDIBKO@  4 4 EDICNSP Current record is not active - cannot delete.P, EDIBKO@4 EDIBKO@L WRTIO@.d WRTIO@ EDIDELPH[}PQPkP@ EXINիP@@(EDIBKO@WRTIOHEDINEXEDIPOSXWRTIOEDIPOS HEDIDEL7AEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT*IRD 1100EXINEDIBKOWRTIOEDINEXEDIPOS$CODEI$PDATAt$LOCALEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12.PZ;P HP@$nww1 :88Ǎ01 1EDIDIR01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIDIRN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;94 x|PTh|QTBF'"NP.AIDRCS-HE+Q*tbf'"np.aidrcs-he+q*Q  EDIDIR`PH|[ռ LIB$INDEX@ռ$ LIB$INDEX@ HEDIDIR IWIDJBUF+BUF4(( INRCNEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNTEDIDICTEDIDILh+JREFT  LIB$INDEXJ$CODE$PDATA$LOCALINTXTINRECNEDTCHLEDIIN$EDIPOI P P12PnJww1J!k011EDIEND0122-Aug-1985 15:3022-Aug-1985 15:30VAX-11 FORTRAN V3.1-23 EDIENDO85Mk!USERS1:[PROGS.SLIB77]MOD106.FOR;2 PCOMPILESEQUENTIALFORMATTED CANNOT OPEN COMPILE FILEcompileMODIFY Cannot open modify filemodify*DECK *I 0*I --------*D , Opened ) file ) for  recordsP)PHH<KS(  FILECK@l  #  l OPENER@# OPENER@ddp-@- THEEND@GN<dN FILECK@(l <l OPENER@# OPENER@hhpUU THEEND@ntzx|~0 EDILIS@`dx( 0`dx0<  EDIENDP|H\[ P@ kk<< ԫԫ 1k1, |FILECK˘˜˰OPENERի\^(nV^(nVV˘V\^˜WRTIO\^THEENDL FOR$WRITE_IF FOR$IO_T_DS˘˜˘ FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_ENDITRAILP˘˜WRTIO, FILECK(˘˜,OPENERիV(^((n(\ ^( n \\˘\V^˜WRTIOV^`THEENDL FOR$WRITE_IFl FOR$IO_T_DS(˘˜˘ FOR$IO_T_DS߫  FOR$IO_L_R FOR$IO_ENDITRAILP˘˜WRTIO< FOR$WRITE_SFt FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_ENDP@]֫ < FOR$WRITE_SF| FOR$IO_T_DS FOR$IO_ENDP@]1P@ի1 1ի˄EXINѫ֫ ի< FOR$WRITE_SF˔ FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_END˜EDISID< FOR$WRITE_SF˔ FOR$IO_T_DST FOR$IO_T_DS FOR$IO_ENDѫ֫ < FOR$WRITE_SF˘˜˘ FOR$IO_T_DS FOR$IO_ENDѫ֫ < FOR$WRITE_SFl FOR$IO_T_DS FOR$IO_END֫ < FOR$WRITE_SF DЫ$ѫ$D$P˘@˜˘ FOR$IO_T_DSD$ FOR$IO_ENDԫ(, PP,HH,QHPT-Q@ nTT֫(,P@˰ Pë(P~^˼EDILIS^1ի1EXINի1ѫ֫ < FOR$WRITE_SF˘˜˘ FOR$IO_T_DS FOR$IO_ENDѫ֫ < FOR$WRITE_SFl FOR$IO_T_DS FOR$IO_ENDܫի}P(@ ϫԫ(,̫PP«PP,HH,QHPT-Q@ nTT֫(,P«PPë(P0kP@˰EDILIS1իΫEXINի1ѫѫ˘˜˘ FOR$WRITE_IF  FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_END˘˜˘ FOR$WRITE_IF FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_END1ƹP@  $EDISIDѫѫ˘˜˘ FOR$WRITE_IF  FOR$IO_T_DST FOR$IO_T_DS FOR$IO_END˘˜˘ FOR$WRITE_IF FOR$IO_T_DST FOR$IO_T_DS FOR$IO_END1Zѫ֫ < FOR$WRITE_SF˘˜˘ FOR$IO_T_DS FOR$IO_ENDѫ֫ < FOR$WRITE_SFl FOR$IO_T_DS FOR$IO_ENDԫիk1c4CLSFILk<CLSFILV&^(&n}~^(!n>˘>V^˜WRTIOV^PNEW Cannot open compile file Cannot open modify output file Q& **ERROR** Deck Q has mismatched *IF/*ENDIF directives. |HEDIEND LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSREDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+ADEC qq  NDKMEL-MEMDCL  -MEMSTL   -MEMCUL    NDKMEU-MEMDCU $  -MEMSTU D$ D-MEMCUU h  d-NCALLD     IDECP1  IDECP2  IDECPT  NMODS  NMODOP,MODNA  ,DATEM    NDCKS,ITYPE `  XX+LOCF d `  ` XX+LOCB `  XX,NBLOK $`  XX-IIDENT %`  %XX-IPURGE .`  .XX,IEDIT D8`  @8XX+DECKXX,DATEDXXNAMLCOHNAMLOUHHNAMLOPHNAMLIAHNAMLNPH NAMLOAHhNAMLSOHNAMLBIHNAMLBOH@NAMLCIHNAMLMOH IWLCO IWLOU IWLOP  IWLIA IWLNP IWLOA IWLSO IWLBI  IWLBO $IWLCI (IWLMO LSEQC MWIDE MWIDECERRMSG NIFS ISETIF+ISIFdd \WCOMPF `COUNT*IRD($ (LNX ,IDK 0NSQ 4IDEL 8NMRNAMSEQ<DCKKSTATUSSDELREC(,DELRE( dNRECCF hNRECMF <10 a98 G96 FILE CK lIDDNAM OPENER pIERR!WRTIOTHEENDITRAIL8 tLAST 100 T900 xIDECPL EXIN |IRC EDISIDB II NBLK 120 LB 130 EDILIS( 140 160 NCCLSFIL/$CODE1$PDATA$LOCAL@LUNSLUNLOCEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12NMODNA@MODNAMADECKN%DECKAFNAMEC,FNAMEWSEQCTLWIDTHERRMESIFSW FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_IF$P)PLP UP [PPNPizPNPi{P2PP%PPpPP Py PPnP1HP8PtP;PP0P3P-PP$PPU+P&PPP(P;PP0$P3*P-.P3P$e P oPPPPVPP!PB%P8cP@gP8PPPPBP8P@P8YP;]PbP0P3P-PP$P PP P8I=/ww1O8Ǎ011EDIFIN01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIFINN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9m P Text not found.,P$,T (p WRTIO@ EDIFINPH[}PQPk 1P@  EXINիP«PP 0EXIN P@DHEDISERիP@]1QdWRTIOk HEDIFINi,AEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT*IRD IRECS 100 500 300 ILX EXIN$ IS  NC $IRC EDISER (ILOWRTIO$CODE$PDATA$LOCALEDTCHLEDIIN$EDIPOI ADEC DE CPT DECP12(*PFPn[P'hPLPP1%oww1@zd8Ǎ011EDIHE301 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIHE3N74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9G f5P1 The decks in the library are: There are no decks to list the names of (#=Purged deck, *=Common deck) PNF" WRTIO@(## WRTIO@'LL WRTIO@tt WRTIO@ EDIHE3P. Bottom command: Format is: Bottom Shortest form: B Use to set to bottom of deck and display . Find command: Format is: Faaa shortest form: Fa Alternate form: 'aaa Alternate form: "aaa Use to find the specified character string in the deck, starting with the current line. where: aaa is the character string you wish to find. Example: FFIND THIS STRING IN THE DECK Next command: Format is: Next Shortest form: N Alternate form: carriage-return Use to set the pointer to the next record. Print command: Format is: Pn Shortest form: P Default: 1 Alternate form: .n Use to display n records from the deck at the terminal. (POINTER IS NOT RESET) n is the number of line to be displayed starting with the current line. Append command: Format is: Aaaa Shortest form: Aa Use to append string aaa to end of current record. aaa is the string to be appended. Note- the Note - the string will be appended to the  last non-blank character of the record. Insert command: Format is: Iaaa Shortest form: I Default: multiple lines Use to insert new record(s) after the current line. To insert only a single line use Iaaa form - To enter more than one line use the I form and then type in each line ending with a carriage-return. To enter a blank line use either I# or type a # when entering a line. aaa is the character string to be inserted. Delete command: Format is: D Shortest form: D Default: 1 Use to delete the current line. Replace command: Format is: Raaa Shortest form: Ra Default: none Use to replace the current line. aaa is the string to replace the current line. Change command: Format is: C/aaa/bbb/ short form: C/A/B Alternate form: S/aaa/bbb/ Use to change the specified character string in the deck to another string, starting with the current line. aaaa is the character string you wish to locate. bbbb replacement character string. / delimiting character, can be any character. The trailing delimeter is not needed. Example: C/SUBROUTINE/FUNCTION - command: Format is: -n Shortest form: - Use to set the pointer towards the top of the deck a specified number of lines. n is the number of lines you wish to move up. SLEDIT is the original SLIB77 line editor. Each command is a single character followed by a string or a number or (for the Change command) strings separated by delimeters. Each entered command has ALL trailing blanks REMOVED. End command: Format is: End Shortest form: E Use to end editing of this deck and store the changes made to the appropriate disk files. + command: Format is: +n Shortest form: + Use to set the pointer towards the bottom of the deck a specified number of lines. n is the number of lines to move down. * command: Format is: * Shortest form: * Use to Bring up a menu which will allow you to change some of the operating conditions of the editor: Upper/Lower case input, Switch settings, Screen sequencing, Compile file sequencing, and compile and source file names. |HEDIHEL+HELPPBUF+BUF4(( INRCN  10 /20 LLINE B30 WRTIO Y55IITRAILRDTERM IWID EDIDIR ICMND 100 y200 300 400 500 600 k700 3800 900 1000 1100 1200  1300 q 1400  5000  1600J $CODEr$PDATA$LOCALINTXTINRECNXPZPP1PPPP+PPPGPP/P'PPPP PbV  ww1Zk011EDIINI0122-Aug-1985 15:3022-Aug-1985 15:30VAX-11 FORTRAN V3.1-23 EDIINIO85Mk!USERS1:[PROGS.SLIB77]MOD106.FOR;2 Pq Enter name of deck to be edited - or other option. ("cr" = end) ( * = List decks/Editor/Library options): H = list decks L = request different library file E = editor change/verification "cr" = return to deck name request ENTER OPTION:L Enter the editor desired (Original, New or Full)Yy Enter ("cr" - edit) (N - change deck name) (* - options menu):BACKUP INPUTSEQUENTIALFORMATTEDBACKUP OUTPUT Processing continue (from source file).CONTINUE Continue processing finished Processing RECOVERY. Error reading recovery file header recordHeader needed to be -Header That was read - Error during recovery processing. Error reading header record on recovery file (Sorry - must start over with deck name.) (Recovery processing being turned off) Deck )' is too large to edit with this program the maximum number of words = Active records  Inactive records in deck )) Records deleted  Records added.PHHH@HH<<,PP`3 WRTIO@9BB RDTIO@|(| WRTIO@#8 WRTIO@H WRTIO@#X WRTIO@h RDTIO@1 RDTIO@ A<DHD WRTIO@HD WRTIO@HD WRTIO@HD WRTIO@AGpG RDTIO@   RDDK@p , FILECK@|   ,| OPENER@ OPENER@ ( FILECK@ | (| OPENER@ OPENER@ WRTIO@(p WRTIO@ WRTIO@4 FILECK@$| 4| OPENER@ OPENER@4 WRTIO@HD WRTIO@   WRTIO@HD WRTIO@* WRTIO@J`,"vTv WRTIO@-l WRTIO@*| WRTIO@' WRTIO@ EDIINIP|Hh[EDIOPL ,n ˠWRTIO˰RDTIO- 1,n PWRTIOWRTIOWRTIOWRTIORDTIOHEDIHE31L1sE1,n P RDTIOO, N, F, \}~^(n0\^48WRTIO\^1H LIB$INDEXPkkkk1TIFINDKP\2^(2n}~^(4nA0A\^48WRTIO\^1~,n P\+^(+;n}~^(fn909\^4\RDTIO\^x| LIB$INDEXP1Px@ PPqh FOR$WRITE_IF0 FOR$IO_T_DS FOR$IO_L_R FOR$IO_ENDˈITRAILP048WRTIO1<P@˔˘FILEID˨FILEID˸FILEIDITRAILPITRAILP(ITRAILP \^(ln}~^(zn0\^48WRTIO\^ WRTIO\)~^(nV#^(#n#VV0V\^48WRTIO\^WRTIOWRTIOV)~$^($n$\'^('n'\\0\V^48WRTIOV^WRTIO,n PRDTIO-P * EDIOPT-P n1  4RDDK  P@  P P ] P@իP @P@]P@ P@ P@P@]P@    oˀ FOR$WRITE_IF FOR$IO_L_R PP~ FOR$IO_L_V0 FOR$IO_T_DS FOR$IO_ENDHITRAILP048WRTIO 1, XFILECK04˄OPENERիV^(n\^(n\\0\V^48WRTIOV^1V^(n\^(n\\0\V^48WRTIOV^ < , ˸FILECK 0@4~^OPENER^իƹV ^( @n \^(n\\0\V^48WRTIOV^1V+^(+n ^( @n+ \^(Gn\\0\V^48WRTIOV^( FOR$WRITE_SF0 FOR$IO_T_DS  FOR$IO_L_R FOR$IO_END1WRTIOWRTIOWRTIO, (FILECK$04DOPENERիV$^($n$\^(n\\0\V^48WRTIOV^1pEDICNSի1|CLSFILˌWRTIO 1˔WRTIOˤWRTIOˬWRTIO, FOR$READ_SFˈ FOR$IO_T_DS߫$ FOR$IO_L_R FOR$IO_END)ѫ$1˼WRTIOh FOR$WRITE_IF FOR$IO_T_DS0 FOR$IO_T_DS FOR$IO_L_R FOR$IO_ENDˈITRAILP048WRTIOh FOR$WRITE_IF FOR$IO_T_DSˈ FOR$IO_T_DS߫$ FOR$IO_L_R FOR$IO_ENDˈITRAILP048WRTIO1EDIBKI(CLSFILիWRTIO1h FOR$WRITE_IF߫, FOR$IO_L_R߫( FOR$IO_L_R FOR$IO_ENDˈITRAILP048WRTIO  }- - FSEDITEDITOR)1 WRTIOWRTIO ,WRTIO1P* SLEDITLEDITFSEDIT The current editor is Q2 Deck -Q- not found try again (Help will list deck names).Q2Deck -Q- is purged. Do you wish to edit it (y/n) ?Q Deck Q to be edited.Q (Recovery is scheduled from file (Continuation is scheduled from file OLD Unable to open file Opened recover input file NEW Unable to open backup file Q+ Opened backup file Q (will delete when finished with this deck) |HEDIINI LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSREDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+IDEC qq  NDKMEL-MEMDCL  -MEMSTL   -MEMCUL    NDKMEU-MEMDCU $  -MEMSTU D$ D-MEMCUU h  d-NCALLD     IDECP1  IDECP2  IDECPT  NDCKS,ITYPE `  XX+LOCF d `  ` XX+LOCB `  XX,NBLOK $`  XX-IIDENT %`  %XX-IPURGE .`  .XX,IEDIT D8`  @8XX+DECK  XX,DATED  XX  NMODS  NMODOP,MODNA,DATEM NSWS-LSWTCHdd-SWITCH dd NCPLDICPLDIH LSEQC MWIDE MWIDECNAMLCOHNAMLOUHHNAMLOPHNAMLIAHNAMLNPH NAMLOAHhNAMLSOHNAMLBIHNAMLBOH@NAMLCIHNAMLMOH IWLCO IWLOU 5IWLOP  IWLIA IWLNP IWLOA IWLSO IWLBI  IWLBO $IWLCI (IWLMO UPCASE LSTSEQ EDICON  EDIREC VIEW FZONE LZONEPMODETMODEERRMSG LANGCLANGF-LANGNM -COMFID<BAKFID<MODFID<,ANSPCHKNAMPLMODEXSTATUS` 2 EDIOPL 10 100 WRTIORDTIOEDIHE3 hIBL LIB$INDEX  9000 IFINDK lIEDECK ITRAIL t300 FILEIDEDIOPTRDDK6 pILDECK tNMD \500 xLNX FILECK |IDDNAM OPENER= IERR s 8000 IRECS MXRECSEDICNSCLSFIL  j 7000 NRECTI EDIBKI, NADD NDEL  6000+FSEDITEDITOR $CODE[$PDATA$LOCAL@LUNSLUNLOCEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12ADECKN%DECKANMODNA@MODNAMSWITCN SWITCACPLDINHCPLDICSEQCTLWIDTHFNAMEC,FNAMEWEDOPTSBATCHCERRMESLANC$LANGThFILIDC FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_IFnCPP PPPPP,PPP4P<P>PO WP@Pj"PQPYoPYP PPvP[PPPFPWPFP{PPFPaP!PPCPbPfPP Pi P P  P P P" P P 5 PE P P P d P P ym ww1@|8Ǎ011EDIINS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIINSN74 `8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9  PIP EDIBKO@ EDIINSP|H[}PQP P@(EDIBKOP@]kP@P@]Pk@]kP@P@P@<PPP8ININ ^( n<VV^(Vn V,Vn `PQ^P@L~^\PINCHW^ P@L`EDIVMDPѫ P lININP@]P  |HEDIINSAEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPTBUX EDIBKO& NR LR NWINININCHW NCHEDIVMD$CODE$PDATA$LOC ALEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12'PTP3'nww18Ǎ011EDILIS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDILISN74!`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9!3 P,P T$$,<(DL$ 4,(D (DL,<QQ EDILISPH[}PQ} PQ}PQ$ԫk8<@CKDIRի޼X޼lLCOMCHKkkի(ѫּ޼˄޼ˌpLISCRDѫի ޼˜޼ˠːINSCOMѫի ޼˸޼޼ˤINSGRP# HEDILIS=,A LENA 4DCK NSQ <LDECK COUNT NRECCFPRFX NIFS ISETIF+ISIFdd ICF ICQ ICLO  ICC ICL ICS ICN ICNA  ICP $ICPA (ICCD ,ICUC 0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTTDNAME GNAME ISET)IL   IAC $ITDCKDIRCOMCHK (ICDECKLISCRDINSCOMINSGRP$CODE$PDATA$LOCALPRFIXIFSW4CTRL CTRLIU4P0KPgP/lP sPyP}PPPPP&P P1%rww1`8Ǎ011EDIMIN01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIMINN74"`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9"  P EDIMINPH[}PQP < kkkPPQARVALJPPPЫPPЫ$ѫ$P@P@ P@$ HEDIMIN AEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d -NCALLD    IDECP1 IDECP2 IDECPT LN NP RVAL2 200I 500 j100$CODE$PDATA($LOCALEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12'P0MPaPaiPYP>P'nww1@N8Ǎ011EDINEX01 3-May-1985 16:11 3-May -1985 16:11VAX-11 FORTRAN V3.1-23 EDINEXN74#`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9#E yP EDINEX|PH[}PQPk P@] P@ P@ HEDINEXAEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD     IDECP1 IDECP2 IDECPT y500 !100z$CODE$PDATA$LOCALEDTCHLEDIIN$EDIPOI ADEC DECPT DECP12 PX@P8hPnzww1[8Ǎ011EDIOPL01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIOPLN74$`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9$ rwPOLD LIBRARYDIRECTUNFORMATTED Unable to open OLD LIBRARYPHHH  FILECK@ #   OPENER@# OPENER@ /P/ THEEND@Q4 EDIOPLP|H[k(CLSFIL,K Hh,n H\^(Qn«^(hnV^(TnVV0V\^48RDTIO\^-H n(HhHITRAILP,s XFILECK0h4˄OPENERի V«^(hnЫ\^(vn\\0\V^4˰WRTIOV^THEENDV«^(hnЫ\^(n\\0\V^4˰WRTIOV^ (RDOPLkKPFOR031QEnter library file name (def = Q) :QOLD Unable to open library file Opened old library file  |HEDIOPLI LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSRPRFXOPLFILHFNAMEHHSTATUS IOPEN CLSFIL 100 LOPLFI!RDTIOITRAILFILECK IDDNAM OPENER IERRvWRTIOTHEENDRDOPLG$CODE$PDATAd$LOCAL@LUNSLUNLOCP RFIX P{PPAP69-QGww18Ǎ011EDIOPT01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIOPTN74%`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9%0 P1 Editor Check/Alter Option Menu (select option). 1 - Upper/Lower Case input option. 2 - Switch Settings. 3 - Edit Screen Sequencing data. 4 - Compile file Sequencing data. 5 - Compile file Directives option. 6 - Compile file name. 7 - modify file name. 8 - Change Editor. A - Continuation processing B - Recovery processing C - Output backup file name. Enter option ("cr" - continue editing):12345678ABC12345678 Current case setting is "UPPER". Current case setting is "MIXED". Enter ("U" - Upper case) ("M" - Mixed case):M Screen sequencing IS scheduled. Screen sequencing is NOT scheduled. Do you wish to change this (Y/N)? Compile file sequencing is FULL. Compile file sequencing is COMPRESSED. Compile file sequencing is NONE. Enter (F - full) (C - compressed) (N - none): Compile file will have imbedded directives. Compile file will NOT have imbedded directives. Enter new COMPILE file name: Enter new modify file name: Enter the editor desired (Original, New or Full) Continue processing is scheduled to be done Continue processing is NOT scheduled Enter (N - not continue) (C - continue OR change file): Enter file to CONTINUE with: (both recover and continue processing are scheduled RECOVER will be turned off) Recovery processing is scheduled to be done Recovery processing is NOT scheduled Enter (N - turn off recovery) (R - recover OR change file): Enter file to RECOVER with: (both recover and continue processing are scheduled CONTINUE will be turned off) Enter new Backup output file name: `PHHH@HH H 1 WRTIO@(66 WRTIO@__ WRTIO@&zz WRTIO@' WRTIO@) WRTIO@ WRTIO@ WRTIO@, , WRTIO@!E0E WRTIO@g@g WRTIO@"P WRTIO@` WRTIO@+p RDTIO@ # WRTIO@# WRTIO@33 WRTIO@/66 RDTIO@f WRTIO@ WRTIO@ h4h WRTIO@$D WRTIO@"T RDTIO@4h WRTIO@D WRTIO@!| WRTIO@' WRTIO@! WRTIO@.== RDTIO@| WRTIO@ WRTIO@ WRTIO@,ll WRTIO@0 WRTIO@T RDTIO@l WRTIO@ WRTIO@ RDTIO@h< RDTIO@1\ RDTIO@-9t9 WRTIO@&gg WRTIO@; RDTIO@ RDTIO@P WRTIO@t9 WRTIO@g WRTIO@-99 WRTIO@&gg WRTIO@?  RDTIO@$ RDTIO@pQD WRTIO@9 WRTIO@g WRTIO@$=d= RDTIO@x EDIOPTPHT[}PQTWRTIOdWRTIOtWRTIO˄WRTIO˔WRTIOˤWRTIO˴WRTIOWRTIOWRTIOWRTIOWRTIOWRTIOWRTIO,n $RDTIO- n4ITRAILPkk0ѫ044PPD4QAHL LIB$INDEXP44PPD4QAH` LIB$INDEXPի0V^(bnk^(knkW} Option ~WWDWV^HlWRTIOV^1ϫ |WRTIOˌWRTIO˜WRTIO,n ˬRDTIO- n LIB$INDEXPWRTIOWRTIO1EDISWI1 WRTIOWRTIO,n RDTIO- YWRTIO WRTIO1 0WRTIO @WRTIO PWRTIO,n `RDTIO- F pWRTIO- C xWRTIO- N ˀWRTIO1(ːWRTIOˠWRTIO,n ˨RDTIO- Y(((˸WRTIOWRTIO1V^(nW^(nWWDWV^HlWRTIOV^,n HRDTIO-H n(HITRAILPV^(nW^(nWWDWV^HlWRTIOV^1V(^((n(W^(nWWDWV^HlWRTIOV^,n HRDTIO-H n(HITRAILP(V(^((n(W^(nWWDWV^HlWRTIOV^1/V}~^(nDV^HlWRTIOV^,n RDTIOO, N, F, V}~^(nDV^HlWRTIOV^1(WRTIOV$^($n$W^(nWWDWV^HlWRTIOV^8WRTIO,n HRDTIOĹ- N- C,n H`RDTIO-H n(HpITRAILP$ ˀWRTIO ˈWRTIOV$^($n$W^(nWWDWV^HlWRTIOV^ːWRTIO1N ˠWRTIOV^(nW^(nWWDWV^HlWRTIOV^˰WRTIO,n RDTIO- N - R ,n HRDTIO-H n(HITRAILP WRTIOWRTIOV^(nW^(nWWDWV^HlWRTIOV^WRTIO1V ^( @n W"^("n"WWDWV^HlWRTIOV^,n HRDTIO-H n(H@(ITRAILP V ^( @n W"^("n"WWDWV^HlWRTIOV^1MbP not recognized Reenter option The Compile file name is - The modify file name is - The current editor is SLEDITLEDITFSEDIT Using file The Backup output file name is -  HEDIOPT INITAL `EMODE UPCASE LSTSEQ EDICON  EDIREC VIEW FZONE LZONE ICF ICQ ICLO  ICC ICL ICS ICN ICNA  ICP $ICPA (ICCD ,ICUC 0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTTNAMLCOHNAMLOUHHNAMLOPHNAMLIAHNAMLNPH NAMLOAHhNAMLSOHNAMLBIHNAMLBOH@NAMLCIHNAMLMOH IWLCO IWLOU IWLOP  IWLIA IWLNP IWLOA IWLSO IWLBI  IWLBO $IWLCI (IWLMO LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU  (LBO ,LBI 0LTI 4LCI 8LTO <LMO  LOCLNP S LOCLSR  LSEQCANS FNAMEH  10 WRTIO  ~20 RDTIO TLENA ITRAIL$ !30XI \ITP LIB$INDEX k40 100 200 300 c400 500 `600 !700 800 1100 1200 1300EDISWI$CODE$PDATA$LOCALEDOPTS4CTRL CTRLIFNAMEC,FNAMEW@LUNSLUNLOCSEQCTLbPPPjP.P, PJpPrPtPvPxPzP|P~PrPPSPP P PPP P  P P 9P KP VP kP vP&P PP PP6PPPP P 6P HP SP PP"P /P&6P CPJP PN P PPI P?0PRPdYPP PNP :PBPILP?pPPdPP bP`Tww1`Y8Ǎ011EDIPLS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIPLSN74&`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9& h' P  EDIPLSPH[}PQP < kkkPPQARVALJPPPЫPPЫ,ѫ,$EDINEX ,EDIPOS HEDIPLSC AEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT LN NP RVAL w20I EDINEX  }30cEDIPOS$CODE$PDATA0$LOCALEDTCHLEDIIN$EDIPOIP0MPaPvP"Xww1@8Ǎ011EDIPOS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIPOSN74'`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9'" P 8P#H WRTIO@ X WRTIO@@80804 EDIPOSvP2@ww1<̼8Ǎ011EDIPRI01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIPRIN74(`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9( =P EDIPRIGPH[}PQV¼^(nмW ~WWWV^ WRTIOV^ HEDIPRIAN7WRTIO=$CODE$PDATA$LOCAL 9=ww1Jϼ8Ǎ011EDIPRS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EDIPRSN74)`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9) IP EDIPRSPH[}PQ} PQP < kkkëkPЫQT-PA  nTTk>~n\^RDTIO\^Y1#hkѫhЫPЫQA@PQ(@Ah SWIDEF10WRTIO8WRTIO1HWRTIOPWRTIO17P? Add ? DELETE  |4| WRTIO@D RDTERM@ \ WRTIO@ l WRTIO@| WRTIO@    WRTIO@(: RDTIO@ EDITORPP EXAL)PH[}PQ} PQ }  HEXAL" A1 N1 A2-#$CODE$PDATA$LOCAL: #ww188Ǎ01/EXIN01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 EXINN743`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;93l S.P EXINYPH[м (Ьޫ PFOR$INI_DES1_R2м ,kk,kPмQA@ּ,k HEXIN IP  IA N+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT ?100IkE$CODE$PDATA0$LOCAL ADEC  DECPT DECP12FOR$INI_DES1_R2*P KEww1`W<011FILECK0130-Sep-1985 08:2930-Sep-1985 08:29VAX FORTRAN V4.2-102 FILECKM63-<6DRC0:[PROGS.SLIB77]MOD107.FOR;2 K,PFOR Abort due to bad fileid.) FILECKPPh THEEND@P HL[}PQP} PQP }PQPԼ-  n!  FOR$WRITE_IF$ FOR$IO_T_DSݼ FOR$IO_L_V FOR$IO_END! HFILECK- NU PFILTYP XNAM IWNAM `STATUS IDDNAMPMODETMODEERRMSG LEXANSHVERSNHWRTIOITRAILTHEENDj$CODE&$PDATA$LOCALBATCHCERRME S FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_IF9P/'jww1`8Ǎ011FILEID01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 FILEIDN745`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;95  "RP*  P $8 FILEID8PH[}PQP }PQP} PQ P, LIB$INDEXPkk,  < @ LIB$INDEXPիkѫ, < PPQ LINE DATA MSGLIN IERROR+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPTEDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC   NRECI NRECT IDECI CHANGE RCOUNT  COLPNTTBUFEDIBKOITRAIL NR NWORDSINININCHW$CODE$PDATA$LOCAL ADEC DECPT DECP12EDTCHLEDIIN$EDIPOI-P #rww1] Rk011FSECMD0122-Aug-1985 15:2522-Aug-1985 15:25VAX-11 FORTRAN V3.1-23 FSECMDO85|j !USERS1:[PROGS.SLIB77]MOD105.FOR;1 K[P/+-P(00Q FORWARD QQ\BACKWARDQQ`UP QQdDOWN QQhADD QQlDELETE QQpLOCATE QQtCHANGE QQxFILE QQ|QUIT Q|QQQUIT QxQHELP QtQTOP QpQBOTTOM QlQSET QhQINSERT QdQTYPE Q`QNAME Q\QCOPY QXQMOVE QTQ: QPQ. QL FSECMDP- Dԫ,n 8RDTIO֫ѫF,'> L,D - >- DHFSEIPL,n T,n kkŏkP(@`˴k&(˴˴?(˴,n ˴- >PFSESCNPFSETRM-˴ n˴?˴=(˴&˜˜PP`˜QAdhFSEXECѫ 1|ի 1'ѫ ˄FSEENDѫ ˔FSEEND>PFSEDITLEDIT OI,5(  O˘,n O,  O6,6]  O˅Ĺ,.  O,1  O#,5  O<r,2'  O,6Y  O,n O_,2  Oˮ1',n Oo,  O˾,n O ,%  O\,  O˫,  O,n OI,4  O˘,2:  O,l  O6,n O˅,  O,6]  O#,'r  Or,.  O,1  O,5  O_,4  Oˮ,  O,n OL,"  O˛1,n Oo, O˾,n O ,5 O\,  O˫,n O,2K OI,&} O˘ 1,n Oo,6 O˾,.= O ,3 O\,0: O˫,n O,5j OI,& O˘,0 O,6 O6,5+ O˅,.` O,6 O#,  Or,6 O,6 O,2P O_,4 Oˮ,3 O,6 OL,6 O˛1~,n Oo, U O˾,n O ,4b O\,  O˫,n O,6 OI, O˘ 1,n Oo, O˾,n O ,4 O\,  O˫,n O,4- OI,%a O˘ 1>,n Oo,  O˾,n O ,2 O\, O˫," O,  OI," O˘,"; O,  O6,n O˅,(] O,6 O#,3 Or,6 O,6$ O,3Z O_,2 Oˮ,& O1,n Oo, O˾,n O ,2 O\,' O˫,n O,3C OI,2v O˘, O,n O6,  O˅,2 O,5 O#,$- Or1,n Oo,Q O˾,n ?O ,2_ O\, O˫,n O,. OI,0 O˘,n O,  O6,0 O˅,* O1I,n Oo,I O˾,n O ,4W O\,  O˫,n O,3 OI,4 O˘,5 O, ' O6,n O˅,  O,4G O#,4{ Or,/ O, O1r,n Oo, O˾,n O ,4  O\,  O˫,n O,3? OI,/r O˘,* O,n O6, @ O˅,4 O,( O#,3' Or,5Z O,4 O,3 O_,3 Oˮ,6) O1qĹ,n Oo,_ O˾,n O ,4m O\,  O˫,n O,3 OI,/r O˘,* O,n O6,  O˅,4 O,(A O#,3' Or,4 O,4 O,30 O_,3 Oˮ,6c O1p,n Oo,  O˾,n O , O\,  O˫,n O,3 OI,n O˘,  O,) O6 1,n Oo,  O˾,n O ,  O\,  O˫,n O,34 OI,l  O˘,n O,  O6,2g O˅ 1\pFSCREN?P Help Screen Frequently used commands are: Add n - add n lines to deck Backward Bn - move towards top of deck n screens Change /a/x/- change string a to string x Down n - move towards bottom of deck n lines DELete n - delete n lines starting at current line FILE - file changes Forward n - move towards bottom of deck n screens Help - general information about FSEDIT Locate /a/ - locate string a Quit - exit editor without changing deck Up n - move towards top of deck n lines Other commands that are available are: Insert Set Type TOP BCOTtom Enter command on command line for more info (Use quit to return to editor)FSEDIT Available commands are: COMMAND NOT UNDERSTOOD ERROR AT COMPUTED GOTO Additional HELP Screen not available at this time Forward command: Format is: Forward Shortest form: F Default: 1 Use to scroll towards the bottom of the deck a specified number of screens. where: n is the number of screen displays you wish to scroll forward. If "n" is omitted, tDhe screen is scrolled forward one display. Initially the "forward" command is assigned to button key "8". Backward command: Format is: Backward Shortest form: B Default: 1 Use to scroll towards the top of the deck a specified number of screens. to scroll Backward. If "n" is omitted, the screen is scrolled backward one display. Initially the "backward" command is assigned to button key "7". Up commEand: Format is: Up Shortest form: U Default: 1 number of lines. n is the number of screen lines you wish to scroll up. If "n" is omitted, the screen is scrolled towards the top one line. Down command: Format is: Down Shortest form: D Default: 1 specified number of lines. scroll down. If "n" is omitted, the screen is scrolled towards the bottom one line. Add command: Format is: Add F Shortest form: A Default: 1 Use to add a blank line after the current line at the top of the screen. n is the number of blank lines you wish to add. If "n" is omitted, one blank line is after the current line. Delete command: Format is: DELete Shortest form: DEL Default: 1 Use to delete the current line and a specified number from the top of the screen. n is the number of lines you wish to delete. If "n"G is omitted, the current line is deleted from the screen. Locate command: Format is: Locate <-+>/aaaa/ Shortest form: L Default: none Use to locate the specified character string in the deck, starting with the line after the current line. aaaa is the character string you wish to locate. - Search towards the top of the deck. + Search towards the bottom of the deck. / delimiting character, can be any character not contained within the string "Haaaa". If "/" is used, no need to specify "LOCATE" Example: LOC -*FIND THIS STRING IN THE DECK * Change command: Format is: Change <-+>/aaaa/bbbb/ short form: C Use to change the specified character string in the deck to another string, starting with the current line. bbbb replacment character string. not contained within the string "aaaa" or string "bbbb". Example: C -/SUBROUTINE/FUNCTION/ File command: Format is: FILE Shortest form:I FILE Use to store the changes made during this editing sesson to the appropriate disk files. FSEDIT is a full screen editor which displays a deckto the screen for modification. The editor isdesigned to work in an overstrike mode, that is anychanges in the screen are reflected in the deck. The editor screen has five different lines or areascontrolling the actions of the editor: Heading line - display status of the editor. Command line - line used to enter editor commands. Message line J- displays errors or a column ruler. Data lines - lines used to display file. first line of display is called the current line. Prefix column- first two columns of the data line, they can be used to add (a), delete (d), copy ("), block move (mm), block copy (cc) or make that data  the current line (/) on the next display. This column can be turned K off using the "set prefix" command. Top command: Format is: TOP Shortest form: TOP Use to display the "top of deck". Top is the initial setting for button key "11". Bottom command: Format is: BOTtom Shortest form: BOT Use to display the "bottom of deck". Bottom is the initial setting for button key "12". Set command: Format is: Set Button n aaaa Shortest form: S Case U/M CMdline TOP/BOT Prefix ON/OFF L View n Zone first last Use to change the editor configuration: Button n aaaa -set button key "n" to string "aaaa". Case U/M -set Upper or Mixed character set. CMdline TOP/BOT-place command line at top or bottom. Prefix ON/OFF -set Prefix column checking on or off View n -View data starting in column "n". Zone first last-limit "Locate" search to columns "first" thru "last". Insert command: Format is: Insert SMhortest form: I Default: blanks Use to insert a character string after the current line at the top of the screen. The inserted line becomes the new current line. aaaa is the character string to be inserted. The string begins with one blank character after the Insert command. Type command: Format is: Type Shortest form: T Use to display n records from the deck at the terminal when in the line editing display mode. n is the number of linNe to be displayed starting with the current line. Name command: Format is: NAMe aaaaaaaa Shortest form: NAM Use to assign a logical name or tag to the current line. If the name is already defined, it is moved to the current line. If the current line is already named, the old name is dropped. aaaaaaaa is the character string to be assigned to the current line. Maximum name length is 8 and the maximum number of names is currently set to 50. CopOy command: Format is: COPy a target Shortest form: COP Use to copy a single line or a block of lines from one place to another. The parameters for this command are tags set by the NAME command. a is a named line which indicates where the COPY will begin copying from. b is a named line which indicates the last to be copied. The order of "a" and "b" is NOT significant. "b" is optional, if not specified a single line copy is assumed. P target is a named line which indicates the line where the copied lines will be placed after Move command: Format is: MOVe a target Shortest form: MOV Use to move a single line or a block of lines from MOVE will begin copying from. to be moved. The order of "a" and "b" is specified a single line move is assumed. where the moved lines will be placed after. ":" command: Format is: :n Use to position the display to the specified line.Q n is the line number to move to. "." command: Format is: .aaaa Use to position the display to the specified named aaaa is the tag defined by the NAME command. HFSEHEL  EMODE NRHEAD NRCMND NRMSG  NRFLIN NRLLIN NROW NCOL CURLIN  CURROW $CURNUM-TAGLIN($22 NTAGS FSINIT LPREFX REFORM-BUTTONR`  ,FORMS<D  LANGFMP -TAGNAMX P 22-LERROR NERROR QREM QREADY  QERROR $LEVELREMARKH  CURR  CURCOL+HELPO   10 ;20  LLINE /30 FSCRENL  IQUERY n40 I  II  JJ JS WRTIO 55!ITRAILRDTIOFSECMD;  ICMND  ICHAR 70 80 e90 100 110 l120 130 140 ! 150 1000  160  170  180  190  200 G 210  220 230 240 250 B260 60i$CODE$PDATA $LOCALFSECOM FSECMC(NPSERRHNPSCHRAPhm TP!PP`XPwP\yP%{P}PPHPPPPP\P\PP:PP P P Po PF PG PHPJ>ww1Sk011FSEIPL0122-Aug-1985 15:2522-Aug-1985 15:25VAX-11 FORTRAN V3.1-23 FSEIPLO85|j !USERS1:[PROGS.SLIB77]MOD105.FOR;1U5 P  Full screen terminal interface not available. Line edit mode will be used.P<D  H     4 FSCREN@4 FSCREN@  ,    $. WRTIO@EE WRTIO@    4 FSCREN@4 FSCREN@  ,    $      4 FSCRVEN@  ,    $ FSEIPLJPPaPPPPEP\PlPE9ww1Sk011FSELOC0122-Aug-1985 15:2522-Aug-1985 15:25VAX-11 FORTRAN V3.1-23 FSELOCO85|j !USERS1:[PROGS.SL[IB77]MOD105.FOR;1@ sPP FSELOCP|H[}PQP }PQPмkռ ޼ 8$FSEDWN޼ 8$FSEUP«k ^( n< VV^(Vn V}STRING /~V,Vn PQ^ ޼ L<FSEGETռ Ѽ ,  kԫ ^( n< VV^(Vn V}STRING /~V,Vn PQ^ Ѽ ,   k1& ^( \n< VV^(Vn V}STRING /~V,Vn PQ^ dëdPPPЫdQA`TX LIB$INDEXP1Լ kЫP/ NOT FOUNDWRAPPED% |HFSELOC LINE LINNUM  DIRECT SKIP WRAP DATA MSGLIN  IERROREDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRE]CI NRECT IDECI CHANGE RCOUNT  COLPNT UPCASE LSTSEQ EDICON  EDIREC VIEW FZONE LZONE NRHEAD NRCMND NRMSG  NRFLIN NRLLIN NROW NCOL CURLIN  CURROW $CURNUM-TAGLIN($22 NTAGS FSINIT LPREFX REFORM-BUTTON`  ,FORMS<^D  LANGFMP -TAGNAMX P 22COMDAT TLINE TNUM 20 )10 FSEDWN J FSEUP  T15FSEGET LIB$INDEX$CODE$PDATA$LOCALEDTCHLEDIIN$EDIPOIEDOPTSFSECOM FSECMCC(Pj-PAPYP9P\PTPPfP` P#F: _ww1@Sk011FSESCN0122-Aug-1985 15:2522-Aug-1985 15:25VAX-11 FORTRAN V3.1-23 FSESCNO85 |j !USERS1:[PROGS.SLIB77]MOD105.FOR;1  "P HEADERCOMMAND>>>>>>SCALEPREFIX>) < Count= Line= Alts= Case=) Zone=PH PO`$       FSCREN@ FSCREN@      $ 0 FSCREN@      $% % FSCREN@      $-4 - FSCREN@4 FSCREN@      $`d (a4 FSCREN@      $ 4 FSCREN@      $pl 0 FSCREN@      $pl`d 0 FSCREN@      $h0:pl d: FSCREN@      $pl`dL (b      $ht0   ,   FSCREN@ FSCREN@      $ t% FSCREN@      $pl t FSCREN@      $pl`d t FSCREN@      $h0hc0`h|0h FSEADD@04t0Dt0Ht0D040D04t0Q !...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10....+...11....+...12....+...13....+...14....+...15....+...16Q| FSESCNPH,[}PQXdPT}PQ`P\0ԫ0ԫ$ ˼FSCREN4 PPë4QQPQQPP84 PPPPP8ԫ<$ի , \`(cc,, \`, \`mm,, \`, \`MVUVAˤ FOR$WRITE_IFd FOR$IO_T_DS FOR$IO_L_R$ FOR$IO_L_R FOR$IO_L_R˔ FOR$IO_T_DS FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDe@ѫ@Ы@P@$@P^(@P nݏTag=( nQ^@ƚO~^  FSCREN^\FSCREN˴FSCREN-\` nPPQAFSCRENLFSCREND  @ѫ@ 1֫Dի,n t˔FSCREN֫DFSCREN1$FSEGET}P ѫ, ѫЫ@, 1==T$1ѫ<fTѫ <,Tիԫ,T ѫ<,Tի ԫ,T,ի^ի իfԫ$իի ԫ$@FSCREN֫D -   PPQAtˈFSCREN  PPPP<Ы@ FSEDWN @z kk Ы4k޼ FSCREN  FOR$WRITE_SLl FOR$IO_T_DS FOR$IO_END,n \`0FSCREN< @DxFSCREN֫Dի<1ѫ@1FSCREN$FSEGET1 PPѫ8P8PPPQP^(PAtn^SV«8^(8˴nЫ8WWVPP^g(Ptn^SWWV,Vn PQ^^(˴nPP^(Ptn^SVV,Vn PQ^Ĺ PPѫ8Pë8PЫ8QP^(PAtn^SV«8^(8˴nЫ8WWV,Vn PQ^(˴)tUCASEЫ C> FSETRMPH[}PQ P}PQP- n<VV^(Vn^(nV,Vn PPQ^(ITRAILP048WRTIO,n @FSEGETTITRAILPPPVͫtëtPЫtQP^(PAhn^SW^(nWW0WV^48WRTIOV^,n  dRDTIO- n,  -  - VtëtPЫtQP^(PAn^SW^(nWW0WsV^48WRTIOV^1qPDOWN 1SCALEscale  HFSETRM CMND MSGLIN  IQUERY UPCASE LSTSEQ EDICON  EDIREC VIEW FZONE LZONE NRHEAD NRCMND NRMSG  NRFLIN NRLLIN NROW NCOL CURLIN  CURROW $CURNUM-TAGLIN($22 NTAGS FSINIT LPREFX REFORM-BUTTONt`  ,FORMS<D  LANGFMP -TAGNAMX P 22COMDATSCALEMSGP@MSGPADCURPAD IERROR MAXCOL!WRTIOITRAILFSEGET 10dRDTIOh$CODE$PDATA$LOCALEDOPTSFSECOM FSECMC*PEP  PPM' uhww1BTk010FSEUP0122-Aug-1985 15:2522-Aug-1985 15:25VAX-11 FORTRAN V3.1-23 FSEUPO85 |j !USERS1:[PROGS.SLIB77]MOD105.FOR;1   P FSEUPPPX xPP|P(pww1@]PTk011FSEXEC0122-Aug-1985 15:2522-Aug-1985 15:25VAX-11 FORTRAN V3.1-23 FSEXECO85 |j !USERS1:[PROGS.SLIB77]MOD105.FOR;1 V  P2 Maximum number of tags exceeded, Maximum number of TAGS set to )P<|\00y FSEADD@$,LP|@ <|@|<8<8|0QBUTTON 'CASE 'zCMDLINE 'VIEW 'ZONE 'PREFIX 'Q T> FSEXECPH,[}PQ\PX}PQdP`} PQlPhԼːFSECMDի0,N hlЫ0PPPP,h hl<-X\ 14  ll (PP˜lQAdˠˤRVALJP4ի44Pū4P޼ˬFSEDWN$ -X\ 4  ll (PP˜lQAdˠˤRVALJP4ի44Pū4P޼ˬFSE{UP«$   ll (PP˜lQAdˠˤRVALJPի޼ˬFSEUP«$   ll (PP˜lQAdˠˤRVALJPի޼ˬFSEDWN$   ll (PP˜lQAdˠˤRVALJPիЫL4ѫ4L޼FSEADDռL4  ll (PP˜lQAdˠˤRVALJPիЫP4ѫ4P޼FSEDELռ|P4ի0 ,/ hl 8ի0 88ll8PlQ,PAd -k֫88ll8PlQ,PAd +k֫88ll8PlQ,PAd k֫88l<`PlPP˜lQAdˠ LIB$INDEX8PP<8PѫnV,Vn hlPQ^ Ы4P@$`4ѫ4`4P ll ,QlRT-@P  QBdTTĹ`4 ^( 5n ll ,PlQnV,Vn hlPQ^  Ы4P@$ ԫ,1Ы4P@$d4ѫ4d4P ll 0QlRT-@P  QBdTTd4 ^( 5n ll 0PlQnV,Vn hlPQ^ Ы4P@$ ,ԫԫ޼˴FSEDWNѫѫ,Ы޼FSEDWNѫѫѫ ,"C hl ԫ޼FSEGET޼FSEADDռ,ѫ(޼˴FSEDWN޼ FSEDEL޼0FSEDWN,ի ,*e hl ll (PP˜lQAdˠˤRVALJP$޼ˬFSEDWN$ ,$ hlUCASEh4ѫ4h ll (P4QlRT-PBd AP TTիh4 ^( 5n ll (PlQnV,Vn hlPQ^$Ы4P@$޼H4FSEDWN$NP COMMAND NOT UNDERSTOOD ERROR AWT COMPUTED GOTOFSEDITLOCATE STRING NOT FOUND - INVALID SPECIFICATIONLOCATE STRING NOT FOUND INVALID CHANGE SPECIFICATIONERROR IN CHANGE LOCATE FUNCTION - STRING NOT FOUND/ CHANGED TO // CHANGED TO // deck changed, must type "QQUIT" to exit INVALID SET SPECIFICATION INVALID BUTTON SPECIFICATION INVALID ZONE SPECIFICATIONONTYPE COMMAND NOT VALID IN FULL SCREEN EDIT MODETag string not found - INVALID specificationIncorrect number of TAGS specifiedQ Tag >Q< not setQTarget imbedded in block move/copy":" command requires line number specified"." command requires a TAG specified HFSEXEC EMODE CMND MSGLIN IERROREDECK)IR]qp(N]]]qp(L]qp IDECPN IDECE IREC  NRECI NRECT IDECI CHANGE RCOUNT  COLPNT UPCASE LSTSEQ EDICON  EDIREC VIEW FZONE LZONE NRHEAD NRCMND NRMSG  NRFLIN NRLLIN NROW NCOL CURLIN  CURROW $CURNUM-TAGLIN($22 NTAGS FSINIT LPREFX REFORM-BUTTON`  ,FORMS<D  LANGFMP -TAGNAMX P 22  LIN  LOP  LSO  LCO  LNP  LSR  LSI  LIA  LOA  $LOU  (LBO  ,GLBI  0LTI  4LCI  8LTO  <LMO  LOCLNP  LOCLSR  NWRD*ISS   HH*ISE $  HH  MWIDE  MWIDECCOMDAT<BUFFERTEMPLN|LSCANTEMP TPAD'-SETCMD < ,LDIRCT 0NLINES 4MAXCOL 8TARGET <TOP @BOTTOM DLINE1 HLINE2 LSKIP PWR AP TCOPY XBLOCK FSECMDP \ICMND 1100  1200 1300 1400 n1500 1600 x1700 1800  1900  2000  2100  2200  2300  2400 * 2500 #2600 2700 2800 2900 3000 3100 _3200`IRVALFSEDWNFSEUP 1510 FSEADD p1610 FSEDEL" dIFCHAR  hILCHAR/ LIB$INDEXITRAILUCASEFSELOC lIMCHAR FSEGET" pIFOUND tLENGTH FSEHEL8 xLENW|J ILINE 2710 WRTIO !2810 2830 s2820 3005 -3010 3015 3020 53025 3030 3035 3060 63065 y3080 ?3070 v3075 3210 -3220 93230e$CODE$PDATA$LOCALEDTCHLEDIIN$EDIPOIEDOPTSFSECOM FSECMC@LUNSLUNLOCDSCANWIDTH FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_IF=P\P?^P`PFbPdPfPhPjPklP: nP? pPY rP^ tPn vP xP zP |P%~PDPSPYPPP\P2P-Pt:P2qPP2PP2KPzP2PP*PPP26PLP*`PnP|PPPP$P-P$P_P P PPP$;P-AP$ePPP PIP PPuPP1P8;PPr P P G P P P3 PY PS P26 PI PT PO P P~ P P3" P'a P`m P3 P P P` P P3 P Pz0 P3j Pt P P P Pu P[PPAP PP2PPPP PP P PR0P4PPPP;,PYP;PY=POPrP;PY,P 3P9P?TP![PbPPP PPPPPgPPDPbPJPeYeww1@ҽ8Ǎ011GETBUF01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 GETBUFN74E`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9Eh+ bP GETBUFPH[ݼ FOR$READ_DU FOR$IO_X_SE FOR$IO_ENDkkk ë kPЫ QT-PA nTTkkk HGETBUF IN ILBUF+BUF4(( INRCN LIN LOP LSO  LCO LNP LSR LSI LIA  LOA  $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSR MWIDE MWIDEC h100I u200z$CODE$PDATA$LOCALINTXTINRECN@LUNSLUNLOCWIDTH FOR$IO_END FOR$IO_X_SE FOR$READ_DU EP,gP Xzww1 D׽8Ǎ010GTFWD01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 GTFWDN74F`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9F+ KPD GTFWD\P@>+IPRD]@]BUF+BUF4(( INRCN NWRD*ISS HH*ISE$  HH IDL GETBUF  IL%SCANDI z HEADCH^$CODE$PDATA$LOCAL@LUNSLUNLOCDATECIVERSNLSMOD4CTRL CTRLI FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_IFP8,d^ww1 8Ǎ011ICKGRP01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 ICKGRPN74H`8ǍH USERS1:[PROGS.SL IB77]MOD99.FOR;9H, N&P ICKGRP|PH[}PQPk}PQ  SCANDIԫЫP ë (PЫ QT-k PA TTЫP HICKGRP GNAME  ALF  LENA NWRD*ISS HH*ISE$  HHESCANDIp$CODE$PDATA($LOCALDSCAN 9PfPD pww1w8Ǎ011IFINDK01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 IFINDKN74I`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9I1- VP IFINDKP H [}PQkkkP)@k}UCASE kk kP)@ kԫЫPkP@.kkkЫP HIFINDKA NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXXB 2100 I r200 UCASE e110I$CODE$PDATA0$LOCALADECKN%DECKA!P1P@TPdP }P$Eww1?8Ǎ011IFINMD01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 IFINMDN74J`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9J- IP IFINMDHP H[}PQ kk kP)@ kkkЫ P HIFINMDA NMODS NMODOP,MODNA,DATEM 2100I 9200KB$CODE$PDATA$LOCALNMODNA@MODNAM !P1P BBww18Ǎ01/INAL01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 INALN74K`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9K- <P INAL)PH[}PQ} PQ }  HINAL" A1 N1 A2-#$CODE$PDATA$LOCAL8#ww1"8Ǎ010INCHW01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 INCHWN74L`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9L . ;P INCHW'P ,D ,H ,O ,S ,X ,^^  ,b ,h ,n (,s 2,x <¹f, F P@V LIB$INDEXPիѫ WRTIOTHEENDЫPЫ@, (,  (, (@,  (,  (,? ( , (, (`,n (,= (, (@, (,. <(,' <(,( <(,$@ <(4,#d <(p,& <(,$ <(,& <($ ,& <(` ,( <( ,*E <( ,+o <( ,n <,n <<,n <x,n <,n <,,n <, <, <<, <x, <, <,, <PROFILPFortran Cobol AssembleDataNOTSETNEWACCADKDFEIIDIFRDPUUPRNVLCGGNEDADDDECKADDCOMDCALLCOMPILEDECKDEFINEDELETEEDITENDIFIDENTINSERTMOVERESTOREREADPURGEUPDATEYANKRENAMEVLEVELCALLGGNAMEENDDATASEARCHHELPSET VIEW 1QUITSET CASE MSET CASE UBACKWARDFORWARDTOPBOTTOMDEFAULT,1,*,*,(TN/IN/HN/CG),(A),DEFAULT,*,*,*,HEADER,1,*,*,(TP/CW),(A),HEADING,*,*,*,COMMAND,1,*,3,(CR/KH),(A),COMMAND,*,*,*,SCALE,1,*,*,(TP/CW),(A),SCALE,*,*,*,PREFIX,1,2,*,(HR),(A),PREFIX,*,*,*,COBOL,1,5,*,*,(A5),SEQUENCE COL,*,*,*,COBOL,6,6,*,(HR),(A1),COMMENT,*,*,*,COBOL,7,72,*,*,(A66),COBOL TEXT,*,*,*,FORTRAN,1,5,*,*,(A5),STMT LABEL,*,*,*,FORTRAN,6,6,*,(HR),(A1),CONT FLAG,*,*,*,FORTRAN,7,72,3,*,(A66),FORTRAN TEXT,*,*,*,FORTRAN,73,80,*,(TP/HR),(A8),SEQ. ID,*,*,*,*.FOR*.COB*.MAR*.DAT*.MOD*.BAK @ >+IPRD ]@ ]  NMODS  NMODOP,MODNA  ,DATEM  PRFX   NIFS  ISETIF+ISIF  dd ICF ICQ ICLO  ICC ICL ICS ICN ICNA  ICP $ICPA (ICCD ,ICUC 0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTT NMODC+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT IVERSLSTMOD-DIRDIS`-DIRDIL `V,IDIRL` LSEQC MWIDE MWIDEC LANGCLANGF-LANGNM -COMFID<BAKFID<MODFID<, NDITOT,NODIR`BUF+BUF4(( INRCN  INERRF !NCPLDICPLDIH"PMODE#TMODE#NAMLCOH$NAMLOUH$HNAMLOPH$NAMLIAH$NAMLNPH$ NAMLOAH$hNAMLSOH$NAMLBIH$NAMLBOH$@NAMLCIH$NAMLMOH$ %IWLCO %IWLOU %IWLOP % IWLIA %IWLNP %IWLOA %IWLSO %IWLBI % IWLBO %$IWLCI %(IWLMO &UPCASE &LSTSEQ &EDICON & EDIREC &VIEW &FZONE &LZONE 'NRHEAD 'NRCMND 'NRMSG ' NRFLIN 'NRLLIN 'NROW 'NCOL 'CURLIN ' CURROW '$CURNUM-TAGLIN'('$22 'NTAGS 'FSINIT 'LPREFX 'REFORM-BUTTON((`  ,FORMS<((D  LANGFM(P -TAGNAM(X (P 22 )NSWS-LSWTCH))dd-SWITCH* *dd-INCLDD+` +XX ,SCOMPF ,SSOURF ,SCALLF-SERCHS--`  .NSERCH-LSERCH.,.  /UPDATEYANKID0 1ITABC FNAMEHSTATUSH5CKINPIHEADIVLEVELXDATEXTIME- PIRECS TMXRECS XITEMP FILECK \IDDNAM OPENER `IERRWRTIOTHEENDM 100dI 200 hLIMMDK 400 lIL LIB$INDEXPROFIL$CODE$PDATAt$LOCALADECKN%DECKA,LIMSDATEC@LUNSLUNLOC}INPTKNMODNA@MODNAMPRFIXIFSW4CTRL CTRLIMODCOM ADEC DECPT DECP12IVERSNLSMODPDIRDIC`DIRDINSEQCTLWIDTHLANC$LANGThFILIDCdDIRSTINTXTINRECNINPERCCPLDINHCPLDICBATCHCFNAMEC,FNAMEWEDOPTSFSECOM FSECMCSWITCN SWITCA` SEPCOM SEPFICSERCHC 0SERCHIUPDATCYANKCTABC`PoPuPC7ww1`;8Ǎ01.INP01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23  INPN74O`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9O"1 PSCRATCH 49SCRATCHDIRECTUNFORMATTED Stopping in INP - too many directives." Stopping in INP because of input errors.))Too many directives for program maximum =& (parameter MAXDRR must be increased).) There were  input errors run will be terminated.xPHH  FILECK@X\# * \ OPENER@# OPENER@* OPENER@ PT`dh'6 6 THEEND@dh^T )`|` THEEND@ INPP|HP[}PQ,P(,n (, k<(#,$ ,n HXFILECKtx˔OPENER ,n WROUT,' WROUTRDINPѫd1ѫ1 8 FOR$WRITE_IF FOR$IO_L_Rtxt FOR$IO_T_DS FOR$IO_ENDWROUT31 FOR$READ_SF( FOR$IO_T_DS FOR$IO_END1,n (,1ѫ1ѫ1ѫ1ѫ1ѫ1 FOR$WRITE_DU txt FOR$IO_X_SE FOR$IO_ENDի1ѫ1ѫ 1ѫ 1ѫ1ѫ1ѫ18 FOR$WRITE_IF FOR$IO_L_R FOR$IO_ENDWRERRTHEENDP@P@DPЫ@>P@] 8 FOR$WRITE_IF FOR$IO_L_Rtxt FOR$IO_T_DS FOR$IO_ENDWROUTѫѫ«^(nЫV^(:nV,Vn PQ^WRMESINPADD11NXUNIN«^(nЫV^(InV,Vn PQ^WRMES1B1 0 ,]W WRERR 1txSCANDI,- WRERR 1@@(P@Q,PA 1ԫ 0,/ WRERR֫tx  LIB$INDEXP ѫ ë PPtЫ QAx  LIB$INDEX PP$ԫ$ѫ$ ,E WRERR֫ ,#U WRERR֫ի«^(nЫV^(xnV,Vn PQ^WRERR ԫ @@$PŏQ@R,PB A`ë $PQPA103CLSFIL13P@ STATIS 8 FOR$WRITE_IF  FOR$IO_L_R FOR$IO_ENDWRERR4THEEND$PNEWInput Text Listing:Pre-processing Begin reading **ERROR** YANK requires MODIFY and NEW LIBRARY file one or both of these files not requested.**ERROR** YANK directive does not have ident.**ERROR** SEARCH requested but not modify file.**ERROR** SEARCH directive improperly constructed consult User Guide.Too many SEARCH directives (MAXSER)Improper directive -  |HINP xNEXTBUF+BUF4(( INRCN NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@] LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSR-DIRDIS`-DIRDIL `V,IDIRL `   ICF  ICQ  ICLO  ICC  ICL  ICS  ICN  ICNA  ICP  $ICPA  (ICCD  ,ICUC  0ICM  LSTA  LSTC  LSTD  LSTE  LSTI  LSTM  LSTS  LSTT  MWIDE  MWIDEC  INERRFERRMSG SCOMPF SSOURF SCALLF NWRD*ISS HH*ISE$  HH-SERCHS`  NSERCH-LSERCH,  YANKID UPDATENAMLCOHNAMLOUHHNAMLOPHNAMLIAHNAMLNPH NAMLOAHhNAMLSOHNAMLBIHNAMLBOH@NAMLCIHNAMLMOH IWLCO IWLOU IWLOP  IWLIA IWLNP IWLOA IWLSO IWLBI  IWLBO $IWLCI (IWLMOFNAMEHSTATUSH PIRECS TMXRECS XITEMP FILECK \IDDNAM OPENER `IERR WROUT 100 RDINP dITP hIWID 110 <9000 1112 1500 H1700 R1800 2400 l200AWRERRTHEENDWRMESINPADDNXUNINSCANDI  lIERR24 pLSTART LIB$INDEX tLENDCLSFILSTATIS$CODE$PDATA$LOCALINTXTINRECN}INPTK@LUNSLUNLOCPDIRDIC`DIRDIN4CTRL CTRLIWIDTHINPERCERRMES SEPFICDSCANSERCHC0SERCHIYANKCUPDATCFNAMEC,FNAMEW FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_SE FOR$READ_SF FOR$WRITE_DU FOR$WRITE_IF_P*PPPBP>P1P1/P :PCPLPUP^PgPPPPPPPPP4rPBPPBXP_P"P P1P+\PfPPPADP{P4ww1O8Ǎ011INPADD01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 INPADDN74P`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9P2 PDeck too largeL) P  $  < THEEND@   < THEEND@ WRDK@QPNEW DECK  'Q< INPADDP|H[k  P@   P@DHINAL P@DXINAL  ޼p޼thRDINPռѼѼ Ѽ ѼѼѼ1PP  <ЫD  PPPq<^(<.n}X~ ^( jn,Mn Q^WRERRˀTHEENDˌININЫ ѫP Q(@ A ֫Ѽ˜NXUNIN¼^( nмV^(snV,Vn PQ^WRMESѼ!( FOR$WRITE_IF  FOR$IO_L_R˨ ˬ˨ FOR$IO_T_DS FOR$IO_ENDWROUT1r˰ININ~ PǏPxPPq<^(<.n}X~ ^( jn,Mn Q^WRERRTHEENDx~^STATIS^ЫPTININWRDK)8 FOR$WRITE_IFk FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_END FOR$WRITE_DU˨`ˬ˨ FOR$IO_X_SE FOR$IO_ENDjPAdd deck Q Too large for program (parameter MAXWRD must be increased).Q Begin reading  |HINPADD ITP IWID NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@] NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSR+ADEC qq  NDKMEL-MEMDCL  -MEMSTL   -MEMCUL    NDKMEU-MEMDCU $  -MEMSTU D$ D-MEMCUU h  d-NCALLD     IDECP1  IDECP2  IDECPTBUF +BUF4  ((  INRCNDATE TIMDAY  MWIDE MWIDEC ICF ICQ ICLO  ICC ICL ICS ICN ICNA  ICP $ICPA (ICCD ,ICUC 0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTTERRMSG-DIRDIS`-DIRDIL `V,IDIRL`DCKNAMDUMREC$*IRCO*IDM LOCDCK INAL) ILX NSEQ r200 RDINP NWWRERRTHEENDININ T300INXUNINWRMES 310 500 WROUT  502 NBLKSSTATISWRDK 510~$CODE$PDATA$LOCAL}INPTKADECKN%DECKA@LUNSLUNLOC ADEC DECPT DECP12INTXTINRECNDATECWIDTH4CTRL CTRLIERRMESPDIRDIC`DIRDIN FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_SE FOR$WRITE_DU FOR$WRITE_IFyP'P!PPPP PP<2P(_PQePAP PPPOPE +P<h\ww1@2z֍011INSCOM0123-May-1985 14:1023-May-1985 14:10VAX-11 FORTRAN V3.1-23 INSCOMP96`a֍"USERS1:[PROGS.SLIB77]MOD100.FOR;12 P Common decks nested too deep - max=9 Common decks nested too deep max=9U........ **ERROR** Program error in INSCOM PROGRAM ERROR IN INSCOMPHPX`hp% WRTIO@#:: THEEND@^ ^ RDDK@(( ((<|( (`<|` LISCRD@"ii WRTIO@, THEEND@QQ4 INSCOMSP|Hx[}PQ<ԫм  P(@ѫ xWRTIOˈTHEEND֫ЫPЫ @˜RDDKЫP@DP@˴˸EXALP@˴EXAL֫EXINЫEXINի1 1ի1ԫ $PP$$QPT-Q@ nTT֫ $P«PPë P(ԫ, kP@P@˴DIRCHKի,P@˴޼ (COMCHK kkի, (ѫ, ּի}P(@ P@˴,LISCRD ѫ,ի0P@˴޼ h޼l~^pLINSGRP^ѫ,ի0Ы0 ЫP@d11Z  ( ּV}~^(n~|V^ˀ˄LISCRDV^׫իЫP@  4ѫ4Ы4P@  4ˬWRTIO˼THEENDЫ4ЫP@d P(@1PEND  |HINSCOM ICDECK DNAME  COUNT NRECCF+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO  LOCLNP  LOCLSR  NMODS  NMODOP,MODNA  ,DATEM    NIFS  ISETIF+ISIF  dd  ICF  ICQ  ICLO  ICC  ICL  ICS  ICN  ICNA  ICP  $ICPA  (ICCD  ,ICUC  0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTTPRFXDCKHNAMPDATDXDNAMEC`GNAMEChLDECKCp xISET,NESTD(  *IDD LNX IDK ISQ  IDEL NMR)IL< 8 | IAC #NCDKP ICDECC 10WRTIOTHEENDRDDK! ILCDK IDECPLEXALEXIN NMD 100 ILX I900 NBLK  120 LB 130 LENA ITDDIRCHKCOMCHK ICDECNLISCRDINSGRP) 1100I 1200$CODE$PDATAH$LOCAL ADEC DECPT DECP12ADECKN%DECKA@LUNSLUNLOCNMODNA@MODNAMIFSW4CTRL CTRLIPRFIX-PPPP PDPBaP%PNP PP<PP3PPP`P8P3P""P'POPAVP:ZP_P1PkPP|pww1011INSGRP01 2-Aug-1985 11:02 2-Aug-1985 11:02VAX-11 FORTRAN V3.1-23 INSGRPO857!USERS1:[PROGS.SLIB77]MOD103.FOR;1 -PU........P (08@H RDDK@\```d`txtxTtxtT LISCRD@ QHQ4Q  ' INSGRP}P|HP[}PQ8} PQ@}PQH}PQP-@ nkk޼˔޼$˜ˌRDDKЫ P@DP@ˤ˨EXALP@ˤ˸EXAL֫EXINЫЫEXINի1ի1ԫ PP || Q|PT-Q@ nTT֫ P«PPëP$ԫ(P@P@ˤDIRCHKkѫ(1P@ˤICKGRPP,ի,kѫ(1  ի( (ѫ(  ( ּ ի}ЫP(@ P@ˤLISCRDѫ(  1ի(P@ˤ޼H(COMCHK1wk   (ּ V}@~ ~}8~^(n~TV^X\LISCRDV^)~}P~^( n}8~^(<n}@~ ^( Un,[n Q^WRERR,H WRERRPEND Q5Called group Q not found in common deckQ for following record (deck ' |HINSGRP  NDCK DNAME GNAME ALF LENALF LDECK COUNT  NRECCF $LCALL+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO  LOCLNP  LOCLSR  NMODS  NMODOP,MODNA  ,DATEM    NIFS  ISETIF+ISIF  dd  ICF  ICQ  ICLO  ICC  ICL  ICS  ICN  ICNA  ICP  $ICPA  (ICCD  ,ICUC  0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTTERRMSG NWRD*ISS HH*ISE$  HHPRFXNAM DATD(DCK0DNAMEC8GNAMEC@LDECKCH PFOUND*IDD LNX IDK ISQ  IDEL NMR)IL  TIAC XNDCKL RDDK  \ILDECK `IDECPLEXALEXIN dNMD hILX 100 *9000 800 lNBLK 120 pLB  130 tLENA xITD DIRCHK |IEQU"ICKGRPLISCRDCOMCHK ICDECN WRERR$CODEb$PDATA$LOCAL ADEC DECPT DECP12ADECKN%DECKA@LUNSLUNLOCNMODNA@MODNAMIFSW4CTRL CTRLIERRMESDSCANPRFIX1P6PPsP0P1PLP/TPvPx{P PPcP PPPJPCP<PP3PPP P,PZ3PQ:PJAPCEPJP:PaP]thww1nt8Ǎ011ITRAIL01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 ITRAILN74S`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9S 6 P ITRAILRPH[}PQP<kkk ë kPЫ QT-PA nTTkkkЫP HITRAIL1 STRING =10I C20-L$CODE$PDATA$LOCAL P">-YANDCK>>-YANRES>>-YANREE>> FHSWAYAN FSWAYANLW$CODE$PDATA$LOCAL ADEC DECPT DECP12$P$bww1`8Ǎ011LISCRD01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 LISCRDN74W`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9W:7 P))`P  XQ( INAC. Q  ' LISCRDPHX[Ь }PQ,}PQ4P@8 FOR$WRITE_IF PP@ˠTP FOR$IO_T_DS( FOR$IO_T_DS߼ FOR$IO_L_RX4\X FOR$IO_T_DS FOR$IO_ENDWROUTP@  FOR$WRITE_SFX4\X FOR$IO_T_DS FOR$IO_ENDP@1Ѽ1X4\`PVLEVL1kի  FOR$WRITE_SFkX\X FOR$IO_T_DSP`TP FOR$IO_T_DS( FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END  FOR$WRITE_SFkX\X FOR$IO_T_DS( FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END11޼xpCOMPIDkի  FOR$WRITE_SFkX\X FOR$IO_T_DSP`TP FOR$IO_T_DS@ FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFkX\X FOR$IO_T_DS@ FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFkX\X FOR$IO_T_DS FOR$IO_END1ռ11üի  FOR$WRITE_SFX4\X FOR$IO_T_DSP`TP FOR$IO_T_DS( FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END  FOR$WRITE_SFX4\X FOR$IO_T_DS( FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END11޼xpCOMPIDüի  FOR$WRITE_SFX4\X FOR$IO_T_DSP`TP FOR$IO_T_DS@ FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFX4\X FOR$IO_T_DS@ FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFX4\X FOR$IO_T_DS FOR$IO_END1^(`n¼^(4nV^(nWWV,Vn PQ^  FOR$WRITE_SFX\X FOR$IO_T_DS( FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END1޼xpCOMPID  FOR$WRITE_SFX\X FOR$IO_T_DS@ FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFPPX(\X FOR$IO_T_DS FOR$IO_END# HLISCRD ITDIR `IL  IT DCK NSQA LENA LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSR LSEQC MWIDE MWIDEC NCPLDICPLDIHERRMSG NAMSEQX*ITXDUMTWROUTPVLEVL XLENX \LENDUCOMPIDY$CODE$PDATA$LOCAL@LUNSLUNLOCSEQCTLWIDTHCPLDINHCPLDICERRMES FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_IF+P`P.PPPPYZPBPPPOP8OP.PP PPPYPBHPTPqPOP8P.*P,PIPPK P7eYYww1B8Ǎ011LISDCK01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 LISDCKN74X`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9X 8 HP........P,4<DLTH\HX X(X  X08@ XHHP  $ LISCRD@P8 8@X0Q LISDCKP|H[P(@X P@ptEXALP@p˄EXAL֫˔EXINЫ ˤEXIN1$ԫ PP˜˜Q˜PT-Q@ nTT֫ P«PPëP(   ( (ԫ , 1 1мP@kP@ P@p˴DIRCHKի P@p޼COMCHKkkի  (ѫ ,  00(,0,ּ 0ּ}X@P(@ @P@pLISCRDѫ ѫ 1k1ի$11μPЫ$QAPּ Ы$Pμ@1Ы$P@1Ы$Pм@ $P@FILEID(ITRAILP('~«(^((pn(V^(nV,Vn HPQ^0ITRAILP(@LISCRDѫ ޼l޼ p`INSCOMP@p޼ː޼ ˔tINSGRPԫ$ 1&^(&$n}X~^(Jn,=n Q^WRERRP INCLUDE 'Q&=**ERROR** Deck Q has mismatched *IF/*ENDIF directives. |HLISDCK NDECK COUNT  NRECCF NRECSF NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT NIFS ISETIF+ISIFdd  NMODS  NMODOP,MODNA  ,DATEM    ICF  ICQ  ICLO   ICC  ICL  ICS  ICN  ICNA  ICP  $ICPA  (ICCD  ,ICUC  0ICM  LSTA  LSTC  LSTD  LSTE  LSTI  LSTM  LSTS  LSTTPRFX ERRMSG SCOMPF SSOURF SCALLFNAMLCOHNAMLOUHHNAMLOPHNAMLIAHNAMLNPH NAMLOAHhNAMLSOHNAMLBIHNAMLBOH@NAMLCIHNAMLMOH IWLCO IWLOU IWLOP  IWLIA IWLNP IWLOA IWLSO IWLBI  IWLBO $IWLCI (IWLMO-INCLDD` XXDCK,NAM4DATD]<LDECKDDNAMELGNAMET*IRD LNX IDK NSQ  IDEL NMR)IL  ISETNAMTMPH\DUMRECH*ILT   IDECPLEXALEXIN NMD l100 ILX f2000 NBLK 120 LB 130 LENA IT  ITDDIRCHKCOMCHK ICDECKLISCRDFILEID IWTMP=ITRAILINSCOMINSGRPWRERR$CODEY$PDATA$LOCALADECKN%DECKA ADEC DECPT DECP12IFSWNMODNA@MODNAM4CTRL CTRLIPRFIXERRMES SEPFICFNAMEC,FNAMEW` SEPCOM0PPP(PP P P %P.P<PCPt]P@yP$PP PPP PPP PPMPPPP7P P1P 9P ?PGPQPVP%hP zPPP@P4P#mP1ww18Ǎ011LISERR01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 LISERRN74Y`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9YT9 m?P (Input record number) -P LISERRP|H[ FOR$WRITE_IFмP@D FOR$IO_L_R FOR$IO_ENDWRERRмP@ GETBUFk^(knkV ~V,Vn PQ^WRERR |HLISERRO IDIRERRMSGBUF+BUF4(( INRCN NDIR NIN,INLOC@,INRNOH@D,INTYP>@> +IPRD]@]WRERRGETBUF  IL|$CODE$PDATA$LOCALERRMESINTXTINRECN}INPTK FOR$IO_END FOR$IO_L_R FOR$WRITE_IFd|ww1%8Ǎ011LISMOD01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 LISMODN74Z`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9Z9 P)))(P Qadd ' del 'restored LISMODPPvww18Ǎ011LOCCNT01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 LOCCNTN74[`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9[D: P1*ERROR* unable to process the following directive during continue processingPЫ ЫD FOR$WRITE_IF߫L FOR$IO_X_DA FOR$IO_END|ITRAILP˄ˈˌWRTIO ԼUP0 ! HLOCCNT ITP NDECK  LOC1 LOC2 DALF NW NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPTERRMSGEDEC K )IR ] qp(N ]] ]qp(L ] qp  IDECPN  IDECE  IREC  NRECI  NRECT  IDECI  CHANGE  RCOUNT  COLPNT+IDEK+ICRD+LOCC +IERR  NDF $IW .100 160 B310RVALIFINMD} 2180 (170 (IL 9300 ,NN 200 0LNX U350 4NDK 8NSQWRTIOITRAIL$CODEW$PDATA$LOCALADECKN%DECKA ADEC DECPT DECP12ERRMESEDTCHLEDIIN$EDIPOI FOR$IO_END FOR$IO_X_DA FOR$WRITE_IFFOR$INI_DES1_R28PNP\PPP P'PsP]P/PAP8P$&P8P~PPP^P'P PZ PKPP P*P IP j^ww1`uξ8Ǎ011LOCREC01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 LOCRECN74\`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9\(; P1 (LOCREC)- The following directive is improperly )formed - cannot identify record to access (LOCREC)- The ) Record refered to by the !following directive was not found (LOCREC)-The ) Record refered to by following RESTORE directive is active (LOCREC)- The ) Record refered to by the 0following INSERT or DELETE directive is inactiveP (QpFIRST 'SECOND LOCRECP H[Ь(м TGTAWDѫ, FOR$WRITE_IF FOR$IO_END1ԫ ֫ ѫ1P-@T .1PP1P@\hlRVALЫ QJPA@Ы P@@1P(Q)@LAЫ P@8P@LhlIFINMDЫ QPA8Ы P@81P@LhlRVALЫ QJPA@Ы P@@ѫ 1Ѽ 1P)@Lc1ѫ1Ы P@8֫ѫѫ 1LPkЫ ˄ѫ˄1ЫP@ի1ЫP@ ЫP@ث$ЫPѫ @8ЫPѫ$@@ѼЫP@1ЫP@1ЫPЫ@H1ЫPѫ$@@ЫP@@ЫPk@H11S_, FOR$WRITE_IFPt@xt FOR$IO_T_DS FOR$IO_END, FOR$WRITE_IFPt@xt FOR$IO_T_DS FOR$IO_END, FOR$WRITE_IFPt@xt FOR$IO_T_DS FOR$IO_ENDWRERR޼ ˀ|LISERR˄LP_, FOR$WRITE_IF Pt@xt FOR$IO_T_DS FOR$IO_ENDWRERR޼ ˀ|FLISERRԼԼ H[Ь(PмQAPkcP0  HLOCREC ITP NDECK  INPL LOC1 LOC2 NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@] NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%`  %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD $D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPTERRMSG +IDEK+ICRD+LOCC  ISLOC*ALF-FIRSEC  INL GTAWDZ NW %520  NDF IW B100 160 500RVALIFINMD X180 L170 IL 300N 200 LNX 6250 NDK NSQ h270 280 290.WRERRLISERR A HINILOC AINILOC ILMl$CODEe$PDATAL$LOCAL}INPTKADECKN%DECKA ADEC DECPT DECP12ERRMES FOR$IO_END FOR$IO_T _DS FOR$WRITE_IF P9PMPaPoPPXP P,P PfP1"P+P@PJP^P P_PPiP6PPPPPPPPP,PgPbP0lww1T8Ǎ01/MAIN01 3-May-1985 16:11 3-May-1 985 16:11VAX-11 FORTRAN V3.1-23 MAINN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9 P Begin input Begin modifications*YANK and *SEARCH both requested*YANK and *UPDATE both requested Begin processing search End search processing Begin processing update End update processing Begin processing yank End yank processing Begin listings Begin writing library file. Begin writing portable library file. Normal ExitHP HP ` WRTIO@p WRTIO@ ** THEEND@ KK THEEND@ll WRTIO@ WRTIO@ WRTIO@ WRTIO@ WRTIO@H WRTIO@ WRTIO@  WRTIO@%%8% WRTIO@ $x KK THEEND@ MAINmP(ѫ(޼ˌˀPDELETѫ( ޼˜˔PINSRTѫ(޼ˌˀPRESTO P@իЫ ѫ PQA@ P@˨STATISPPPǏP,мP @ мP @ ` мPЫ,@ PЫ,@ ˴WRDK@>+IPRD]@] NOMODS,MODIN-MODRC1-MODRC2+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT  NDCKS,ITYPE `  XX+LOCF d `  ` XX+LOCB ` j XX,NBLOK $`  XX-IIDENT %`  %XX-IPURGE .`  .XX,IEDIT D8`  @8XX+DECK  XX,DATED  XX  LIN  LOP  LSO  LCO  LNP  LSR  LSI  LIA  LOA  $LOU  (LBO  ,LBI  0LTI  4LCI  8LTO  <LMO  LOCLNP  LOCLSR  ITPDCK NAC NIA NMODC ICF ICQ ICLO  ICC ICL ICS ICN ICNA  ICP $ICPA (ICCD ,ICUC 0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTTERRMSG RDDK ILDECK INILOC ILM SRTMODf NSEQ 600 I 3700 NM >720 s780  INREC PINSRT\ 1000 MLOC 800 LNX 840 J $IERRECWRERRLISERR (MTYPPDELETPRESTO, 1500 )2000  1520 STATIS ,NBLKS o2010 WRDK 3000$CODEy$PDATA$LOCAL}INPTKMODKE1MODKE2 ADEC DECPT DECP12ADECKN%DECKA@LUNSLUNLOC TYPDCKDCKSTAMODCOM4CTRL CTRLIERRMESwQPqPP. P.SPPFPRP.PmkP]PP,PPPPBP.ww1@s8Ǎ011MOVCHR01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 MOVCHRN74^`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9^[= ;P MOVCHR,P PXToo many decks%Too many decks for program maximum = %(parameter MAXDCK must be increased).lP@@((HlX  THEEND@*\`  d, l, t PADDPЫ P@Ы P@мP@˸GETBUFSCANDI$PPQARVALJP(PPQARVALJP Ы P @` Ы PЫ@Ы P@@8 RDPLA ,P@ INAL P@ INALWRPLAЫ PЫ @ P**ERROR** ADD deck name Q has been usedas a Modification Ident - cannot also be used as deck name.Q)**ERROR** ADD deck Q allready exists.Q (The OLD deck has been PURGED)Post-processing deck  @>+IPRD]@] NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATED.XXBUF+BUF4(( INRCN NWRD*ISS HH*ISE$  HH  LIN  LOP  LSO  LCO  LNP  LSR  LSI  LIA  LOA  $LOU  (LBO  ,LBI  0LTI  4LCI  8LTO  <LMO  LOCLNP  LOCLSR+ADEC   qq  NDKM/EL-MEMDCL  -MEMSTL   -MEMCUL    NDKMEU-MEMDCU $  -MEMSTU D$ D-MEMCUU h  d-NCALLD     IDECP1  IDECP2  IDECPTDATETIMDAYERRMSG+WORD@(0( GTAWD HNW LID!IFINMDWRERRLISERR A9000 PNDECK IFINDK( TINSL +120XI+MOVDKTHEENDSTATISWRMES \INCRD GETBUF `IL SCANDI dLOCDCK RVAL hNBLKS0RDPLAINALWRPLAB$CODE&$PDATA\$LOCAL}INPTKADECKN%DECKAINTXTINRECNDSCAN 1@LUNSLUNLOC ADEC DECPT DECP12DATECERRMES FOR$IO_END FOR$IO_L_R FOR$WRITE_IF\,PHsPP\PP_P^P;P#9P DP `P4 PP aUBww1a"8Ǎ010PDECK01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PDECKN742d`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9d? 0P Stopping in PDECK.*Too many decks being modified within a mod set maximum =& (parameter MAXMDK must be increased).P < THEEND@ < THEEND@< THEEND@ PDECKP@>+IPRD5]@] NINSO,INIDK,INICDERRMSGDECNA INL GTFWD  I IFINDK 1100WRERRLISERRTHEENDSTATIS3$CODE$PDATAt$LOCALADECKN%DECKA}INPTKINISOERRMES FOR$IO_END FOR$IO_L_R FOR$WRITE_IF'P-PEP37+p 63ww1&8Ǎ011PDEFIN01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PDEFINN74e`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9eX@ r,P  PDEFINP@>+IPRD]@] NSWS-LSWTCHdd-SWITCH ddERRMSGSWII SWI  SET INL GTFWDWRERRLISERR M80080sSWIDEFN$CODE/$PDATA@$LOCAL}INPTKSWITCN SWITCAERRMES P&DPeNww1`08Ǎ011PDELET01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PDELETN74f`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9f@ #P PDELET~PH[мkмP@޼ 9RECDELмP@kP@ ֫ѫ ޼ ޼$RECADDּ HPDELET IM IN  IDNO NSEQ NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@] NOMODS,MODIN-MODRC1-MODR:C2+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT  ;IDIR MLAST 100 RECDEL7 INCRD  INLAST K200 l500RECADDm$CODE$PDATA,$LOCAL}INPTKMODKE1MODKE2 ADEC DECPT DECP12TP*xmww178Ǎ010PEDIT01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PEDITN74g`8ǍH USERS1:[PROGS.<SLIB77]MOD99.FOR;9gZA Y`P@((@`LH PEDIT2PURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXX NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@]ERRMSG+WORD@((DECKNA@ HI ?NL GTAWD? LNW 1000 500PITL!IFINDKWRERRLISERR6 XL1 \L2 >2000 [2010fb$CODE$PDATA$LOCALADECKN%DECKA}INPTKERRMESCP 'P:PYPgPvlP?P2PP'NP?3cbww1`R<8Ǎ011PIDENT01 3-May-1985 1@6:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PIDENTN74h`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9hA PToo many mod names Stopping in PIDENT.1Too many modification names for program maximum =%(parameter MAXMNA must be increased).P  4 THEEND@P THEEND@ PIDENT7P@>+IPRD]@] NMODS NMODOP,MODNA,DATEMBUF+BUF4(( INRCNDATE CTIMDAY  MWIDE  MWIDECERRMSG IDENT INL GTFWD 1000 I IFINDK 1110 IFINMD 1100WRERRTHEENDLISERR/$CODE9$PDATAd$LOCAL}INPTKNMODNA@MODNAMINTXTINRECNDATECWIDTHERRMES FOR$IO_END FOR$IO_L_R FOR$WRITE_IF*P1P4dPxPP3P>2 D/ww1lB8Ǎ011PINSRT01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PINSRTN74i`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9iB { P PINSRTdPH[мkRECMOVмP@kP@֫ѫ޼޼  RECADDּ  HPINSRT IN IDNO  ENSEQ MOVOLD NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@]+IDEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  - FMEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT IDIR RECMOV7 INCRD INLAST 2200 S500pRECADDT$CODE$PDATA$LOCAL}INPTK ADEC DECPT DECP12 P;P&fTww15S8Ǎ01G0PMOVE01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PMOVEN74j`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9j C q(P<( $ PMOVEP@>+IPRD]@] NDCKS,ITYPE` XX+LOCFd ` J` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXXERRMSG  NWRD*ISS   HH*ISE $  HHID1 KID INL GETBUF  IL SCANDI5 110 100 NDL 200WRERRLISERR$ M400N  NN IFINDK }320 MOVDK& 330$L 340W$CODEf$PDATA$LOCALINTXTINRECN}INPTKADECKN%DECKAERRMESDSCANO@ >+IPRD ]@ ]  NWRD*ISS   HH*ISE $  HHERRMSG DCKNAM IDL GETBUF   IL!SCANDIWRERRLISERR' h200I NPURGIFINDKW QRMESq$CODEe$PDATAT$LOCALADECKN%DECKA4CTRL CTRLI@LUNSLUNLOCINTXTINRECN}INPTKDSCANERRMES*:P%tPP?PvP?5P2."qww1 j8Ǎ011PRENAM01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PRENAMN74l`8ǍH USERS1:[PROGS.SLIB77]MROD99.FOR;9lhD PL0PL08l RDDK@, l WRDK@   PRENAMP@>+IPRD]@] NDCKS,UITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXXERRMSG+ADEC   qq  VNDKMEL-MEMDCL  -MEMSTL   -MEMCUL    NDKMEU-MEMDCU $  -MEMSTU D$ D-MEMCUU h  d-NCALLD     IDECP1  IDECP2  IDECPT  LIN  LOP  LSO  LCO  LNP  LSR  LSI  WLIA  LOA  $LOU  (LBO  ,LBI  0LTI  4LCI  8LTO  <LMO  LOCLNP  LOCLSR NWRD*ISS HH*ISE$  HH NMODS NMODOP,MODNA,DATEMID1ID2 INL GETBUF  IL SCANDI 1200 ND1 IFINDK XNM1 IFINMD)  ND2 $NM2 (ISDEC1 RDDK ,ILDECK%INALWRDKWRMESWRERRLISERRH$CODE$PDATA$LOCALINTXTINRECN}INPTKADECKN%DECKAERRMES ADEC DECPT DECP12@LUNSLUNLOCDSCANNMODNA@MODNAMI:PLPP3P.Ph PP.<PDPPKPD YHww1t8Ǎ011PRESTO01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PRESTON74m`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9m?E #P PRESTO}PH[мkмP@޼ RECRESkP@kP@ ֫ѫ ޼ ޼$RECADDּ HPRESTOZ IM IN  IDNO NSEQ NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@] NOMODS,MODIN-MODRC1-MODRC2+IDEC qq NDKMEL-MEMDCL[-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPT IDIR MLAST 100 RECRES7 INCRD  INLAST J200 k500RECADD \l$CODE$PDATA,$LOCAL}INPTKMODKE1MODKE2 ADEC DECPT DECP12SP*tlww1{֍010PROC30123-May-1985 14:1023-May-1985 14:10VAX-11 FORTRAN V3.1-23 PROC3P96`a֍"USERS1:[PROGS.SLIB77]MOD100.FOR;12? :{P4P( KOMDECSWADEC]d0, PROC3Pƫϫ PADDЫP@ ],PEDITЫP@ ]1z,PDEFINЫP@ ]1c,PMOVEЫP@ ]1L PPURGEЫP@ ]15,PRENAMЫP@ ]1k PIDENTkЫ 1 ЫxЫ ѫxЫP@ ]ЫP@ >4PDECKЫP@ ]x 1 <QIKSRT\kP^^(@n^(nP\^TXHEADER\^ЫP@ ի1ЫP@  , ( ,( ( ,  1\P^(@n ~kP^(@n^(n!P!\^TXHEADCH\^`SUBHED,n WROUT^(8nP^(@n^(Sn ^( n^(Xn,9n Q^WRMES,n WROUTWROUThMODDCKѫ 1ѫ k1PModifications - *A Deck *AC Common deck Q Q****_ Q **** being modified/edited( @ >+IPRD ]@ ]  NINSO,INIDK  ,INICD    ITPDCK  NAC  NIAERRMSG NMODS NMODOP,MODNA,DATEMb SCOMPF SSOURF SCALLFSTPLTP  IDNO ID 50 500 9000 IT g101 }104 106 210 113 116 119JPADDPEDITPDEFINPMOVEPPURGEPRENAMPIDENT5  ISID $IFID S1000 (IN PDECK Y2000 8000QIKSRTHEADER- ,IDKDIR c3000 0NDECK9HEADCHSUBHEDWROUTWRMESMODDCK$CODE]$PDATA$LOCALADECKN%DECKACURED4CTRL CTRLI@LUNSLUNLOC}INPTKINISOTYPDCKDCKSTAERRMESNMODNA@MODNAM SEPFICP  P#P7P09P0=PFAP]EPFIPOPtUP[PPP$P40P">PbPlP{P3P9PP dP Pyww1`Tk010PROC40122-Aug-1985 15:3022-Aug-1985 15:30VAX-11 FORTRAN V3.1-23 PROC4O85Mk!USERS1:[PROGS.SLIB77]MOD106.FOR;2 uP No listing requestedCOMPILESEQUENTIALFORMATTED Couldnt open compile fileSOURCE Couldnt opeen source fileLPHHHL  WRTIO@" " FILECK@h * 5  h* OPENER@5 OPENER@`dl?(? THEEND@Z<Z FILECK@h h* OPENER@5 OPENER@`dlaa THEEND@{{ RDDKf@pt{ RDDK@ptpx{ RDDK@pt " FILECK@h  h* OPENER@5 OPENER@||l(? THEEND@<Z FILECK@h h*y OPENER@5 OPENER@la THEEND@p| g PROC4PPsPuP{PGP&PCTHrww1 W8Ǎ01}1PSERCX01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 PSERCXN74r`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9r]I IzP\d PSERCXPH[}PQм 0}PQޫPFOR$INI_DES1_R2м XЬ@ޫ@>+IPRD]@] LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSR NOMODS,MODIN-MODRC1-MODRC2 NMODS NMODOP,MODNA,DATEM MWIDE MWIDEC-YANMOD>>-YANDCK>>-YANRES>>-YANREE>>YANREC IRECLO LTYPE NMODDKERRMSGNAMLCOHNAMLOUHHNAMLOPHNAMLIAHNAMLNPH NAMLOAHhNAMLSOHNAMLBIHNAMLBOH@NAMLCIHNAMLMOH IWLCO IWLOU  IWLOP  IWLIA IWLNP IWLOA IWLSO IWLBI  IWLBO $IWLCI (IWLMO NEWDKSTATUS  IMOD IFINMD ]80 #10WRERRTHEEND IRECS MXRECS FILECK IDDNAM OPENER IERR WRMES:  NEWDKS $IRECLN 5000 (NDK RDDK ,ILDECK 0ISMOD o100 4NMD 8ISDECS < IEMOD 500 @LNX 4000 DNM HNDKN 1200 YWRRa %3900 1260 LIQ 1280 1360 C1400  3800YADDRCYINITP PNX TLA YADDTPb 1800 XNMN 4160 4200 4260 4240 \NBLKS WRDK N 6000`IMOVDKQIKSRT5 dNML  8000  7100 hNR YRRR) V 7080 lNC a 7090CLSFIL $CODE$PDATA$LOCAL4CTRL CTRLIDATECADECKN%DECKA ADEC DECPT DECP12EDTCHLEDIIN$EDIPOI}INPTK@LUNSLUNLOCMODKE1MODKE2NMODNA@MODNAMWIDTHYANRC YANREPERRMESFNAMEC,FNAMEW FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFI"P:PHP;P3HPYP\PkPmPPEnP$PP-P&P4P6POEP@PPP PAP!P!$P_PoPP PvPP,P6P PP P UPhPmPPPSP P P-PPP PQP P P-P!P*P dPtPP&P2P PPPP P.PRPvPAP&(Ps5PfjP. PI+ P): PD P f P?p P  P PI P. P2U P  ww1tQ:011QIKSRT0126-Jun-1985 12:4326-Jun-1985 12:43VAX-11 FORTRAN V3.1-23 QIKSRTO85)щ0!USERS1:[PROGS.SLIB77]MOD101.FOR;60 zBP QIKSRT|PH[ммkëPP ѫ 1ЫЫPPѫ Pѫ֫( Pѫ׫ѫ4׫֫ѫ֫ѫ(׫kkkkëPëQPQkPЫ@\kPЫ@ЫkPЫ@\kPЫ@Ыѫ  ë ЫЫ ~^H@ ^P ~^H@^« ѫ֫ѫkkP@\kP@k1 HQIKSRT, ISTART ISTOP LEVEL-BSTACKP-ESTACKPPL BEGIN IEND NUM MIDDLE 10IJ >20 E30 Z40 50 60 70-s$CODE$PDATA$LOCAL'PDP`MP TPbP iPuP P P PPPPPPwPU)PWPnPoc# sww1`"\:01/RDDK0126-Jun-1985 12:4326-Jun-1985 12:43VAX-11 FORTRAN V3.1-23 RDDKO85)щ0!USERS1:[PROGS.SLIB77]MOD101.FOR;6 P Too many decks for low memory (MAXDCL) Insufficient memory (MAXWRD)  WRERRkk0NkPP  P«0PЫ0Q,PA  WRERROkk    CKDIRѫիЫP@'ԫ  $CKINPЫ<P**ERROR** Input record too wide - it will be shortenedFrom -To - P;P PPPPQE| ww1)8Ǎ010RDOPA01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 RDOPAN74y`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9yO YP)P RDOPAPH[}PQѼ Pݼ FOR$READ_SF  FOR$IO_T_DS FOR$IO_ENDм kPPPkkPPPP ݼ FOR$READ_SF ë PPЫ QA FOR$IO_T_DS FOR$IO_ENDPkkPH[}PQѼ Pݼ FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDм kPPPkkPPPP ݼ FOR$WRITE_SF ë PPЫ QA FOR$IO_T_DS FOR$IO_ENDPkkP HRDOPAV NUA N NL IS P20 NC  IF HWROPA WROPA   30mx$CODE$PDATA$$LOCAL FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF)P-GPsP P-PslP 7+4xww1 S'010RDOPL0128-Jun-1985 14:0528-Jun-1985 14:05VAX-11 FORTRAN V3.1-23 RDOPLO85+'U!USERS1:[PROGS.SLIB77]MOD102.FOR;1 PXd Program- Old library- Cannot read OLD LIBRARYDeck HeaderToo many deck header blocksToo many decksDeck too largeModification HeaderToo many modification header blocksSwitch HeaderToo many switch header blocksToo many switchesWidth will be  ( from the OLD Library))  Characters/word  Words/block*ERROR* Too many blocks in ) for program number =  allowed = %Too many decks for program maximum = %(parameter MAXDCK must be increased).1Too many modification names for program maximum =%(parameter MAXMNA must be increased).'Too many switches for program maximum =%(parameter MAXSWI must be increased)."Old Library readied, Language is  Width = blocks. Decks  Switches Mods - last one =  P@H    ( 5BB THEEND@ [ff THEEND@ THEEND@   D THEEND@#` THEEND@ THEEND@  THEEND@ THEEND@ THEEND@ t $  RDOPLPPFP!Pf P* P@ PUK P] P P PM PA  PQ PK P?J Pt P P Pvj ww18Ǎ011RDOPLA01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 RDOPLAN74{`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9{Q tPXdToo many switchesToo many mod namesToo many decksDeck too largeL'Too many switches for program maximum =%(parameter MAXSWI must be increased).1Too many modification names for program maximum =%(parameter MAXMNA must be increased).%Too many decks for program maximum = %(parameter MAXDCK must be increased).  )Library language is  Width =Number of decks = P< THEEND@.P. THEEND@AdA THEEND@     PP THEEND@ __ WRDK@   RDOPLAP8Ǎ010RDTIO01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 RDTION74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9$T N+P))P RDTIOP@>+IPRD]@] NDCKS,ITYPE` XX+LOCFd ` ` XX+LOCB` XX,NBLOK$`  XX-IIDENT%` %XX-IPURGE.` .XX,IEDITD8` @8XX+DECKXX,DATEDXXDATETIMDAY+ADEC qq NDKMEL-MEMDCL-MEMSTL  -MEMCUL  NDKMEU-MEMDCU$  ->MEMSTUD$D-MEMCUUh d-NCALLD     IDECP1  IDECP2  IDECPTBUF +BUF4  ((  INRCNERRMSG   ICF  ICQ  ICLO  ICC  ICL  ICS  ICN  ICNA  ICP  $ICPA  (ICCD  ,ICUC  0ICM LSTA LSTC LSTD  LSTE LSTI LSTM LSTS LSTT LIN LOP LSO  LCO LNP LSR LSI LIA  LOA $LOU (LBO ,LBI 0LTI 4LCI 8LTO <LMO LOCLNP LOCLSR*IRC GETB UF LENR NWWRERRTHEENDININ% IREC 60 ILISMOD$CODE~$PDATAt$LOCAL}INPTKADECKN%DECKADATEC ADEC DECPT DECP12INTXTINRECNERRMES4CTRL CTRLI@LUNSLUNLOCCP!P'PP)ww1YG8Ǎ011RECDEL01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 RECDELN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;90U PDeck too large when modifiedP THEEND@( RECDELP@>+IPRD]@]ERRMSG   LIN  LOP ! LSO  LCO  LNP  LSR  LSI  LIA  LOA  $LOU  (LBO  ,LBI  0LTI  4LCI  8 LTO  <LMO  LOCLNP  LOCLSR*IRC*IMD EXIN) LNX  100 LCWWRERRTHEENDININ' IREC 10I LISMOD' Q200 K110JR$CODE|$PDATAL$LOCAL ADEC DECPT DECP124CTRL CTRLI}INPTKERRMES@LUNSLUNLOC0P :P_P!P0P"PH P0?3Rww1V8Ǎ011RECMOV01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 RECMOVN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9U nPPDeck too large when modifiedP THEEND@ RECMOVP@>+IPRD]@]ERRMSG   LIN  LOP C LSO  LCO  LNP  LSR  LSI  LIA  LOA  $LOU  (LBO  ,LBI  0LTI  4LCI  8LTO  <LMO  LOCLNP  LOCLSR*IRC*IRM22 LNX  INAC NMD EXIN 900 NWR ININ( IREC 100ILISMODWRERRLISERRRECMOV$CODE1$PDATA,$LOCAL ADEC DECPT DECP124CTRL CTRLI}INPTKERRMES@LUN SLUNLOCPkP0P!1%ww1b8Ǎ011REPINC01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 REPINCN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9V qPC*DINCLUDESYS$].:TP(ltTT\\ dddQ' REPINCP̫Pԫkԫ֫  @ë@ PP,Ы@QA 04 LIB$INDEXPիѫ ׫kE"PNQAQPNPDP@PD>̫ѫ kRѫ DЫP HRVALu  ARG FRACT DONE  LARG NCHR AMULT SGN 110 JVAL; LIB$INDEX$CODE $PDATAH$LOCAL<^PCdP,jPzPPPPPP6* ww1o8Ǎ011SCANCC01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 SCANCCN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9W d5P (Q =,' SCANCCP߫ѫѫ ѫּ޼ LOCRECի. FOR$WRITE_IF FOR$IO_L_R FOR$IO_ENDWRERR8THEENDPk@PЫ@PЫ @kk1Hּ1DSTATISPQIKSRT HSRTMOD NDECK IDKDIR NOMODS,MODIN-MODRC1-MODRC2 NDIR NIN,INLOC@,INRNOH@D,INTYP>@>+IPRD]@] NINSO,INIDK,INICDERRMSGKOMMODSWAMOD\ 100 2000 .1000 IDIR ;1100 ITP ^1400 LOCREC* LOC1  LOC2 1500WRERRTHEENDSTATISQIKSRT $CODE$PDATAd$LOCALMODKE1MODKE2}INPTKINISOERRMES FOR$IO_END FOR$IO_L_R FOR$WRITE_IF4P,PLPRP XPoPu|P3P@4www1`8Ǎ011STATIS01 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 STATISN74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9=Y PXd Deck/modification StatisticsMAXDCKNo. of decks.MAXSWINo. of switches.MAXMNANo. of modification sets.MAXMDKNo. of decks which can be modified per Modification set.MAXMDDNo. of modification directives per deck per modification set.MAXDRRNo. of directives in a run (excluding those in decks).Decks - (#=Purged, *=Common) length is given in blocksũModification idents - )) )P  HEADER@1 7DJZ`y8=6QQ0  STATISPn}ݼ FOR$WRITE_SFD FOR$IO_T_DS  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_SFkkkP+T@XT FOR$IO_T_DSkP\@`\ FOR$IO_T_DSkP@ FOR$IO_L_RkP@% FOR$IO_L_RkP@. FOR$IO_L_Rk FOR$IO_END#ݼ FOR$WRITE_SFkkkP\@`\ FOR$IO_T_DSkPT@XT FOR$IO_T_DSk FOR$IO_END(ݼ FOR$WRITE_SF kkkP\@ `\ FOR$IO_T_DSkP@  FOR$IO_LU_Rk FOR$IO_ENDѫ1 lRDDK P@,˄ˈEXAL P@˄˘EXAL˨EXIN 2ݼ FOR$WRITE_SFP\@`\ FOR$IO_T_DSPT@XT FOR$IO_T_DS߫  FOR$IO_L_R FOR$IO_ENDի ˸EXIN9ݼ FOR$WRITE_SFЫ kkkP@ FOR$IO_L_Rk FOR$IO_END  EXINЫܫի1 PP9ݼ FOR$WRITE_SF߫$ FOR$IO_X_DA FOR$IO_ENDЫիEXIN9ݼ FOR$WRITE_SFЫkkkP@- FOR$IO_L_Rk FOR$IO_END ëPP ޼ P@˄WROPAЫ 1-9ݼ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_END,"E WRMES>PSLIB77 New portable library file written.  -MEMSTUD$D-MEMCUUh d-NCALLD    IDECP1 IDECP2 IDECPTkYADDA2YWRR,$CODE$PDATA$LOCAL ADEC DECPT DECP12I,ww1D8Ǎ011YADDA201 3-May-1985 16:11 3-May-1985 16:11VAX-11 FORTRAN V3.1-23 YADDA2N ?74`8ǍH USERS1:[PROGS.SLIB77]MOD99.FOR;9a KP YADDA2&P