PWCNVT DCK/ I,H PPWGPUT DCK/ I,H PPWSMBL1 DCK/ I,H PPWGETF1 DCK/ I,H PPWGNST DCK/ I,H PP DEL/ 2 PP - /DECK-ID 05A FORTRAN 3.3B SUMMARY-114 PP INS/ 159 PPC ** **107**3894 PPC PP INTEGER BLANKS(3) PP DATA BLANKS/$2020,$2020,$2020/ PPC ** **107**3894 PP DEL/ 351 PP NBMAC=AND((IBUF2(I+2)/$100),$FF) PP+ ALLOW 255 MACRO RECORDS 114*4009 PP DEL/ 373 PPC ** **107**3894 PPC OUTPUT RECORD FOR SPACE CONTROL COMMAND MUST BE AT LEAST 3 WDS OR PPC FAIL WHEN LIST TO MAG TAPE PP CALL WRITE(3,1,3,BLANKS) PPC ** **107**3894 PPWOTENT DCK/ I,H PPWPHSEA DCK/ I,H PPWPLBEL DCK/ I,H PPWQ8QBS DCK/ I,H PPWRLABL DCK/ I,H PPWSCHAR DCK/ I,H PPWTYPE DCK/ I,H PPWSAVID DCK/ I,H PPWARITH DCK/ I,H PPWCMNPR DCK/ I,H PPWDIMPR DCK/ I,H PPWSBSCR DCK/ I,H PPWTYPPR DCK/ I,H PPWBYEQ DCK/ I,H PPWCKF DCK/ I,H PPWFGETC DCK/ I,H PPWFORK DCK/ I,H PPWSUB DCK/ I,H PPWEXRL DCK/ I,H PPWPEQVS DCK/ I,H PPWPRTNM DCK/ I,H PPWPUNT1 DCK/ I,H PPWSYMS1 DCK/ I,H PPWENDDO DCK/ I,H PPWCONSB DCK/ I,H PPWDATA DCK/ I,H PPWASGN DCK/ I,H PPWBDOPR DCK/ I,H PPWCFVOC DCK/ I,H PPWCKVC DCK/ I,H PPWCKNAM DCK/ I,H PPWIOSPR DCK/ I,H PPWERBPR DCK/ I,H PPWMODX DCK/ I,H PPWASEMP DCK/ I,H PPWTREE DCK/ I,H PPWARAY DCK/ I,H PPWLOOP DCK/ I,H PPWDUMMY DCK/ I,H PPWFCMK DCK/ I,H PPWKCPRT DCK/ I,H PPWKOTPT DCK/ I,H PPWKPCK DCK/ I,H PPWKPC3 DCK/ I,H PPWKSYM DCK/ I,H PPWLBKPC DCK/ I,H PPWLABLR DCK/ I,H PPWPUNT2 DCK/ I,H PPWSMBL2 DCK/ I,H PPWTSLOC DCK/ I,H PPWASSEM DCK/ I,H PPWBANAN DCK/ I,H PPWBGNDO DCK/ I,H PPWEND DCK/ I,H PPWENTCD DCK/ I,H PPWHELEN DCK/ I,H PPWXRST DCK/ I,H PPWNOPR DCK/ I,H PPWPHSEB DCK/ I,H PPWRDIR DCK/ I,H PPWSUBFN DCK/ I,H PPWACP DCK/ I,H PPWAFIDL DCK/ I,H PPWASPER DCK/ I,H PPWCGOTO DCK/ I,H PPWFINK DCK/ I,H PPWTRAM DCK/ I,H PPWPRTSB DCK/ I,H PPWSUB1 DCK/ I,H PPWSUB2 DCK/ I,H PPWSUB3 DCK/ I,H PPWRITHR DCK/ I,H PPWBKDN1 DCK/ I,H PPWBLDUP DCK/ I,H PPWBSS DCK/ I,H PPWCHKWD DCK/ I,H PPWCHOP DCK/ I,H PPWCL12 DCK/ I,H PPWCON DCK/ I,H PPWCNT1 DCK/ I,H PPWDATST DCK/ I,H PPWGSYM1 DCK/ I,H PPWINOUT DCK/ I,H PPWIXOPT DCK/ I,H PPWPHSEC DCK/ I,H PPWLABEL DCK/ I,H PPWLABIN DCK/ I,H PPWQXLD DCK/ I,H PPWREED DCK/ I,H PPWSKIP DCK/ I,H PPWSYMS2 DCK/ I,H PPWAMOT1 DCK/ I,H PPWMAX1 DCK/ I,H PPWGINO1 DCK/ I,H PPWBKDN2 DCK/ I,H PPWCNT2 DCK/ I,H PPWFIN1 DCK/ I,H PPWIACN1 DCK/ I,H PPWIHCN1 DCK/ I,H PPWDEX1 DCK/ I,H PPWLABT1 DCK/ I,H PPWNP2T1 DCK/ I,H PPWNPUN1 DCK/ I,H PPWNRIT1 DCK/ I,H PPWPHS61 DCK/ I,H PPWRBDX1 DCK/ I,H PPWRBPK1 DCK/ I,H PPWSYMS3 DCK/ I,H PPWDEC1 DCK/ I,H PPWUNPC1 DCK/ I,H PPWAMOT2 DCK/ I,H PPWMAX2 DCK/ I,H PPWGINO2 DCK/ I,H PPWBKDN3 DCK/ I,H PPWCNT3 DCK/ I,H PPWFIN2 DCK/ I,H PPWIACN2 DCK/ I,H PPWIHCN2 DCK/ I,H PPWDEX2 DCK/ I,H PPWLABT2 DCK/ I,H PPWNP2T2 DCK/ I,H PPWNPUN2 DCK/ I,H PPWNRIT2 DCK/ I,H PPWPHS62 DCK/ I,H PPWRBDX2 DCK/ I,H PPWRBPK2 DCK/ I,H PPWSPRT DCK/ I,H PPWDEC2 DCK/ I,H PPWUNPC2 DCK/ I,H PPMON DCK/ I,H PPWFTNB DCK/ I,H PP DEL/ 1 PP NAM FTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132 PP DEL/ 203 PPHEADER ALF +, :F FTN 3.3B (OPT = + 132*5268 PP INS/ 231 PP*********************************************************** 112*3893 PP* NOTE... LGOSEC MUST IMMEDIATELY PRECEDE IFLAGS. 112*3893 PPLGOSEC NUM 0 LGO SECTOR AT START OF COMPILE 112*3893 PP INS/ 232 PP*********************************************************** 112*3893 PPWGOA DCK/ I,H PP DEL/ 1 PP NAM GOA DECK-ID 02F FORTRAN 3.3B SUMMARY-114 PP DEL/ 95 PP SAN TSTLOC SKIP IF NOT ' MON' 114*4080 PP DEL/ 98 PP SAN TSTLOC SKIP IF NOT ' MON' 114*4080 PP DEL/ 100,106 PP* 7 CARDS DELETED 114*4080 PPWCONV1 DCK/ I,H PPWDIAG DCK/ I,H PPWDXP9 DCK/ I,H PPWDFLOT DCK/ I,H PPWGSYM2 DCK/ I,H PPWIOPRA DCK/ I,H PP DEL/ 1 PP NAM IOPRBA DECK-ID 08F FORTRAN 3.3B SUMMARY-114 PP DEL/ 245,249 PPBI6 LDA CRDBF NOT END BUT MAY BE MON 114*4080 PPWPACK DCK/ I,H PPWQ8P DCK/ I,H PPWSTORE DCK/ I,H PPWLA1 DCK/ I,H PPWDA1 DCK/ I,H PP DEL/ 1 PP NAM DUMYA1 DECK-ID 13F FORTRAN 3.3B SUMMARY-109 PP DEL/ 35 PPPEQVS CALL* (LOCAD),5,02,0 109*4061 PPWGETC1 DCK/ I,H PPWIGTCF DCK/ I,H PPWOPT DCK/ I,H PP DEL/ 1 PP NAM OPTION DECK-ID 16F FORTRAN 3.3B SUMMARY-114 PP DEL/ 62 PP ENQ 35 TERMINATE OPTION CHECK AT CC 72 114*3937 PPWELOC DCK/ I,H PPWLA2 DCK/ I,H PP DEL/ 1 PP NAM LOCLA2 DECK-ID 18F FORTRAN 3.3B SUMMARY-109 PP DEL/ 229,230 PP ADC DIMPR,EXRLPR 109*4061 PP EXT DIMPR,EXRLPR 109*4061 PP BZS (1) 109*4061 PP ADC SUBPPR,TYPEPR 109*4061 PP EXT SUBPPR,TYPEPR 109*4061 PPWDA2 DCK/ I,H PP DEL/ 1 PP NAM DUMYA2 DECK-ID 19F FORTRAN 3.3B SUMMARY-109 PP DEL/ 23 PP EXT DIMPR,EXRLPR,SUBPPR,TYPEPR 109*4061 PP INS/ 26 PP ENT PEQVS 109*4061 PP DEL/ 35 PPPEQVS CALL* (LOCAD),5,02,0 109*4061 PPWLA3 DCK/ I,H PPWDA3 DCK/ I,H PP DEL/ 1 PP NAM DUMYA3 DECK-ID 21F FORTRAN 3.3B SUMMARY-109 PP DEL/ 41 PPPEQVS CALL* (LOCAD),5,02,0 109*4061 PPWLA4 DCK/ I,H PPWDA4 DCK/ I,H PP DEL/ 1 PP NAM DUMYA4 DECK-ID 23F FORTRAN 3.3B SUMMARY-109 PP DEL/ 35 PPPEQVS CALL* (LOCAD),5,02,0 109*4061 PPWLA5 DCK/ I,H PP DEL/ 1 PP NAM LOCLA5 DECK-ID 24F FORTRAN 3.3B SUMMARY-109 PP DEL/ 229 PP ADC PEQVS 109*4061 PP EXT PEQVS 109*4061 PP BZS (8),(7),(1) 109*4061 PPWDA5 DCK/ I,H PP DEL/ 1 PP NAM DUMYA5 DECK-ID 25F FORTRAN 3.3B SUMMARY-109 PP DEL/ 23 PP ENT DIMPR,EXRLPR,SUBPPR,TYPEPR 109*4061 PP EXT PEQVS 109*4061 PP DEL/ 37 PP GET PEQVS 109*4061 PP DEL/ 47 PP CALL* (LOCAD),5,1,0 'GET IOSPR' 109*4061 PPWGOB DCK/ I,H PPWIOPRB DCK/ I,H PPWGOC DCK/ I,H PPWIOPRC DCK/ I,H PP DEL/ 1 PP NAM IOPRBC DECK-ID 29F FORTRAN 3.3B SUMMARY-112 PP INS/ 382 PP STA IFLAGS-1 SAVE FOR PHASES D/E AND F 112*3893 PPWGOOD DCK/ I,H PPWIOPRD DCK/ I,H PP DEL/ 1 PP NAM IOPRBD DECK-ID 31F FORTRAN 3.3B SUMMARY-112 PP DEL/ 389 PP LDA IFLAGS-1 PICK UP INITIAL LGO SECTOR+1 112*3893 PPWGOE DCK/ I,H PPWCONV2 DCK/ I,H PPWSTORB DCK/ I,H PPWDUMVL DCK/ I,H PPHEADER DCK/ I,H PPDIAGRG DCK/ I,H PPGOF DCK/ I,H PPGETSYR DCK/ I,H PPTITLE DCK/ I,H PPIFOVPF DCK/ I,H PPERRMSG DCK/ I,H PPMON1 DCK/ I,H PPPHASEF DCK/ I,H PPGETSYM DCK/ I,H PPACON DCK/ I,H PPHCON DCK/ I,H PPLWRITE DCK/ I,H PPMATCH DCK/ I,H PPSORT DCK/ I,H PPIREPAK DCK/ I,H PP END/ PP*K,I10 PP*U P