% VAX-11 Librarian V03-00 b\`*_!  BB  eACCCXRACCUMATIMERBBLKIODCLIARGSE$CLIPARSEG CORNTURNH, CREATEBLKJbCXML1LfCXMULMCXPRINTPlDCLARGSS DELTATIMEVLDETCXRX FERRORY&FFT\6 FFT_TABLE^FIELDATA_TO_ASCII_FILINIT`FPGETaFPPUTbGETERRd>GETJPIfGETPRIgGNUMi~ICXPRINTl:IFERRjIFFTTINITCHARINTERPIROUNDLENGTHLIB$EXECUTE_CLIMATCH>MOVCHMOVEACCUMACC_CX_RATIMER>BLANK>BLANKSDCLIARGSE$CLIPARSEBCLOSBLKG CORNTURNH, CREATEBLKJbCXML1LfCXMULMCXPRINTPlDCLARGSS DELTATIMEVLDET_CX_RVL DET_CX_R_AP`DPGETaDPPUTrEOLr ERASEPAGETEXITCHARX FERRORY&FFT\6 FFT_TABLE^FIELDATA_TO_ASCII_FILINIT`FPGETaFPPUTTGCHARbGETERRLGETLfMUL_CXBOPENBLKBREADBLKBWRITBLKd>GETJPIfGETPRIgGNUMI1MOVEI1ZEROI2MOVEI2ZEROI4MOVEI4ZEROI8MOVEI8ZEROVLICABSi~ICXPRINTl:IFERRjIFFTTINITCHARINTERPIROUND>KNSERTLENGTH`LGETLIB$EXECUTE_CLITLOUTMATCH>MOVCHTMSGLfMUL_CX MUL_CX_CK MUL_CX_RJNEXTWILDBOPENBLKUTI4TPCHARl: QUOTA_ERRTRDCHARBREADBLKTWRCHARBWRITBLK1GETERROPENBLKSTDEV YESTBLK`l:IFERRjIFFTTINITCHARINTERPIROUNDLENGTHLIB$EXECUTE_CLIMATCH>MOVCHMOVE MUL_CX_CK MUL_CX_R6OPEN_ISAM_DUPL_KEY@OUTBOUTCOUTI2OUTI4fOUTPUTOUTR4OUTR8^PAGErPCUR PLOTPNUMQDEFdQDEFAlSCALE SETSCREENz SETWINDOWSTDEVTAPEIOpTAPEMSGTRNLOG2VACCUMDVAXTIMERjVERSION6WAIT&ICXPRINTSCALE ZEROCARDt6OPEN_ISAM_DUPL_KEY@OUTBOUTCOUTI2OUTI4fOUTPUTOUTR4OUTR8^PAGETPCHARrPCUR PLOTPNUMQDEFdQDEFAQDEFTQDFTRl: QUOTA_ERRTRDCHARBREADBLKr REVERSE_OFFr REVERSE_ONrRUBOUTlSCALE SETSCREENJSETWILDz SETWINDOWSTDEVpTAPEMSGTRNLOG2VACCUM2VACC_CXDVAXTIMERjVERSION6WAITTWRCHARBWRITBLK SETSCREENz SETWINDOWSTDEVTAPEIOpTAPEMSGTRNLOG2VACCUMDVAXTIMERjVERSION6WAITJWILDCARDxYESZEROTAPEIOpTAPEMSGTRNLOG2VACCUM2VACC_CXDVAXTIMERjVERSION6WAITJWILDCARDTWRCHARBWRITBLKxYES 1`&rg00ACCCXR030-APR-1982 10:51 VAX-11 Macro V02.45-/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) ACCCXR  . ABS . . BLANK .Pk$CODEPA AACC_CX_R&kЬPЬQЬ RмWVX2T2STSSV2STSSXWV @V@VƏVVX @X@XƏXX$ ACCCXRACC_CX_R BCRCOM1 `CRCOM2 2CRNEG1 PCRNEG2 ;CRPOS1 YCRPOS2 IA IB  IC LOOPN, . BLANK .$CODEkww1/R/0/ACCUM012-FEB-1982 10:27 VAX-11 Macro V02.45,/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) ACCUM  . ABS . . BLANK .PL$CODEPA AACCUM&LЬPЬQЬ RмWXV2`S2TSTUUVXPWV  @V@VƏVV  ACCUM ACCUM ACRCOM 1CRNEG :CRPOS IA IB  IC INCIA LOOPN, . BLANK .$CODELww1`Kg011ATIMER01 8-Jun-1981 11:31 8-Jun-1981 11:31VAX-11 FORTRAN V2.2-40 ATIMER ATIMERP  ELAPSED TIME: ::$P  $,(PN[ FOR$DATE_T_DS( FOR$TIME_T_DS~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_ENDѼ ݼ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_ENDYѼRi0 FOR$SECNDSPk8 FOR$SECNDSPiFaFPJPNPDaFPCPiZG7ZPJPNPD7PCPZ  ~ FOR$WRITE_SF߫ FOR$IO_L_R߫ FOR$IO_L_R߫  FOR$IO_F_R FOR$IO_ENDѼ  ݼ FOR$WRITE_SF߫ FOR$IO_ L_R߫ FOR$IO_L_R߫  FOR$IO_F_R FOR$IO_ENDRi0 FOR$SECNDSPk NATIMERY ICHAN ITYPDATEBUF TIMEBUF  ELAPS% FOR$DATE_T_DS FOR$TIME_T_DS 100 T1 FOR$SECNDS* IEHR IEMIN  ESECI$CODE,$PDATAT$LOCALCATIMER OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_F_R FOR$IO_T_DS FOR$WRITE_SFIP+PP5%Iww1 d0/BLKIO0 8-OCT-1982 11:32 VAX-11 Macro V03-00,/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) BLKIO X SS$_BADPARAM SYS$ASSIGN SYS$CLOSE SYS$DASSGNSYS$OPENSYS$QIOW . ABS . . BLANK .P$ABS$PPPPP OPENBLK&B^<ޭ,` <0ޭ,`0,`PTTQ(TPU,``R`}PPQЏTSYS$OPENP.(V(V VW:gVT SYS$CLOSEP|~? SYS$ASSIGNPBЏ|~|~߭|~ FAB$B_BKS FAB$B_BLN5 FAB$B_DNSJ FAB$B_DSBMSK FAB$B_FAC4 FAB$B_FNS? FAB$B_FSZ FAB$B_ORG FAB$B_RAT FAB$B_RFM FAB$B_RTV FAB$B_SHR FAB$C_BIDP FAB$C_BLN FAB$C_FIX0 FAB$C_HSH  FAB$C_IDX FAB$C_MAXRFM FAB$C_RELFAB$C_RFM_DFLT FAB$C_SEQ FAB$C_STM FAB$C_STMCR FAB$C_STMLF FAB$C_UDF FAB$C_VAR FAB$C_VFCP FAB$K_BLN FAB$L_ALQ FAB$L_CTX@ FAB$L_DEV0 FAB$L_DNA, FAB$L_FNA FAB$L_FOP  FAB$L_JNL8 FAB$L_MRN( FAB$L_NAMD FAB$L_SDC FAB$L_STS  FAB$L_STV$ FAB$L_XAB  FAB$M_BIO FAB$M_BLK@ FAB$M_BRO  FAB$M_CBT FAB$M_CIFFAB$M_CR FAB$M_CTG FAB$M_DEL  FAB$M_DFW FAB$M_DLT FAB$M_DMO FAB$M_ESC FAB$M_EXE FAB$M_FTN FAB$M_GET FAB$M_INP@ FAB$M_JNL@ FAB$M_KFO FAB$M_MSE FAB$M_MXV FAB$M_NAM FAB$M_NEF FAB$M_NFS  FAB$M_NIL  FAB$M_OFP FAB$M_POS FAB$M_PPF@ FAB$M_PPF_IND? FAB$M_PPF_RAT FAB$M_PRN FAB$M_PUT FAB$M_RCK FAB$M_RWC FAB$M_RWO@ FAB$M_SCF FAB$M_SHRDEL FAB$M_SHRGET FAB$M_SHRPUT FAB$M_SHRUPD  FAB$M_SPL@ FAB$M_SQO FAB$M_SUP FAB$M_TEF FAB$M_TMD FAB$M_TMP FAB$M_TRN FAB$M_UFM FAB$M_UFO FAB$M_UPD@ FAB$M_UPI FAB$M_WCK FAB$S_ORG FAB$S_PPF_RAT FAB$V_BIO FAB$V_BLK FAB$V_BRO FAB$V_CBT FAB$V_CIFFAB$V_CR FAB$V_CTG FAB$V_DEL FAB$V_DFW FAB$V_DLT  FAB$V_DMO FAB$V_ESC FAB$V_EXE FAB$V_FTN FAB$V_GET FAB$V_INP FAB$V_JNL FAB$V_KFO FAB$V_MSE FAB$V_MXV FAB$V_NAM  FAB$V_NEF FAB$V_NFS FAB$V_NIL FAB$V_OFP FAB$V_ORG FAB$V_POS FAB$V_PPF FAB$V_PPF_IND FAB$V_PPF_RAT FAB$V_PRN FAB$V_PUT FAB$V_RCK  FAB$V_RWC FAB$V_RWO FAB$V_SCF FAB$V_SHRDEL FAB$V_SHRGET FAB$V _SHRPUT FAB$V_SHRUPD  FAB$V_SPL FAB$V_SQO FAB$V_SUP FAB$V_TEF FAB$V_TMD FAB$V_TMP FAB$V_TRN FAB$V_UFM FAB$V_UFO FAB$V_UPD FAB$V_UPI  FAB$V_WCK< FAB$W_BLS FAB$W_DEQH FAB$W_GBC FAB$W_IFI6 FAB$W_MRST FAB_BLOCKT FAB_BLOCK_BIDU FAB_BLOCK_BLN FAB_BLOCK_FNA FAB_BL!OCK_FNS! FIB$B_ALALIGN  FIB$B_ALOPTS FIB$B_DID_NMX FIB$B_DID_RVN  FIB$B_FID_NMX FIB$B_FID_RVN' FIB$B_LOC_NMX& FIB$B_LOC_RVN FIB$B_WSIZE  FIB$C_ACCDATA FIB$C_ADD_QUOTA, FIB$C_ALCDATA FIB$C_CYL FIB$C_DIRDATA FIB$C_DSA_QUOTA FIB$C_ENA_QUOTA FIB$C_EXA_QUOTA  FIB$C_EXTDATA FIB$C_ILLEGAL FIB$C_"LBN0 FIB$C_LENGTHFIB$C_LOCK_VOL FIB$C_MOD_QUOTA FIB$C_MTALEN FIB$C_NEXTVOL FIB$C_POSEND FIB$C_REMAPFIB$C_REM_QUOTAFIB$C_REWINDFILFIB$C_REWINDVOL FIB$C_RFI FIB$C_SPACEFIB$C_UNLK_VOL FIB$C_USEREOT FIB$C_VBN  FIB$K_ACCDATA, FIB$K_ALCDATA FIB$K_DIRDATA  FIB$K_EXTDATA0 FIB$K_LENGTH# FIB$K_MTALEN FIB$L_ACCTLFIB$L_CNTRLVAL FIB$L_EXSZ FIB$L_EXVBN(FIB$L_LOC_ADDR FIB$L_WCC FIB$M_ALCON FIB$M_ALCONB FIB$M_ALDEF  FIB$M_ALLNAMFIB$M_ALLOCATR FIB$M_ALLTYP FIB$M_ALLVER FIB$M_ALL_GRP FIB$M_ALL_MEMFIB$M_BLK_LOCK FIB$M_CURPOS FIB$M_DLOCK FIB$M_EXACT FIB$M_EXECUTE$ FIB$M_EXTEND FIB$M_FILCON FIB$M_FINDFID FIB$M_HIGHVER@ FIB$M_LOWVER FIB$M_MARKBADFIB$M_MOD_OVERFIB$M_MOD_PERM FIB$M_MOD_USE FIB$M_NEWVERFIB$M_NOCHARGEFIB$M_NOHDREXT FIB$M_NOLOCK FIB$M_NOREAD FIB$M_NORECORD FIB$M_NOTRUNC FIB$M_NOWRITE FIB$M_ONCYLFIB$M_PRSRV_ATR FIB$M_READCK% FIB$M_REWIND FIB$M_RMSLOCK@ FIB$M_SEQONLY FIB$M_SPOOLFIB$M_SUPERSEDE FIB$M_TRUNC@ FIB$M_UPDATE FIB$M_WILD FIB$M_WRITE  FIB$M_WRITECKFIB$M_WRITETHRU  FIB$S_ALLOC FIB$S_DID FIB$S_FID FIB$S_LOC_FID FIB$V_ALCON FIB$V_ALCONB FIB$V_ALDEF FIB$V_ALLNAMFIB$V_ALLOCATR FIB$V_ALLTYP& FIB$V_ALLVER FIB$V_ALL_GRP FIB$V_ALL_MEMFIB$V_BLK_LOCK FIB$V_CURPOS FIB$V_DLOCK FIB$V_EXACT FIB$V_EXECUTE FIB$V_EXTEND FIB$V_FILCON  FIB$V_FINDFID FIB$V_HIGHVER FIB$V_LOWVER  FIB$V_MARKBADFIB$V_MOD_OVERFIB$V_MOD_PERM FIB$V_MOD_USE  FIB$V_NEWVERFIB$V_NOCHARGE FIB$V_NOHDREXT' FIB$V_NOLOCK  FIB$V_NOREADFIB$V_NORECORD  FIB$V_NOTRUNC FIB$V_NOWRITE FIB$V_ONCYLFIB$V_PRSRV_ATR  FIB$V_READCK FIB$V_REWIND FIB$V_RMSLOCK FIB$V_SEQONLY FIB$V_SPOOL FIB$V_SUPERSEDE FIB$V_TRUNC FIB$V_UPDATE FIB$V_WILD FIB$V_WRITE FIB$V_WRITECKFIB$V_WRITETHRU" FIB$W_ALLOCFIB$W_CNTRLF(UNC  FIB$W_DID  FIB$W_DID_NUM FIB$W_DID_RVN  FIB$W_DID_SEQ FIB$W_EXCTL FIB$W_FID FIB$W_FID_NUM FIB$W_FID_RVN FIB$W_FID_SEQ" FIB$W_LOC_FID" FIB$W_LOC_NUM& FIB$W_LOC_RVN$ FIB$W_LOC_SEQ FIB$W_NMCTL,FIB$W_VERLIMIT FIB_BLOCKFIB_BLOCK_ACCTL FIB_BLOCK_FID FIB_DESCRFIB_DESCR_ADDR FIB_)DESCR_LEN FILE_NAMECFILLFAB]FILLNAM  IBUF ICHAN IO$K_LOOPTEST  IO$K_PTPBSC IO$K_SRRUNOUT IO$M_ABORT IO$M_ACCEPT@ IO$M_ACCESS IO$M_ATTNAST@ IO$M_BINARY@ IO$M_CANCTRLO IO$M_CECYL IO$M_CLEARIO$M_CLR_COUNTIO$M_CNTRLENTRY@ IO$M_COMMOD IO$M_CREATE IO$M_CTRL IO$M_CTRLCA*ST IO$M_CTRLYAST IO$M_CVTLOW IO$M_CYCLE@IO$M_DATACHECK IO$M_DATAPATH@ IO$M_DELDATA IO$M_DELETEIO$M_DIAGNOSTIC IO$M_DMOUNT IO$M_DSABLMBXIO$M_DSABL_ALT IO$M_ENABLMBXIO$M_ENABL_ALT@ IO$M_ESCAPE IO$M_EXTEND? IO$M_FCODE@ IO$M_FORCE IO$M_HANGUP IO$M_INCLUDE IO$M_INHERLOG+IO$M_INHEXTGAP IO$M_INHRETRY IO$M_INHSEEK IO$M_INTCLOCK@IO$M_INTERRUPT IO$M_INTSKIPIO$M_LASTBLOCK IO$M_LINE_OFF IO$M_LINE_ON IO$M_LOOP IO$M_LOOP_EXT  IO$M_LPBEXT@ IO$M_LPBINT@ IO$M_MAINTIO$M_MAINTLOOP@ IO$M_MORE IO$M_MOUNTIO$M_MOVETRACKD IO$M_MULTIPLE@IO$M_NOCTSWAITIO$M_NODSRWAIT,@ IO$M_NOECHO IO$M_NOFILTR IO$M_NOFORMAT@ IO$M_NOMRSP@IO$M_NOW IO$M_NOWAIT IO$M_OPPOSITE IO$M_OUTBAND IO$M_PACKED IO$M_PURGEIO$M_QUALIFIED IO$M_RD_COUNT@ IO$M_RD_MEM IO$M_RD_MODEM IO$M_READATTN IO$M_READCSR@ IO$M_REDIRECT  IO$M_REFRESH IO$M_RESET@ IO$M_REVERSE IO$M_SETBSIZE- IO$M_SETCUADRIO$M_SETENQCNT@ IO$M_SETEVF IO$M_SETFNCTIO$M_SETPOOLSZ IO$M_SETPROTIO$M_SET_MODEM IO$M_SHUTDOWNIO$M_SKPSECINH IO$M_SLAVLOOP@ IO$M_STARTUP IO$M_SWAP IO$M_SYNCH IO$M_TIMEDIO$M_TRMNOECHO@IO$M_TYPEAHDCNT IO$M_UNLOOP@ IO$M_WORD IO$M_WRTATTN IO$S_FCODE IO$V_ABOR.T IO$V_ACCEPT IO$V_ACCESS IO$V_ATTNAST IO$V_BINARY IO$V_CANCTRLO  IO$V_CECYL  IO$V_CLEAR IO$V_CLR_COUNTIO$V_CNTRLENTRY IO$V_COMMOD IO$V_CREATE  IO$V_CTRL IO$V_CTRLCAST IO$V_CTRLYAST IO$V_CVTLOW  IO$V_CYCLEIO$V_DATACHECK  IO$V_DATAPATH IO$V_DELDATA IO$V_DELETEIO$V_DIAGNOSTI/C  IO$V_DMOUNT  IO$V_DSABLMBX IO$V_DSABL_ALT IO$V_ENABLMBX IO$V_ENABL_ALT IO$V_ESCAPE IO$V_EXTEND IO$V_FCODE IO$V_FORCE  IO$V_HANGUP  IO$V_INCLUDE  IO$V_INHERLOG IO$V_INHEXTGAP IO$V_INHRETRY  IO$V_INHSEEK  IO$V_INTCLOCKIO$V_INTERRUPT IO$V_INTSKIP IO$V_LASTBLOCK  IO$V_LINE_OFF  0IO$V_LINE_ON IO$V_LOOP  IO$V_LOOP_EXT  IO$V_LPBEXT IO$V_LPBINT IO$V_MAINT IO$V_MAINTLOOP IO$V_MORE  IO$V_MOUNTIO$V_MOVETRACKD IO$V_MULTIPLEIO$V_NOCTSWAITIO$V_NODSRWAIT IO$V_NOECHO  IO$V_NOFILTR IO$V_NOFORMAT IO$V_NOMRSPIO$V_NOW IO$V_NOWAIT  IO$V_OPPOSITE  IO$V_OUTBAND IO$1V_PACKED  IO$V_PURGEIO$V_QUALIFIED IO$V_RD_COUNT IO$V_RD_MEM IO$V_RD_MODEM IO$V_READATTN IO$V_READCSR IO$V_REDIRECT  IO$V_REFRESH  IO$V_RESET IO$V_REVERSE  IO$V_SETBSIZE IO$V_SETCUADR IO$V_SETENQCNT IO$V_SETEVF  IO$V_SETFNCT IO$V_SETPOOLSZ  IO$V_SETPROT IO$V_SET_MODEM IO$V_SHUTDOWN2 IO$V_SKPSECINH IO$V_SLAVLOOP IO$V_STARTUP  IO$V_SWAP  IO$V_SYNCH IO$V_TIMED IO$V_TRMNOECHOIO$V_TYPEAHDCNT IO$V_UNLOOP IO$V_WORD IO$V_WRTATTN2 IO$_ACCESS8IO$_ACPCONTROL IO$_AVAILABLE IO$_CLEAN<IO$_CONINTREAD=IO$_CONINTWRITE3 IO$_CREATE4 IO$_DEACCESS5 IO$_DELETE IO$_DIAGNOSE3 IO$_DRVCLRIO$_DSE: IO$_ENDRU1; IO$_ENDRU2 IO$_ERASETAPE7 IO$_FORCE IO$_FORMATIO$_INITIALIZE IO$_LOADMCODE/ IO$_LOGICAL6 IO$_MODIFY9 IO$_MOUNT6IO$_NETCONTROLIO$_NOP IO$_OFFSET IO$_PACKACK IO$_PHYSICAL IO$_QSTOP  IO$_RDSTATS IO$_READHEAD< IO$_READINIT! IO$_READLBLK 4 IO$_READPBLKIO$_READPRESET7IO$_READPROMPTIO$_READTRACKD1 IO$_READVBLK IO$_RECAL IO$_RELEASE IO$_REREADN IO$_REREADP IO$_RETCENTER$ IO$_REWIND" IO$_REWINDOFF  IO$_SEARCHIO$_SEEK IO$_SENSECHAR' IO$_SENSEMODE IO$_SETCHAR7 IO$_SETCLOCK IO$_SETCLOCKP# IO$_SETMODE% IO$_SKIPFILE&5IO$_SKIPRECORD IO$_SPACEFILE IO$_SPACERECORD8 IO$_STARTDATAIO$_STARTDATAPIO$_STARTMPROCIO$_STARTSPNDLIO$_STOP:IO$_TTYREADALL;IO$_TTYREADPALL IO$_UNLOAD? IO$_VIRTUAL IO$_WRITECHECKIO$_WRITECHECKH  IO$_WRITEHEAD  IO$_WRITELBLK IO$_WRITEMARK( IO$_WRITEOF  IO$_WRITEPBLK IO$_WRITERET6IO$_WRITETRACKD0 IO$_WRITEVBLK IO$_WRTTMKR IOSTAT IO_STATUS ISTBLK)MAKEFABNMAKENAM NAM$B_BID NAM$B_BLN9 NAM$B_DEV/ NAM$B_DID_NMX. NAM$B_DID_RVN: NAM$B_DIR  NAM$B_ESL  NAM$B_ESS) NAM$B_FID_NMX( NAM$B_FID_RVN; NAM$B_NAME8 NAM$B_NODE NAM$B_NOP  NAM$B_RFS NAM$B_RSL7 NAM$B_RSS< NAM$B_TYPE= NAM$B_VER NAM$C_BID` NAM$C_BLN`NAM$C_BLN_DIRWC8 NAM$C_BLN_V2 NAM$C_DVI NAM$C_FCS11 NAM$C_MAXRSSNAM$C_MAXRSSLCL NAM$C_RMS11 NAM$C_RMS20 NAM$C_RMS32 NAM$C_RT11FSNAM$C_TOPS10FSNAM$C_TOPS20FS NAM$C_UFS` NAM$K_BLN`NAM$K_BLN_DIRWC8 NAM$K_BLN_V2D NAM$L8_DEVH NAM$L_DIR  NAM$L_ESA4 NAM$L_FNBL NAM$L_NAME@ NAM$L_NODE NAM$L_RLF NAM$L_RSAP NAM$L_TYPET NAM$L_VER0 NAM$L_WCCNAM$M_CNCL_DEVNAM$M_DIR_LVLS NAM$M_EXP_DEV@ NAM$M_EXP_DIRNAM$M_EXP_NAMENAM$M_EXP_TYPE NAM$M_EXP_VER NAM$M_GRP_MBR NAM$M_HIGHVER NAM$M_IFI@ NAM$M_LOWVER9 NAM$M_NODE NAM$M_PPF NAM$M_PWD NAM$M_QUOTED NAM$M_ROD NAM$M_ROOT_DIR NAM$M_SOD@ NAM$M_SRCHNMF NAM$M_SVCTXNAM$M_WILDCARDNAM$M_WILD_DIRNAM$M_WILD_GRPNAM$M_WILD_MBR NAM$M_WILD_NAMENAM$M_WILD_SFD1NAM$M_WILD_SFD2NAM$M_WILD_SFD3NAM$M_WILD_SFD4 NAM$M_WILD_SFD5@NAM$M_WILD_SFD6NA:M$M_WILD_SFD7NAM$M_WILD_TYPENAM$M_WILD_UFDNAM$M_WILD_VER NAM$S_DIDNAM$S_DIR_LVLS NAM$S_DVI NAM$S_FID NAM$T_DVI NAM$V_CNCL_DEVNAM$V_DIR_LVLS NAM$V_EXP_DEV NAM$V_EXP_DIRNAM$V_EXP_NAMENAM$V_EXP_TYPE NAM$V_EXP_VER NAM$V_GRP_MBR NAM$V_HIGHVER NAM$V_IFI NAM$V_LOWVER NAM$V_NODE; NAM$V_PPF NAM$V_PWD NAM$V_QUOTED NAM$V_ROD NAM$V_ROOT_DIR NAM$V_SOD NAM$V_SRCHNMF NAM$V_SVCTXNAM$V_WILDCARDNAM$V_WILD_DIRNAM$V_WILD_GRPNAM$V_WILD_MBRNAM$V_WILD_NAMENAM$V_WILD_SFD1NAM$V_WILD_SFD2NAM$V_WILD_SFD3NAM$V_WILD_SFD4NAM$V_WILD_SFD5NAM$V_WILD_SFD6NAM$V_WILD_SFD7<NAM$V_WILD_TYPENAM$V_WILD_UFDNAM$V_WILD_VER* NAM$W_DID* NAM$W_DID_NUM. NAM$W_DID_RVN, NAM$W_DID_SEQ$ NAM$W_FID$ NAM$W_FID_NUM( NAM$W_FID_RVN& NAM$W_FID_SEQ NAM_BLOCK NAM_BLOCK_BID NAM_BLOCK_BLNNAM_BLOCK_DVI_LN NAM_BLOCK_DVI_NM NAM_BLOCK_FID NBLK hOPARGS |OPENOPEN_ERR O=PNSTKRMS$V_STVSTATUSRMS$_ABORMS$_ACCRMS$_ACSZRMS$_ACTRMS$_AIDRMS$_ALNRMS$_ALQ RMS$_ANIRMS$_AOPRMS$_ATRRMS$_ATWRMS$_BESRMS$_BKS$RMS$_BKZ,RMS$_BLNRMS$_BOF4RMS$_BUGD RMS$_BUG_DAP< RMS$_BUG_DDIL RMS$_BUG_XX2T RMS$_BUG_XX3\ RMS$_BUG_XX4d> RMS$_BUG_XX5l RMS$_BUG_XX6t RMS$_BUG_XX7| RMS$_BUG_XX8 RMS$_BUG_XX9RMS$_CAARMS$_CCFRMS$_CCRRMS$_CDARMS$_CHGRMS$_CHKRMS$_CHNRMS$_CODQ RMS$_CONTROLC  RMS$_CONTROLO RMS$_CONTROLYRMS$_CRC RMS$_CRE RMS$_CREATEDi RMS$_CRE_STML RMS$_CRMPRMS$_CURRMS$_DAC?RMS$_DANԇ RMS$_DEADLOCKbRMS$_DELĄRMS$_DEVlRMS$_DFL̄RMS$_DIRԄRMS$_DME܄RMS$_DNAJRMS$_DNFrRMS$_DNR:RMS$_DPERMS$_DTPRMS$_DUPRMS$_DVI4RMS$_ENQRMS$_ENT$RMS$_ENVzRMS$_EOFRMS$_ESARMS$_ESLRMS$_ESS܇ RMS$_EXENQLM‚RMS$_EXP"RMS$_EXT RMS$_FAB@RMS$_FACRMS$_FEXRMS$_FLGRMS$_FLK$RMS$_FNA*RMS$_FNDRMS$_FNF,RMS$_FNM<RMS$_FOP4RMS$_FSZćRMS$_FTMDRMS$_FUL̇RMS$_GBCLRMS$_IALTRMS$_IANTRMS$_IBF|RMS$_IBKRMS$_IDR\RMS$_IDX$RMS$_IFAdRMS$_IFIdRMS$_IFLlRMS$_IMXtRMS$_IOP|RMS$A_IRCRMS$_ISIRMS$_KBFRMS$_KEY1RMS$_KFFtRMS$_KNMRMS$_KRFRMS$_KSIRMS$_KSZRMS$_LANRMS$_LBLRMS$_LEXRMS$_LNEąRMS$_LOC4RMS$_MBC2RMS$_MKD̅RMS$_MRNԅRMS$_MRS܅RMS$_NAMRMS$_NEFLRMS$_NET< RMS$_NETFAILRMS$_NIDʂRMS$_NMFRMS$_NOD RMBS$_NORMALRMS$_NPK9 RMS$_OK_ALKA RMS$_OK_DEL RMS$_OK_DUP RMS$_OK_IDXQ RMS$_OK_LIMY RMS$_OK_NOP! RMS$_OK_RLKI RMS$_OK_RNF) RMS$_OK_RRLa RMS$_OK_WATRMS$_ORD RMS$_ORGRMS$_PBF  RMS$_PENDINGȁRMS$_PESRMS$_PLG,RMS$_PLV$RMS$_POS,RMS$_PRMRMS$_PRV4RMS$_QUO<RMS$_RCABDRMS$_RACLRMS$_RATTRMS$_RBF\RMS$_REFRMS$_RERRMS$_REX\RMS$_RFAdRMS$_RFMlRMS$_RHBtRMS$_RLFRMS$_RLKRMS$_RMVRMS$_RNFRMS$_RNL|RMS$_ROPRMS$_RPLRMS$_RRVڂRMS$_RSA<RMS$_RSLRMS$_RSSRMS$_RSTRMS$_RSZRMS$_RTBRMS$_RVURMS$_SEGDRMS$_SEQRMS$_SHRRMS$_SIZRMS$_SNERMS$_SPEBRMS$_SPLĆRMS$_SQO RMS$_STALL̆RMS$_STKRMS$_STRRMS$_SUC҂RMS$_SUP1RMS$_SUPERSEDED RMS$_SUPPORTԆRMS$_SYN RMS$_SYSj RMS$_TEMP1RMS$_TMORMS$_TNS܆RMS$_TRERMS$_TYPRMS$_UBFRMS$_UPIRMS$_USZ ERMS$_VERRMS$_VOL,RMS$_WBERMS$_WCCRMS$_WERDRMS$_WLDRMS$_WLKRMS$_WPLRMS$_WSF RMS$_XAB SAVDVI . BLANK .ww1X;012CLIARGS0126-Nov-1980 09:3026-Nov-1980 09:30VAX-11 FORTRAN V2.0-2!CLIARGSCLIARGSPPH[}PQPkռ FSYS$CLI޼޼ ޼$CLIPARSE HCLIARGSb LCHAR STRING  ITYPE LARG(AFSYS$CLICLIPARSE=$CODE$PDATAD$LOCALP=ww1 +X;013CLIPARSE0126-Nov-1980 09:3126-Nov-1980 09:31VAX-11 FORTRAN V2.0-2#CLIPARSECLIPARSEPCLIARGS:CLIPARSE ERROR: SUPPLIED STRING TOGO SHORTPPP PP7+ww1 ͂013CORNTURN0113-Jul-1981 11:3213-Jul-1981 11:32VAX-11 FORTRAN V2.3-53#CORNTURNCORNTURN P IPO[м4м <ЬޫPFOR$INI_DES2_R3мRUUR޻$XkVмSUWWSū(UTWTYIhVū(WPUPZJhIhVJhSWRUVkWU_ OCORNTURNt$CODE$PDATA@$LOCALFOR$INI_DES2_R3 -PA@P# tww1 g W014 CREATEBLK0113-Jan-1982 10:0113-Jan-1982 10:01VAX-11 FORTRAN V2.4-64% CREATEBLK CREATEBLKPJ QpPH[}PQ P 0 LIB$GET_LUNP^<8IFERR^޼h@FOR$OPENPk FOR$WRITE_DU߫ FOR$IO_X_DA FOR$IO_ENDݼk FOR$WRITE_DU߫ FOR$IO_X_DA FOR$IO_END˄ FOR$CLOSE0 LIB$FREE_LUNP^<8IFERRЫ 0 LIB$FREE_LUNP^<8IFERR H CREATEBLK`FILENAME NUMBLOCKKS  ISTAT+IBUFIFERR LIB$GET_LUN LUNFOR$OPEN JSTAT 900 FOR$CLOSE LIB$FREE_LUN$CODE$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_X_DA FOR$WRITE_DUAPYww1@R/0/CXML1012-FEB-1982 10:49 VAX-11 Macro V02.45,/LIS/ENABLE=(DEBUG,GLOBAL,TR LACEBACK) CXML1  . ABS . . BLANK .P}$CODEPO OCXML1&}Z2Q2JR2T2JUTQVURWWVX  Ï@XY@XYƏYY RTVUQWVWXJ  Ï@XY@XYƏYYJ   CXML1 CXML1 pCICOM ICIMPY ^CINEG hCIPOS WCIZER >CRCOM CRMPY ,CRNEG 6CRPOS %CRZER IA IB  IC M*L2 \L5 |RETN, . BLANK .$CODE}ww1 G0/CXMUL0 8-JUN-1982 16:02 VAX-11 Macro V02.45,/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) CXMUL  . ABS . . BLANK .P$CODEPO OCXMUL&O OMUL_CX&ЬPЬSЬ Z[2Q2R2T2UTQVURWWVX Ï@XY@XYxYYYRTVUQWVWXN Ï@XY@XYxYYY[2 CXMUL CXMUL MUL_CX3 uCICOM OCIMPY cCINEG mCIPOS ]CIZER GCRCOM !CRMPY 5CRNEG ?CRPOS /CRZER IA IB  IC 3L2 aL5 LOOP}LOOPINCN START, . BLANK .$CODEww1R/01O2CXPRINT0110-Feb-1982 12:3210-Feb-1982 12:32VAX-11 FORTRAN V2.4-64!CXPRINTCXPRINT9P  N  I-VALUE Q-VALUE MAGNITUDE  PHASE (RAD) PHASE DIF   P  PO[мLЬ(ޫ$PFOR$INI_DES2_R3 FOR$WRITE_SF FOR$IO_ENDռ ݼ  FOR$WRITE_SF FOR$IO_ENDXмWѫW1޻4Zū8YYP P P@jYP P P@j EPE Q@QPP MTH$SQRT_R3PԫSPP MTH$ATAN2PCXռ Kݼ  FOR$WRITE_SF߫ FOR$IO_L_RYP P P@j FOR$IO_F_RYP P P@j FOR$IO_F_R߫ FOR$IO_F_R߫ FOR$IO_F_R߫ FOR$IO_F_R FOR$IO_ENDK FOR$WRITE_SF߫ FOR$IO_L_RYP P P@j FOR$IO_F_RY Y YIj FOR$IO_F_R߫ FOR$IO_F_R߫ FOR$IO_F_R߫ FOR$IO_F_R FOR$IO_ENDЫXWXk OCXPRINTY $BN  LPFILQE OPHI FI  FQ AMTH$SQRT  PH MTH$ATAN2 PH2$CODE[$PDATA\$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_F_R FOR$WRITE_SFFOR$INI_DES2_R3 MTH$SQRT_R37P`PHP Pm ww1 ˀ012DCLARGS0120-Jan-1982 16:4420-Jan-1982 16:44VAX-11 FORTRAN V2.4-64!DCLARGRSDCLARGSP$$$ $ $$PCP[P P PPP PP PPPP P/P$P T/P4P9PL?P6EP0KP*QP$XPpPuP{PPXLww1@ʹ014 DELTATIME0122-Jul-1982 12:2522-Jul-1982 12:25VAX-11 FORTRAN V3.0-2 DELTATIME96`k >"DBB1:[SORRELL.TEST]DELTATIME.FOR;3 <@=`{V#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;1$SSDEF 96U`k >"DBB1:[SORRELL.TEST]DELTATIME.FOR;3= 'P(P(08 DELTATIME;PO[}PQP }PQP} PQ PЬ(4,n  ޻4VԦԦ< WԫYYW< X YYPPZ YXPZP-PJ nWYWYkD SYS$BINTIMPPЫPP SYS$GETTIMPPЫPX SYS$BINTIMPPЫPdLIB$SUBXPPЫVPt SYS$ASCTIMPPЫPЫЫЫP  O DELTATIME (BASE 0DEL8FIN_ASC@FIN_SYS/ SYS_BASE.SYS_DEL.SYS_FIN I LEN_BASE; SYS$BINTIM SYS$ASCTIM SYS$GETTIMLIB$SUBX$BASE_SET- $CODE$PDATA$LOCAL>XP+{PPPPPPPWP1% ww1[Iӊ08-20-827DETCXR08-20-8214-SEP-1982 16:29 VAX-11 Macro V03-00-/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) DETCXR  MTH$SQRT_R3 . ABS . . BLANK .P$CODEP   ICABS&Ь[ЬZмYPGX   DET_CX_R&JЬ[ЬZм YPGXMPDPPMQDQQ@QP MTH$SQRT_R3QPXPGPIPXY T DET_CX_R_AP&cЬ[ЬZм YPPP2PPQQQ2QQPQPRQSQRPSď0S@SxSSRSTT<TTYL DETCXRDET_CX_RT DET_CX_R_AP ICABS INBUF ML$2 ,LOOP bLOOPAP MPY  NCMPLX_DET NCMPLX_ICABSOBUF_DET START STORE uXIPOS XRLEXI jXRPOS, . BLANK .$CODEYww1 Lh011FERROR0110-Jun-1981 15:2710-Jun-1981 15:27VAX-11 FORTRAN V2.2-40 FERROR FERRORGP) System Cond Val=  (Hex)P,(0PH[}PQPk SS$_NORMALPѼPռvP?yPPEPPPPUPIPIP0;/ww1{R/014 FFT_TABLE0112-Feb-1982 11:0512-Feb-1982 11:05VAX-11 FORTRAN V2.4-64% FFT_TABLE FFT_TABLEP^PO[мDЬ ޫPFOR$INI_DES2_R3PIAkUPGXXUNUPGPkPRPH>,WЫHVNXPEVPYYP MTH$COS_R4DPKPPū0XZZQ QQPAgYP MTH$SIN_R4DPKPPZ ZZPJgUXVUX  O FFT_TABLETN ICSSN PI N2 SCFAC I AINCwMTH$COSMTH$SIN$CODE$PDATAL$LOCALFOR$INI_DES2_R3 MTH$SIN_R4 MTH$COS_R47Ph _ww1` Hd01<FIELDATA_TO_ASCII0126-Apr-1982 10:1426-Apr-1982 10:14VAX-11 FORTRAN V2.5-665FIELDATA_TO_ASCIIFIELDATA_TO_ASCIIP @P@@?@p LIB$MOVTC@PHQt@[]#^ ABCDEFGHIJKLMNOPQRSTUVWXYZ)-+<=>&$*(%:?!,\0123456789';/."_PH@[}PQPk}PQ P8 LIB$MOVTC$ HFIELDATA_TO_ASCII]@ SOURCE_ `STRINGH DEST_STRING.TRTABLE@@?; LIB$MOVTC)$CODE$PDATA$LOCAL)ww1@X;012FILINIT0126-Nov-1980 09:3026-Nov-1980 09:30VAX-11 FORTRAN V2.0-2!FILINITFILINITP PH[}PQPk޼FOR$OPENP޼0( FOR$aCLOSE޼@8FOR$OPEN HFILINIT  ICHANFILENAMEFOR$OPEN 1100; FOR$CLOSE?$CODE$PDATAd$LOCAL#P ?ww1`/X;010FPGET0126-Nov-1980 09:3026-Nov-1980 09:30VAX-11 FORTRAN V2.0-2 FPGET FPGET0PH[мPH[}PH[мP HFPGET* FPBUF DPBUF LOGBUFV b HDPGET HLGET*$CODE$PDATA$LOCAL *ww1X;010FPPUT0126-Nov-1980 09:3026-Nov-1980 09:30VAX-11 FORTRAN V2.0-2 FPPUT FPPUT$PH[мH[} HFPPUTH FPVALUE FPBUF DPBUF DPGET DPVALUED HDPPUT$CODE$PDATA$LOCAL cww1zX;011GETERR0126-Nov-1980 09:3126-Nov-1980 09:31VAX-11 FORTRAN V2.0-2 GETERR GETERRP6 ******************************** ERROR WARNING ******************************* Fortran Err (Decimal) occurred on Unit: System Cond Val=  (Hex) RMS Completion Code= (Hex), RMS Status Code= (Hex)7 ******************************************************************************d\PTPXA=EPHP[޼޼ FOR$ERRSNSռ~ FOR$WRITE_SF FOR$IO_ENDV~ FOR$WRITE_SF߼ FOR$IO_L_R߫ FOR$IO_L_R߼ FOR$IO_L_R߫ FOR$IO_L_Rk FOR$IO_L_R FOR$IO_ENDԼ ԼѼĀ Ѽ޼4$LIB$INSVм<8 LIB$SIGNAL~ FOR$WRITE_SF FOR$IO_END HGETERR IERCOND_VAL  EOF e NO_SUCH_FILEMSGPP RMS_STATUST RMS_COMPL XIUNIT FOR$ERRSNSLIB$INSV LIB$SIGNAL$CODEI$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$WRITE_SFPPP" ww1@HX;011GETJPI0126-Nov-1980 09:3126-Nov-1980 09:31VAX-11 FORTRAN V2.0-2 GETJPI GETJPI\PfQPH\[}PQPk}PQ PV#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;2$JPIDEF \85 ӊ h!DBB1:[SORRELL.VAXLIB]GETPRI.FOR;2  +$P GETPRIKPH [ఏ ޼ԫ찏޼ԫԫ SYS$GETJPIPk HGETPRI}BASE_PRICUR_PRI+IBUF+JBUF SYS$GETJPI  IER-<$CODE$PDATAH$LOCAL#p<ww1W|X; i01/GNUM0126-Nov-1980 09:3126-Nov-1980 09:31VAX-11 FORTRAN V2.0-2 GNUM GNUMPPH[kGCHARݚѫ0ѫ90 kP PkPCHARѫ ūkѫk« k kRUBOUT-PCHAR HGNUMG NUMICH ISUM MINUS 10 GCHAR  IASC LASTBPCHARRUBOUT$CODE$ jPDATA$$LOCAL1!P'P@P=FPWP[PkPqP $ww1 S/013ICXPRINT0112-Feb-1982 11:0512-Feb-1982 11:05VAX-11 FORTRAN V2.4-64#ICXPRINTICXPRINT>P  N  I-VALUE Q-VALUE MAGNITUDE  PHASE (RAD) PHASE DIF   P PO[мLЬ(ޫ$PFOR$INI_DES2_R3k FOR$WRITE_SF FOR$IO_ENDռ ݼ  FOR$WRITE_SF FOR$IO_ENDXмWѫW1>4Zū8YYP P PM@jYP P PM@j EPE Q@QP MTH$SQRT_R3PԫSS P MTH$ATAN2PCXռ Kݼ  FOR$WRITE_SF߫ FOR$IO_L_RYP P P?@j FOR$IO_W_RYP P P?@j FOR$IO_W_R߫ FOR$IO_F_R߫ FOR$IO_F_R߫ FOR$IO_F_R FOR$IO_ENDK FOR$WRITE_SF߫ FOR$IO_L_RYP P P?@j FOR$IO_W_RY Y lY?Ij FOR$IO_W_R߫ FOR$IO_F_R߫ FOR$IO_F_R߫ FOR$IO_F_R FOR$IO_ENDЫXWXk OICXPRINTY$BN  LPFILE OPHI FI  FQ AMTH$SQRT  PH MTH$ATAN2 PH2$CODEZ$PDATA\$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_F_R FOR$WRITE_SFFOR$INI_DES2_R3 MTH$SQRT_R3#7P`PNPP mPm ww1 ٕ0/IFERR028-JUN-1982 12:07 VAX-11 Macro V03-00"/LIST/ENABLE=(DBG,GBL,TBK) IFERR [ IFERRLIB$STOP  QUOTA_ERRSYS$FAOL SYS$GETJPI SYS$PUTMSG . ABS . . BLANK .P$ABS$PPѼݼLIB$STOP|~N SYS$GETJPIP^ЎPnF?SYS$FAOLP^ЎP<F^P` SYS$PUTMSGP^[}FPQ3Current quotas still available:!/AST (asynch. traps) !SL!/BIO (buffered I/Os) !SL!/BYT (buffered I/O bytes) !SL!/DIO (direct I/Os) !SL!/FIL (open files) o !SL!/PRC (subprocesses) !SL!/TQE (timer queue entries) !SLQ&Q IFERR $$T1 ASTCNT BIOCNT BIT... BUFF FBUFFER BYTCNT DIOCNT DONEFAKE_IT FILCNT BGOOD wGOOD2 GOOD3 IFERR NITEMS JPI$C_ADRTYPE JPI$C_CTLTYPE JPI$C_LISTEND JPI$C_PCBTYPE JPI$C_PHDTYPEp JPI$_ACCOUNT  JPI$_APTCNT JPI$_ASTACT JPI$_ASTCNT JPI$_ASTEN  JPI$_ASTLM JPI$_AUTHPRI JPI$_AUTHPRIV 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$_EFCSq JPI$_EFCU JPI$_EFWM JPI$_ENQCNT  JPI$_ENQLM JPI$_EXCVEC JPI$_FILCNT JPI$_FILLM JPI$_FINALEXC JPI$_FREP0VA JPI$_FREP1VAJPI$_FREPTECNT  JPI$_GPGCNTJPI$_GRPJPI$_IMAGECOUNT JPI$_IMAGNAME JPI$_IMAGPRIVJPI$_JOBPRCCNT JPI$_LASTADR  JPI$_LASTCTL" JPI$_LASTPCB JPI$_LASTPHDr JPI$_LOGINTIMJPI$_MEM JPI$_OWNER  JPI$_PAGEFLTSJPI$_PAGFILCNTJPI$_PAGFILLOCJPI$_PGFLQUOTAJPI$_PID  JPI$_PPGCNT JPI$_PRCCNT JPI$_PRCLM JPI$_PRCNAMJPI$_PRI  JPI$_PRIB JPI$_PROCPRIV JPI$_SITESPEC JPI$_STATEJPI$_STS!JPI$_SWPFILLOC JPI$_TERMINAL  JPI$_TMBU JPI$_sTQCNT JPI$_TQLMJPI$_UIC JPI$_USERNAME JPI$_VIRTPEAK JPI$_VOLUMES JPI$_WSAUTHJPI$_WSAUTHEXT JPI$_WSEXTENT JPI$_WSPEAK JPI$_WSQUOTA JPI$_WSSIZE NLEN NOQUO PRCCNT PRCLM QUOTA_ERR RLEN, SS$_ABORTSS$_ACCONFLICT  SS$_ACCVIO SS$_ACPVAFULSS$_ALRDYCLOSEDt StS$_ARTRES  SS$_ASTFLT4 SS$_BADATTRIB SS$_BADCHKSUM< SS$_BADESCAPESS$_BADFILEHDRSS$_BADFILENAME SS$_BADFILEVERD SS$_BADIMGHDR(SS$_BADIRECTORY  SS$_BADISD SS$_BADPARAM SS$_BADQFILESS$_BADQUEUEHDRl! SS$_BADRCT SS$_BADSTACKd  SS$_BADVEC8  SS$_BEGOFFILE@ SS$_BLOCKCNTERR SS$_BREAK  SS$_BUFBYTALIu SS$_BUFFEROVF$SS$_BUFNOTALIGN SS$_BUGCHECK0 SS$_CANCEL  SS$_CHAINWL SS$_CHANINTLK! SS$_CLEARED  SS$_CLIFRCEXT SS$_CMODSUPR$ SS$_CMODUSER  SS$_COMMHARD, SS$_COMPAT SS$_CONCEALED SS$_CONNECFAIL SS$_CONTINUEQ SS$_CONTROLC  SS$_CONTROLO SS$_CONTROLY SS$_CREATEDT SS$_CTRLERR4ZHHū8YIHIHIIk ѫ «  ѫ  ˔мVW>4XWVWū8ZJJū8WYIJIJIIVWUЫ VU1UUVVU1Uk˘VPP˘VPPǫPSVWSūlTUW TP>@hˈū8Y>Iˌ˄CXML1ū8WZJIJIJJWSUVЫU1`UV Wc OIFFTCXML1$CODE$PDATA$LOCALFOR$INI_DES2_R32LPcSP6PP@PPEPV>2ww1 cX;013INITCHAR0126-Nov-1980 09:3126-Nov-1980 09:31VAX-11 FORTRAN V2.0-2#INITCHARINITCHARPTTP SYS$ASSIGN@     Q@10Q\P~t~,n uQ^ЫlЫ pdSYS$QIOWJP+0.MOVE012-FEB-1982 16:11 VAX-11 Macro V02.45+/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) MOVE  . ABS . . BLANK .P$LOCALPT$CODEP I1MOVE&ЬPЬQм RR I2MOVE&ЬPЬQм RR *I4MOVE&ЬPЬQм RЀR ?I8MOVE&ЬPЬQм R}RV MOVE I1MOVE I2MOVE *I4MOVE ?I8MOVE/ IBUF JBUF N? . BLANK .$LOCAL$CODETww1kf04-29-82: MUL_CX_CK04-29-8229-APR-1982 11:55 VAX-11 Macro V02.45./LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) MULCXCK  . ABS . . BLANK .P$CODEPO O MUL_CX_CK&ЬPЬSЬ Zм[2T2U2Q2RTQVURWWVX Ï@XY@XYƏYYRTVUQWVWX Ï@XY@XYƏYY[( MUL_CX_CK MUL_CX_CK" tCICOM NCIMPY bCINEG lCIPOS \CIZE R DCRCOM CRMPY 2CRNEG <CRPOS ,CRZER IA IB  IC 0L2 `L5 LOOP~LOOPINCN, . BLANK .$CODEww1f04-29-829MUL_CX_R04-29-8229-APR-1982 11:43 VAX-11 Macro V02.45-/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) MULCXR  . ABS . . BLANK .Po$CODEPO OMUL_CX_R&oЬPЬSЬ Zм[2Q2R2TTQX Ï@XY@XYƏYYRTX Ï@XY@XYƏYY[&MUL_CX_RMUL_CX_R" aCICOM CCIMPY OCINEG YCIPOS ICIZER 9CRCOM CRMPY 'CRNEG 1CRPOS !CRZER IA IB  IC %L2 ML5 LOOPkLOOPINCN, . BLANK .$CODEoww1` 01=OPEN_ISAM_DUPL_KEY01 2-Jun-1982 16:46 2-Jun-1982 16:46VAX-11 FORTRAN V2.5-667OPEN_ISAM_DUPL_KEYOPEN_ISAM_DUPL_KEYHPPPO[ЬЬ$Ь8ЬD XAB$B_CODY XAB$L_NXTX FAB$L_XABЫP@$XTI4MOVEЫ ZYZPPhdI1MOVEXZPPxtI4MOVEݎիЫZYZPPhdI1MOVEXZPPxtI4MOVEZPPˈ˄I1MOVEXYkZYZ Y˘˔I1MOVEˤLIB$INSVY˸I1MOVE SYS$CREATEPP SYS$CONNECT' OOPEN_ISAM_DUPL_KEY% FAB <RAB  LUN+ FAB$L_XAB XAB$L_NXT XAB$B_CODqXAB_TYPEXAB_FLG KEY_OF_REF XAB$$B_COD  XAB$$L_NXT XAB_ADDR_PTR I4MOVEXAB_ADDR I1MOVE NXT_XAB_ADDRYLIB$INSV SYS$CREATE SYS$CONNECT$CODE$PDATA$LOCALqPEwP+|P&P' ww1z01/OUTB0111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTB OUTBP FORMAT & DATA is BYTE*1, output in HEXADECIMAL  FORMAT " DATA is BYTE*1, output in DECIMAL  FORMAT  DATA is BYTE*1, output in OCTAL  FORMAT % DATA is BYTE*1, output in CHARACTERS)TP<PO@[м8Ь ޫPFOR$INI_DES1_R2Ѽ ݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_END5ݼ FOR$WRITE_SF FOR$IO_X_DA FOR$IO_END1Ѽ ?ݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDpݼ FOR$WRITE_SF FOR$IO_X_DA FOR$IO_END1Ѽ zݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF FOR$IO_X_DA FOR$IO_END1Ѽ 1ݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDмDVVD1X,n <ZVVPPмPPWVYYW YYI,XX ZP^@@XPPJZXJZWYݼ FOR$WRITE_SF< FOR$IO_T_DS* FOR$IO_ENDDVxW XYZVk OOUTB\AN  FORMAT ICHAN <AJCH<@IDK HLL1 LLL2PJ$CODE$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SFFOR$INI_DES1_R2P"PEfPpmPEP%PEPP7PcP9vPPB6ww1 01/OUTC0111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTC OUTCP FORMAT  DATA is CHARACTER,output in DECIMAL FORMAT  DATA is CHARACTER,output in OCTAL FORMAT  DATA is CHARACTER,output in HEXADECIMAL FORMAT  DATA is CHARACTER,output in CHARACTERS   )P<)POh[}PQ(P$Ѽ ݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDѼ 5ݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDѼ hݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDѼ ݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDЫYЫWЫ VѼ 1Ѽ 1<$мPPЫPPVV1Ы ZV VPPЫPPYVWWWP@( Y YIYWѼ ݼ FOR$WRITE_SFZZY Z ZJ FOR$IO_L_RYZ FOR$IO_ENDѼ ݼ FOR$WRITE_SFZZY Z ZJ FOR$IO_L_RYZ FOR$IO_ENDѼ ݼ FOR$WRITE_SFZZY Z ZJ FOR$IO_L_RYZ FOR$IO_END V Z 1<$мPPЫPPVV1kX,n <YVVPPЫPPVWWWZJ(XX YP^@@XPPIYJ(IYWݼ FOR$WRITE_SF, FOR$IO_T_DS FOR$IO_ENDVvXkV WY OOUTCAN  FORMAT ICHANLCH(CH<))IA(  hAJ lLN pNNtI xLL1 |LL2KJ KK|$CODE$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SFP!AP!hP!P!P.P%PP:P5RPuP5PP5PPPBP9PPlP K?ww1w010OUTI20111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTI2 OUTI2P FORMAT  DATA is INTEGER*2,output in HEXADECIMAL  FORMAT  DATA is INTEGER*2,output in DECIMAL  FORMAT  DATA is INTEGER*2,output in OCTAL PPL[м(Ьޫ PFOR$INI_DES1_R2 PzPQ{QQPPZZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_END9ݼ FOR$WRITE_SF?  FOR$IO_X_DA FOR$IO_END1ZCݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDxݼ FOR$WRITE_SF?  FOR$IO_X_DA FOR$IO_ENDZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF?  FOR$IO_X_DA FOR$IO_ENDZk LOUTI2; AN  FORMAT ICHAN LF$CODE$PDATA,$LOCAL OTS$LINKAGE FOR$IO_END F OR$IO_L_R FOR$IO_X_DA FOR$WRITE_SFFOR$INI_DES1_R2"4PExP~PDPGPB+ww1@&010OUTI40111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTI4 OUTI4P FORMAT  DATA is INTEGER*4,output in HEXADECIMAL  FORMAT  DATA is INTEGER*4,output in DECIMAL  FORMAT  DATA is INTEGER*4,output in OCTAL PPL[м(Ьޫ PFOR$INI_DES1_R2 PzPQ{QQPPZZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_END9ݼ FOR$WRITE_SF߫  FOR$IO_X_DA FOR$IO_END1ZCݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDxݼ FOR$WRITE_SF߫  FOR$IO_X_DA FOR$IO_ENDZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF߫  FOR$IO_X_DA FOR$IO_ENDZk LOUTI4; AN  FORMAT ICHAN LF$CODE$PDATA,$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_X_DA FOR$WRITE_SFFOR$INI_DES1_R2"4PExP~PDPGPB+ww17011OUTPUT0111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTPUT OUTPUTPILLEGAL FORMAT ENTERED=PPH[ЬѼ Ѽ Ѽ $޼(޼ ,޼0 OUTB1Ѽ Ѽ $޼(޼ ,޼0 OUTI21Ѽ Ѽ $޼(޼ ,޼0 OUTI41Ѽ Ѽ $޼(޼ ,޼0 OUTR4Ѽ Ѽ $޼(޼ ,޼0 OUTR8Ѽ Ѽ $޼(޼ ,޼0 OUTC~ FOR$WRITE_SL4 FOR$IO_T_DS߼  FOR$IO_L_R FOR$IO_END H OUTPUT0AN  FORMAT ICHANOUTBOUTI2OUTI4OUTR4OUTR8OUTC?$CODE$PDATA<$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SLPP%PCPJP%PPnPuP%{PPP$PPyP$PPOP$PP% ?ww1u010OUTR40111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTR4 OUTR4P FORMAT  DATA is REAL*4 (S.P.),output in HEXADECIMAL  FORMAT  DATA is REAL*4 (S.P.),output in DECIMAL FORMAT  DATA is REAL*4 (S.P.),output in OCTAL P PL[м(Ьޫ PFOR$INI_DES1_R2 PzPQ{QQPPZZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_END=ݼ FOR$WRITE_SF߫  FOR$IO_X_DA FOR$IO_END1ZGݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF߫  FOR$IO_X_DA FOR$IO_ENDZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF߫  FOR$IO_X_DA FOR$IO_ENDZk LOUTR4;  AN  FORMAT ICHAN LF$CODE$PDATA,$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_X _DA FOR$WRITE_SFFOR$INI_DES1_R2"4PExP~PDPGPB+ww1010OUTR80111-Aug-1981 10:3611-Aug-1981 10:36VAX-11 FORTRAN V2.3-53 OUTR8 OUTR8P FORMAT  DATA is REAL*8 (D.P.),output in HEXADECIMAL FORMAT  DATA is REAL*8 (D.P.),output in DECIMAL FORMAT  DATA is REAL*8 (D.P.),output in OCTALP PL[м(Ьޫ PFOR$INI_DES1_R2 PzPQ{QQPPZZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_END=ݼ FOR$WRITE_SF  FOR$IO_X_DA FOR$IO_END1ZGݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF  FOR$IO_X_DA FOR$IO_ENDZݼ FOR$WRITE_SF߼  FOR$IO_L_R FOR$IO_ENDݼ FOR$WRITE_SF  FOR$IO_X_DA FOR $IO_ENDZk LOUTR8;  AN  FORMAT ICHAN LF$CODE$PDATA,$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_X_DA FOR$WRITE_SFFOR$INI_DES1_R2"4PExP~PDPGPB+ww1X;01/PAGE0126-Nov-1980 09:3026-Nov-1980 09:30VAX-11 FORTRAN V2.0-2 PAGE PAGE PPQ PH[ݼ FOR$WRITE_SF FOR$IO_T_DSk FOR$IO_T_DS FOR$IO_END HPAGE7 ICHLPFFBLANKm4$CODE$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF4ww1"pX;01/PCUR0126-Nov-1980 09:3126-Nov-1980 09:31VAX-11 FORTRAN V2.0-2 PCUR PCURP;1H  P  ( PCHAR@8 PCHAR@H PCHAR@  d PCHAR@ QP|N[мZZZZZмYYYYYV[~~V^ WRCHARV^Z V0ZPP~V^ PCHARV^V ZP0PP~V^ PCHARV^VzZP{ PPP0PP~V^ PCHARV^Zk,PCHARY V0YPP~V^ PCHARV^1YdV YP0PP~V^ PCHARV^VzYP{ PPP0PP~V^ PCHARV^<PCHARVÏdYP P0PP~V^ PCHARV^VzYP{ PPP0PP~V^ PCHARV^YLPCHAR|N[V[K~~V^ TWRCHAR|N[V[H~~V^ TWRCHARV^V[J~~V^ TWRCHAR|N[V[D~~V^ TWRCHARV^hPCHARV[D~~V^ TWRCHAR|N[V^(n~V^ pWRCHAR|N [V[m~~V^ TWRCHARP[7m |NPCURe LCOL LINELASTCOLLASTLINEESC LL LCWRCHARPCHAR |NEOL |N ERASEPAGE '|NRUBOUT x|N REVERSE_ON |N REVERSE_OFF$CODE$PDATA$LOCALCVT100CPP-P9PeP PHP!PPJQPWA5ww1 WX;01/PLOT0126-Nov-1980 09:3026-Nov-1980 09:30VAX-11 FORTRAN V2.0-2 PLOT PLOT?P1 )) @P d PO[мpЬXޫTPFOR$INI_DES1_R23kkPNPPG"Pdd мԫ޼ˀ|SCALEG" Ы$ѫ$Ы$EPЫWAWP(«$X޻dYXZ ZLPZCWJiPD P@PJPP XdXPHdXZ0  FOR$WRITE_SF FOR$IO_END4ЫDYЫ Vë448z8P{ PPW,n dZZVzZP{ PPYWZP-@ZYZVZPI@Z$ ZdZJ8ZP*@ߜVZ4P PNPPDPCP(HW  FOR$WRITE_SF߫H FOR$IO_F_Rt FOR$IO_T_DS FOR$IO_ENDW   FOR$WRITE_SFt FOR$IO_T_DS FOR$IO_END34W$PDATA$LOCAL#\PPP P%P+ww1 ju00VACCUM018-MAY-1982 13:44 VAX-11 Macro V02.45-/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) VACCUM  . ABS .  . BLANK .Pt$CODEPC CVACCUM&C CVACC_CX&pЬPЬ RмXЬQмWVY2S2TSTUUV2SSTUUYWV @V@VxVVVY @Y@YxYYYX5 VACCUM VACCUMVACC_CX LCRC1 hCRC2 <CRN1 XCRN2 ECRP1 aCRP2 IA IB  IC ILOOP NLOOP NSAMP NWT  START, . BLANK .$CODEtww1 7(013VAXTIMER0119-Nov-1982 16:4319-Nov-1982 16:43VAX-11 FORTRAN V3.1-23VAXTIMERR;8E (z$_DBB1:[SORRELL.VAXLIB]VAXTIMER.FOR;2 >P VAXTIMER HAS NOT BEEN INITIALIZED!P#VAXTIMERPL[kZѼԼ޼LIB$INIT_TIMERPZռ~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_END ޼LIB$SHOW_TIMERPZ޼LIB$FREE_TIMERPZZk LVAXTIMER( ICON IBUF ISTATLIB$INIT_TIMERLIB$SHOW_TIMERLIB$FREE_TIMERm$CODE#$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLP&PB+PHP mww1{Od012VERSION0126-Apr-1982 11:0526-Apr-1982 11:05VAX-11 FORTRAN V2.5-66!VERSIONVERSIONP Program:) Version:),PS@,4 |  r4 44<,,,(S<PN[ ? k( SYS$GETJPIP^LHIFERR^PWILDCARDP^LHIFERR^PPhp SYS$ASSIGNP^LHIFERR^ЫZZ˔ˌSYS$QIOWP^LHIFERR^ZSYS$QIOWP^LHIFERR^ZLH SYS$DASSGNP^LHIFERR^ SYS$ASCTIMP^LHIFERR^ZZYI?  I?ZZ STR$TRIMP FOR$WRITE_SF   FOR$IO_T_DS( FOR$IO_T_DS FOR$IO_ENDռݼ FOR$WRITE_SF   FOR$IO_T_DS( FOR$IO_T_DS FOR$IO_END NVERSION  LUNSTR$TRIM REVSTRING< IMAGE_NAMES+JBUF+IBUF RMS$_NORMAL-NAMBLK888 DEVLEN DEVICE_NAMEFILE@,I1FIBCHRFIB,I2ATR +IOSB42*FID *DID ,I4ATR  .REVDATE,(LEN_IMAGE_NAME'IFERR SYS$GETJPIWILDCARD LFILE SYS$ASSIGN CHAN,SYS$QIOW SYS$DASSGN SYS$ASCTIM* I $ISTAT (IEND}$CODE$PDATAD$LOCAL8WILDNAM OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPqP3)ww1IxQЉ01/WAIT0120-Oct-1981 10:4020-Oct-1981 10:40VAX-11 FORTRAN V2.3-53 WAIT WAITAP PL[ELZE0ZPJPNPDPPBPZҫSZZEZPZkJPPPPPΫ LIB$GET_EFP^IFERR^Ы SYS$SETIMRP^IFERR^Ы SYS$WAITFRP^IFERR^ LIB$FREE_EFP^IFERR@zP{PPPQPQQP LWAIT: X,DELAY SS$_ABORT  YIFERR LIB$GET_EF  IFLAG[ SYS$SETIMR SYS$WAITFR LIB$FREE_EF$CODE$PDATA4$LOCALww1/$U 02WILDCARD0 4-JAN-1982 12:03 VAX-11 Macro V02.45//LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) WILDCARD  SYS$PARSE SYS$SEARCH . ABS . . BLANK .P8WILDNAMP$ABS$APP8Q6QQQ QQQ$PWILDFABPPPPPQNQQQQQQQQQQQQQQQQQ&QQQQQ$RMSNAM$P*.*;*PQQQWILDCARD PPPPQQ SETWILD&(}PP53Q03ЏP< $<WILDCARD&;}PP43Q,3 SYS$PARSE< G<NEXTWILD& SYS$SEARCHP;3 3S}P(Salx4&x4&x4&(*3($3MWILDCARDGNEXTWILDSETWILD$WILDCARD $$.TABP $$.TABEND $$.TMP$$.TMP1$$.TMPX$$.TMPX1 4BIT... xCTABLEDEF_SPEC DIDARG ESABUF FAB$B_BID> FAB$B_BKS FAB$B_BLN5 FAB$B_DNS FAB$B_FAC4 FAB$B_FNS? FAB$B_FSZ FAB$B_ORG FAB$B_RAT FAB$B_RFM FAB$B_RTV FAB$B_SHR FAB$C_BIDP FAB$C_BLN FAB$C_FIX0 FAB$C_HSH  FAB$C_IDX FAB$C_MAXRFM FAB$C_RELFAB$C_RFM_DFLT FAB$C_SEQ FAB$C_UDF FAB$C_VAR FAB$C_VFCP FAB$K_BLN FAB$L_ALQ FAB$L_CTX@ FAB$L_DEV0 FAB$L_DNA, FAB$L_FNA FAB$L_FOP  FAB$L_JNL8 FAB$L_MRN( FAB$L_NAMD FAB$L_SDC FAB$L_STS  FAB$L_STV$ FAB$L_XAB  FAB$M_BIO FAB$M_BLK@ FAB$M_BRO  FAB$M_CBT FAB$M_CIFFAB$M_CR FAB$M_CTG FAB$M_DEL  FAB$M_DFW FAB$M_DLT FAB$M_DMO FAB$M_ESC FAB$M_EXE FAB$M_FTN FAB$M_GET FAB$M_INP@ FAB$M_JNL@ FAB$M_KFO FAB$M_MSE FAB$M_MXV FAB$M_NAM FAB$M_NEF FAB$M_NFS  FAB$M_NIL  FAB$M_OFP FAB$M_POS FAB$M_PPF@ FAB$M_PPF_IND? FAB$M_PPF_RAT FAB$M_PRN FAB$M_PUT FAB$M_RCK FAB$M_RWC FAB$M_RWO@ FAB$M_SCF FAB$M_SHRDEL FAB$M_SHRGET FAB$M_SHRPUT FAB$M_SHRUPD  FAB$M_SPL@ FAB$M_SQO FAB$M_SUP FAB$M_TEF FAB$M_TMD FAB$M_TMP FAB$M_TRN FAB$M_UFM FAB$M_UFO FAB$M_UPD@ FAB$M_UPI FAB$M_WCK FAB$S_ORG FAB$S_PPF_RAT FAB$V_BIO FAB$V_BLK FAB$V_BRO FAB$V_CBT FAB$V_CIFFAB$V_CR FAB$V_CTG FAB$V_DEL FAB$V_DFW FAB$V_DLT  FAB$V_DMO FAB$V_ESC FAB$V_EXE FAB$V_FTN FAB$V_GET FAB$V_INP FAB$V_JNL FAB$V_KFO FAB$V_MSE FAB$V_MXV FAB$V_NAM  FAB$V_NEF FAB$V_NFS FAB$V_NIL FAB$V_OFP FAB$V_ORG FAB$V_POS FAB$V_PPF FAB$V_PPF_IND FAB$V_PPF_RAT FAB$V_PRN FAB$V_PUT FAB$V_RCK  FAB$V_RWC FAB$V_RWO FAB$V_SCF FAB$V_SHRDEL FAB$V_SHRGET FAB$V_SHRPUT FAB$V_SHRUPD  FAB$V_SPL FAB$V_SQO FAB$V_SUP FAB$V_TEF FAB$V_TMD FAB$V_TMP FAB$V_TRN FAB$V_UFM FAB$V_UFO FAB$V_UPD FAB$V_UPI  FAB$V_WCK< FAB$W_BLS FAB$W_DEQ FAB$W_IFI6 FAB$W_MRS FABBLK FIDARGFILENAME GBL... tL1 L4 L5  LFILENAME NAM$B_BID NAM$B_BLN8 NAM$B_CURLVL  NAM$B_ESL  NAM$B_ESS NAM$B_RSL NAM$B_RSS NAM$C_BID8 NAM$C_BLNPNAM$C_BLN_DIRWC NAM$C_DVI NAM$C_MAXRSS`NAM$C_MAXRSSLCL8 NAM$K_BLNPNAM$K_BLN_DIRWC@ NAM$L_DIRWCC1D NAM$L_DIRWCC2H NAM$L_DIRWCC3L NAM$L_DIRWCC48 NAM$L_DWC  NAM$L_ESA4 NAM$L_FNB NAM$L_RLF NAM$L_RSA0 NAM$L_WCCNAM$M_DIR_LVLS NAM$M_EXP_DEV@ NAM$M_EXP_DIRNAM$M_EXP_NAMENAM$M_EXP_TYPE NAM$M_EXP_VER NAM$M_GRP_MBR NAM$M_HIGHVER@ NAM$M_LOWVER NAM$M_NODE NAM$M_PPF NAM$M_QUOTED NAM$M_SVCTXNAM$M_WILDCARDNAM$M_WILD_DIRNAM$M_WILD_GRPNAM$M_WILD_MBR NAM$M_WILD_NAMENAM$M_WILD_SFD1NAM$M_WILD_SFD2NAM$M_WILD_SFD3NAM$M_WILD_SFD4 NAM$M_WILD_SFD5@NAM$M_WILD_SFD6NAM$M_WILD_SFD7NAM$M_WILD_TYPENAM$M_WILD_UFDNAM$M_WILD_VERNAM$S_DIR_LVLS NAM$T_DVINAM$V_DIR_LVLS NAM$V_EXP_DEV NAM$V_EXP_DIRNAM$V_EXP_NAMENAM$V_EXP_TYPE NAM$V_EXP_VER NAM$V_GRP_MBR NAM$V_HIGHVER NAM$V_LOWVER NAM$V_NODE NAM$V_PPF NAM$V_QUOTED NAM$V_SVCTXNAM$V_WILDCARDNAM$V_WILD_DIRNAM$V_WILD_GRPNAM$V_WILD_MBRNAM$V_WILD_NAMENAM$V_WILD_SFD1NAM$V_WILD_SFD2NAM$V_WILD_SFD3NAM$V_WILD_SFD4NAM$V_WILD_SFD5NAM$V_WILD_SFD6NAM$V_WILD_SFD7NAM$V_WILD_TYPENAM$V_WILD_UFDNAM$V_WILD_VER* NAM$W_DID* NAM$W_DID_NUM. NAM$W_DID_RVN, NAM$W_DID_SEQ$ NAM$W_FID$ NAM$W_FID_NUM( NAM$W_FID_RVN& NAM$W_FID_SEQ: NAM$W_PRV_DID NAMBLK RETN RETSRMS$V_STVSTATUSRMS$_ABORMS$_ACCRMS$_ACSZRMS$_ACTRMS$_AIDRMS$_ALNRMS$_ALQ RMS$_ANIRMS$_AOPRMS$_ATRRMS$_ATWRMS$_BESRMS$_BKS$RMS$_BKZ,RMS$_BLNRMS$_BOF4RMS$_BUGD RMS$_BUG_DAP< RMS$_BUG_DDIL RMS$_BUG_XX2T RMS$_BUG_XX3\ RMS$_BUG_XX4d RMS$_BUG_XX5l RMS$_BUG_XX6t RMS$_BUG_XX7| RMS$_BUG_XX8 RMS$_BUG_XX9RMS$_CAARMS$_CCFRMS$_CCRRMS$_CDARMS$_CHGRMS$_CHKRMS$_CHNRMS$_CODQ RMS$_CONTROLC  RMS$_CONTROLO RMS$_CONTROLYRMS$_CRC RMS$_CRE RMS$_CREATEDRMS$_CURRMS$_DACRMS$_DANbRMS$_DELĄRMS$_DEVlRMS$_DFL̄RMS$_DIRԄRMS$_DME܄RMS$_DNAJRMS$_DNFrRMS$_DNR:RMS$_DPERMS$_DTPRMS$_DUPRMS$_DVIRMS$_ENT$RMS$_ENVzRMS$_EOFRMS$_ESARMS$_ESLRMS$_ESS‚RMS$_EXP"RMS$_EXT RMS$_FABRMS$_FACRMS$_FEXRMS$_FLGRMS$_FLK$RMS$_FNA*RMS$_FNDRMS$_FNF,RMS$_FNM<RMS$_FOP4RMS$_FSZćRMS$_FTMDRMS$_FULLRMS$_IALTRMS$_IANTRMS$_IBF|RMS$_IBKRMS$_IDR\RMS$_IDX$RMS$_IFAdRMS$_IFIdRMS$_IFLlRMS$_IMXtRMS$_IOP|RMS$_IRCRMS$_ISIRMS$_KBFRMS$_KEY1RMS$_KFFtRMS$_KNMRMS$_KRFRMS$_KSIRMS$_KSZRMS$_LANRMS$_LBLRMS$_LEXRMS$_LNEąRMS$_LOC4RMS$_MBC2RMS$_MKD̅RMS$_MRNԅRMS$_MRS܅RMS$_NAMRMS$_NEFLRMS$_NETRMS$_NIDʂRMS$_NMFRMS$_NOD RMS$_NORMALRMS$_NPK9 RMS$_OK_ALKA RMS$_OK_DEL RMS$_OK_DUP RMS$_OK_IDXQ RMS$_OK_LIMY RMS$_OK_NOP! RMS$_OK_RLKI RMS$_OK_RNFRMS$_ORD RMS$_ORGRMS$_PBF  RMS$_PENDINGȁRMS$_PESRMS$_PLG,RMS$_PLV$RMS$_POS,RMS$_PRMRMS$_PRV4RMS$_QUO<RMS$_RABDRMS$_RACLRMS$_RATTRMS$_RBF\RMS$_REFRMS$_RERRMS$_REX\RMS$_RFAdRMS$_RFMlRMS$_RHBtRMS$_RLFRMS$_RLKRMS$_RMVRMS$_RNFRMS$_RNL|RMS$_ROPRMS$_RPLRMS$_RRVڂRMS$_RSA<RMS$_RSLRMS$_RSSRMS$_RSTRMS$_RSZRMS$_RTBRMS$_RVURMS$_SEGRMS$_SEQRMS$_SHRRMS$_SIZRMS$_SNERMS$_SPEBRMS$_SPLĆRMS$_SQO RMS$_STALL̆RMS$_STKRMS$_STRRMS$_SUC҂RMS$_SUP1RMS$_SUPERSEDEԆRMS$_SYN RMS$_SYSj RMS$_TEMP1) RMS$_TEMP10RMS$_TMORMS$_TNS܆RMS$_TRERMS$_TYPRMS$_UBFRMS$_UPIRMS$_USZ RMS$_VERRMS$_VOL,RMS$_WBERMS$_WCCRMS$_WERDRMS$_WLDRMS$_WLKRMS$_WPLRMS$_WSF RMS$_XAB RSABUF ISEARCH WILD_SPECk . BLANK .WILDNAM8WILDFABP$RMSNAMWILDCARDww1CX;01.YES0118-Feb-1981 11:3318-Feb-1981 11:33VAX-11 FORTRAN V2.0-2  YES YESP))PPH[}PQPk~ FOR$WRITE_SFk FOR$IO_T_DS FOR$IO_END~ FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDԫYyЫP HYES% STRINGIANS}o$CODE $PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF ^PeP oww1 >+0.ZERO012-FEB-1982 16:11 VAX-11 Macro V02.45+/LIS/ENABLE=(DEBUG,GLOBAL,TRACEBACK) ZERO  . ABS . . BLANK .P$LOCALP@$CODEP I1ZERO&ЬPмQQ I2ZERO&ЬPмQQ  I4ZERO&ЬPмQԀQ 0I8ZERO&ЬPмQ|QV ZERO I1ZERO I2ZERO  I4ZERO 0I8ZERO IBUFN? . BLANK .$LOCAL$CODE@ww