PCNVT DCK/ I,H PPGPUT DCK/ I,H PPSYMBL1 DCK/ I,H PPSAVEID DCK/ I,H PPGETF1 DCK/ I,H PPGNST DCK/ I,H PP DEL/ 2 PP - /DECK-ID A06 FORTRAN 3.3A SUMMARY-114 PP DEL/ 341 PP NBMAC=AND((IBUF2(I+2)/$100),$FF) PP+ ALLOW 255 MACRO RECORDS 114*4009 PPOUTENT DCK/ I,H PPPHASEA DCK/ I,H PPPLABEL DCK/ I,H PPQ8QBDS DCK/ I,H PPRDLABL DCK/ I,H PPSTCHAR DCK/ I,H PPTYPE DCK/ I,H PPARITH1 DCK/ I,H PPCOMNPR DCK/ I,H PPDIMPR DCK/ I,H PPSUBSCR DCK/ I,H PPTYPEPR DCK/ I,H PPBYEQPR DCK/ I,H PPCHECKF DCK/ I,H PPFGETC DCK/ I,H PPFORK DCK/ I,H PPSUBPPR DCK/ I,H PPEXRLPR DCK/ I,H PPPEQVS DCK/ I,H PPPRNTNM DCK/ I,H PPPUNT1 DCK/ I,H PPSMSCN4 DCK/ I,H PPENDDO DCK/ I,H PPCONSUB DCK/ I,H PPDATAPR DCK/ I,H PPASGNPR DCK/ I,H PPBDOPR DCK/ I,H PPCFIVOC DCK/ I,H PPCKIVC DCK/ I,H PPCKNAME DCK/ I,H PPIOSPR DCK/ I,H PPERBPR DCK/ I,H PPMODMXR DCK/ I,H PPASEMPR DCK/ I,H PPTREE DCK/ I,H PPARAYSZ DCK/ I,H PPCPLOOP DCK/ I,H PPDUMMY DCK/ I,H PPFCMSTK DCK/ I,H PPKCPART DCK/ I,H PPKOUTPT DCK/ I,H PPKPCSTK DCK/ I,H PPKPC3PR DCK/ I,H PPKSYMGN DCK/ I,H PPLABKPC DCK/ I,H PPLABLER DCK/ I,H PPPUNT2 DCK/ I,H PPSYMBL2 DCK/ I,H PPTSALOC DCK/ I,H PPASSEM DCK/ I,H PPBANANA DCK/ I,H PPBGINDO DCK/ I,H PPEND DCK/ I,H PPENTCOD DCK/ I,H PPHELEN DCK/ I,H PPINXRST DCK/ I,H PPNOPROC DCK/ I,H PPPHASEB DCK/ I,H PPREADIR DCK/ I,H PPSUBFUN DCK/ I,H PPACP DCK/ I,H PPAFIDL DCK/ I,H PPASUPER DCK/ I,H PPCGOTO DCK/ I,H PPFINK DCK/ I,H PPINTRAM DCK/ I,H PPPARTSB DCK/ I,H PPSUBPR1 DCK/ I,H PPSUBPR2 DCK/ I,H PPSUBPR3 DCK/ I,H PPARITHR DCK/ I,H PPBKDWN1 DCK/ I,H PPBLDUP DCK/ I,H PPBSS DCK/ I,H PPCHKWD DCK/ I,H PPCHOP DCK/ I,H PPCL12 DCK/ I,H PPCON DCK/ I,H PPCOUNT1 DCK/ I,H PPDATAST DCK/ I,H PPGTSYM1 DCK/ I,H PPINOUT DCK/ I,H PPIXOPT DCK/ I,H PPPHASEC DCK/ I,H PPLABEL DCK/ I,H PPLABIN DCK/ I,H PPQXLD DCK/ I,H PPREED DCK/ I,H PPSKIP DCK/ I,H PPSMSCN1 DCK/ I,H PPINDEX1 DCK/ I,H PPNPNCH1 DCK/ I,H PPPHSE61 DCK/ I,H PPAMOUT1 DCK/ I,H PPADMAX1 DCK/ I,H PPBKDWN2 DCK/ I,H PPCOUNT2 DCK/ I,H PPLBOUT1 DCK/ I,H PPNP2OT1 DCK/ I,H PPRBDX1 DCK/ I,H PPRBPK1 DCK/ I,H PPTBDEC1 DCK/ I,H PPUNPNC1 DCK/ I,H PPGTSYM2 DCK/ I,H PPSMSCN2 DCK/ I,H PPGTSYM3 DCK/ I,H PPIACON1 DCK/ I,H PPIHCON1 DCK/ I,H PPNWRTE1 DCK/ I,H PPSMSCN3 DCK/ I,H PPBEGNO1 DCK/ I,H PPFNISH1 DCK/ I,H PPINDEX2 DCK/ I,H PPNPNCH2 DCK/ I,H PPPHSE62 DCK/ I,H PPAMOUT2 DCK/ I,H PPADMAX2 DCK/ I,H PPBKDWN3 DCK/ I,H PPCOUNT3 DCK/ I,H PPLBOUT2 DCK/ I,H PPNP2OT2 DCK/ I,H PPRBDX2 DCK/ I,H PPRBPK2 DCK/ I,H PPTBDEC2 DCK/ I,H PPUNPNC2 DCK/ I,H PPGTSYM4 DCK/ I,H PPIACON2 DCK/ I,H PPIHCON2 DCK/ I,H PPNWRTE2 DCK/ I,H PPSETPRT DCK/ I,H PPBEGNO2 DCK/ I,H PPFNISH2 DCK/ I,H PPMON DCK/ I,H PPFTN4 DCK/ I,H PP DEL/ 1 PP NAM FTN33A DECK-ID F01 FORTRAN 3.3A SUMMARY-132 PP DEL/ 205 PPHEADER ALF +, :F FTN 3.3A (OPT = + 132*5268 PP INS/ 233 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/ 234 PP*********************************************************** 112*3893 PPGOA DCK/ I,H PP DEL/ 1 PP NAM GOA DECK-ID F02 FORTRAN 3.3A SUMMARY-114 PP DEL/ 94 PP SAN TSTLOC SKIP IF NOT ' MON' 114*4080 PP DEL/ 97 PP SAN TSTLOC SKIP IF NOT ' MON' 114*4080 PP DEL/ 99,105 PP* 7 CARDS DELETED 114*4080 PPCONV1 DCK/ I,H PPDIAG DCK/ I,H PPDXP9 DCK/ I,H PPDFLOT DCK/ I,H PPDUMVOL DCK/ I,H PPIOPRBA DCK/ I,H PP DEL/ 1 PP NAM IOPRBA DECK-ID F08 FORTRAN 3.3A SUMMARY-114 PP DEL/ 226,229 PP* 4 CARDS DELETED 114*4080 PPPACK DCK/ I,H PPQ8PRMS DCK/ I,H PPSTORE DCK/ I,H PPGTSYM5 DCK/ I,H PPGETC1 DCK/ I,H PPIGETCF DCK/ I,H PPOPTION DCK/ I,H PP DEL/ 1 PP NAM OPTION DECK-ID F15 FORTRAN 3.3A SUMMARY-114 PP DEL/ 65 PP ENQ 35 TERMINATE OPTION CHECK AT CC 72 114*3937 PPENDLOC DCK/ I,H PPLOCLAA DCK/ I,H PPDUMYAA DCK/ I,H PPLOCLAB DCK/ I,H PPDUMYAB DCK/ I,H PPLOCLAC DCK/ I,H PPDUMYAC DCK/ I,H PPLOCLAD DCK/ I,H PPDUMYAD DCK/ I,H PPLOCLAE DCK/ I,H PPDUMYAE DCK/ I,H PPLOCLAF DCK/ I,H PPDUMYAF DCK/ I,H PPLOCLAG DCK/ I,H PPDUMYAG DCK/ I,H PPLOCLAH DCK/ I,H PPDUMYAH DCK/ I,H PPLOCLAI DCK/ I,H PPDUMYAI DCK/ I,H PPGOB DCK/ I,H PPIOPRBB DCK/ I,H PPSTOREB DCK/ I,H PPLOCLBA DCK/ I,H PPDUMYBA DCK/ I,H PPLOCLBB DCK/ I,H PPDUMYBB DCK/ I,H PPLOCLBC DCK/ I,H PPDUMYBC DCK/ I,H PPLOCLBD DCK/ I,H PPDUMYBD DCK/ I,H PPLOCLBE DCK/ I,H PPDUMYBE DCK/ I,H PPLOCLBF DCK/ I,H PPDUMYBF DCK/ I,H PPGOC DCK/ I,H PPIOPRBC DCK/ I,H PP DEL/ 1 PP NAM IOPRBC DECK-ID F51 FORTRAN 3.3A SUMMARY-112 PP INS/ 360 PP STA IFLAGS-1 SAVE FOR PHASES D/E AND F 112*3893 PPLOCLCA DCK/ I,H PPDUMYCA DCK/ I,H PPLOCLCB DCK/ I,H PPGOOD DCK/ I,H PPIOPRBD DCK/ I,H PP DEL/ 1 PP NAM IOPRBD DECK-ID F56 FORTRAN 3.3A SUMMARY-112 PP DEL/ 404 PP LDA IFLAGS-1 PICK UP INITIAL LGO SECTOR+1 112*3893 PPCONV2 DCK/ I,H PPLOCLDA DCK/ I,H PPDUMYDA DCK/ I,H PPLOCLDB DCK/ I,H PPDUMYDB DCK/ I,H PPLOCLDC DCK/ I,H PPGOE 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 PPGTSYM5 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