@CAT,P 1011-002-002.,F///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1011-002-002,,,127760053241,000 )@@G@@*AP[@@LIST SED TIDY 082772 @F@^@@@MSG,N TIDY PROCESSORAA )@@G@@, JPL FORTRAN V VERSION, AUGUST, 1972. @#@^@@@HDG,P PROCS 0 @@@@AB )@@G@@ H, ,1, PROCS . JP@^__@@@PDP,FL PROCS,PROCS @F@[@@PROCESAC )@@G@@SED BY UNIVAC 1108 PDP ON 27 AUG 72 AT 19:26:30 1102-0007 @@@#@@@K@[@@AD )@@G@@PE0001 TIDY PROC AE )@@G@@ PRO00010 @K@[@@ 0002 IMPLICIT INTEGER (A-Z) AF )@@G@@ PRO00020 @K@[@@ 0003 AG )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD AH )@@G@@PRO00030 @K@[@@ 0004 PARAMETER DOS=25 @ MAXIMUM NESTING DAI )@@G@@EPTH OF DO LOOPS PRO00040 @K@[@@ 0005 PARAMEAJ )@@G@@TER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 AK )@@G@@@K@[@@ 0006 PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATAL )@@G@@EMENT NUMBERS PRO00060 @K@[@@ 0007 COMMON ICOL, IFIR,AM )@@G@@ INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@ 0008AN )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), AO )@@G@@ PRO00080 @K@[@@ 0009 2 LDO(DOS), LFIR, LQUAL, AP )@@G@@LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@ 0010 3AQ )@@G@@ MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO001AR )@@G@@00 @K@[@@ 0011 4 NDOS, NINS, NPAR, NPUN, NREC, NREF,AS )@@G@@ NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@ 0012 5 NXEQ,AT )@@G@@ PAREN, PNEXT PRO00120 @K@[@@AU )@@G@@ 0013 DIMENSION KIM(CRDLNG,20) AV )@@G@@ PRO00130 @K@[@@ 0014 DIMENSION KOUT(CRDLNG,20AW )@@G@@) PRO00140 @K@[@@ 0015 AX )@@G@@ DIMENSION OUTPUT(12,20) AY )@@G@@PRO00150 @K@[@@ 0016 EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6AZ )@@G@@),KB6) PRO00160 @K@[@@ 0017 EQUIVABA )@@G@@LENCE (KDIG(1),K0) PRO00170 BB )@@G@@@K@[@@ 0018 EQUIVALENCE (IOUT,KOUT) BC )@@G@@ PRO00180 @K@[@@ 0019 EQUIVALENCE (JINT,BD )@@G@@KIM) PRO00190 @K@[@@ 0020BE )@@G@@ EQUIVALENCE (JINT,OUTPUT) BF )@@G@@ PRO00200 @K@[@@ 0021 DEFINE DLOC(X)=FLD(0,18,LDEF(XBG )@@G@@)) PRO00210 @K@[@@ 0022 BH )@@G@@DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) PRO002BI )@@G@@20 @K@[@@ 0023 DEFINE LDOS(X)=FLD(0,18,LDO(X)) BJ )@@G@@ PRO00230 @K@[@@ 0024 DEFINE LDOL(BK )@@G@@X)=FLD(18,18,LDO(X)) PRO00240 @K@[@@BL )@@G@@ 0025 END BM )@@G@@ PRO00250 @K@[@@PE0026 ALPHA PROC BN )@@G@@ PRO00260 @K@[@@ 0027 BO )@@G@@ COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, BP )@@G@@PRO00270 @K@[@@ 0028 1 KM,KN,KO,KP,KQ,KR,KS,BQ )@@G@@KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@ 0029 2 BR )@@G@@ KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 BS )@@G@@@K@[@@ 0030 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KABT )@@G@@T,KLR2,KERM PRO00300 @K@[@@ 0031 DIMENSION KABC(26)BU )@@G@@, KSPK(14) PRO00310 @K@[@@ 0032BV )@@G@@ EQUIVALENCE (KABC,KA), (KSPK,KEQ) BW )@@G@@ PRO00320 @K@[@@ 0033 END BX )@@G@@ PRO00330 @K@[@@PE0034 CONTDYBY )@@G@@ PROC PRO003BZ )@@G@@40 @K@[@@ 0035 PARAMETER NKTRL=9 CA )@@G@@ PRO00350 @K@[@@ 0036 COMMON /CONTCB )@@G@@DY/ KTRL(4,NKTRL) PRO00360 @K@[@@CC )@@G@@ 0037 PARAMETER CBASE=1 @ KTRL INDEX FOR BASE CONTROL STATEMCD )@@G@@ENT PRO00370 @K@[@@ 0038 END CE )@@G@@ PRO00380 @K@[@@PE0039 CF )@@G@@DIOMSG PROC CG )@@G@@PRO00390 @K@[@@ 0040 PARAMETER LMSG=25 CH )@@G@@ PRO00400 @K@[@@ 0041 COMMONCI )@@G@@ /DIOMSG/ NMSG, MSG(10,LMSG) PRO00410 CJ )@@G@@@K@[@@ 0042 END CK )@@G@@ PRO00420 @K@[@@PE0043 INIT PROC CL )@@G@@ PRO00430 @K@[@@ 0044CM )@@G@@ COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTARCN )@@G@@T, PRO00440 @K@[@@ 0045 1 SOPT,SOURCE,DHDGCO )@@G@@ PRO00450 @K@[@@ 0046 CP )@@G@@LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE PRO004CQ )@@G@@60 @K@[@@ 0047 LOGICAL RIGHT CR )@@G@@ PRO00470 @K@[@@ 0048 END CS )@@G@@ PRO00480 @K@[@@CT )@@G@@PE0049 IOMSG PROC CU )@@G@@ PRO00490 @K@[@@ 0050 COMMON /IOMSG/ IOMSGS(9)CV )@@G@@ PRO00500 @K@[@@ 0051 CW )@@G@@ END CX )@@G@@PRO00510 @K@[@@PE0052 KST PROC CY )@@G@@ PRO00520 @K@[@@ 0053 PARAMECZ )@@G@@TER NOIDS=58 @ NUMBER OF FORTRAN DIRECTIVES PRO00530 DA )@@G@@@K@[@@ 0054 PARAMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUE SDB )@@G@@TATEMENT PRO00540 @K@[@@ 0055 PARAMETER IDDELE=1DC )@@G@@3 @ INDEX INTO KSTIJ FOR DELETE DIRECTIVE PRO00550 @K@[@@ 0056DD )@@G@@ PARAMETER IDEND=19 @ INDEX INTO KSTIJ FOR END STATEMENT DE )@@G@@ PRO00560 @K@[@@ 0057 PARAMETER IDFUNC=24 @ KSTIJ INDF )@@G@@DEX FOR FUNCTION STATEMENT PRO00570 @K@[@@ 0058 DG )@@G@@PARAMETER IGOTON=26 @ INDEX INTO KSTIJ FOR GO TO N STATEMENT PRO005DH )@@G@@80 @K@[@@ 0059 PARAMETER IDSTOP=53 @ INDEX INTO KSTIJ FORDI )@@G@@ STOP STATEMENT PRO00590 @K@[@@ 0060 COMMON /KST/DJ )@@G@@ KSTIJ(12,NOIDS) PRO00600 @K@[@@DK )@@G@@ 0061 END DL )@@G@@ PRO00610 @K@[@@PE0062 LIOS PROC DM )@@G@@ PRO00620 @K@[@@ 0063 DN )@@G@@ COMMON /LIOS/ KLASS, ITYPE, L15, IMAX DO )@@G@@PRO00630 @K@[@@ 0064 DIMENSION KILI(4) DP )@@G@@ PRO00640 @K@[@@ 0065 EQUIVADQ )@@G@@LENCE (KLASS,KILI) PRO00650 DR )@@G@@@K@[@@ 0066 END DS )@@G@@ PRO00660 @K@[@@PE0067 TAPES PROC DT )@@G@@ PRO00670 @K@[@@ 0068DU )@@G@@ COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) DV )@@G@@ PRO00680 @K@[@@ 0069 PARAMETER STDRD=5 @ STANDARD RDW )@@G@@EAD UNIT PRO00690 @K@[@@ 0070 DX )@@G@@PARAMETER STDPRT=6 @ STANDARD PRINT UNIT PRO007DY )@@G@@00 @K@[@@ 0071 PARAMETER STDALT=101 @ STANDARD ALTERNATE DZ )@@G@@PRINT UNIT PRO00710 @K@[@@ 0072 END EA )@@G@@ PRO00720 @K@[@@EB )@@G@@PE0073 WORK PROC EC )@@G@@ PRO00730 @K@[@@ 0074 PARAMETER LTIDY=55 ED )@@G@@ PRO00740 @K@[@@ 0075 EE )@@G@@ PARAMETER LTIDY1=LTIDY+1 EF )@@G@@PRO00750 @K@[@@ 0076 COMMON /WORK/ ECYC, LATEST, NOSPC1, EG )@@G@@WORK1(476), WORK2(476) PRO00760 @K@[@@ 0077 DIMENSEH )@@G@@ION TIDYC(LTIDY) PRO00770 EI )@@G@@@K@[@@ 0078 DIMENSION FILE(15) EJ )@@G@@ PRO00780 @K@[@@ 0079 EQUIVALENCE (WORK2EK )@@G@@,TIDYC), (WORK2(LTIDY1),FILE) PRO00790 @K@[@@ 0080EL )@@G@@ END EM )@@G@@ PRO00800 @#@^@@@HDG,P CONTRL 0 H, ,1, CONTRL EN )@@G@@ . @C@@^__@@@FOR,S CONTRL,CONTRL @E@[@@CYCLE 000 COMPILED BY 1201 S7EEO )@@G@@-A ON 27 AUG 72 AT 19:26:52. @@@[@@@@@[@@@B@[@@ SUBROUTINE CONTRL EP )@@G@@ENTRY POINT 000432@@@[@@@G@]@@ STORAGE USED: CODE(1) 000441; DATA(0) 0EQ )@@G@@00040; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 00ER )@@G@@03 ALPHA 000065@^@[@@ 0004 CONTDY 000044@^@[@@ 0005 INIT ES )@@G@@000013@^@[@@ 0006 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK,ET )@@G@@ NAME)@@@[@@@#@[@@ 0007 RSTAT @#@[@@ 0010 CLOSE @#@[@@ 00EU )@@G@@11 CSFD @#@[@@ 0012 CHPACK @#@[@@ 0013 ASSIGN @#@[@@ 00EV )@@G@@14 NERR2$ @#@[@@ 0015 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK,EW )@@G@@ TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000102 100L EX )@@G@@ 0001 000105 110L 0001 000140 120L 0001 000145 130L EY )@@G@@ 0001 000152 140L @O@[@@ 0001 000157 150L 0001 000011 EZ )@@G@@153G 0001 000163 160L 0001 000167 170L 0001 000050 FA )@@G@@175G @O@[@@ 0001 000201 190L 0001 000221 200L 0001 0FB )@@G@@00057 201G 0001 000226 210L 0001 000233 220L @O@[@@ 00FC )@@G@@01 000240 230L 0001 000173 237G 0001 000244 240L 00FD )@@G@@01 000267 250L 0001 000305 270L @O@[@@ 0001 000273 276G FE )@@G@@ 0001 000031 30L 0001 000343 300L 0001 000321 307G FF )@@G@@ 0001 000416 310L @O@[@@ 0001 000331 315G 0001 000036 FG )@@G@@40L 0001 000043 50L 0001 000076 80L 0001 000100 FH )@@G@@90L @O@[@@ 0005 000012 DHDG 0005 000000 DIAG 0000 I 0FI )@@G@@00000 I 0002 000000 ICOL 0002 000001 IFIR @O@[@@ 00FJ )@@G@@05 L 000001 INDENT 0000 000023 INJP$ 0002 000002 INPUT 00FK )@@G@@02 000450 IOUT 0006 000000 IO1 @O@[@@ 0006 000001 IO2 FL )@@G@@ 0000 I 000004 J 0006 I 000002 JALTFD 0000 I 000003 JB FM )@@G@@ 0002 I 003127 JCOL @O@[@@ 0002 I 003130 JINT 0000 I 000002 FN )@@G@@JL 0002 I 005607 JMAX 0006 I 000003 JOUT 0000 I 000001 FO )@@G@@JSW @O@[@@ 0003 000013 KA 0003 I 000013 KABC 0003 0FP )@@G@@00061 KAND 0003 000062 KAT 0003 000014 KB @O@[@@ 00FQ )@@G@@03 I 000000 KBL 0000 000005 KBUFF 0000 000005 KB1 00FR )@@G@@02 I 005610 KB15 0000 000012 KB6 @O@[@@ 0003 000015 KC FS )@@G@@ 0003 000051 KCLOSE 0003 I 000046 KCOMMA 0003 000016 KD FT )@@G@@ 0003 000057 KDASH @O@[@@ 0003 000001 KDIG 0003 000056 FU )@@G@@KDOLAR 0002 I 005611 KD15 0003 000017 KE 0003 I 000045 FV )@@G@@KEQ @O@[@@ 0003 000064 KERM 0003 000020 KF 0003 0FW )@@G@@00021 KG 0003 000022 KH 0003 000023 KI @O@[@@ 00FX )@@G@@02 003130 KIM 0003 000024 KJ 0003 000025 KK 00FY )@@G@@03 000026 KL 0003 000063 KLR2 @O@[@@ 0003 000027 KM FZ )@@G@@ 0003 000053 KMINUS 0003 000030 KN 0003 000031 KO GA )@@G@@ 0003 000047 KOPEN @O@[@@ 0002 000450 KOUT 0003 000032 GB )@@G@@KP 0003 I 000055 KPERD 0003 000052 KPLUS 0003 000033 GC )@@G@@KQ @O@[@@ 0003 000060 KQUOTE 0003 000034 KR 0003 0GD )@@G@@00035 KS 0003 000050 KSLASH 0003 I 000045 KSPK @O@[@@ 00GE )@@G@@03 000054 KSTAR 0003 000036 KT 0004 I 000000 KTRL 00GF )@@G@@03 000037 KU 0003 000040 KV @O@[@@ 0003 000041 KW GG )@@G@@ 0003 000042 KX 0003 000043 KY 0003 000044 KZ GH )@@G@@ 0003 000001 K0 @O@[@@ 0002 005613 LAST 0002 005614 GI )@@G@@LCPY 0002 I 005615 LDEF 0005 L 000002 LDIAG 0002 I 010551 GJ )@@G@@LDO @O@[@@ 0002 010602 LFIR 0005 000003 LINE 0005 0GK )@@G@@00004 LOPT 0002 010603 LQUAL 0002 010604 LREF @O@[@@ 00GL )@@G@@02 I 005612 L772 0002 I 012554 MCOL 0002 012555 MEOF 00GM )@@G@@02 I 012556 MEX 0002 012557 MILDO @O@[@@ 0002 012560 MLGC GN )@@G@@ 0002 012561 MP2 0002 I 012562 MSTOP 0002 012563 MTRAN GO )@@G@@ 0002 012564 NBLC @O@[@@ 0002 012565 NCD 0002 012566 GP )@@G@@NCDO 0002 012567 NDEF 0002 012570 NDOL 0002 012571 GQ )@@G@@NDOS @O@[@@ 0002 012572 NINS 0002 012573 NPAR 0002 0GR )@@G@@12574 NPUN 0002 012575 NREC 0002 012576 NREF @O@[@@ 00GS )@@G@@02 012577 NRT1 0002 012600 NRT2 0005 L 000005 NSTART 00GT )@@G@@02 012601 NTEMP 0002 012606 NXEQ @O@[@@ 0002 003130 OUTPUTGU )@@G@@ 0002 012607 PAREN 0002 012610 PNEXT 0005 L 000006 RIGHT GV )@@G@@ 0005 L 000007 RSTART@G@[@@ 0005 000010 SOPT 0005 L 000011 GW )@@G@@SOURCE 0006 I 000004 USE @@@^@@@K@[@@00101 1* SUBROUTINGX )@@G@@E CONTRL CON00010 @K@[@@GY )@@G@@00101 2* C GZ )@@G@@ CON00020 @K@[@@00101 3* C THIS SUBROUTINE EXECUHA )@@G@@TES THE TIDY CONTROL STATEMENTS. CON00030 @K@[@@00101 4*HB )@@G@@ C ALL TIDY CONTROL STATEMENTS MUST HAVE AN * PUNCHED IN COLUMN 1.HC )@@G@@ CON00040 @K@[@@00101 5* C HD )@@G@@ CON00050 @K@[@@00101 6* C 1 HE )@@G@@ BASE ====== KB15 CON00060 HF )@@G@@@K@[@@00101 7* C 2 COLL NOCOLL MCOL HG )@@G@@ CON00070 @K@[@@00101 8* C 3 EXEM NOEXEHH )@@G@@M MEX CON00080 @K@[@@00101 HI )@@G@@ 9* C 4 LAST ====== MSTOP HJ )@@G@@ CON00090 @K@[@@00101 10* C 5 LEFT ====== .NOT.RIGHK )@@G@@HT CON00100 @K@[@@00101 11* C HL )@@G@@ 6 LIST ====== JOUT=101 CONHM )@@G@@00110 @K@[@@00101 12* C 7 RIGH ====== RIGHT HN )@@G@@ CON00120 @K@[@@00101 13* C 8 STAT HO )@@G@@ ====== KD15 CON00130 @K@[@@HP )@@G@@00101 14* C 9 STOP ====== MSTOP HQ )@@G@@ CON00140 @K@[@@00101 15* C HR )@@G@@ CON00150 @K@[@@00103 16*HS )@@G@@ INCLUDE TIDY, LIST HT )@@G@@ CON00160 @K@[@@00104 16* IMPLICIT INTEGER (A-Z) HU )@@G@@ PRO00020 @K@[@@00105 16* PARHV )@@G@@AMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 HW )@@G@@@K@[@@00106 16* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DHX )@@G@@O LOOPS PRO00040 @K@[@@00107 16* PARAMETER MAXCHHY )@@G@@S=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 HZ )@@G@@ 16* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMIA )@@G@@BERS PRO00060 @K@[@@00111 16* COMMON ICOL, IFIR, INPUT(14IB )@@G@@,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 16* IC )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PROID )@@G@@00080 @K@[@@00111 16* 2 LDO(DOS), LFIR, LQUAL, LREF(1000IE )@@G@@), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 16* 3 MLIF )@@G@@GC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@IG )@@G@@00111 16* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRIH )@@G@@T2, NTEMP(5), PRO00110 @K@[@@00111 16* 5 NXEQ, PAREN, PII )@@G@@NEXT PRO00120 @K@[@@00112 16*IJ )@@G@@ DIMENSION KIM(CRDLNG,20) IK )@@G@@ PRO00130 @K@[@@00113 16* DIMENSION KOUT(CRDLNG,20) IL )@@G@@ PRO00140 @K@[@@00114 16* DIMIM )@@G@@ENSION OUTPUT(12,20) PRO00150 IN )@@G@@@K@[@@00115 16* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) IO )@@G@@ PRO00160 @K@[@@00116 16* EQUIVALENCE (KDIP )@@G@@IG(1),K0) PRO00170 @K@[@@00117 IQ )@@G@@ 16* EQUIVALENCE (IOUT,KOUT) IR )@@G@@ PRO00180 @K@[@@00120 16* EQUIVALENCE (JINT,KIM) IS )@@G@@ PRO00190 @K@[@@00121 16* IT )@@G@@ EQUIVALENCE (JINT,OUTPUT) PROIU )@@G@@00200 @K@[@@00122 16* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) IV )@@G@@ PRO00210 @K@[@@00123 16* DEFINE DSIW )@@G@@TMT(X)=FLD(18,18,LDEF(X)) PRO00220 @K@[@@IX )@@G@@00124 16* DEFINE LDOS(X)=FLD(0,18,LDO(X)) IY )@@G@@ PRO00230 @K@[@@00125 16* DEFINE LDOL(X)=FLD(18IZ )@@G@@,18,LDO(X)) PRO00240 @K@[@@00125 16*JA )@@G@@ END JB )@@G@@ PRO00250 @K@[@@00126 17* INCLUDE ALPHA, LIST JC )@@G@@ CON00170 @K@[@@00127 17* COMJD )@@G@@MON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 JE )@@G@@@K@[@@00127 17* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,JF )@@G@@KW,KX,KY,KZ, PRO00280 @K@[@@00127 17* 2 JG )@@G@@KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 JH )@@G@@ 17* 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KEJI )@@G@@RM PRO00300 @K@[@@00130 17* DIMENSION KABC(26), KSPK(14JJ )@@G@@) PRO00310 @K@[@@00131 17* JK )@@G@@ EQUIVALENCE (KABC,KA), (KSPK,KEQ) PROJL )@@G@@00320 @K@[@@00131 17* END JM )@@G@@ PRO00330 @K@[@@00132 18* INCLUDE CJN )@@G@@ONTDY, LIST CON00180 @K@[@@JO )@@G@@00133 18* PARAMETER NKTRL=9 JP )@@G@@ PRO00350 @K@[@@00134 18* COMMON /CONTDY/ KTRL(JQ )@@G@@4,NKTRL) PRO00360 @K@[@@00135 18*JR )@@G@@ PARAMETER CBASE=1 @ KTRL INDEX FOR BASE CONTROL STATEMENT JS )@@G@@ PRO00370 @K@[@@00135 18* END JT )@@G@@ PRO00380 @K@[@@00136 19* INCJU )@@G@@LUDE INIT, LIST CON00190 JV )@@G@@@K@[@@00137 19* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTJW )@@G@@ART,RIGHT,RSTART, PRO00440 @K@[@@00137 19* 1 SJX )@@G@@OPT,SOURCE,DHDG PRO00450 @K@[@@00140 JY )@@G@@ 19* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE JZ )@@G@@ PRO00460 @K@[@@00141 19* LOGICAL RIGHT KA )@@G@@ PRO00470 @K@[@@00141 19* ENKB )@@G@@D PROKC )@@G@@00480 @K@[@@00142 20* INCLUDE TAPES, LIST KD )@@G@@ CON00200 @K@[@@00142 21* C KE )@@G@@ CON00210 @K@[@@KF )@@G@@00142 22* C KG )@@G@@ CON00220 @K@[@@00143 22* COMMON /TAPES/ IO1, IKH )@@G@@O2, JALTFD, JOUT, USE (10) PRO00680 @K@[@@00144 22*KI )@@G@@ PARAMETER STDRD=5 @ STANDARD READ UNIT KJ )@@G@@ PRO00690 @K@[@@00145 22* PARAMETER STDPRT=6 @ STANDARD PRIKK )@@G@@NT UNIT PRO00700 @K@[@@00146 22* PARKL )@@G@@AMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 KM )@@G@@@K@[@@00146 22* END KN )@@G@@ PRO00720 @K@[@@00147 23* I=14 KO )@@G@@ CON00230 @K@[@@00150 KP )@@G@@ 24* JSW=0 KQ )@@G@@ CON00240 @K@[@@00151 25* JL=JMAX-1 KR )@@G@@ CON00250 @K@[@@00152 26* KS )@@G@@ DO 30 JB=2,JL CONKT )@@G@@00260 @K@[@@00155 27* IF (JINT(JB)-KBL) 10,30,10 KU )@@G@@ CON00270 @K@[@@00160 28* 10 IF (JINT(KV )@@G@@JB)-KABC(I)) 50,20,50 CON00280 @K@[@@KW )@@G@@00163 29* 20 I=I+1 KX )@@G@@ CON00290 @K@[@@00164 30* IF (I-16) 30,40,40 KY )@@G@@ CON00300 @K@[@@00167 31*KZ )@@G@@ 30 CONTINUE LA )@@G@@ CON00310 @K@[@@00171 32* RETURN LB )@@G@@ CON00320 @K@[@@00171 33* C LC )@@G@@ CON00330 LD )@@G@@@K@[@@00172 34* 40 JSW=NKTRL LE )@@G@@ CON00340 @K@[@@00173 35* JB=JB+1 LF )@@G@@ CON00350 @K@[@@00174 LG )@@G@@ 36* 50 DO 90 J=1,NKTRL LH )@@G@@ CON00360 @K@[@@00177 37* I=0 LI )@@G@@ CON00370 @K@[@@00200 38* LJ )@@G@@ DO 80 JCOL=JB,JMAX CONLK )@@G@@00380 @K@[@@00203 39* IF (JINT(JCOL)-KBL) 60,80,60 LL )@@G@@ CON00390 @K@[@@00206 40* 60 I=I+1 LM )@@G@@ CON00400 @K@[@@LN )@@G@@00207 41* IF (JINT(JCOL)-KTRL(I,J)) 90,70,90 LO )@@G@@ CON00410 @K@[@@00212 42* 70 IF (I-4) 80,110,110 LP )@@G@@ CON00420 @K@[@@00215 43*LQ )@@G@@ 80 CONTINUE LR )@@G@@ CON00430 @K@[@@00217 44* 90 CONTINUE LS )@@G@@ CON00440 @K@[@@00221 45* 100 RETLT )@@G@@URN CON00450 LU )@@G@@@K@[@@00221 46* C LV )@@G@@ CON00460 @K@[@@00221 47* C EXECUTE CONTROLLW )@@G@@ STATEMENT CON00470 @K@[@@00221 LX )@@G@@ 48* C LY )@@G@@ CON00480 @K@[@@00222 49* 110 JSW=JSW+J LZ )@@G@@ CON00490 @K@[@@00222 50* C MA )@@G@@ 1 2 3 4 5 6 7 8 9 CONMB )@@G@@00500 @K@[@@00223 51* GO TO (170,120,130,140,230,240,220,170,MC )@@G@@140, CON00510 @K@[@@00223 52* 1 10MD )@@G@@0,150,160,100,100,100,100,100,100), JSW CON00520 @K@[@@ME )@@G@@00224 53* 120 MCOL=-1 MF )@@G@@ CON00530 @K@[@@00225 54* RETURN MG )@@G@@ CON00540 @K@[@@00226 55*MH )@@G@@ 130 MEX=-1 MI )@@G@@ CON00550 @K@[@@00227 56* RETURN MJ )@@G@@ CON00560 @K@[@@00230 57* 140 MSTMK )@@G@@OP=-1 CON00570 ML )@@G@@@K@[@@00231 58* RETURN MM )@@G@@ CON00580 @K@[@@00232 59* 150 MCOL=0 MN )@@G@@ CON00590 @K@[@@00233 MO )@@G@@ 60* RETURN MP )@@G@@ CON00600 @K@[@@00234 61* 160 MEX=0 MQ )@@G@@ CON00610 @K@[@@00235 62* MR )@@G@@ RETURN CONMS )@@G@@00620 @K@[@@00235 63* C MT )@@G@@ CON00630 @K@[@@00235 64* C GET NUMBEMU )@@G@@R FOLLOWING (=) SIGN. CON00640 @K@[@@MV )@@G@@00235 65* C MW )@@G@@ CON00650 @K@[@@00236 66* 170 DO 180 JCOL=JCOL,JMAXMX )@@G@@ CON00660 @K@[@@00241 67*MY )@@G@@ IF (JINT(JCOL)-KSPK(1)) 180,190,180 MZ )@@G@@ CON00670 @K@[@@00244 68* 180 CONTINUE NA )@@G@@ CON00680 @K@[@@00246 69* 190 JCONB )@@G@@L=JCOL+1 CON00690 NC )@@G@@@K@[@@00247 70* CALL RSTAT ND )@@G@@ CON00700 @K@[@@00250 71* IF (JSW.EQ.CBASNE )@@G@@E) GO TO 200 CON00710 @K@[@@00252 NF )@@G@@ 72* IF (L772.LE.0) L772=10 @ DEFAULT TO STATEMENT INCREMNG )@@G@@ENT OF 10CON00720 @K@[@@00254 73* GO TO 210 NH )@@G@@ CON00730 @K@[@@00255 74* 200NI )@@G@@ KB15=L772 CONNJ )@@G@@00740 @K@[@@00256 75* RETURN NK )@@G@@ CON00750 @K@[@@00257 76* 210 KD15=L772NL )@@G@@ CON00760 @K@[@@NM )@@G@@00260 77* RETURN NN )@@G@@ CON00770 @K@[@@00261 78* 220 RIGHT=.TRUE. NO )@@G@@ CON00780 @K@[@@00262 79*NP )@@G@@ RETURN NQ )@@G@@ CON00790 @K@[@@00263 80* 230 RIGHT=.FALSE. NR )@@G@@ CON00800 @K@[@@00264 81* RETNS )@@G@@URN CON00810 NT )@@G@@@K@[@@00264 82* C NU )@@G@@ CON00820 @K@[@@00264 83* C CHANGE PRINT FINV )@@G@@LE CON00830 @K@[@@00264 NW )@@G@@ 84* C NX )@@G@@ CON00840 @K@[@@00265 85* 240 IF (JOUT.EQ.STDPRT) GO TO 2NY )@@G@@50 CON00850 @K@[@@00267 86* NZ )@@G@@ CALL CLOSE (STDALT,0) @ CLOSE PREVIOUS PRINT CONOA )@@G@@00860 @K@[@@00270 87* USE(1)='@FREE,' OB )@@G@@ CON00870 @K@[@@00271 88* USE(2)='AOC )@@G@@ ' CON00880 @K@[@@OD )@@G@@00272 89* USE(3)=JALTFD OE )@@G@@ CON00890 @K@[@@00273 90* CALL CSFD (USE) OF )@@G@@ @ FREE USE NAME FROM PREVIOUS PRINT CON00900 @K@[@@00274 91*OG )@@G@@ JOUT=STDPRT OH )@@G@@ CON00910 @K@[@@00275 92* 250 DO 260 JCOL=JCOL,JMAX OI )@@G@@@ GET = CON00920 @K@[@@00300 93* 260 IF OJ )@@G@@(JINT(JCOL).EQ.KEQ) GO TO 270 CON00930 OK )@@G@@@K@[@@00303 94* RETURN OL )@@G@@ CON00940 @K@[@@00304 95* 270 IF (JCOL.EQ.JMAOM )@@G@@X) RETURN @ NO FILE NAME FOLLOWS = CON00950 @K@[@@00306 ON )@@G@@ 96* DO 280 JB=2,11 OO )@@G@@ CON00960 @K@[@@00311 97* 280 USE(JB)=KBL OP )@@G@@ @ CLEAR QUAL*FILE CON00970 @K@[@@00313 98* OQ )@@G@@ JCOL=JCOL+1 CONOR )@@G@@00980 @K@[@@00314 99* DO 290 JCOL=JCOL,JMAX @ GET FIRST NON-OS )@@G@@BLANK COLUMN RIGHT OF = CON00990 @K@[@@00317 100* 290 IF (JINT(OT )@@G@@JCOL).NE.KBL) GO TO 300 CON01000 @K@[@@OU )@@G@@00322 101* RETURN OV )@@G@@ CON01010 @K@[@@00323 102* 300 JB=JMAX-JCOL+1 OW )@@G@@ @ NUMBER OF CHARACTERS CON01020 @K@[@@00324 103*OX )@@G@@ IF (JB.GT.48) JB=48 OY )@@G@@ CON01030 @K@[@@00326 104* CALL CHPACK (JINT(JCOL),1,USE(3),OZ )@@G@@1,JB) @ PACK QUAL*FILE CON01040 @K@[@@00327 105* FLDPA )@@G@@(6,6,USE(11))=FLD(0,6,KPERD) CON01050 PB )@@G@@@K@[@@00330 106* USE(1)='@ASG,X' PC )@@G@@ CON01060 @K@[@@00331 107* CALL ASSIGN (USPD )@@G@@E,JB,0,$310) CON01070 @K@[@@00332 PE )@@G@@ 108* USE(1)='@USE ' PF )@@G@@ CON01080 @K@[@@00333 109* USE(2)=JALTFD PG )@@G@@ CON01090 @K@[@@00334 110* PH )@@G@@ FLD(30,6,USE(2))=FLD(0,6,KCOMMA) CONPI )@@G@@01100 @K@[@@00335 111* CALL CSFD (USE) PJ )@@G@@ CON01110 @K@[@@00336 112* JOUT=STDAPK )@@G@@LT CON01120 @K@[@@PL )@@G@@00337 113* 310 RETURN PM )@@G@@ CON01130 @K@[@@00337 114* C PN )@@G@@ CON01140 @K@[@@00340 115*PO )@@G@@ END PP )@@G@@ CON01150 @D@]@@ END OF COMPILATION: NO DIAGNOSTICS. PQ )@@G@@@^@^@@@HDG,P COPY 0A 97* H, ,1, COPY . @]_PR )@@G@@@^__@@@FOR,S COPY,COPY @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON PS )@@G@@27 AUG 72 AT 19:27:13. @@@[@@@@@[@@@B@[@@ SUBROUTINE COPY ENTRY PT )@@G@@POINT 000173@@@[@@@G@]@@ STORAGE USED: CODE(1) 000176; DATA(0) 000020;PU )@@G@@ BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 APV )@@G@@LPHA 000065@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 00PW )@@G@@04 DIAGNO @#@[@@ 0005 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK,PX )@@G@@ TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000015 10L PY )@@G@@ 0001 000152 100L 0001 000154 110L 0001 000161 120L PZ )@@G@@ 0001 000020 20L @O@[@@ 0001 000073 30L 0001 000101 QA )@@G@@40L 0001 000103 50L 0001 000117 60L 0001 000136 QB )@@G@@70L @O@[@@ 0001 000144 80L 0001 000147 90L 0000 I 0QC )@@G@@00002 ERR 0002 I 000000 ICOL 0002 000001 IFIR @O@[@@ 00QD )@@G@@00 000011 INJP$ 0002 000002 INPUT 0002 I 000450 IOUT 00QE )@@G@@02 I 003127 JCOL 0002 I 003130 JINT @O@[@@ 0002 005607 JMAX QF )@@G@@ 0003 000013 KA 0003 000013 KABC 0003 000061 KAND QG )@@G@@ 0003 I 000062 KAT @O@[@@ 0003 000014 KB 0003 I 000000 QH )@@G@@KBL 0000 000003 KBUFF 0000 000003 KB1 0002 005610 QI )@@G@@KB15 @O@[@@ 0000 000010 KB6 0003 000015 KC 0003 I 0QJ )@@G@@00051 KCLOSE 0003 000046 KCOMMA 0003 000016 KD @O@[@@ 00QK )@@G@@03 000057 KDASH 0003 000001 KDIG 0003 000056 KDOLAR 00QL )@@G@@02 005611 KD15 0003 000017 KE @O@[@@ 0003 000045 KEQ QM )@@G@@ 0003 I 000064 KERM 0003 000020 KF 0003 000021 KG QN )@@G@@ 0003 000022 KH @O@[@@ 0003 000023 KI 0002 003130 QO )@@G@@KIM 0003 000024 KJ 0003 000025 KK 0003 000026 QP )@@G@@KL @O@[@@ 0003 000063 KLR2 0003 000027 KM 0003 0QQ )@@G@@00053 KMINUS 0003 000030 KN 0003 000031 KO @O@[@@ 00QR )@@G@@03 I 000047 KOPEN 0002 000450 KOUT 0003 000032 KP 00QS )@@G@@03 000055 KPERD 0003 000052 KPLUS @O@[@@ 0003 000033 KQ QT )@@G@@ 0003 000060 KQUOTE 0003 000034 KR 0003 000035 KS QU )@@G@@ 0003 000050 KSLASH@O@[@@ 0003 000045 KSPK 0003 000054 QV )@@G@@KSTAR 0003 000036 KT 0003 000037 KU 0003 000040 QW )@@G@@KV @O@[@@ 0003 000041 KW 0003 000042 KX 0003 0QX )@@G@@00043 KY 0003 000044 KZ 0003 000001 K0 @O@[@@ 00QY )@@G@@02 005613 LAST 0002 I 005614 LCPY 0002 I 005615 LDEF 00QZ )@@G@@02 I 010551 LDO 0002 010602 LFIR @O@[@@ 0002 010603 LQUAL RA )@@G@@ 0002 010604 LREF 0002 005612 L772 0002 012554 MCOL RB )@@G@@ 0002 I 012555 MEOF @O@[@@ 0002 012556 MEX 0002 012557 RC )@@G@@MILDO 0002 012560 MLGC 0002 012561 MP2 0002 012562 RD )@@G@@MSTOP @O@[@@ 0002 012563 MTRAN 0002 012564 NBLC 0002 0RE )@@G@@12565 NCD 0002 012566 NCDO 0002 012567 NDEF @O@[@@ 00RF )@@G@@02 012570 NDOL 0002 012571 NDOS 0002 012572 NINS 00RG )@@G@@00 I 000001 NP 0002 012573 NPAR @O@[@@ 0002 012574 NPUN RH )@@G@@ 0002 012575 NREC 0002 012576 NREF 0002 012577 NRT1 RI )@@G@@ 0002 012600 NRT2 @O@[@@ 0000 I 000000 NT 0002 012601 RJ )@@G@@NTEMP 0002 012606 NXEQ 0002 003130 OUTPUT 0002 I 012607 RK )@@G@@PAREN @^@[@@ 0002 I 012610 PNEXT @@@^@@@K@[@@00101 1* SUBRL )@@G@@ROUTINE COPY (N) COP00010 RM )@@G@@@K@[@@00101 2* C RN )@@G@@ COP00020 @K@[@@00101 3* C THIS SUBROUTINERO )@@G@@ COPYS NON-BLANK CHARACTERS FROM JINT TO IOUT. COP00030 @K@[@@00101 RP )@@G@@ 4* C RQ )@@G@@ COP00040 @K@[@@00101 5* C === ONRR )@@G@@ ENTRY === COP00050 @K@[@@00101 6* C RS )@@G@@ N .LT. 0 COPYS UNTIL PARENTHESIS COUNT IS ZERO. COPRT )@@G@@00060 @K@[@@00101 7* C N .EQ. 0 COPYS ALL REMAINING NON-BLANK RU )@@G@@DATA FROM JINT TO IOUT. COP00070 @K@[@@00101 8* C N .GT. 0 RV )@@G@@COPYS N NON-BLANK DATA FROM JINT TO IOUT. COP00080 @K@[@@RW )@@G@@00101 9* C THE FIRST ITEM INSPECTED IS JINT(JCOL). RX )@@G@@ COP00090 @K@[@@00101 10* C THE FIRST ITEM STOREDRY )@@G@@ GOES TO IOUT(ICOL+1). COP00100 @K@[@@00101 11*RZ )@@G@@ C SA )@@G@@ COP00110 @K@[@@00101 12* C === ON EXIT SB )@@G@@ === COP00120 @K@[@@00101 13* C MEOSC )@@G@@F .LT. 0 FOR NORMAL EXIT. COP00130 SD )@@G@@@K@[@@00101 14* C MEOF .EQ. 0 FOR KERM FOUND WHILE COPYING ALSE )@@G@@L REMAINING DATA, COP00140 @K@[@@00101 15* C ORSF )@@G@@ FOR KERM FOUND BEFORE LEFT PARENTHESIS. COP00150 @K@[@@00101 SG )@@G@@ 16* C MEOF .GT. 0 FOR MISSING RIGHT PARENTHESIS, OR FOR MEOF =SH )@@G@@0 ON COP00160 @K@[@@00101 17* C ENTRY TO COPY.SI )@@G@@ COP00170 @K@[@@00101 18* C SJ )@@G@@ COPSK )@@G@@00180 @K@[@@00101 19* C THE LAST ITEM STORED WENT TO IOUT(ICOL)SL )@@G@@ AND IS IN LCPY. COP00190 @K@[@@00101 20* C IF MEOF ISM )@@G@@S .LT. 0, THE NEXT NON-BLANK ITEM IS IN JINT(JCOL) AND COP00200 @K@[@@SN )@@G@@00101 21* C IN PNEXT. SO )@@G@@ COP00210 @K@[@@00101 22* C SP )@@G@@ COP00220 @K@[@@00101 23*SQ )@@G@@ C SR )@@G@@ COP00230 @K@[@@00103 24* INCLUDE TIDY, LIST SS )@@G@@ COP00240 @K@[@@00104 24* IMPST )@@G@@LICIT INTEGER (A-Z) PRO00020 SU )@@G@@@K@[@@00105 24* PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PSV )@@G@@ER CONT. CARD PRO00030 @K@[@@00106 24* PARAMETER DOS=2SW )@@G@@5 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 @K@[@@00107 SX )@@G@@ 24* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMSY )@@G@@ENT PRO00050 @K@[@@00110 24* PARAMETER DEFLNG=1500 @ MAXSZ )@@G@@. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 24* TA )@@G@@ COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PROTB )@@G@@00070 @K@[@@00111 24* 1 JMAX, KB15, KD15, L772, LAST, LCTC )@@G@@PY, LDEF(DEFLNG), PRO00080 @K@[@@00111 24* 2 LDTD )@@G@@O(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@TE )@@G@@00111 24* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDTF )@@G@@EF, NDOL, PRO00100 @K@[@@00111 24* 4 NDOS, NINS, NPTG )@@G@@AR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 24*TH )@@G@@ 5 NXEQ, PAREN, PNEXT TI )@@G@@ PRO00120 @K@[@@00112 24* DIMENSION KIM(CRDLNG,20) TJ )@@G@@ PRO00130 @K@[@@00113 24* DIMTK )@@G@@ENSION KOUT(CRDLNG,20) PRO00140 TL )@@G@@@K@[@@00114 24* DIMENSION OUTPUT(12,20) TM )@@G@@ PRO00150 @K@[@@00115 24* EQUIVALENCE (KBTN )@@G@@UFF(1),KB1), (KBUFF(6),KB6) PRO00160 @K@[@@00116 TO )@@G@@ 24* EQUIVALENCE (KDIG(1),K0) TP )@@G@@ PRO00170 @K@[@@00117 24* EQUIVALENCE (IOUT,KOUT) TQ )@@G@@ PRO00180 @K@[@@00120 24* TR )@@G@@ EQUIVALENCE (JINT,KIM) PROTS )@@G@@00190 @K@[@@00121 24* EQUIVALENCE (JINT,OUTPUT) TT )@@G@@ PRO00200 @K@[@@00122 24* DEFINE DLTU )@@G@@OC(X)=FLD(0,18,LDEF(X)) PRO00210 @K@[@@TV )@@G@@00123 24* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) TW )@@G@@ PRO00220 @K@[@@00124 24* DEFINE LDOS(X)=FLD(0,TX )@@G@@18,LDO(X)) PRO00230 @K@[@@00125 24*TY )@@G@@ DEFINE LDOL(X)=FLD(18,18,LDO(X)) TZ )@@G@@ PRO00240 @K@[@@00125 24* END UA )@@G@@ PRO00250 @K@[@@00126 25* INCUB )@@G@@LUDE ALPHA, LIST COP00250 UC )@@G@@@K@[@@00126 26* C UD )@@G@@ COP00260 @K@[@@00126 27* C UE )@@G@@ COP00270 @K@[@@00127 UF )@@G@@ 27* COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJUG )@@G@@,KK,KL, PRO00270 @K@[@@00127 27* 1 KM,KN,KO,KP,UH )@@G@@KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@00127 27* UI )@@G@@ 2 KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PROUJ )@@G@@00290 @K@[@@00127 27* 3 KPERD,KDOLAR,KDASH,KQUOTUK )@@G@@E,KAND,KAT,KLR2,KERM PRO00300 @K@[@@00130 27* DIMENSIONUL )@@G@@ KABC(26), KSPK(14) PRO00310 @K@[@@UM )@@G@@00131 27* EQUIVALENCE (KABC,KA), (KSPK,KEQ) UN )@@G@@ PRO00320 @K@[@@00131 27* END UO )@@G@@ PRO00330 @K@[@@00132 28*UP )@@G@@ NT=N UQ )@@G@@ COP00280 @K@[@@00133 29* IF (MEOF) ,80,120 UR )@@G@@ COP00290 @K@[@@00136 30* NP=US )@@G@@MAXCHS COP00300 UT )@@G@@@K@[@@00137 31* IF (NT.GT.0) NP=NT @ COPY N NONUU )@@G@@-BLANK CHARACTERS COP00310 @K@[@@00141 32* GO TO 20 UV )@@G@@ COP00320 @K@[@@00141 UW )@@G@@ 33* C UX )@@G@@ COP00330 @K@[@@00141 34* C COPY NON-BLANK CHARACTERS UY )@@G@@ COP00340 @K@[@@00141 35* C UZ )@@G@@ COPVA )@@G@@00350 @K@[@@00142 36* 10 JCOL=JCOL+1 VB )@@G@@ COP00360 @K@[@@00143 37* 20 PNEXT=JINVC )@@G@@T(JCOL) COP00370 @K@[@@VD )@@G@@00144 38* IF (PNEXT.EQ.KBL) GO TO 10 VE )@@G@@ COP00380 @K@[@@00146 39* IF (PNEXT.EQ.KERM) GOVF )@@G@@ TO 70 COP00390 @K@[@@00150 40*VG )@@G@@ ICOL=ICOL+1 VH )@@G@@ COP00400 @K@[@@00151 41* IF (PNEXT.EQ.KAT) GO TO 60 VI )@@G@@ COP00410 @K@[@@00153 42* IOUVJ )@@G@@T(ICOL)=PNEXT COP00420 VK )@@G@@@K@[@@00154 43* IF (PNEXT.EQ.KOPEN) PAREN=PAREN+1 VL )@@G@@ COP00430 @K@[@@00156 44* IF (PNEXT.NE.KCVM )@@G@@LOSE) GO TO 30 COP00440 @K@[@@00160 VN )@@G@@ 45* PAREN=PAREN-1 VO )@@G@@ COP00450 @K@[@@00161 46* IF (PAREN) 100,,30 VP )@@G@@ COP00460 @K@[@@00164 47* VQ )@@G@@ IF (NT.LT.0) GO TO 40 @ COPY TO PARENTHESIS COUNT OF ZERO COPVR )@@G@@00470 @K@[@@00166 48* 30 NP=NP-1 VS )@@G@@ COP00480 @K@[@@00167 49* IF (NP.GTVT )@@G@@.0) GO TO 10 COP00490 @K@[@@VU )@@G@@00167 50* C VV )@@G@@ COP00500 @K@[@@00167 51* C SAVE LAST CHARACTER CVW )@@G@@OPIED COP00510 @K@[@@00167 52*VX )@@G@@ C VY )@@G@@ COP00520 @K@[@@00171 53* 40 LCPY=PNEXT VZ )@@G@@@ LAST CHARACTER COPIED COP00530 @K@[@@00171 54* C WA )@@G@@ COP00540 WB )@@G@@@K@[@@00171 55* C POSITION TO NEXT NON-BLANK CHARACTER WC )@@G@@ COP00550 @K@[@@00171 56* C WD )@@G@@ COP00560 @K@[@@00172 WE )@@G@@ 57* 50 JCOL=JCOL+1 WF )@@G@@ COP00570 @K@[@@00173 58* PNEXT=JINT(JCOL) WG )@@G@@ COP00580 @K@[@@00174 59* WH )@@G@@ IF (PNEXT.EQ.KBL) GO TO 50 COPWI )@@G@@00590 @K@[@@00174 60* C WJ )@@G@@ COP00600 @K@[@@00176 61* RETURN WK )@@G@@ COP00610 @K@[@@WL )@@G@@00176 62* C WM )@@G@@ COP00620 @K@[@@00176 63* C @ FOUND.WN )@@G@@ COPY ALL CHARACTERS TO END OF STATEMENT COP00630 @K@[@@00176 64*WO )@@G@@ C WP )@@G@@ COP00640 @K@[@@00177 65* 60 ICOL=ICOL+1 WQ )@@G@@ COP00650 @K@[@@00200 66* IOUWR )@@G@@T(ICOL)=PNEXT COP00660 WS )@@G@@@K@[@@00201 67* JCOL=JCOL+1 WT )@@G@@ COP00670 @K@[@@00202 68* PNEXT=JINT(JCOLWU )@@G@@) COP00680 @K@[@@00203 WV )@@G@@ 69* IF (PNEXT.NE.KERM) GO TO 60 WW )@@G@@ COP00690 @K@[@@00203 70* C WX )@@G@@ COP00700 @K@[@@00203 71* C WY )@@G@@ TEST FOR BALANCED PARENTHESES COPWZ )@@G@@00710 @K@[@@00203 72* C XA )@@G@@ COP00720 @K@[@@00205 73* 70 IF (PARENXB )@@G@@) 100,,90 COP00730 @K@[@@XC )@@G@@00210 74* MEOF=0 XD )@@G@@ COP00740 @K@[@@00211 75* GO TO 120 XE )@@G@@ COP00750 @K@[@@00211 76*XF )@@G@@ C XG )@@G@@ COP00760 @K@[@@00211 77* C ERROR ON ENTRY XH )@@G@@ COP00770 @K@[@@00211 78* C XI )@@G@@ COP00780 XJ )@@G@@@K@[@@00212 79* 80 ERR=1 XK )@@G@@ COP00790 @K@[@@00213 80* GO TO 110 XL )@@G@@ COP00800 @K@[@@00213 XM )@@G@@ 81* C XN )@@G@@ COP00810 @K@[@@00213 82* C MISSING RIGHT PARENTHESIS XO )@@G@@ COP00820 @K@[@@00213 83* C XP )@@G@@ COPXQ )@@G@@00830 @K@[@@00214 84* 90 ERR=2 XR )@@G@@ COP00840 @K@[@@00215 85* GO TO 110XS )@@G@@ COP00850 @K@[@@XT )@@G@@00215 86* C XU )@@G@@ COP00860 @K@[@@00215 87* C EXCESS RIGHT PARENTHEXV )@@G@@SIS COP00870 @K@[@@00215 88*XW )@@G@@ C XX )@@G@@ COP00880 @K@[@@00216 89* 100 ERR=3 XY )@@G@@ COP00890 @K@[@@00217 90* 110 CALXZ )@@G@@L DIAGNO (ERR) COP00900 YA )@@G@@@K@[@@00220 91* MEOF=1 YB )@@G@@ COP00910 @K@[@@00221 92* 120 LCPY=KERM YC )@@G@@ COP00920 @K@[@@00222 YD )@@G@@ 93* RETURN YE )@@G@@ COP00930 @K@[@@00222 94* C YF )@@G@@ COP00940 @K@[@@00223 95* YG )@@G@@ END COPYH )@@G@@00950 @D@]@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@YI )@@G@@@HDG,P DATA 0 H, ,1, DATA . @L^@^__@@@FOR,S DAYJ )@@G@@TA,DATA @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:27YK )@@G@@:28. @@@[@@@@@[@@@#@[@@ BLOCK DATA @G@]@@ STORAGE USED: CODE(1)YL )@@G@@ 000000; DATA(0) 000012; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:YM )@@G@@@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 CONTDY 000044@^@[@@YN )@@G@@ 0005 DIOMSG 000373@^@[@@ 0006 INIT 000013@^@[@@ 0007 IYO )@@G@@OMSG 000011@^@[@@ 0010 KST 001270@^@[@@ 0011 TAPES 000016YP )@@G@@@F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) YQ )@@G@@@@@[@@@O@[@@ 0006 000012 DHDG 0006 000000 DIAG 0000 I 0YR )@@G@@00002 I 0002 000000 ICOL 0002 000001 IFIR @O@[@@ 00YS )@@G@@06 L 000001 INDENT 0002 000002 INPUT 0007 I 000000 IOMSGS 00YT )@@G@@02 000450 IOUT 0011 I 000000 IO1 @O@[@@ 0011 I 000001 IO2 YU )@@G@@ 0000 I 000001 I$ 0000 I 000003 J 0011 I 000002 JALTFDYV )@@G@@ 0002 003127 JCOL @O@[@@ 0002 003130 JINT 0002 005607 YW )@@G@@JMAX 0011 I 000003 JOUT 0003 000013 KA 0003 I 000013 YX )@@G@@KABC @O@[@@ 0003 000061 KAND 0003 000062 KAT 0003 0YY )@@G@@00014 KB 0003 I 000000 KBL 0000 000004 KBUFF @O@[@@ 00YZ )@@G@@00 000004 KB1 0002 I 005610 KB15 0000 000011 KB6 00ZA )@@G@@03 000015 KC 0003 000051 KCLOSE@O@[@@ 0003 000046 KCOMMAZB )@@G@@ 0003 000016 KD 0003 000057 KDASH 0003 I 000001 KDIG ZC )@@G@@ 0003 000056 KDOLAR@O@[@@ 0002 I 005611 KD15 0003 000017 ZD )@@G@@KE 0003 000045 KEQ 0003 I 000064 KERM 0003 000020 ZE )@@G@@KF @O@[@@ 0003 000021 KG 0003 000022 KH 0003 0ZF )@@G@@00023 KI 0002 003130 KIM 0003 000024 KJ @O@[@@ 00ZG )@@G@@03 000025 KK 0003 000026 KL 0003 I 000063 KLR2 00ZH )@@G@@03 000027 KM 0003 000053 KMINUS@O@[@@ 0003 000030 KN ZI )@@G@@ 0003 000031 KO 0003 000047 KOPEN 0002 000450 KOUT ZJ )@@G@@ 0003 000032 KP @O@[@@ 0003 000055 KPERD 0003 000052 ZK )@@G@@KPLUS 0003 000033 KQ 0003 000060 KQUOTE 0003 000034 ZL )@@G@@KR @O@[@@ 0003 000035 KS 0003 000050 KSLASH 0003 I 0ZM )@@G@@00045 KSPK 0003 000054 KSTAR 0010 I 000000 KSTIJ @O@[@@ 00ZN )@@G@@03 000036 KT 0004 I 000000 KTRL 0003 000037 KU 00ZO )@@G@@03 000040 KV 0003 000041 KW @O@[@@ 0003 000042 KX ZP )@@G@@ 0003 000043 KY 0003 000044 KZ 0003 000001 K0 ZQ )@@G@@ 0002 005613 LAST @O@[@@ 0002 005614 LCPY 0002 005615 ZR )@@G@@LDEF 0006 L 000002 LDIAG 0002 010551 LDO 0002 010602 ZS )@@G@@LFIR @O@[@@ 0006 000003 LINE 0006 000004 LOPT 0002 0ZT )@@G@@10603 LQUAL 0002 010604 LREF 0002 005612 L772 @O@[@@ 00ZU )@@G@@02 012554 MCOL 0002 012555 MEOF 0002 012556 MEX 00ZV )@@G@@02 012557 MILDO 0002 012560 MLGC @O@[@@ 0000 I 000000 MLIST ZW )@@G@@ 0002 012561 MP2 0005 I 000001 MSG 0002 012562 MSTOP ZX )@@G@@ 0002 012563 MTRAN @O@[@@ 0002 012564 NBLC 0002 012565 ZY )@@G@@NCD 0002 012566 NCDO 0002 012567 NDEF 0002 012570 ZZ )@@G@@NDOL @O@[@@ 0002 012571 NDOS 0002 012572 NINS 0005 I 0AA )@@G@@00000 NMSG 0002 012573 NPAR 0002 012574 NPUN @O@[@@ 00AB )@@G@@02 012575 NREC 0002 012576 NREF 0002 012577 NRT1 00AC )@@G@@02 012600 NRT2 0006 L 000005 NSTART@O@[@@ 0002 012601 NTEMP AD )@@G@@ 0002 012606 NXEQ 0002 003130 OUTPUT 0002 012607 PAREN AE )@@G@@ 0002 012610 PNEXT @O@[@@ 0006 L 000006 RIGHT 0006 L 000007 AF )@@G@@RSTART 0006 000010 SOPT 0006 L 000011 SOURCE 0011 000004 AG )@@G@@USE @@@^@@@K@[@@00101 1* BLOCK DATA AH )@@G@@ DAT00010 @K@[@@00101 2* C AI )@@G@@ DAT00020 AJ )@@G@@@K@[@@00101 3* C THIS BLOCK DATA CONTAINS ALL THE DATA STATEMEAK )@@G@@NTS FOR TIDY. DAT00030 @K@[@@00101 4* C AL )@@G@@ DAT00040 @K@[@@00102 AM )@@G@@ 5* INCLUDE TIDY, LIST AN )@@G@@ DAT00050 @K@[@@00103 5* IMPLICIT INTEGER (A-Z) AO )@@G@@ PRO00020 @K@[@@00104 5* AP )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PROAQ )@@G@@00030 @K@[@@00105 5* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTAR )@@G@@H OF DO LOOPS PRO00040 @K@[@@00106 5* PARAMETERAS )@@G@@ MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@AT )@@G@@00107 5* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMEAU )@@G@@NT NUMBERS PRO00060 @K@[@@00110 5* COMMON ICOL, IFIR, INAV )@@G@@PUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00110 5*AW )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), AX )@@G@@ PRO00080 @K@[@@00110 5* 2 LDO(DOS), LFIR, LQUAL, LREAY )@@G@@F(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00110 5* 3 AZ )@@G@@ MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 BA )@@G@@@K@[@@00110 5* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRBB )@@G@@T1, NRT2, NTEMP(5), PRO00110 @K@[@@00110 5* 5 NXEQ, PABC )@@G@@REN, PNEXT PRO00120 @K@[@@00111 BD )@@G@@ 5* DIMENSION KIM(CRDLNG,20) BE )@@G@@ PRO00130 @K@[@@00112 5* DIMENSION KOUT(CRDLNG,20) BF )@@G@@ PRO00140 @K@[@@00113 5* BG )@@G@@ DIMENSION OUTPUT(12,20) PROBH )@@G@@00150 @K@[@@00114 5* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KBI )@@G@@B6) PRO00160 @K@[@@00115 5* EQUIVALENBJ )@@G@@CE (KDIG(1),K0) PRO00170 @K@[@@BK )@@G@@00116 5* EQUIVALENCE (IOUT,KOUT) BL )@@G@@ PRO00180 @K@[@@00117 5* EQUIVALENCE (JINT,KIMBM )@@G@@) PRO00190 @K@[@@00120 5*BN )@@G@@ EQUIVALENCE (JINT,OUTPUT) BO )@@G@@ PRO00200 @H@[@@00121 *ERROR* THIS STATEMENT SHOULD NOT BE IN ABP )@@G@@ BLOCK DATA PROGRAM. @K@[@@00121 5* DEFINE DLOC(X)=FLD(0,BQ )@@G@@18,LDEF(X)) PRO00210 @H@[@@00122 BR )@@G@@*ERROR* THIS STATEMENT SHOULD NOT BE IN A BLOCK DATA PROGRAM. @K@[@@BS )@@G@@00122 5* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) BT )@@G@@ PRO00220 @H@[@@00123 *ERROR* THIS STATEMENT SHOULDBU )@@G@@ NOT BE IN A BLOCK DATA PROGRAM. @K@[@@00123 5* DEFINE LDBV )@@G@@OS(X)=FLD(0,18,LDO(X)) PRO00230 @H@[@@BW )@@G@@00124 *ERROR* THIS STATEMENT SHOULD NOT BE IN A BLOCK DATA PROGRABX )@@G@@M. @K@[@@00124 5* DEFINE LDOL(X)=FLD(18,18,LDO(X)) BY )@@G@@ PRO00240 @K@[@@00124 5* END BZ )@@G@@ PRO00250 @K@[@@CA )@@G@@00125 6* INCLUDE ALPHA, LIST CB )@@G@@ DAT00060 @K@[@@00126 6* COMMON /ALPHA/ KBL,KDCC )@@G@@IG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00126 6*CD )@@G@@ 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, CE )@@G@@ PRO00280 @K@[@@00126 6* 2 KEQ,KCOMMA,KOPEN,KCF )@@G@@SLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00126 6* 3 CG )@@G@@ KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PRO00300 CH )@@G@@@K@[@@00127 6* DIMENSION KABC(26), KSPK(14) CI )@@G@@ PRO00310 @K@[@@00130 6* EQUIVALENCE (KACJ )@@G@@BC,KA), (KSPK,KEQ) PRO00320 @K@[@@00130 CK )@@G@@ 6* END CL )@@G@@ PRO00330 @K@[@@00131 7* INCLUDE CONTDY, LIST CM )@@G@@ DAT00070 @K@[@@00132 7* CN )@@G@@ PARAMETER NKTRL=9 PROCO )@@G@@00350 @K@[@@00133 7* COMMON /CONTDY/ KTRL(4,NKTRL) CP )@@G@@ PRO00360 @K@[@@00134 7* PARAMETERCQ )@@G@@ CBASE=1 @ KTRL INDEX FOR BASE CONTROL STATEMENT PRO00370 @K@[@@CR )@@G@@00134 7* END CS )@@G@@ PRO00380 @K@[@@00135 8* INCLUDE DIOMSG, LIST CT )@@G@@ DAT00080 @K@[@@00136 8*CU )@@G@@ PARAMETER LMSG=25 CV )@@G@@ PRO00400 @K@[@@00137 8* COMMON /DIOMSG/ NMSG, MSG(10,LMSGCW )@@G@@) PRO00410 @K@[@@00137 8* END CX )@@G@@ PRO00420 CY )@@G@@@K@[@@00140 9* INCLUDE INIT, LIST CZ )@@G@@ DAT00090 @K@[@@00141 9* COMMON /INIT/ DDA )@@G@@IAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00141 DB )@@G@@ 9* 1 SOPT,SOURCE,DHDG DC )@@G@@ PRO00450 @K@[@@00142 9* LOGICAL INDENT, LDIAG, NSTADD )@@G@@RT, RSTART, SOURCE PRO00460 @K@[@@00143 9* DE )@@G@@ LOGICAL RIGHT PRODF )@@G@@00470 @K@[@@00143 9* END DG )@@G@@ PRO00480 @K@[@@00144 10* INCLUDE IDH )@@G@@OMSG, LIST DAT00100 @K@[@@DI )@@G@@00145 10* COMMON /IOMSG/ IOMSGS(9) DJ )@@G@@ PRO00500 @K@[@@00145 10* END DK )@@G@@ PRO00510 @K@[@@00146 11*DL )@@G@@ INCLUDE KST, LIST DM )@@G@@ DAT00110 @K@[@@00147 11* PARAMETER NOIDS=58 @ NUMBER OF FODN )@@G@@RTRAN DIRECTIVES PRO00530 @K@[@@00150 11* PARDO )@@G@@AMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUE STATEMENT PRO00540 DP )@@G@@@K@[@@00151 11* PARAMETER IDDELE=13 @ INDEX INTO KSTIJ FOR DEDQ )@@G@@LETE DIRECTIVE PRO00550 @K@[@@00152 11* PARAMETER IDENDDR )@@G@@=19 @ INDEX INTO KSTIJ FOR END STATEMENT PRO00560 @K@[@@00153 DS )@@G@@ 11* PARAMETER IDFUNC=24 @ KSTIJ INDEX FOR FUNCTION STATEMENT DT )@@G@@ PRO00570 @K@[@@00154 11* PARAMETER IGOTON=26 @ INDEXDU )@@G@@ INTO KSTIJ FOR GO TO N STATEMENT PRO00580 @K@[@@00155 11* DV )@@G@@ PARAMETER IDSTOP=53 @ INDEX INTO KSTIJ FOR STOP STATEMENT PRODW )@@G@@00590 @K@[@@00156 11* COMMON /KST/ KSTIJ(12,NOIDS) DX )@@G@@ PRO00600 @K@[@@00156 11* END DY )@@G@@ PRO00610 @K@[@@DZ )@@G@@00157 12* INCLUDE TAPES, LIST EA )@@G@@ DAT00120 @K@[@@00157 13* C EB )@@G@@ DAT00130 @K@[@@00157 14*EC )@@G@@ C ED )@@G@@ DAT00140 @K@[@@00160 14* COMMON /TAPES/ IO1, IO2, JALTFD, EE )@@G@@JOUT, USE (10) PRO00680 @K@[@@00161 14* PAREF )@@G@@AMETER STDRD=5 @ STANDARD READ UNIT PRO00690 EG )@@G@@@K@[@@00162 14* PARAMETER STDPRT=6 @ STANDARD PRINT UNIT EH )@@G@@ PRO00700 @K@[@@00163 14* PARAMETER STDALEI )@@G@@T=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@00163 EJ )@@G@@ 14* END EK )@@G@@ PRO00720 @K@[@@00164 15* DATA KB15/10/ KD15/10/ MLISEL )@@G@@T/-1/ DAT00150 @K@[@@00170 16* EM )@@G@@ DATA KBL,KDIG/' ','0','1','2','3','4','5','6','7','8','9'/ DATEN )@@G@@00160 @K@[@@00173 17* DATA KABC/'A','B','C','D','E','F','G','EO )@@G@@H','I','J','K','L','M','N',DAT00170 @K@[@@00173 18* 1'O','P','EP )@@G@@Q','R','S','T','U','V','W','X','Y','Z'/ DAT00180 @K@[@@EQ )@@G@@00175 19* DATA KSPK/'=',',','(','/',')','+','-','*','.','$','ER )@@G@@-',1H','&','@'/DAT00190 @K@[@@00177 20* DATA KLR2,KERM /'$$',ES )@@G@@' *****'/ DAT00200 @K@[@@00202 21*ET )@@G@@ DATA KTRL/ 'B','A','S','E', EU )@@G@@ DAT00210 @K@[@@00202 22* 2 'C','O','L','L', EV )@@G@@ DAT00220 @K@[@@00202 23* 3 EW )@@G@@ 'E','X','E','M', DAT00230 EX )@@G@@@K@[@@00202 24* 4 'L','A','S','T', EY )@@G@@ DAT00240 @K@[@@00202 25* 5 'L',EZ )@@G@@'E','F','T', DAT00250 @K@[@@00202 FA )@@G@@ 26* 6 'L','I','S','T', FB )@@G@@ DAT00260 @K@[@@00202 27* 8 'R','I','G','H',FC )@@G@@ DAT00270 @K@[@@00202 28* FD )@@G@@ 9 'S','T','A','T', DATFE )@@G@@00280 @K@[@@00202 29* * 'S','T','O','P'/ FF )@@G@@ DAT00290 @K@[@@00202 30* C FG )@@G@@ DAT00300 @K@[@@FH )@@G@@00204 31* DATA NMSG/0/ FI )@@G@@ DAT00310 @K@[@@00206 32* DATA ((MSG(I,J),I=1,1FJ )@@G@@0),J=1,19)/ DAT00320 @K@[@@00206 33*FK )@@G@@ 1' THE NEXT STATEMENT IS ILLEGAL AND HAS BEEN DELETED. ',FL )@@G@@ DAT00330 @K@[@@00206 34* 2' THE NEXT STATEMENT HAS A MISSINFM )@@G@@G RIGHT PARENTHESIS. ', DAT00340 @K@[@@00206 35* 3' TFN )@@G@@HE NEXT STATEMENT HAS AN EXCESS RIGHT PARENTHESIS. ', DAT00350 FO )@@G@@@K@[@@00206 36* 4' THE NEXT STATEMENT INCORRECTLY TERMINATES AFP )@@G@@ DO LOOP. ', DAT00360 @K@[@@00206 37* 5' WARNING, THE FQ )@@G@@NEXT STATEMENT CANT BE REACHED BY THE PROGRAM.', DAT00370 @K@[@@00206 FR )@@G@@ 38* 6' STATEMENT NUMBER TABLE FULL. PROCESSING TERMINATED. FS )@@G@@ ', DAT00380 @K@[@@00206 39* 7' REFERENCE NUMBER TABLE FUFT )@@G@@LL. PROCESSING TERMINATED. ', DAT00390 @K@[@@00206 40* FU )@@G@@ 8' ILLEGAL USE OF CONTINUATION CARD IN THE NEXT STATEMENT. ', DATFV )@@G@@00400 @K@[@@00206 41* 9' THE NEXT STATEMENT HAS AN ILLEGAL FIRFW )@@G@@ST SPECIAL CHARACTER. ', DAT00410 @K@[@@00206 42* *' ILLEGALFX )@@G@@ ARGUMENT IN CALL TO SUBROUTINE OR FUNCTION. ', DAT00420 @K@[@@FY )@@G@@00206 43* 1' ILLEGAL CHARACTER IN STATEMENT NUMBER FIELD. FZ )@@G@@ ', DAT00430 @K@[@@00206 44* 2' THE NEXT CONTINUE SGA )@@G@@TATEMENT IS REDUNDANT AND IS DELETED. ', DAT00440 @K@[@@00206 45*GB )@@G@@ 3' THE NEXT DIMENSION STATEMENT IS NOT COMPLETE. ',GC )@@G@@ DAT00450 @K@[@@00206 46* 4' THE NEXT DO STATEMENT IS MISSINGD )@@G@@G AN (=). ', DAT00460 @K@[@@00206 47* 5' TGE )@@G@@HE NEXT DO STATEMENT SPECIFIES AN INVALID TERMINAL. ', DAT00470 GF )@@G@@@K@[@@00206 48* 6' W A R N I N G . UNSATISFIED DO LOOPS GG )@@G@@ ', DAT00480 @K@[@@00206 49* 7' UNNUMBERED ORGH )@@G@@ INVALID FORMAT STATEMENT DELETED ', DAT00490 @K@[@@00206 GI )@@G@@ 50* 8' WARNING. THE NEXT STATEMENT IS POOR PROGRAMMING PRACTIGJ )@@G@@CE. ', DAT00500 @K@[@@00206 51* 9' THE NEXT GO TO STATEMENT GK )@@G@@IS ILLEGAL '/ DAT00510 @K@[@@00210 52* GL )@@G@@ DATA ((MSG(I,J),I=1,10),J=20,LMSG)/ DATGM )@@G@@00520 @K@[@@00210 53* *' THE NEXT IF STATEMENT IS ILLEGAL. GN )@@G@@ ', DAT00530 @K@[@@00210 54* 1' NEXT COGO )@@G@@MMON, DATA, OR NAMELIST STATEMENT IS MISSING A (/). ', DAT00540 @K@[@@GP )@@G@@00210 55* 2' ILLEGAL READ, PRINT, OR PUNCH STATEMENT. GQ )@@G@@ ', DAT00550 @K@[@@00210 56* 3' REQUIRED PARENTHESIGR )@@G@@S IS MISSING FROM THE NEXT STATEMENT. ', DAT00560 @K@[@@00210 57*GS )@@G@@ 4' EXCESSIVE NESTING OF DO LOOPS. PROCESSING TERMINATED. ',GT )@@G@@ DAT00570 @K@[@@00210 58* 5' NO INPUT IMAGES. TIDY ABORTED. GU )@@G@@ '/ DAT00580 @K@[@@00210 59* C GV )@@G@@ DAT00590 GW )@@G@@@K@[@@00212 60* DATA IOMSGS / GX )@@G@@ DAT00600 @K@[@@00212 61* 1' ERROR WRITINGGY )@@G@@ OUTPUT ELEMENT. TIDY ABORTED. STATUS = '/ DAT00610 @K@[@@00212 GZ )@@G@@ 62* C HA )@@G@@ DAT00620 @K@[@@00214 63* DATA ((KSTIJ(I,J),I=1,12),JHB )@@G@@=1,15)/ DAT00630 @K@[@@00214 64* HC )@@G@@ 1 'A','B','N','O','R','M','A','L',' ',' ', 8,1, DATHD )@@G@@00640 @K@[@@00214 65* 2 'A','S','S','I','G','N',' ',' ',' ',' HE )@@G@@', 6,4, DAT00650 @K@[@@00214 66* 3 'B','A',HF )@@G@@'C','K','S','P','A','C','E',' ', 9,3, DAT00660 @K@[@@HG )@@G@@00214 67* 4 'B','L','O','C','K','D','A','T','A',' ', 9,1, HH )@@G@@ DAT00670 @K@[@@00214 68* 5 'C','A','L','L',' ',HI )@@G@@' ',' ',' ',' ',' ', 4,3, DAT00680 @K@[@@00214 69*HJ )@@G@@ 6 'C','O','M','M','O','N',' ',' ',' ',' ', 6,1, HK )@@G@@ DAT00690 @K@[@@00214 70* 7 'C','O','M','P','I','L','E','R',HL )@@G@@' ',' ', 8,1, DAT00700 @K@[@@00214 71* 8 'CHM )@@G@@','O','M','P','L','E','X',' ',' ',' ', 7,1, DAT00710 HN )@@G@@@K@[@@00214 72* 9 'C','O','N','T','I','N','U','E',' ',' ', 8,3HO )@@G@@, DAT00720 @K@[@@00214 73* * 'D','A','T','AHP )@@G@@',' ',' ',' ',' ',' ',' ', 4,1, DAT00730 @K@[@@00214 HQ )@@G@@ 74* 1 'D','E','C','O','D','E','(',' ',' ',' ', 7,4, HR )@@G@@ DAT00740 @K@[@@00214 75* 2 'D','E','F','I','N','E',' HS )@@G@@',' ',' ',' ', 6,1, DAT00750 @K@[@@00214 76* HT )@@G@@ 3 'D','E','L','E','T','E',' ',' ',' ',' ', 6,4, DATHU )@@G@@00760 @K@[@@00214 77* 4 'D','I','M','E','N','S','I','O','N',' HV )@@G@@', 9,1, DAT00770 @K@[@@00214 78* 5 'D','O',HW )@@G@@'U','B','L','E','P','R','E','C',10,1/ DAT00780 @K@[@@HX )@@G@@00216 79* DATA ((KSTIJ(I,J),I=1,12),J=16,30)/ HY )@@G@@ DAT00790 @K@[@@00216 80* 6 'D','O',' ',' ',' ',HZ )@@G@@' ',' ',' ',' ',' ', 2,4, DAT00800 @K@[@@00216 81*IA )@@G@@ 7 'E','N','C','O','D','E','(',' ',' ',' ', 7,4, IB )@@G@@ DAT00810 @K@[@@00216 82* 8 'E','N','D','F','I','L','E',' ',IC )@@G@@' ',' ', 7,3, DAT00820 @K@[@@00216 83* 9 'EID )@@G@@','N','D',' ',' ',' ',' ',' ',' ',' ', 3,5, DAT00830 IE )@@G@@@K@[@@00216 84* * 'E','N','T','R','Y',' ',' ',' ',' ',' ',5,3,IF )@@G@@ DAT00840 @K@[@@00216 85* 1 'E','Q','U','IIG )@@G@@','V','A','L','E','N','C',10,1, DAT00850 @K@[@@00216 IH )@@G@@ 86* 2 'E','X','T','E','R','N','A','L',' ',' ', 8,1, II )@@G@@ DAT00860 @K@[@@00216 87* 3 'F','O','R','M','A','T','(IJ )@@G@@',' ',' ',' ', 7,2, DAT00870 @K@[@@00216 88* IK )@@G@@ 4 'F','U','N','C','T','I','O','N',' ',' ', 8,3, DATIL )@@G@@00880 @K@[@@00216 89* 5 'G','O','T','O','(',' ',' ',' ',' ',' IM )@@G@@', 5,4, DAT00890 @K@[@@00216 90* 6 'G','O',IN )@@G@@'T','O',' ',' ',' ',' ',' ',' ', 4,4, DAT00900 @K@[@@IO )@@G@@00216 91* 7 'I','F','A','C','C','U','M','U','L','A',10,4, IP )@@G@@ DAT00910 @K@[@@00216 92* 8 'I','F','D','I','V',IQ )@@G@@'I','D','E','C','H',10,4, DAT00920 @K@[@@00216 93*IR )@@G@@ 9 'I','F','Q','U','O','T','I','E','N','T',10,4, IS )@@G@@ DAT00930 @K@[@@00216 94* * 'I','F','(','S','E','N','S','E',IT )@@G@@'L','I',10,4/ DAT00940 @K@[@@00220 95* DATIU )@@G@@A ((KSTIJ(I,J),I=1,12),J=31,45)/ DAT00950 IV )@@G@@@K@[@@00220 96* 1 'I','F','(','S','E','N','S','E','S','W',10,4IW )@@G@@, DAT00960 @K@[@@00220 97* 2 'I','F','(',' IX )@@G@@',' ',' ',' ',' ',' ',' ', 3,4, DAT00970 @K@[@@00220 IY )@@G@@ 98* 3 'I','M','P','L','I','C','I','T',' ',' ', 8,1, IZ )@@G@@ DAT00980 @K@[@@00220 99* 4 'I','N','C','L','U','D','EJA )@@G@@',' ',' ',' ', 7,1, DAT00990 @K@[@@00220 100* JB )@@G@@ 5 'I','N','T','E','G','E','R',' ',' ',' ', 7,1, DATJC )@@G@@01000 @K@[@@00220 101* 6 'L','O','G','I','C','A','L',' ',' ',' JD )@@G@@', 7,1, DAT01010 @K@[@@00220 102* 7 'N','A',JE )@@G@@'M','E','L','I','S','T',' ',' ', 8,1, DAT01020 @K@[@@JF )@@G@@00220 103* 8 'P','A','R','A','M','E','T','E','R',' ', 9,1, JG )@@G@@ DAT01030 @K@[@@00220 104* 9 'P','A','U','S','E',JH )@@G@@' ',' ',' ',' ',' ', 5,3, DAT01040 @K@[@@00220 105*JI )@@G@@ * 'P','R','I','N','T',' ',' ',' ',' ',' ', 5,4, JJ )@@G@@ DAT01050 @K@[@@00220 106* 1 'P','U','N','C','H',' ',' ',' ',JK )@@G@@' ',' ', 5,4, DAT01060 @K@[@@00220 107* 2 'RJL )@@G@@','E','A','D','I','N','P','U','T','T',10,4, DAT01070 JM )@@G@@@K@[@@00220 108* 3 'R','E','A','D','T','A','P','E',' ',' ', 8,3JN )@@G@@, DAT01080 @K@[@@00220 109* 4 'R','E','A','DJO )@@G@@','(',',',' ',' ',' ',' ', 5,4, DAT01090 @K@[@@00220 JP )@@G@@ 110* 5 'R','E','A','D',' ',' ',' ',' ',' ',' ', 4,4/ JQ )@@G@@ DAT01100 @K@[@@00222 111* DATA ((KSTIJ(I,J),I=1,12),JJR )@@G@@=46,NOIDS)/ DAT01110 @K@[@@00222 112* JS )@@G@@ 6 'R','E','A','L',' ',' ',' ',' ',' ',' ', 4,1, DATJT )@@G@@01120 @K@[@@00222 113* 7 'R','E','T','U','R','N',' ',' ',' ',' JU )@@G@@', 6,3, DAT01130 @K@[@@00222 114* 8 'R','E',JV )@@G@@'W','I','N','D',' ',' ',' ',' ', 6,3, DAT01140 @K@[@@JW )@@G@@00222 115* 9 'S','E','N','S','E','L','I','G','H','T',10,3, JX )@@G@@ DAT01150 @K@[@@00222 116* * 'S','T','A','R','T',JY )@@G@@'E','D','I','T',' ', 9,1, DAT01160 @K@[@@00222 117*JZ )@@G@@ 1 'S','T','O','P','E','D','I','T','C','O',10,1, KA )@@G@@ DAT01170 @K@[@@00222 118* 2 'S','T','O','P','E','D','I','T',KB )@@G@@'S','O',10,1, DAT01180 @K@[@@00222 119* 3 'SKC )@@G@@','T','O','P',' ',' ',' ',' ',' ',' ', 4,3, DAT01190 KD )@@G@@@K@[@@00222 120* 4 'S','U','B','R','O','U','T','I','N','E',10,3KE )@@G@@, DAT01200 @K@[@@00222 121* 5 'W','R','I','TKF )@@G@@','E','O','U','T','P','U',10,4, DAT01210 @K@[@@00222 KG )@@G@@ 122* 6 'W','R','I','T','E','T','A','P','E',' ', 9,3, KH )@@G@@ DAT01220 @K@[@@00222 123* 7 'W','R','I','T','E','(',' KI )@@G@@',' ',' ',' ', 6,4, DAT01230 @K@[@@00222 124* KJ )@@G@@ 8 'F','I','N','D',' ',' ',' ',' ',' ',' ', 4,3/ DATKK )@@G@@01240 @K@[@@00222 125* C KL )@@G@@ DAT01250 @K@[@@00224 126* DATA RIGHKM )@@G@@T/.FALSE./ DAT01260 @K@[@@KN )@@G@@00226 127* DATA IO1, IO2, JALTFD, JOUT / KO )@@G@@ DAT01270 @K@[@@00226 128* 1 2, 3,' 101.KP )@@G@@', 6 / DAT01280 @K@[@@00233 129*KQ )@@G@@ END KR )@@G@@ DAT01290 @M@]@@ END OF COMPILATION: 4 DIAGNOSTICS. KS )@@G@@ ERRORS IN RELOCATABLE ELEMENT @#@^@@@HDG,P DIKT )@@G@@AGNO 0 @[@@ H, ,1, DIAGNO . @L^@^__@@@FOR,S DIAGNO,DIAGNO KU )@@G@@@E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:27:40. @@@[@@KV )@@G@@@@@[@@@B@[@@ SUBROUTINE DIAGNO ENTRY POINT 000066@@@[@@@G@]@@ STOKW )@@G@@RAGE USED: CODE(1) 000073; DATA(0) 000042; BLANK COMMON(2) 012611 @#@]@@KX )@@G@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 DIOMSG 000373@^@[@@ 0004 IKY )@@G@@NIT 000013@^@[@@ 0005 TAPES 000016@A@#@@ EXTERNAL REFERENCES (KZ )@@G@@BLOCK, NAME)@@@[@@@#@[@@ 0006 NWDU$ @#@[@@ 0007 NIO2$ @#@[@@LA )@@G@@ 0010 NIO1$ @#@[@@ 0011 NERR3$ @F@#@@ STORAGE ASSIGNMENT (LB )@@G@@BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000046 LC )@@G@@165G 0001 000007 20L 0001 000011 30L 0001 000032 LD )@@G@@40L 0000 000002 50F @O@[@@ 0000 000010 60F 0004 I 0LE )@@G@@00012 DHDG 0004 I 000000 DIAG 0000 I 000001 I 0002 0LF )@@G@@00000 ICOL @O@[@@ 0002 000001 IFIR 0004 L 000001 INDENT 00LG )@@G@@00 000031 INJP$ 0002 000002 INPUT 0002 000450 IOUT @O@[@@LH )@@G@@ 0005 000000 IO1 0005 000001 IO2 0000 I 000000 J LI )@@G@@ 0005 000002 JALTFD 0002 003127 JCOL @O@[@@ 0002 003130 LJ )@@G@@JINT 0002 005607 JMAX 0005 I 000003 JOUT 0000 000021 LK )@@G@@KBUFF 0000 000021 KB1 @O@[@@ 0002 005610 KB15 0000 0LL )@@G@@00026 KB6 0000 000027 KDIG 0002 005611 KD15 0002 0LM )@@G@@03130 KIM @O@[@@ 0002 000450 KOUT 0000 000027 K0 00LN )@@G@@02 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF @O@[@@LO )@@G@@ 0004 L 000002 LDIAG 0002 I 010551 LDO 0002 010602 LFIR LP )@@G@@ 0004 000003 LINE 0004 000004 LOPT @O@[@@ 0002 010603 LQ )@@G@@LQUAL 0002 010604 LREF 0002 005612 L772 0002 012554 LR )@@G@@MCOL 0002 012555 MEOF @O@[@@ 0002 012556 MEX 0002 0LS )@@G@@12557 MILDO 0002 012560 MLGC 0002 012561 MP2 0003 I 0LT )@@G@@00001 MSG @O@[@@ 0002 012562 MSTOP 0002 012563 MTRAN 00LU )@@G@@02 012564 NBLC 0002 012565 NCD 0002 012566 NCDO @O@[@@LV )@@G@@ 0002 012567 NDEF 0002 012570 NDOL 0002 012571 NDOS LW )@@G@@ 0002 012572 NINS 0003 I 000000 NMSG @O@[@@ 0002 012573 LX )@@G@@NPAR 0002 012574 NPUN 0002 012575 NREC 0002 012576 LY )@@G@@NREF 0002 012577 NRT1 @O@[@@ 0002 012600 NRT2 0004 L 0LZ )@@G@@00005 NSTART 0002 012601 NTEMP 0002 012606 NXEQ 0002 0MA )@@G@@03130 OUTPUT@O@[@@ 0002 012607 PAREN 0002 012610 PNEXT 00MB )@@G@@04 L 000006 RIGHT 0004 L 000007 RSTART 0004 000010 SOPT @C@[@@MC )@@G@@ 0004 L 000011 SOURCE 0005 000004 USE @@@^@@@K@[@@00101 1*MD )@@G@@ SUBROUTINE DIAGNO (N) ME )@@G@@ DIA00010 @K@[@@00101 2* C MF )@@G@@ DIA00020 @K@[@@00101 3* C THIMG )@@G@@S ROUTINE PRINTS THE GENERAL DIAGNOSTICS FOR TIDY. DIA00030 MH )@@G@@@K@[@@00101 4* C MI )@@G@@ DIA00040 @K@[@@00103 5* INCLUDE TIDY, LMJ )@@G@@IST DIA00050 @K@[@@00104 MK )@@G@@ 5* IMPLICIT INTEGER (A-Z) ML )@@G@@ PRO00020 @K@[@@00105 5* PARAMETER CRDLNG=66 @ MAXIMMM )@@G@@UM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 5* MN )@@G@@ PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PROMO )@@G@@00040 @K@[@@00107 5* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF MP )@@G@@CHARS. IN A STATEMENT PRO00050 @K@[@@00110 5* PARAMETERMQ )@@G@@ DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@MR )@@G@@00111 5* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOLMS )@@G@@, JINT(MAXCHS),PRO00070 @K@[@@00111 5* 1 JMAX, KB15, KDMT )@@G@@15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 5*MU )@@G@@ 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDMV )@@G@@O, PRO00090 @K@[@@00111 5* 3 MLGC, MP2, MSTOP, MTRAN, NMW )@@G@@BLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 5* 4 MX )@@G@@ NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 MY )@@G@@@K@[@@00111 5* 5 NXEQ, PAREN, PNEXT MZ )@@G@@ PRO00120 @K@[@@00112 5* DIMENSION KIM(CNA )@@G@@RDLNG,20) PRO00130 @K@[@@00113 NB )@@G@@ 5* DIMENSION KOUT(CRDLNG,20) NC )@@G@@ PRO00140 @K@[@@00114 5* DIMENSION OUTPUT(12,20) ND )@@G@@ PRO00150 @K@[@@00115 5* NE )@@G@@ EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PRONF )@@G@@00160 @K@[@@00116 5* EQUIVALENCE (KDIG(1),K0) NG )@@G@@ PRO00170 @K@[@@00117 5* EQUIVALENNH )@@G@@CE (IOUT,KOUT) PRO00180 @K@[@@NI )@@G@@00120 5* EQUIVALENCE (JINT,KIM) NJ )@@G@@ PRO00190 @K@[@@00121 5* EQUIVALENCE (JINT,OUTNK )@@G@@PUT) PRO00200 @K@[@@00122 5*NL )@@G@@ DEFINE DLOC(X)=FLD(0,18,LDEF(X)) NM )@@G@@ PRO00210 @K@[@@00123 5* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)NN )@@G@@) PRO00220 @K@[@@00124 5* DEFNO )@@G@@INE LDOS(X)=FLD(0,18,LDO(X)) PRO00230 NP )@@G@@@K@[@@00125 5* DEFINE LDOL(X)=FLD(18,18,LDO(X)) NQ )@@G@@ PRO00240 @K@[@@00125 5* END NR )@@G@@ PRO00250 @K@[@@00126 NS )@@G@@ 6* INCLUDE DIOMSG, LIST NT )@@G@@ DIA00060 @K@[@@00127 6* PARAMETER LMSG=25 NU )@@G@@ PRO00400 @K@[@@00130 6* NV )@@G@@ COMMON /DIOMSG/ NMSG, MSG(10,LMSG) PRONW )@@G@@00410 @K@[@@00130 6* END NX )@@G@@ PRO00420 @K@[@@00131 7* INCLUDE INY )@@G@@NIT, LIST DIA00070 @K@[@@NZ )@@G@@00132 7* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIOA )@@G@@GHT,RSTART, PRO00440 @K@[@@00132 7* 1 SOPT,SOOB )@@G@@URCE,DHDG PRO00450 @K@[@@00133 7*OC )@@G@@ LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE OD )@@G@@ PRO00460 @K@[@@00134 7* LOGICAL RIGHT OE )@@G@@ PRO00470 @K@[@@00134 7* END OF )@@G@@ PRO00480 OG )@@G@@@K@[@@00135 8* INCLUDE TAPES, LIST OH )@@G@@ DIA00080 @K@[@@00135 9* C OI )@@G@@ DIA00090 @K@[@@00135 OJ )@@G@@ 10* C *** OK )@@G@@ ***DIA00100 @K@[@@00135 11* C 1 THE NEXT STATEMENT IS IOL )@@G@@LLEGAL AND HAS BEEN DELETED. DIA00110 @K@[@@00135 12* C OM )@@G@@ 2 THE NEXT STATEMENT HAS A MISSING RIGHT PARENTHESIS. DIAON )@@G@@00120 @K@[@@00135 13* C 3 THE NEXT STATEMENT HAS AN EXCESS RIOO )@@G@@GHT PARENTHESIS. DIA00130 @K@[@@00135 14* C 4 THE NOP )@@G@@EXT STATEMENT INCORRECTLY TERMINATES A DO LOOP. DIA00140 @K@[@@OQ )@@G@@00135 15* C 5 WARNING. THE NEXT STATEMENT CAN'T BE REACHED BYOR )@@G@@ THE PROGRAM DIA00150 @K@[@@00135 16* C 6 STATEMENT NUMBER TOS )@@G@@ABLE FULL. PROCESSING TERMINATED. DIA00160 @K@[@@00135 17*OT )@@G@@ C 7 REFERENCE NUMBER TABLE FULL. PROCESSING TERMINATED. OU )@@G@@ DIA00170 @K@[@@00135 18* C 8 ILLEGAL USE OF CONTINUATION COV )@@G@@ARD IN THE NEXT STATEMENT. DIA00180 @K@[@@00135 19* C 9 OW )@@G@@ THE NEXT STATEMENT HAS AN ILLEGAL FIRST SPECIAL CHARACTER. DIA00190 OX )@@G@@@K@[@@00135 20* C 10 ILLEGAL ARGUMENT IN CALL TO SUBROUTINE OR OY )@@G@@FUNCTION. DIA00200 @K@[@@00135 21* C 11 ILLEGAL CHAOZ )@@G@@RACTER IN STATEMENT NUMBER FIELD. DIA00210 @K@[@@00135 PA )@@G@@ 22* C 12 THE NEXT CONTINUE STATEMENT IS REDUNDANT AND IS DELETPB )@@G@@ED. DIA00220 @K@[@@00135 23* C 13 THE NEXT DIMENSION STATPC )@@G@@EMENT IS NOT COMPLETE. DIA00230 @K@[@@00135 24* C PD )@@G@@ 14 THE NEXT DO STATEMENT IS MISSING AN (=). DIAPE )@@G@@00240 @K@[@@00135 25* C 15 THE NEXT DO STATEMENT SPECIFIES AN PF )@@G@@INVALID TERMINAL. DIA00250 @K@[@@00135 26* C 16 W A RPG )@@G@@ N I N G . UNSATISFIED DO LOOPS DIA00260 @K@[@@PH )@@G@@00135 27* C 17 UNNUMBERED OR INVALID FORMAT STATEMENT DELETED PI )@@G@@ DIA00270 @K@[@@00135 28* C 18 WARNING. THE NEXPJ )@@G@@T STATEMENT IS POOR PROGRAMMING PRACTICE. DIA00280 @K@[@@00135 29*PK )@@G@@ C 19 THE NEXT GO TO STATEMENT IS ILLEGAL. PL )@@G@@ DIA00290 @K@[@@00135 30* C 20 THE NEXT IF STATEMENT IS ILLEPM )@@G@@GAL. DIA00300 @K@[@@00135 31* C 21 PN )@@G@@ NEXT COMMON, DATA, OR NAMELIST STATEMENT IS MISSING A (/). DIA00310 PO )@@G@@@K@[@@00135 32* C 22 ILLEGAL READ, PRINT, OR PUNCH STATEMENT. PP )@@G@@ DIA00320 @K@[@@00135 33* C 23 REQUIRED PAPQ )@@G@@RENTHESIS IS MISSING FROM THE NEXT STATEMENT. DIA00330 @K@[@@00135 PR )@@G@@ 34* C 24 EXCESSIVE NESTING OF DO LOOPS. PROCESSING TERMINATED. PS )@@G@@ DIA00340 @K@[@@00135 35* C 25 NO INPUT IMAGES. TIDY APT )@@G@@BORTED. DIA00350 @K@[@@00135 36* C PU )@@G@@ *** ***DIAPV )@@G@@00360 @K@[@@00135 37* C PW )@@G@@ DIA00370 @K@[@@00135 38* C PX )@@G@@ DIA00380 @K@[@@PY )@@G@@00136 38* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PZ )@@G@@ PRO00680 @K@[@@00137 38* PARAMETER STDRD=5 @ SQA )@@G@@TANDARD READ UNIT PRO00690 @K@[@@00140 38*QB )@@G@@ PARAMETER STDPRT=6 @ STANDARD PRINT UNIT QC )@@G@@ PRO00700 @K@[@@00141 38* PARAMETER STDALT=101 @ STANDARD AQD )@@G@@LTERNATE PRINT UNIT PRO00710 @K@[@@00141 38* END QE )@@G@@ PRO00720 QF )@@G@@@K@[@@00142 39* J=N QG )@@G@@ DIA00390 @K@[@@00143 40* IF (J) 20,20,10QH )@@G@@ DIA00400 @K@[@@00146 QI )@@G@@ 41* 10 IF (J-LMSG) 30,30,20 QJ )@@G@@ DIA00410 @K@[@@00151 42* 20 J=1 QK )@@G@@ DIA00420 @K@[@@00152 43* 30 QL )@@G@@ NMSG=NMSG+1 DIAQM )@@G@@00430 @K@[@@00153 44* IF (DIAG.EQ.0) RETURN QN )@@G@@ DIA00440 @K@[@@00155 45* IF (DHDG.QO )@@G@@NE.0) GO TO 40 DIA00450 @K@[@@QP )@@G@@00157 46* WRITE (JOUT,60) QQ )@@G@@ DIA00460 @K@[@@00161 47* DHDG=1 QR )@@G@@ DIA00470 @K@[@@00162 48*QS )@@G@@ 40 WRITE (JOUT,50) NMSG,(MSG(I,J),I=1,10) QT )@@G@@ DIA00480 @K@[@@00171 49* LDIAG=.TRUE. QU )@@G@@ DIA00490 @K@[@@00172 50* RETQV )@@G@@URN DIA00500 QW )@@G@@@K@[@@00172 51* C QX )@@G@@ DIA00510 @K@[@@00173 52* 50 FORMAT (8H ****QY )@@G@@ (,I3,5H) ***,10A6,3H***) DIA00520 @K@[@@00174 QZ )@@G@@ 53* 60 FORMAT ('1',11X,'***** ERRORS IN INPUT TO TIDY *****') RA )@@G@@ DIA00530 @K@[@@00174 54* C RB )@@G@@ DIA00540 @K@[@@00175 55* RC )@@G@@ END DIARD )@@G@@00550 @D@]@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@RE )@@G@@@HDG,P DLIST 0 .99 H, ,1, DLIST . @L^@^__@@@FOR,S DLRF )@@G@@IST,DLIST @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28RG )@@G@@:04. @@@[@@@@@[@@@B@[@@ SUBROUTINE DLIST ENTRY POINT 000247@@@[@@RH )@@G@@@G@]@@ STORAGE USED: CODE(1) 000260; DATA(0) 000065; BLANK COMMON(2) 0RI )@@G@@12611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@RJ )@@G@@ 0004 DIOMSG 000373@^@[@@ 0005 INIT 000013@^@[@@ 0006 LRK )@@G@@IOS 000004@^@[@@ 0007 TAPES 000016@A@#@@ EXTERNAL REFERENCES (RL )@@G@@BLOCK, NAME)@@@[@@@#@[@@ 0010 DIAGNO @#@[@@ 0011 NWDU$ @#@[@@RM )@@G@@ 0012 NIO1$ @#@[@@ 0013 NIO2$ @#@[@@ 0014 NERR3$ @F@#@@RN )@@G@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@RO )@@G@@@O@[@@ 0001 000015 10L 0001 000106 100L 0001 000114 RP )@@G@@110L 0001 000144 130L 0001 000147 140L @O@[@@ 0001 0RQ )@@G@@00162 150L 0001 000206 160L 0001 000214 170L 0001 0RR )@@G@@00040 173G 0001 000217 180L @O@[@@ 0000 000001 190F 00RS )@@G@@01 000027 20L 0000 000021 200F 0001 000032 30L 00RT )@@G@@01 000052 60L @O@[@@ 0001 000056 70L 0001 000102 90L RU )@@G@@ 0005 000012 DHDG 0005 I 000000 DIAG 0000 I 000000 I RV )@@G@@@O@[@@ 0002 000000 ICOL 0002 000001 IFIR 0006 000003 RW )@@G@@IMAX 0005 L 000001 INDENT 0000 000051 INJP$ @O@[@@ 0002 0RX )@@G@@00002 INPUT 0002 000450 IOUT 0007 000000 IO1 0007 0RY )@@G@@00001 IO2 0006 000001 ITYPE @O@[@@ 0007 000002 JALTFD 00RZ )@@G@@02 003127 JCOL 0002 003130 JINT 0002 005607 JMAX 00SA )@@G@@07 I 000003 JOUT @O@[@@ 0003 000013 KA 0003 000013 KABC SB )@@G@@ 0003 000061 KAND 0003 000062 KAT 0003 000014 KB SC )@@G@@@O@[@@ 0003 000000 KBL 0000 000040 KBUFF 0000 000040 SD )@@G@@KB1 0002 005610 KB15 0000 000045 KB6 @O@[@@ 0003 0SE )@@G@@00015 KC 0003 000051 KCLOSE 0003 000046 KCOMMA 0003 0SF )@@G@@00016 KD 0003 000057 KDASH @O@[@@ 0003 000001 KDIG 00SG )@@G@@03 000056 KDOLAR 0002 005611 KD15 0003 000017 KE 00SH )@@G@@03 000045 KEQ @O@[@@ 0003 000064 KERM 0003 000020 KF SI )@@G@@ 0003 000021 KG 0003 000022 KH 0003 000023 KI SJ )@@G@@@O@[@@ 0006 000000 KILI 0002 003130 KIM 0003 000024 SK )@@G@@KJ 0003 000025 KK 0003 000026 KL @O@[@@ 0006 I 0SL )@@G@@00000 KLASS 0003 000063 KLR2 0003 000027 KM 0003 0SM )@@G@@00053 KMINUS 0003 000030 KN @O@[@@ 0003 000031 KO 00SN )@@G@@03 000047 KOPEN 0002 000450 KOUT 0003 000032 KP 00SO )@@G@@03 000055 KPERD @O@[@@ 0003 000052 KPLUS 0003 000033 KQ SP )@@G@@ 0003 000060 KQUOTE 0003 000034 KR 0003 000035 KS SQ )@@G@@@O@[@@ 0003 000050 KSLASH 0003 000045 KSPK 0003 000054 SR )@@G@@KSTAR 0003 000036 KT 0003 000037 KU @O@[@@ 0003 0SS )@@G@@00040 KV 0003 000041 KW 0003 000042 KX 0003 0ST )@@G@@00043 KY 0003 000044 KZ @O@[@@ 0003 000001 K0 00SU )@@G@@02 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF 00SV )@@G@@05 L 000002 LDIAG @O@[@@ 0002 I 010551 LDO 0002 010602 LFIR SW )@@G@@ 0005 I 000003 LINE 0005 000004 LOPT 0002 010603 LQUAL SX )@@G@@@O@[@@ 0002 010604 LREF 0006 I 000002 L15 0002 005612 SY )@@G@@L772 0002 012554 MCOL 0002 012555 MEOF @O@[@@ 0002 0SZ )@@G@@12556 MEX 0002 I 012557 MILDO 0002 I 012560 MLGC 0002 I 0TA )@@G@@12561 MP2 0004 000001 MSG @O@[@@ 0002 012562 MSTOP 00TB )@@G@@02 I 012563 MTRAN 0002 012564 NBLC 0002 012565 NCD 00TC )@@G@@02 012566 NCDO @O@[@@ 0002 I 012567 NDEF 0002 I 012570 NDOL TD )@@G@@ 0002 I 012571 NDOS 0002 012572 NINS 0004 I 000000 NMSG TE )@@G@@@O@[@@ 0002 012573 NPAR 0002 012574 NPUN 0002 012575 TF )@@G@@NREC 0002 012576 NREF 0002 012577 NRT1 @O@[@@ 0002 0TG )@@G@@12600 NRT2 0005 L 000005 NSTART 0002 I 012601 NTEMP 0002 I 0TH )@@G@@12606 NXEQ 0002 003130 OUTPUT@O@[@@ 0002 012607 PAREN 00TI )@@G@@02 012610 PNEXT 0005 L 000006 RIGHT 0005 L 000007 RSTART 00TJ )@@G@@05 000010 SOPT @C@[@@ 0005 L 000011 SOURCE 0007 000004 USE TK )@@G@@@@@^@@@K@[@@00101 1* SUBROUTINE DLIST (MERR) TL )@@G@@ DLI00010 @K@[@@00101 2* C TM )@@G@@ DLI00020 @K@[@@TN )@@G@@00101 3* C THIS SUBROUTINE UPDATES THE DEFINED STATEMENT NUMBETO )@@G@@R LIST, LDEF, DLI00030 @K@[@@00101 4* C BY ADDING THE STATEMETP )@@G@@NT NUMBER IN L15, IF IT IS UNIQUE. DLI00040 @K@[@@00101 5*TQ )@@G@@ C TR )@@G@@ DLI00050 @K@[@@00103 6* INCLUDE TIDY, LIST TS )@@G@@ DLI00060 @K@[@@00104 6* IMPTT )@@G@@LICIT INTEGER (A-Z) PRO00020 TU )@@G@@@K@[@@00105 6* PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PTV )@@G@@ER CONT. CARD PRO00030 @K@[@@00106 6* PARAMETER DOS=2TW )@@G@@5 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 @K@[@@00107 TX )@@G@@ 6* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMTY )@@G@@ENT PRO00050 @K@[@@00110 6* PARAMETER DEFLNG=1500 @ MAXTZ )@@G@@. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 6* UA )@@G@@ COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PROUB )@@G@@00070 @K@[@@00111 6* 1 JMAX, KB15, KD15, L772, LAST, LCUC )@@G@@PY, LDEF(DEFLNG), PRO00080 @K@[@@00111 6* 2 LDUD )@@G@@O(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@UE )@@G@@00111 6* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDUF )@@G@@EF, NDOL, PRO00100 @K@[@@00111 6* 4 NDOS, NINS, NPUG )@@G@@AR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 6*UH )@@G@@ 5 NXEQ, PAREN, PNEXT UI )@@G@@ PRO00120 @K@[@@00112 6* DIMENSION KIM(CRDLNG,20) UJ )@@G@@ PRO00130 @K@[@@00113 6* DIMUK )@@G@@ENSION KOUT(CRDLNG,20) PRO00140 UL )@@G@@@K@[@@00114 6* DIMENSION OUTPUT(12,20) UM )@@G@@ PRO00150 @K@[@@00115 6* EQUIVALENCE (KBUN )@@G@@UFF(1),KB1), (KBUFF(6),KB6) PRO00160 @K@[@@00116 UO )@@G@@ 6* EQUIVALENCE (KDIG(1),K0) UP )@@G@@ PRO00170 @K@[@@00117 6* EQUIVALENCE (IOUT,KOUT) UQ )@@G@@ PRO00180 @K@[@@00120 6* UR )@@G@@ EQUIVALENCE (JINT,KIM) PROUS )@@G@@00190 @K@[@@00121 6* EQUIVALENCE (JINT,OUTPUT) UT )@@G@@ PRO00200 @K@[@@00122 6* DEFINE DLUU )@@G@@OC(X)=FLD(0,18,LDEF(X)) PRO00210 @K@[@@UV )@@G@@00123 6* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) UW )@@G@@ PRO00220 @K@[@@00124 6* DEFINE LDOS(X)=FLD(0,UX )@@G@@18,LDO(X)) PRO00230 @K@[@@00125 6*UY )@@G@@ DEFINE LDOL(X)=FLD(18,18,LDO(X)) UZ )@@G@@ PRO00240 @K@[@@00125 6* END VA )@@G@@ PRO00250 @K@[@@00126 7* INCVB )@@G@@LUDE ALPHA, LIST DLI00070 VC )@@G@@@K@[@@00127 7* COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KFVD )@@G@@,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00127 7* 1 VE )@@G@@KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@00127 VF )@@G@@ 7* 2 KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUVG )@@G@@S,KSTAR, PRO00290 @K@[@@00127 7* 3 KPERD,KDOLARVH )@@G@@,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PRO00300 @K@[@@00130 7* VI )@@G@@ DIMENSION KABC(26), KSPK(14) PROVJ )@@G@@00310 @K@[@@00131 7* EQUIVALENCE (KABC,KA), (KSPK,KEQ) VK )@@G@@ PRO00320 @K@[@@00131 7* END VL )@@G@@ PRO00330 @K@[@@VM )@@G@@00132 8* INCLUDE DIOMSG, LIST VN )@@G@@ DLI00080 @K@[@@00133 8* PARAMETER LMSG=25 VO )@@G@@ PRO00400 @K@[@@00134 8*VP )@@G@@ COMMON /DIOMSG/ NMSG, MSG(10,LMSG) VQ )@@G@@ PRO00410 @K@[@@00134 8* END VR )@@G@@ PRO00420 @K@[@@00135 9* INCVS )@@G@@LUDE INIT, LIST DLI00090 VT )@@G@@@K@[@@00136 9* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTVU )@@G@@ART,RIGHT,RSTART, PRO00440 @K@[@@00136 9* 1 SVV )@@G@@OPT,SOURCE,DHDG PRO00450 @K@[@@00137 VW )@@G@@ 9* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE VX )@@G@@ PRO00460 @K@[@@00140 9* LOGICAL RIGHT VY )@@G@@ PRO00470 @K@[@@00140 9* ENVZ )@@G@@D PROWA )@@G@@00480 @K@[@@00141 10* INCLUDE LIOS, LIST WB )@@G@@ DLI00100 @K@[@@00142 10* COMMON /LWC )@@G@@IOS/ KLASS, ITYPE, L15, IMAX PRO00630 @K@[@@WD )@@G@@00143 10* DIMENSION KILI(4) WE )@@G@@ PRO00640 @K@[@@00144 10* EQUIVALENCE (KLASS,KIWF )@@G@@LI) PRO00650 @K@[@@00144 10*WG )@@G@@ END WH )@@G@@ PRO00660 @K@[@@00145 11* INCLUDE TAPES, LIST WI )@@G@@ DLI00110 @K@[@@00145 12* C WJ )@@G@@ DLI00120 WK )@@G@@@K@[@@00145 13* C WL )@@G@@ DLI00130 @K@[@@00145 14* C SET UP INITIAL WM )@@G@@CONDITIONS. DLI00140 @K@[@@00145 WN )@@G@@ 15* C WO )@@G@@ DLI00150 @K@[@@00146 15* COMMON /TAPES/ IO1, IO2, JAWP )@@G@@LTFD, JOUT, USE (10) PRO00680 @K@[@@00147 15* WQ )@@G@@ PARAMETER STDRD=5 @ STANDARD READ UNIT PROWR )@@G@@00690 @K@[@@00150 15* PARAMETER STDPRT=6 @ STANDARD PRINT UNIWS )@@G@@T PRO00700 @K@[@@00151 15* PARAMETERWT )@@G@@ STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@WU )@@G@@00151 15* END WV )@@G@@ PRO00720 @K@[@@00152 16* MERR=0 WW )@@G@@ DLI00160 @K@[@@00153 17*WX )@@G@@ IF (L15.NE.0) GO TO 30 WY )@@G@@ DLI00170 @K@[@@00155 18* IF (KLASS.LT.2) GO TO 20 WZ )@@G@@ DLI00180 @K@[@@00157 19* IF XA )@@G@@(MTRAN.NE.0) CALL DIAGNO (5) DLI00190 XB )@@G@@@K@[@@00157 20* C XC )@@G@@ DLI00200 @K@[@@00161 21* 10 MTRAN=0 XD )@@G@@ DLI00210 @K@[@@00162 XE )@@G@@ 22* MILDO=0 XF )@@G@@ DLI00220 @K@[@@00163 23* IF (KLASS.GT.2) NXEQ=NXEQ+1XG )@@G@@ DLI00230 @K@[@@00165 24* 20 XH )@@G@@ CONTINUE DLIXI )@@G@@00240 @K@[@@00166 25* RETURN XJ )@@G@@ DLI00250 @K@[@@00166 26* C XK )@@G@@ DLI00260 @K@[@@XL )@@G@@00167 27* 30 IF (NDEF) 10,60,40 XM )@@G@@ DLI00270 @K@[@@00167 28* C XN )@@G@@ DLI00280 @K@[@@00167 29*XO )@@G@@ C SCAN FOR DUPLICATE STATEMENT NUMBERS. XP )@@G@@ DLI00290 @K@[@@00167 30* C XQ )@@G@@ DLI00300 @K@[@@00172 31* 40 DO XR )@@G@@50 I=1,NDEF DLI00310 XS )@@G@@@K@[@@00175 32* IF (DSTMT(I).EQ.L15) GO TO 150 XT )@@G@@ DLI00320 @K@[@@00177 33* 50 CONTINUE XU )@@G@@ DLI00330 @K@[@@00177 XV )@@G@@ 34* C XW )@@G@@ DLI00340 @K@[@@00177 35* C SCAN FOR POSSIBLE DO-LOOP TXX )@@G@@ERMINATIONS. DLI00350 @K@[@@00177 36* C XY )@@G@@ DLIXZ )@@G@@00360 @K@[@@00201 37* 60 IF (NDOS.LE.0) GO TO 180 YA )@@G@@ DLI00370 @K@[@@00203 38* 70 I=NDOS YB )@@G@@ DLI00380 @K@[@@YC )@@G@@00204 39* IF (MILDO.NE.0.AND.MLGC.EQ.0) GO TO 90 YD )@@G@@ DLI00390 @K@[@@00206 40* IF (LDOS(I)-L15) 100,YE )@@G@@80,100 DLI00400 @K@[@@00211 41*YF )@@G@@ 80 NDOL=LDOL(I) YG )@@G@@ DLI00410 @K@[@@00212 42* NDOS=NDOS-1 YH )@@G@@ DLI00420 @K@[@@00213 43* GO YI )@@G@@TO 180 DLI00430 YJ )@@G@@@K@[@@00213 44* C YK )@@G@@ DLI00440 @K@[@@00214 45* 90 IF (LDOS(I)-L15YL )@@G@@) 100,110,100 DLI00450 @K@[@@00217 YM )@@G@@ 46* 100 I=I-1 YN )@@G@@ DLI00460 @K@[@@00220 47* IF (I) 70,180,90 YO )@@G@@ DLI00470 @K@[@@00223 48* 110YP )@@G@@ CALL DIAGNO (4) DLIYQ )@@G@@00480 @K@[@@00224 49* IF (I.EQ.NDOS) NDOL=LDOL(I) YR )@@G@@ DLI00490 @K@[@@00226 50* IF (MILDOYS )@@G@@) 140,120,140 DLI00500 @K@[@@YT )@@G@@00231 51* 120 IF (DIAG.NE.0) WRITE (JOUT,190) I,NDOS YU )@@G@@ DLI00510 @K@[@@00236 52* GO TO 140 YV )@@G@@ DLI00520 @K@[@@00236 53*YW )@@G@@ C YX )@@G@@ DLI00530 @K@[@@00236 54* C RESORT DO-LOOP TERMINAL LIST AFTEYY )@@G@@R DELETIONS. DLI00540 @K@[@@00236 55* C YZ )@@G@@ DLI00550 ZA )@@G@@@K@[@@00237 56* 130 LDO(I-1)=LDO(I) ZB )@@G@@ DLI00560 @K@[@@00240 57* 140 I=I+1 ZC )@@G@@ DLI00570 @K@[@@00241 ZD )@@G@@ 58* IF (I.LE.NDOS) GO TO 130 ZE )@@G@@ DLI00580 @K@[@@00243 59* NDOS=NDOS-1 ZF )@@G@@ DLI00590 @K@[@@00244 60* ZG )@@G@@ GO TO 170 DLIZH )@@G@@00600 @K@[@@00244 61* C ZI )@@G@@ DLI00610 @K@[@@00244 62* C ERROR DIAZJ )@@G@@GNOSTICS. DLI00620 @K@[@@ZK )@@G@@00244 63* C ZL )@@G@@ DLI00630 @K@[@@00245 64* 150 NMSG=NMSG+1 ZM )@@G@@ DLI00640 @K@[@@00246 65*ZN )@@G@@ NTEMP(5)=DLOC(I) ZO )@@G@@ DLI00650 @K@[@@00247 66* IF (DIAG.NE.0) WRITE (JOUT,200) NZP )@@G@@MSG,L15,NTEMP(5) DLI00660 @K@[@@00255 67* GO ZQ )@@G@@TO 170 DLI00670 ZR )@@G@@@K@[@@00256 68* 160 CALL DIAGNO (6) ZS )@@G@@ DLI00680 @K@[@@00257 69* NDEF=-1 ZT )@@G@@ DLI00690 @K@[@@00260 ZU )@@G@@ 70* MP2=0 ZV )@@G@@ DLI00700 @K@[@@00261 71* 170 MERR=-1 ZW )@@G@@ DLI00710 @K@[@@00262 72* ZX )@@G@@ GO TO 10 DLIZY )@@G@@00720 @K@[@@00262 73* C ZZ )@@G@@ DLI00730 @K@[@@00262 74* C ADD STATEAA )@@G@@MENT NUMBER TO DEFINED LIST. DLI00740 @K@[@@AB )@@G@@00262 75* C AC )@@G@@ DLI00750 @K@[@@00263 76* 180 IF (NDEF.EQ.DEFLNG) GAD )@@G@@O TO 160 DLI00760 @K@[@@00265 77*AE )@@G@@ NDEF=NDEF+1 AF )@@G@@ DLI00770 @K@[@@00266 78* DSTMT(NDEF)=L15 AG )@@G@@ DLI00780 @K@[@@00267 79* DLOAH )@@G@@C(NDEF)=LINE DLI00790 AI )@@G@@@K@[@@00270 80* GO TO 10 AJ )@@G@@ DLI00800 @K@[@@00270 81* C AK )@@G@@ DLI00810 @K@[@@00270 AL )@@G@@ 82* C AM )@@G@@ DLI00820 @K@[@@00271 83* 190 FORMAT (5H ****,7X,' *** DOAN )@@G@@ LOOP LEVEL',I2,' TERMINATES WHILE LEVEDLI00830 @K@[@@00271 84* AO )@@G@@ 1L',I2,' IS IN EFFECT. ***') DLIAP )@@G@@00840 @K@[@@00272 85* 200 FORMAT (8H **** (,I3,22H) *** STATEMENAQ )@@G@@T NUMBER,I5,25H DUPLICATES DLI00850 @K@[@@00272 86* 1THE NUMBEAR )@@G@@R AT,I4,1H.,8X,3H***) DLI00860 @K@[@@AS )@@G@@00272 87* C AT )@@G@@ DLI00870 @K@[@@00273 88* END AU )@@G@@ DLI00880 @D@]@@ END OAV )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P EDIT 0 @[^]AW )@@G@@ H, ,1, EDIT . @L^@^__@@@FOR,S EDIT,EDIT @E@[@@CYCLE AX )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28:13. @@@[@@@@@[@@@B@[@@AY )@@G@@ SUBROUTINE EDIT ENTRY POINT 000211@@@[@@@G@]@@ STORAGE USED: CAZ )@@G@@ODE(1) 000222; DATA(0) 000105; BLANK COMMON(2) 012611 @#@]@@ COMMON BBA )@@G@@LOCKS:@@@[@@@^@[@@ 0003 DIOMSG 000373@^@[@@ 0004 INIT 000013BB )@@G@@@^@[@@ 0005 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)BC )@@G@@@@@[@@@#@[@@ 0006 DIAGNO @#@[@@ 0007 NWDU$ @#@[@@ 0010 NBD )@@G@@IO2$ @#@[@@ 0011 NIO1$ @#@[@@ 0012 NERR3$ @F@#@@ STORAGE ABE )@@G@@SSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 00BF )@@G@@01 000120 100L 0001 000157 110L 0001 000165 120L 00BG )@@G@@00 000003 130F 0000 000036 140F @O@[@@ 0001 000031 155G BH )@@G@@ 0001 000037 160G 0001 000065 175G 0001 000006 20L BI )@@G@@ 0001 000073 200G @O@[@@ 0001 000015 40L 0001 000047 BJ )@@G@@60L 0001 000055 70L 0004 000012 DHDG 0004 I 000000 BK )@@G@@DIAG @O@[@@ 0000 I 000001 I 0002 000000 ICOL 0002 0BL )@@G@@00001 IFIR 0004 L 000001 INDENT 0000 000064 INJP$ @O@[@@ 00BM )@@G@@02 000002 INPUT 0002 000450 IOUT 0005 000000 IO1 00BN )@@G@@05 000001 IO2 0000 I 000000 IT @O@[@@ 0000 I 000002 J BO )@@G@@ 0005 000002 JALTFD 0002 003127 JCOL 0002 003130 JINT BP )@@G@@ 0002 005607 JMAX @O@[@@ 0005 I 000003 JOUT 0000 000054 BQ )@@G@@KBUFF 0000 000054 KB1 0002 I 005610 KB15 0000 000061 BR )@@G@@KB6 @O@[@@ 0000 000062 KDIG 0002 I 005611 KD15 0002 0BS )@@G@@03130 KIM 0002 000450 KOUT 0000 000062 K0 @O@[@@ 00BT )@@G@@02 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF 00BU )@@G@@04 L 000002 LDIAG 0002 I 010551 LDO @O@[@@ 0002 010602 LFIR BV )@@G@@ 0004 000003 LINE 0004 000004 LOPT 0002 010603 LQUAL BW )@@G@@ 0002 I 010604 LREF @O@[@@ 0002 005612 L772 0002 012554 BX )@@G@@MCOL 0002 012555 MEOF 0002 012556 MEX 0002 012557 BY )@@G@@MILDO @O@[@@ 0002 012560 MLGC 0002 I 012561 MP2 0003 0BZ )@@G@@00001 MSG 0002 012562 MSTOP 0002 012563 MTRAN @O@[@@ 00CA )@@G@@02 012564 NBLC 0002 012565 NCD 0002 012566 NCDO 00CB )@@G@@02 I 012567 NDEF 0002 012570 NDOL @O@[@@ 0002 012571 NDOS CC )@@G@@ 0002 012572 NINS 0003 I 000000 NMSG 0002 012573 NPAR CD )@@G@@ 0002 012574 NPUN @O@[@@ 0002 012575 NREC 0002 I 012576 CE )@@G@@NREF 0002 012577 NRT1 0002 012600 NRT2 0004 L 000005 CF )@@G@@NSTART@O@[@@ 0002 012601 NTEMP 0002 012606 NXEQ 0002 0CG )@@G@@03130 OUTPUT 0002 012607 PAREN 0002 012610 PNEXT @O@[@@ 00CH )@@G@@04 L 000006 RIGHT 0004 L 000007 RSTART 0004 000010 SOPT 00CI )@@G@@04 L 000011 SOURCE 0005 000004 USE @@@^@@@K@[@@00101 1* CJ )@@G@@ SUBROUTINE EDIT EDICK )@@G@@00010 @K@[@@00101 2* C CL )@@G@@ EDI00020 @K@[@@00101 3* C THIS SUBRCM )@@G@@OUTINE EDITS THE DEFINED AND THE REFERENCED STATEMENT EDI00030 @K@[@@CN )@@G@@00101 4* C NUMBER LIST. CO )@@G@@ EDI00040 @K@[@@00101 5* C CP )@@G@@ EDI00050 @K@[@@00101 6*CQ )@@G@@ C (1) DEFINED STATEMENTS THAT ARE NOT REFERENCED ARE DELETED.CR )@@G@@ EDI00060 @K@[@@00101 7* C (2) PSEUDO-STATEMENT NUMBERS CS )@@G@@OUTSIDE THE RANGE OF RENUMBERED EDI00070 @K@[@@00101 8* C CT )@@G@@ DEFINED STATEMENT NUMBERS ARE GENERATED FOR EACH EDI00080 CU )@@G@@@K@[@@00101 9* C REFERENCED STATEMENT WHICH IS NOT DEFCV )@@G@@INED. EDI00090 @K@[@@00101 10* C CW )@@G@@ EDI00100 @K@[@@00103 CX )@@G@@ 11* INCLUDE TIDY, LIST CY )@@G@@ EDI00110 @K@[@@00104 11* IMPLICIT INTEGER (A-Z) CZ )@@G@@ PRO00020 @K@[@@00105 11* DA )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRODB )@@G@@00030 @K@[@@00106 11* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTDC )@@G@@H OF DO LOOPS PRO00040 @K@[@@00107 11* PARAMETERDD )@@G@@ MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@DE )@@G@@00110 11* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMEDF )@@G@@NT NUMBERS PRO00060 @K@[@@00111 11* COMMON ICOL, IFIR, INDG )@@G@@PUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 11*DH )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), DI )@@G@@ PRO00080 @K@[@@00111 11* 2 LDO(DOS), LFIR, LQUAL, LREDJ )@@G@@F(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 11* 3 DK )@@G@@ MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 DL )@@G@@@K@[@@00111 11* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRDM )@@G@@T1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 11* 5 NXEQ, PADN )@@G@@REN, PNEXT PRO00120 @K@[@@00112 DO )@@G@@ 11* DIMENSION KIM(CRDLNG,20) DP )@@G@@ PRO00130 @K@[@@00113 11* DIMENSION KOUT(CRDLNG,20) DQ )@@G@@ PRO00140 @K@[@@00114 11* DR )@@G@@ DIMENSION OUTPUT(12,20) PRODS )@@G@@00150 @K@[@@00115 11* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KDT )@@G@@B6) PRO00160 @K@[@@00116 11* EQUIVALENDU )@@G@@CE (KDIG(1),K0) PRO00170 @K@[@@DV )@@G@@00117 11* EQUIVALENCE (IOUT,KOUT) DW )@@G@@ PRO00180 @K@[@@00120 11* EQUIVALENCE (JINT,KIMDX )@@G@@) PRO00190 @K@[@@00121 11*DY )@@G@@ EQUIVALENCE (JINT,OUTPUT) DZ )@@G@@ PRO00200 @K@[@@00122 11* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) EA )@@G@@ PRO00210 @K@[@@00123 11* DEFEB )@@G@@INE DSTMT(X)=FLD(18,18,LDEF(X)) PRO00220 EC )@@G@@@K@[@@00124 11* DEFINE LDOS(X)=FLD(0,18,LDO(X)) ED )@@G@@ PRO00230 @K@[@@00125 11* DEFINE LDOL(X)=EE )@@G@@FLD(18,18,LDO(X)) PRO00240 @K@[@@00125 EF )@@G@@ 11* END EG )@@G@@ PRO00250 @K@[@@00126 12* INCLUDE DIOMSG, LIST EH )@@G@@ EDI00120 @K@[@@00127 12* EI )@@G@@ PARAMETER LMSG=25 PROEJ )@@G@@00400 @K@[@@00130 12* COMMON /DIOMSG/ NMSG, MSG(10,LMSG) EK )@@G@@ PRO00410 @K@[@@00130 12* END EL )@@G@@ PRO00420 @K@[@@EM )@@G@@00131 13* INCLUDE INIT, LIST EN )@@G@@ EDI00130 @K@[@@00132 13* COMMON /INIT/ DIAG,INEO )@@G@@DENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00132 13*EP )@@G@@ 1 SOPT,SOURCE,DHDG EQ )@@G@@ PRO00450 @K@[@@00133 13* LOGICAL INDENT, LDIAG, NSTART, RSER )@@G@@TART, SOURCE PRO00460 @K@[@@00134 13* LOGES )@@G@@ICAL RIGHT PRO00470 ET )@@G@@@K@[@@00134 13* END EU )@@G@@ PRO00480 @K@[@@00135 14* INCLUDE TAPES, EV )@@G@@LIST EDI00140 @K@[@@00135 EW )@@G@@ 15* C EX )@@G@@ EDI00150 @K@[@@00135 16* C EY )@@G@@ EDI00160 @K@[@@00136 16* EZ )@@G@@ COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PROFA )@@G@@00680 @K@[@@00137 16* PARAMETER STDRD=5 @ STANDARD READ UNIT FB )@@G@@ PRO00690 @K@[@@00140 16* PARAMETERFC )@@G@@ STDPRT=6 @ STANDARD PRINT UNIT PRO00700 @K@[@@FD )@@G@@00141 16* PARAMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIFE )@@G@@T PRO00710 @K@[@@00141 16* END FF )@@G@@ PRO00720 @K@[@@00142 17*FG )@@G@@ IF (NDEF) 10,10,20 FH )@@G@@ EDI00170 @K@[@@00145 18* 10 RETURN FI )@@G@@ EDI00180 @K@[@@00145 19* C FJ )@@G@@ EDI00190 FK )@@G@@@K@[@@00146 20* 20 IF (NREF) 30,30,40 FL )@@G@@ EDI00200 @K@[@@00151 21* 30 NDEF=0 FM )@@G@@ EDI00210 @K@[@@00152 FN )@@G@@ 22* RETURN FO )@@G@@ EDI00220 @K@[@@00152 23* C FP )@@G@@ EDI00230 @K@[@@00152 24* C FQ )@@G@@ SCAN DEFINED LIST FOR REFERENCES. DELETE NON-REFERENCED EDIFR )@@G@@00240 @K@[@@00152 25* C DEFINED STATEMENT NUMBERS. FS )@@G@@ EDI00250 @K@[@@00152 26* C FT )@@G@@ EDI00260 @K@[@@FU )@@G@@00153 27* 40 IT=0 FV )@@G@@ EDI00270 @K@[@@00154 28* DO 70 I=1,NDEF FW )@@G@@ EDI00280 @K@[@@00157 29*FX )@@G@@ DO 50 J=1,NREF FY )@@G@@ EDI00290 @K@[@@00162 30* 50 IF (DSTMT(I).EQ.LREF(J)) GO TO 60FZ )@@G@@ EDI00300 @K@[@@00165 31* GO GA )@@G@@TO 70 EDI00310 GB )@@G@@@K@[@@00166 32* 60 IT=IT+1 GC )@@G@@ EDI00320 @K@[@@00167 33* LDEF(IT)=LDEF(IGD )@@G@@) EDI00330 @K@[@@00170 GE )@@G@@ 34* 70 CONTINUE GF )@@G@@ EDI00340 @K@[@@00170 35* C GG )@@G@@ EDI00350 @K@[@@00170 36* C GH )@@G@@ SCAN REFERENCED STATEMENT LIST FOR MISSING DEFINITIONS. EDIGI )@@G@@00360 @K@[@@00170 37* C GJ )@@G@@ EDI00370 @K@[@@00172 38* NDEF=IT GK )@@G@@ EDI00380 @K@[@@GL )@@G@@00173 39* IT=0 GM )@@G@@ EDI00390 @K@[@@00174 40* DO 110 I=1,NREF GN )@@G@@ EDI00400 @K@[@@00177 41*GO )@@G@@ DO 80 J=1,NDEF GP )@@G@@ EDI00410 @K@[@@00202 42* 80 IF (LREF(I).EQ.DSTMT(J)) GO TO 11GQ )@@G@@0 EDI00420 @K@[@@00202 43* C GR )@@G@@ EDI00430 GS )@@G@@@K@[@@00202 44* C ADD PSEUDO-STATEMENT NUMBER. GT )@@G@@ EDI00440 @K@[@@00202 45* C GU )@@G@@ EDI00450 @K@[@@00205 GV )@@G@@ 46* IF (IT) 100,90,100 GW )@@G@@ EDI00460 @K@[@@00210 47* 90 IT=1 GX )@@G@@ EDI00470 @K@[@@00211 48* GY )@@G@@ IF (DIAG.NE.0) WRITE (JOUT,130) EDIGZ )@@G@@00480 @K@[@@00214 49* 100 J=NDEF*KD15+KB15 HA )@@G@@ EDI00490 @K@[@@00215 50* NDEF=NDEFHB )@@G@@+1 EDI00500 @K@[@@HC )@@G@@00216 51* IF (NDEF.GT.DEFLNG) GO TO 120 HD )@@G@@ EDI00510 @K@[@@00220 52* DSTMT(NDEF)=LREF(I) HE )@@G@@ EDI00520 @K@[@@00221 53*HF )@@G@@ DLOC(NDEF)=0 HG )@@G@@ EDI00530 @K@[@@00222 54* NMSG=NMSG+1 HH )@@G@@ EDI00540 @K@[@@00223 55* IF HI )@@G@@(DIAG.NE.0) WRITE (JOUT,140) NMSG,LREF(I),J EDI00550 HJ )@@G@@@K@[@@00231 56* 110 CONTINUE HK )@@G@@ EDI00560 @K@[@@00233 57* RETURN HL )@@G@@ EDI00570 @K@[@@00233 HM )@@G@@ 58* C HN )@@G@@ EDI00580 @K@[@@00234 59* 120 CALL DIAGNO (6) HO )@@G@@ EDI00590 @K@[@@00235 60* HP )@@G@@ NDEF=-1 EDIHQ )@@G@@00600 @K@[@@00236 61* MP2=0 HR )@@G@@ EDI00610 @K@[@@00237 62* RETURN HS )@@G@@ EDI00620 @K@[@@HT )@@G@@00237 63* C HU )@@G@@ EDI00630 @K@[@@00240 64* 130 FORMAT (1H0,12X,'*** HV )@@G@@THE FOLLOWING REFERENCED STATEMENTS ARE NOT DEDI00640 @K@[@@00240 65*HW )@@G@@ 1EFINED. ***'/13X,'*** PSEUDO-STATEMENT NUMBERS HAVE BEEN HX )@@G@@ASSEDI00650 @K@[@@00240 66* 2IGNED. ***'/1X) HY )@@G@@ EDI00660 @K@[@@00241 67* 140 FORHZ )@@G@@MAT (7X,1H(,I3,22H) *** STATEMENT NUMBER,I5,19H IS ASSIGNED NUMEDI00670 IA )@@G@@@K@[@@00241 68* 1BER,I5,1H.,13X,3H***) IB )@@G@@ EDI00680 @K@[@@00241 69* C IC )@@G@@ EDI00690 @K@[@@00242 ID )@@G@@ 70* END IE )@@G@@ EDI00700 @D@]@@ END OF COMPILATION: NO DIAGNOSTICIF )@@G@@S. @#@^@@@HDG,P HOLCK 0 50 H, ,1, HOLCK . @^__@@IG )@@G@@@FOR,S HOLCK,HOLCK @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUGIH )@@G@@ 72 AT 19:28:18. @@@[@@@@@[@@@B@[@@ SUBROUTINE HOLCK ENTRY POINT II )@@G@@000376@@@[@@@G@]@@ STORAGE USED: CODE(1) 000407; DATA(0) 000036; BLANKIJ )@@G@@ COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 ALPHA IK )@@G@@000065@^@[@@ 0004 INIT 000013@^@[@@ 0005 LIOS 000004@A@#@@IL )@@G@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0006 RSTAT @#@[@@IM )@@G@@ 0007 IOSYS1 @#@[@@ 0010 NERR3$ @F@#@@ STORAGE ASSIGNMENT (IN )@@G@@BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000004 IO )@@G@@10L 0001 000110 100L 0001 000124 110L 0001 000127 IP )@@G@@120L 0001 000153 130L @O@[@@ 0001 000010 145G 0001 0IQ )@@G@@00171 150L 0001 000040 162G 0001 000203 170L 0001 0IR )@@G@@00052 171G @O@[@@ 0001 000207 180L 0001 000230 190L 00IS )@@G@@01 000026 20L 0001 000064 204G 0001 000247 210L @O@[@@IT )@@G@@ 0001 000262 230L 0001 000331 250L 0001 000161 253G IU )@@G@@ 0001 000176 262G 0001 000340 270L @O@[@@ 0001 000343 IV )@@G@@280L 0001 000351 290L 0001 000237 300G 0001 000253 IW )@@G@@307G 0001 000271 316G @O@[@@ 0001 000335 337G 0001 0IX )@@G@@00102 80L 0001 000104 90L 0004 000012 DHDG 0004 0IY )@@G@@00000 DIAG @O@[@@ 0000 I 000002 I 0000 I 000001 IB 00IZ )@@G@@02 000000 ICOL 0002 I 000001 IFIR 0005 I 000003 IMAX @O@[@@JA )@@G@@ 0004 L 000001 INDENT 0000 000021 INJP$ 0002 000002 INPUT JB )@@G@@ 0002 I 000450 IOUT 0000 I 000006 IS @O@[@@ 0005 I 000001 JC )@@G@@ITYPE 0000 I 000005 J 0002 I 003127 JCOL 0002 I 003130 JD )@@G@@JINT 0002 I 005607 JMAX @O@[@@ 0003 000013 KA 0003 I 0JE )@@G@@00013 KABC 0003 000061 KAND 0003 I 000062 KAT 0003 0JF )@@G@@00014 KB @O@[@@ 0003 I 000000 KBL 0000 000007 KBUFF 00JG )@@G@@00 000007 KB1 0002 005610 KB15 0000 000014 KB6 @O@[@@JH )@@G@@ 0003 I 000015 KC 0003 000051 KCLOSE 0003 000046 KCOMMAJI )@@G@@ 0003 000016 KD 0003 000057 KDASH @O@[@@ 0003 I 000001 JJ )@@G@@KDIG 0003 000056 KDOLAR 0002 005611 KD15 0003 000017 JK )@@G@@KE 0003 000045 KEQ @O@[@@ 0003 I 000064 KERM 0003 0JL )@@G@@00020 KF 0003 000021 KG 0003 000022 KH 0003 0JM )@@G@@00023 KI @O@[@@ 0005 I 000000 KILI 0002 003130 KIM 00JN )@@G@@03 000024 KJ 0003 000025 KK 0003 000026 KL @O@[@@JO )@@G@@ 0005 I 000000 KLASS 0003 000063 KLR2 0003 000027 KM JP )@@G@@ 0003 000053 KMINUS 0003 000030 KN @O@[@@ 0003 000031 JQ )@@G@@KO 0003 000047 KOPEN 0002 000450 KOUT 0003 000032 JR )@@G@@KP 0003 000055 KPERD @O@[@@ 0003 000052 KPLUS 0003 0JS )@@G@@00033 KQ 0003 I 000060 KQUOTE 0003 000034 KR 0003 0JT )@@G@@00035 KS @O@[@@ 0003 000050 KSLASH 0003 I 000045 KSPK 00JU )@@G@@03 000054 KSTAR 0003 000036 KT 0003 000037 KU @O@[@@JV )@@G@@ 0003 000040 KV 0003 000041 KW 0003 000042 KX JW )@@G@@ 0003 000043 KY 0003 000044 KZ @O@[@@ 0003 000001 JX )@@G@@K0 0000 I 000003 L 0002 005613 LAST 0002 005614 JY )@@G@@LCPY 0002 I 005615 LDEF @O@[@@ 0004 L 000002 LDIAG 0002 I 0JZ )@@G@@10551 LDO 0002 010602 LFIR 0004 000003 LINE 0004 0KA )@@G@@00004 LOPT @O@[@@ 0002 010603 LQUAL 0002 010604 LREF 00KB )@@G@@05 000002 L15 0002 I 005612 L772 0000 I 000000 MAX @O@[@@KC )@@G@@ 0002 012554 MCOL 0002 012555 MEOF 0002 012556 MEX KD )@@G@@ 0002 012557 MILDO 0002 012560 MLGC @O@[@@ 0002 012561 KE )@@G@@MP2 0002 012562 MSTOP 0002 012563 MTRAN 0002 012564 KF )@@G@@NBLC 0002 012565 NCD @O@[@@ 0002 012566 NCDO 0000 I 0KG )@@G@@00004 ND 0002 012567 NDEF 0002 012570 NDOL 0002 0KH )@@G@@12571 NDOS @O@[@@ 0002 012572 NINS 0002 012573 NPAR 00KI )@@G@@02 012574 NPUN 0002 012575 NREC 0002 012576 NREF @O@[@@KJ )@@G@@ 0002 I 012577 NRT1 0002 012600 NRT2 0004 L 000005 NSTARTKK )@@G@@ 0002 I 012601 NTEMP 0002 012606 NXEQ @O@[@@ 0002 003130 KL )@@G@@OUTPUT 0002 012607 PAREN 0002 012610 PNEXT 0004 L 000006 KM )@@G@@RIGHT 0004 L 000007 RSTART@C@[@@ 0004 000010 SOPT 0004 L 0KN )@@G@@00011 SOURCE@@@^@@@K@[@@00101 1* SUBROUTINE HOLCK KO )@@G@@ HOL00010 @K@[@@00101 2* C KP )@@G@@ HOLKQ )@@G@@00020 @K@[@@00101 3* C THIS ROUTINE SCANS JINT(I) FROM LFIR TOKR )@@G@@ JMAX, LOOKING FOR HOL00030 @K@[@@00101 4* C HOLLERITHKS )@@G@@ CONSTANTS AND FIELDS. IF SUCH FIELDS ARE FOUND, THE HOL00040 @K@[@@KT )@@G@@00101 5* C BLANK SPACES AND THE LEFT AND RIGHT PARENTHESIS AREKU )@@G@@ REPLACED WITH HOL00050 @K@[@@00101 6* C EQUIVALENT BLANK AND KV )@@G@@PARENTHESIS SYMBOLS WHICH WILL NOT INTERFERE HOL00060 @K@[@@00101 7*KW )@@G@@ C WITH COPY OR WITH PARENTHESIS COUNTING. KX )@@G@@ HOL00070 @K@[@@00101 8* C KY )@@G@@ HOL00080 @K@[@@00103 9* INCKZ )@@G@@LUDE TIDY, LIST HOL00090 LA )@@G@@@K@[@@00104 9* IMPLICIT INTEGER (A-Z) LB )@@G@@ PRO00020 @K@[@@00105 9* PARAMETER CRDLNLC )@@G@@G=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 LD )@@G@@ 9* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS LE )@@G@@ PRO00040 @K@[@@00107 9* PARAMETER MAXCHS=1327 @ MAXLF )@@G@@IMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 9* LG )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PROLH )@@G@@00060 @K@[@@00111 9* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MLI )@@G@@AXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 9* 1 JMLJ )@@G@@AX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@LK )@@G@@00111 9* 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOLL )@@G@@F, MEX, MILDO, PRO00090 @K@[@@00111 9* 3 MLGC, MP2, MSTLM )@@G@@OP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 9*LN )@@G@@ 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5)LO )@@G@@, PRO00110 @K@[@@00111 9* 5 NXEQ, PAREN, PNEXT LP )@@G@@ PRO00120 @K@[@@00112 9* DIMLQ )@@G@@ENSION KIM(CRDLNG,20) PRO00130 LR )@@G@@@K@[@@00113 9* DIMENSION KOUT(CRDLNG,20) LS )@@G@@ PRO00140 @K@[@@00114 9* DIMENSION OUTPULT )@@G@@T(12,20) PRO00150 @K@[@@00115 LU )@@G@@ 9* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) LV )@@G@@ PRO00160 @K@[@@00116 9* EQUIVALENCE (KDIG(1),K0) LW )@@G@@ PRO00170 @K@[@@00117 9* LX )@@G@@ EQUIVALENCE (IOUT,KOUT) PROLY )@@G@@00180 @K@[@@00120 9* EQUIVALENCE (JINT,KIM) LZ )@@G@@ PRO00190 @K@[@@00121 9* EQUIVALENMA )@@G@@CE (JINT,OUTPUT) PRO00200 @K@[@@MB )@@G@@00122 9* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) MC )@@G@@ PRO00210 @K@[@@00123 9* DEFINE DSTMT(X)=FLD(1MD )@@G@@8,18,LDEF(X)) PRO00220 @K@[@@00124 9*ME )@@G@@ DEFINE LDOS(X)=FLD(0,18,LDO(X)) MF )@@G@@ PRO00230 @K@[@@00125 9* DEFINE LDOL(X)=FLD(18,18,LDO(X)) MG )@@G@@ PRO00240 @K@[@@00125 9* END MH )@@G@@ PRO00250 MI )@@G@@@K@[@@00126 10* INCLUDE ALPHA, LIST MJ )@@G@@ HOL00100 @K@[@@00127 10* COMMON /ALPHA/ MK )@@G@@KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00127 ML )@@G@@ 10* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ,MM )@@G@@ PRO00280 @K@[@@00127 10* 2 KEQ,KCOMMA,KMN )@@G@@OPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 10* MO )@@G@@ 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PROMP )@@G@@00300 @K@[@@00130 10* DIMENSION KABC(26), KSPK(14) MQ )@@G@@ PRO00310 @K@[@@00131 10* EQUIVALENMR )@@G@@CE (KABC,KA), (KSPK,KEQ) PRO00320 @K@[@@MS )@@G@@00131 10* END MT )@@G@@ PRO00330 @K@[@@00132 11* INCLUDE INIT, LIST MU )@@G@@ HOL00110 @K@[@@00133 11*MV )@@G@@ COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, MW )@@G@@ PRO00440 @K@[@@00133 11* 1 SOPT,SOURCE,DHDG MX )@@G@@ PRO00450 @K@[@@00134 11* LOGMY )@@G@@ICAL INDENT, LDIAG, NSTART, RSTART, SOURCE PRO00460 MZ )@@G@@@K@[@@00135 11* LOGICAL RIGHT NA )@@G@@ PRO00470 @K@[@@00135 11* END NB )@@G@@ PRO00480 @K@[@@00136 NC )@@G@@ 12* INCLUDE LIOS, LIST ND )@@G@@ HOL00120 @K@[@@00136 13* C NE )@@G@@ HOL00130 @K@[@@00136 14* C NF )@@G@@ HOLNG )@@G@@00140 @K@[@@00136 15* C LOOK FOR H IN FORTRAN FIELD. NH )@@G@@ HOL00150 @K@[@@00136 16* C NI )@@G@@ HOL00160 @K@[@@NJ )@@G@@00137 16* COMMON /LIOS/ KLASS, ITYPE, L15, IMAX NK )@@G@@ PRO00630 @K@[@@00140 16* DIMENSION KILI(4) NL )@@G@@ PRO00640 @K@[@@00141 16*NM )@@G@@ EQUIVALENCE (KLASS,KILI) NN )@@G@@ PRO00650 @K@[@@00141 16* END NO )@@G@@ PRO00660 @K@[@@00142 17* NTENP )@@G@@MP(1)=0 HOL00170 NQ )@@G@@@K@[@@00143 18* IB=JCOL+1 NR )@@G@@ HOL00180 @K@[@@00144 19* 10 DO 110 I=IB,JMANS )@@G@@X HOL00190 @K@[@@00147 NT )@@G@@ 20* IF (JINT(I).EQ.KABC(8)) GO TO 20 NU )@@G@@ HOL00200 @K@[@@00151 21* IF (JINT(I).EQ.KSPK(12)) GONV )@@G@@ TO 130 HOL00210 @K@[@@00153 22* NW )@@G@@ IF (JINT(I).EQ.KAT) GO TO 180 HOLNX )@@G@@00220 @K@[@@00155 23* GO TO 110 NY )@@G@@ HOL00230 @K@[@@00156 24* 20 MAX=I-IB+NZ )@@G@@1 HOL00240 @K@[@@OA )@@G@@00157 25* L=I OB )@@G@@ HOL00250 @K@[@@00157 26* C OC )@@G@@ HOL00260 @K@[@@00157 27*OD )@@G@@ C LOOK FOR PRECEDING NUMERIC DIGITS OR BLANKS. OE )@@G@@ HOL00270 @K@[@@00157 28* C OF )@@G@@ HOL00280 @K@[@@00160 29* ND=OG )@@G@@0 HOL00290 OH )@@G@@@K@[@@00161 30* DO 90 J=1,MAX OI )@@G@@ HOL00300 @K@[@@00164 31* L=L-1 OJ )@@G@@ HOL00310 @K@[@@00165 OK )@@G@@ 32* IF (JINT(L)-KBL) 30,90,30 OL )@@G@@ HOL00320 @K@[@@00170 33* 30 DO 40 IS=1,10 OM )@@G@@ HOL00330 @K@[@@00173 34* ON )@@G@@ IF (JINT(L)-KDIG(IS)) 40,80,40 HOLOO )@@G@@00340 @K@[@@00176 35* 40 CONTINUE OP )@@G@@ HOL00350 @K@[@@00200 36* IF (ND) 5OQ )@@G@@0,110,50 HOL00360 @K@[@@OR )@@G@@00200 37* C OS )@@G@@ HOL00370 @K@[@@00200 38* C LOOK FOR PRECEDING SPOT )@@G@@ECIAL CHARACTER. = , ( / ) + - * HOL00380 @K@[@@00200 39*OU )@@G@@ C OV )@@G@@ HOL00390 @K@[@@00203 40* 50 DO 60 IS=1,9 OW )@@G@@ HOL00400 @K@[@@00206 41* IF OX )@@G@@(JINT(L)-KSPK(IS)) 60,100,60 HOL00410 OY )@@G@@@K@[@@00211 42* 60 CONTINUE OZ )@@G@@ HOL00420 @K@[@@00211 43* C PA )@@G@@ HOL00430 @K@[@@00211 PB )@@G@@ 44* C NO SPECIAL CHARACTER. LOOK FOR MISSING (,) IN FORMAT STAPC )@@G@@TEMENT. HOL00440 @K@[@@00211 45* C PD )@@G@@ HOL00450 @K@[@@00213 46* PE )@@G@@ IF (JINT(L)-KABC(24)) 110,70,110 HOLPF )@@G@@00460 @K@[@@00216 47* 70 IF (KLASS.NE.2) GO TO 110 PG )@@G@@ HOL00470 @K@[@@00220 48* GO TO 100PH )@@G@@ HOL00480 @K@[@@PI )@@G@@00221 49* 80 ND=-1 PJ )@@G@@ HOL00490 @K@[@@00222 50* 90 CONTINUE PK )@@G@@ HOL00500 @K@[@@00224 51*PL )@@G@@ IF (ND) 100,110,100 PM )@@G@@ HOL00510 @K@[@@00224 52* C PN )@@G@@ HOL00520 @K@[@@00224 53* C EVAPO )@@G@@LUATE NUMBER OF HOLLERITHS (IF ANY). HOL00530 PP )@@G@@@K@[@@00224 54* C PQ )@@G@@ HOL00540 @K@[@@00227 55* 100 IS=JCOL PR )@@G@@ HOL00550 @K@[@@00230 PS )@@G@@ 56* JCOL=L+1 PT )@@G@@ HOL00560 @K@[@@00231 57* CALL RSTAT PU )@@G@@ HOL00570 @K@[@@00232 58* PV )@@G@@ JCOL=IS HOLPW )@@G@@00580 @K@[@@00233 59* IF (L772) 110,110,120 PX )@@G@@ HOL00590 @K@[@@00236 60* 110 CONTINUE PY )@@G@@ HOL00600 @K@[@@PZ )@@G@@00240 61* GO TO 170 QA )@@G@@ HOL00610 @K@[@@00240 62* C QB )@@G@@ HOL00620 @K@[@@00241 63*QC )@@G@@ 120 MAX=I+L772 QD )@@G@@ HOL00630 @K@[@@00242 64* IF (JMAX.GE.MAX) GO TO 150 QE )@@G@@ HOL00640 @K@[@@00242 65* C QF )@@G@@ HOL00650 QG )@@G@@@K@[@@00242 66* C WIDEN HOLLERITH FIELD TO ACCOUNT FOR TRAILINGQH )@@G@@ BLANKS. HOL00660 @K@[@@00242 67* C QI )@@G@@ HOL00670 @K@[@@00244 QJ )@@G@@ 68* IF (MAX.GT.1326) MAX=1326 QK )@@G@@ HOL00680 @K@[@@00246 69* JMAX=MAX QL )@@G@@ HOL00690 @K@[@@00247 70* QM )@@G@@ JINT(MAX+1)=KERM HOLQN )@@G@@00700 @K@[@@00250 71* GO TO 150 QO )@@G@@ HOL00710 @K@[@@00250 72* C QP )@@G@@ HOL00720 @K@[@@QQ )@@G@@00250 73* C ALTER FIELD IN ' ' TO MAKE SYMBOLS DISTINCT FROM FOQR )@@G@@RTRAN. HOL00730 @K@[@@00250 74* C QS )@@G@@ HOL00740 @K@[@@00251 75*QT )@@G@@ 130 IB=I+1 QU )@@G@@ HOL00750 @K@[@@00252 76* DO 140 MAX=IB,JMAX QV )@@G@@ HOL00760 @K@[@@00255 77* 140 IF QW )@@G@@(JINT(MAX).EQ.KQUOTE) GO TO 150 HOL00770 QX )@@G@@@K@[@@00260 78* GO TO 280 @ NO SECOND '. ASSUME DIRECT ACCQY )@@G@@ESS I/O STATEMENT HOL00780 @K@[@@00261 79* 150 DO 160 I=I,MAX QZ )@@G@@ HOL00790 @K@[@@00264 RA )@@G@@ 80* 160 JINT(I)=JINT(I)+1 RB )@@G@@ HOL00800 @K@[@@00266 81* GO TO 270 RC )@@G@@ HOL00810 @K@[@@00266 82* C RD )@@G@@ HOLRE )@@G@@00820 @K@[@@00267 83* 170 L772=0 RF )@@G@@ HOL00830 @K@[@@00270 84* RETURN RG )@@G@@ HOL00840 @K@[@@RH )@@G@@00270 85* C RI )@@G@@ HOL00850 @K@[@@00270 86* C CHECK FOR EMBEDDED RJ )@@G@@ @-COMMENT HOL00860 @K@[@@00270 87*RK )@@G@@ C RL )@@G@@ HOL00870 @K@[@@00271 88* 180 MAX=(((I-7)/66+1)*66)+6 RM )@@G@@@ END OF CARD HOL00880 @K@[@@00272 89* IF RN )@@G@@(MAX.GE.JMAX) GO TO 290 @ COMMENT OCCURS ON LAST CARD HOL00890 RO )@@G@@@K@[@@00274 90* IF (IFIR.EQ.14) IFIR=0 @ SET FLAG FRP )@@G@@OR EMBEDDED @-COMMENTHOL00900 @K@[@@00276 91* 190 JINT(I)=KBL RQ )@@G@@ @ REMOVE @ HOL00910 @K@[@@00277 RR )@@G@@ 92* DO 200 IS=MAX,I,-1 RS )@@G@@ HOL00920 @K@[@@00302 93* 200 IF (JINT(IS).NE.KBL) GO TO RT )@@G@@210 HOL00930 @K@[@@00305 94* RU )@@G@@ GO TO 270 @ NO COMMENT FOLLOWS @. IGNORE HOLRV )@@G@@00940 @K@[@@00305 95* C RW )@@G@@ HOL00950 @K@[@@00305 96* C LOOK FOR RX )@@G@@FIRST NON-BLANK AFTER @ HOL00960 @K@[@@RY )@@G@@00305 97* C RZ )@@G@@ HOL00970 @K@[@@00306 98* 210 DO 220 I=I,IS SA )@@G@@ HOL00980 @K@[@@00311 99*SB )@@G@@ 220 IF (JINT(I).NE.KBL) GO TO 230 SC )@@G@@ HOL00990 @K@[@@00314 100* 230 L=6 SD )@@G@@ HOL01000 @K@[@@00315 101* DO SE )@@G@@240 I=I,IS HOL01010 SF )@@G@@@K@[@@00320 102* L=L+1 SG )@@G@@ HOL01020 @K@[@@00321 103* IOUT(L)=JINT(I)SH )@@G@@ HOL01030 @K@[@@00322 SI )@@G@@ 104* 240 JINT(I)=KBL SJ )@@G@@ HOL01040 @K@[@@00324 105* IOUT(1)=KC SK )@@G@@ HOL01050 @K@[@@00325 106* SL )@@G@@ ITYPE=0 HOLSM )@@G@@01060 @K@[@@00326 107* KLASS=0 SN )@@G@@ HOL01070 @K@[@@00327 108* IMAX=L SO )@@G@@ HOL01080 @K@[@@SP )@@G@@00330 109* NTEMP(1)=1 @ SET INTERNAL FLAG FOR EMBESQ )@@G@@DDED COMMENT HOL01090 @K@[@@00330 110* C SR )@@G@@ HOL01100 @K@[@@00330 111*SS )@@G@@ C WRITE COMMENT IMAGE ON TAPE 1 FOR PASS 2. ST )@@G@@ HOL01110 @K@[@@00330 112* C SU )@@G@@ HOL01120 @K@[@@00331 113* IF SV )@@G@@(RSTART) GO TO 250 @ DON'T WRITE COMMENT AGAIN HOL01130 SW )@@G@@@K@[@@00333 114* CALL IOSYS1 (2,KILI,4) SX )@@G@@ HOL01140 @K@[@@00334 115* CALL IOSYS1 (2,SY )@@G@@IOUT,IMAX) HOL01150 @K@[@@00335 SZ )@@G@@ 116* NRT1=NRT1+1 TA )@@G@@ HOL01160 @K@[@@00335 117* C TB )@@G@@ HOL01170 @K@[@@00335 118* C TC )@@G@@ CLEAR IOUT HOLTD )@@G@@01180 @K@[@@00335 119* C TE )@@G@@ HOL01190 @K@[@@00336 120* 250 DO 260 I=TF )@@G@@1,L HOL01200 @K@[@@TG )@@G@@00341 121* 260 IOUT(I)=KBL TH )@@G@@ HOL01210 @K@[@@00341 122* C TI )@@G@@ HOL01220 @K@[@@00343 123*TJ )@@G@@ 270 IB=MAX+1 TK )@@G@@ HOL01230 @K@[@@00344 124* 280 IF (IB.GT.JMAX) GO TO 170 TL )@@G@@ HOL01240 @K@[@@00346 125* GO TM )@@G@@TO 10 HOL01250 TN )@@G@@@K@[@@00346 126* C TO )@@G@@ HOL01260 @K@[@@00347 127* 290 IF (NTEMP(1).EQTP )@@G@@.0) GO TO 170 @ NO EMBEDDED COMMENTS HOL01270 @K@[@@00351 TQ )@@G@@ 128* MAX=JMAX TR )@@G@@ HOL01280 @K@[@@00352 129* JMAX=I TS )@@G@@ HOL01290 @K@[@@00353 130* TT )@@G@@ GO TO 190 HOLTU )@@G@@01300 @K@[@@00353 131* C TV )@@G@@ HOL01310 @K@[@@00354 132* END TW )@@G@@ HOL01320 @D@]@@TX )@@G@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P INTY )@@G@@ITAL 0 STO H, ,1, INITAL . @L^@^__@@@FOR,S INITAL,INITAL TZ )@@G@@@E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28:30. @@@[@@UA )@@G@@@@@[@@@B@[@@ SUBROUTINE INITAL ENTRY POINT 000363@@@[@@@G@]@@ STOUB )@@G@@RAGE USED: CODE(1) 000365; DATA(0) 000157; BLANK COMMON(2) 012611 @#@]@@UC )@@G@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 INIT 000013@^@[@@ 0004 TUD )@@G@@APES 000016@^@[@@ 0005 WORK 001673@A@#@@ EXTERNAL REFERENCES (UE )@@G@@BLOCK, NAME)@@@[@@@#@[@@ 0006 INFORR @#@[@@ 0007 INFORW @#@[@@UF )@@G@@ 0010 INFFMT @#@[@@ 0011 ASSIGN @#@[@@ 0012 INFORU @#@[@@UG )@@G@@ 0013 ELTRO @#@[@@ 0014 ELTWO @#@[@@ 0015 ELTWHD @#@[@@UH )@@G@@ 0016 NWDU$ @#@[@@ 0017 NIO2$ @#@[@@ 0020 NSTOP$ @#@[@@UI )@@G@@ 0021 NIO1$ @#@[@@ 0022 NERR3$ @F@#@@ STORAGE ASSIGNMENT (UJ )@@G@@BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000020 UK )@@G@@10L 0001 000177 100L 0001 000202 110L 0001 000210 UL )@@G@@120L 0001 000221 130L @O@[@@ 0001 000230 140L 0001 0UM )@@G@@00246 150L 0001 000262 160L 0001 000302 170L 0001 0UN )@@G@@00313 180L @O@[@@ 0001 000321 190L 0001 000063 20L 00UO )@@G@@01 000340 200L 0001 000354 210L 0000 000016 220F @O@[@@UP )@@G@@ 0000 000032 230F 0000 000040 240F 0000 000047 250F UQ )@@G@@ 0000 000053 260F 0000 000061 270F @O@[@@ 0000 000067 UR )@@G@@280F 0000 000075 290F 0001 000070 30L 0001 000073 US )@@G@@40L 0001 000101 50L @O@[@@ 0001 000113 60L 0001 0UT )@@G@@00127 70L 0001 000147 80L 0001 000160 90L 0003 0UU )@@G@@00012 DHDG @O@[@@ 0003 I 000000 DIAG 0005 I 000000 ECYC 00UV )@@G@@13 I 000000 ELTRO 0015 I 000000 ELTWHD 0014 I 000000 ELTWO @O@[@@UW )@@G@@ 0005 I 001026 FILE 0000 I 000000 I 0002 000000 ICOL UX )@@G@@ 0002 000001 IFIR 0003 L 000001 INDENT@O@[@@ 0000 000152 UY )@@G@@INJP$ 0002 000002 INPUT 0002 000450 IOUT 0004 000000 UZ )@@G@@IO1 0004 000001 IO2 @O@[@@ 0004 000002 JALTFD 0002 0VA )@@G@@03127 JCOL 0002 003130 JINT 0002 005607 JMAX 0004 0VB )@@G@@00003 JOUT @O@[@@ 0000 000103 KBUFF 0000 000103 KB1 00VC )@@G@@02 005610 KB15 0000 000110 KB6 0000 000111 KDIG @O@[@@VD )@@G@@ 0002 005611 KD15 0002 003130 KIM 0002 000450 KOUT VE )@@G@@ 0000 000111 K0 0002 005613 LAST @O@[@@ 0005 I 000001 VF )@@G@@LATEST 0002 005614 LCPY 0002 I 005615 LDEF 0003 L 000002 VG )@@G@@LDIAG 0002 I 010551 LDO @O@[@@ 0002 010602 LFIR 0003 I 0VH )@@G@@00003 LINE 0003 I 000004 LOPT 0002 010603 LQUAL 0002 0VI )@@G@@10604 LREF @O@[@@ 0002 005612 L772 0002 I 012554 MCOL 00VJ )@@G@@02 012555 MEOF 0002 012556 MEX 0002 012557 MILDO @O@[@@VK )@@G@@ 0002 012560 MLGC 0000 I 000001 MPUN 0002 012561 MP2 VL )@@G@@ 0002 012562 MSTOP 0002 012563 MTRAN @O@[@@ 0002 012564 VM )@@G@@NBLC 0002 012565 NCD 0002 012566 NCDO 0002 012567 VN )@@G@@NDEF 0002 012570 NDOL @O@[@@ 0002 012571 NDOS 0002 0VO )@@G@@12572 NINS 0005 I 000002 NOSPC1 0002 012573 NPAR 0002 0VP )@@G@@12574 NPUN @O@[@@ 0002 012575 NREC 0002 012576 NREF 00VQ )@@G@@02 012577 NRT1 0002 012600 NRT2 0003 L 000005 NSTART@O@[@@VR )@@G@@ 0002 012601 NTEMP 0002 012606 NXEQ 0002 003130 OUTPUTVS )@@G@@ 0002 012607 PAREN 0002 012610 PNEXT @O@[@@ 0003 L 000006 VT )@@G@@RIGHT 0003 L 000007 RSTART 0003 I 000010 SOPT 0003 L 000011 VU )@@G@@SOURCE 0000 I 000112 SPEC1 @O@[@@ 0000 I 000112 SPEC2 0005 I 0VV )@@G@@00737 TIDYC 0004 000004 USE 0005 I 000003 WORK1 0005 I 0VW )@@G@@00737 WORK2 @@@^@@@K@[@@00101 1* SUBROUTINE INITAL VX )@@G@@ INI00010 @K@[@@00101 2* C VY )@@G@@ INIVZ )@@G@@00020 @K@[@@00101 3* C THIS SUBROUTINE READS THE PROCESSOR CALWA )@@G@@L CARD AND INITIALIZES INI00030 @K@[@@00101 4* C THE ENVIRWB )@@G@@ONMENT FOR TIDY INI00040 @K@[@@WC )@@G@@00101 5* C WD )@@G@@ INI00050 @K@[@@00103 6* INCLUDE TIDY, LIST WE )@@G@@ INI00060 @K@[@@00104 6*WF )@@G@@ IMPLICIT INTEGER (A-Z) WG )@@G@@ PRO00020 @K@[@@00105 6* PARAMETER CRDLNG=66 @ MAXIMUM NO.WH )@@G@@ OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 6* PARWI )@@G@@AMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 WJ )@@G@@@K@[@@00107 6* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS.WK )@@G@@ IN A STATEMENT PRO00050 @K@[@@00110 6* PARAMETER DEFLNWL )@@G@@G=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 WM )@@G@@ 6* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINTWN )@@G@@(MAXCHS),PRO00070 @K@[@@00111 6* 1 JMAX, KB15, KD15, L7WO )@@G@@72, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 6* WP )@@G@@ 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PROWQ )@@G@@00090 @K@[@@00111 6* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NWR )@@G@@CD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 6* 4 NDWS )@@G@@OS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@WT )@@G@@00111 6* 5 NXEQ, PAREN, PNEXT WU )@@G@@ PRO00120 @K@[@@00112 6* DIMENSION KIM(CRDLNG,WV )@@G@@20) PRO00130 @K@[@@00113 6*WW )@@G@@ DIMENSION KOUT(CRDLNG,20) WX )@@G@@ PRO00140 @K@[@@00114 6* DIMENSION OUTPUT(12,20) WY )@@G@@ PRO00150 @K@[@@00115 6* EQUWZ )@@G@@IVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PRO00160 XA )@@G@@@K@[@@00116 6* EQUIVALENCE (KDIG(1),K0) XB )@@G@@ PRO00170 @K@[@@00117 6* EQUIVALENCE (IOXC )@@G@@UT,KOUT) PRO00180 @K@[@@00120 XD )@@G@@ 6* EQUIVALENCE (JINT,KIM) XE )@@G@@ PRO00190 @K@[@@00121 6* EQUIVALENCE (JINT,OUTPUT) XF )@@G@@ PRO00200 @K@[@@00122 6* XG )@@G@@ DEFINE DLOC(X)=FLD(0,18,LDEF(X)) PROXH )@@G@@00210 @K@[@@00123 6* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) XI )@@G@@ PRO00220 @K@[@@00124 6* DEFINE LDXJ )@@G@@OS(X)=FLD(0,18,LDO(X)) PRO00230 @K@[@@XK )@@G@@00125 6* DEFINE LDOL(X)=FLD(18,18,LDO(X)) XL )@@G@@ PRO00240 @K@[@@00125 6* END XM )@@G@@ PRO00250 @K@[@@00126 7*XN )@@G@@ INCLUDE INIT, LIST XO )@@G@@ INI00070 @K@[@@00127 7* COMMON /INIT/ DIAG,INDENT,LDIAG,LXP )@@G@@INE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00127 7* 1 XQ )@@G@@ SOPT,SOURCE,DHDG PRO00450 XR )@@G@@@K@[@@00130 7* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCEXS )@@G@@ PRO00460 @K@[@@00131 7* LOGICAL RIGHT XT )@@G@@ PRO00470 @K@[@@00131 XU )@@G@@ 7* END XV )@@G@@ PRO00480 @K@[@@00132 8* INCLUDE TAPES, LIST XW )@@G@@ INI00080 @K@[@@00133 8* XX )@@G@@ COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PROXY )@@G@@00680 @K@[@@00134 8* PARAMETER STDRD=5 @ STANDARD READ UNIT XZ )@@G@@ PRO00690 @K@[@@00135 8* PARAMETERYA )@@G@@ STDPRT=6 @ STANDARD PRINT UNIT PRO00700 @K@[@@YB )@@G@@00136 8* PARAMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIYC )@@G@@T PRO00710 @K@[@@00136 8* END YD )@@G@@ PRO00720 @K@[@@00137 9*YE )@@G@@ INCLUDE WORK, LIST YF )@@G@@ INI00090 @K@[@@00140 9* PARAMETER LTIDY=55 YG )@@G@@ PRO00740 @K@[@@00141 9* PARYH )@@G@@AMETER LTIDY1=LTIDY+1 PRO00750 YI )@@G@@@K@[@@00142 9* COMMON /WORK/ ECYC, LATEST, NOSPC1, WORK1(476YJ )@@G@@), WORK2(476) PRO00760 @K@[@@00143 9* DIMENSION TIDYCYK )@@G@@(LTIDY) PRO00770 @K@[@@00144 YL )@@G@@ 9* DIMENSION FILE(15) YM )@@G@@ PRO00780 @K@[@@00145 9* EQUIVALENCE (WORK2,TIDYC), YN )@@G@@(WORK2(LTIDY1),FILE) PRO00790 @K@[@@00145 9* ENYO )@@G@@D PROYP )@@G@@00800 @K@[@@00146 10* DIMENSION SPEC1(14), SPEC2(14) YQ )@@G@@ INI00100 @K@[@@00147 11* EQUIVALENYR )@@G@@CE (SPEC1,SPEC2) INI00110 @K@[@@YS )@@G@@00150 12* DEFINE FNL=FLD(6,6,SPEC2(1)) @ NO. OF CHARACTERYT )@@G@@S IN FILE NAME INI00120 @K@[@@00150 13* C YU )@@G@@ INI00130 @K@[@@00150 14*YV )@@G@@ C READ PROCESSOR CALL CARD YW )@@G@@ INI00140 @K@[@@00150 15* C YX )@@G@@ INI00150 @K@[@@00151 16* CALYY )@@G@@L INFORR (TIDYC,LTIDY,I) @ READ PROCESSOR CALL CARD INI00160 YZ )@@G@@@K@[@@00152 17* IF (I.LE.0) GO TO 10 ZA )@@G@@ INI00170 @K@[@@00154 18* WRITE (STDPRT,2ZB )@@G@@20) @ ERROR INI00180 @K@[@@00156 ZC )@@G@@ 19* STOP ZD )@@G@@ INI00190 @K@[@@00156 20* C ZE )@@G@@ INI00200 @K@[@@00156 21* C ZF )@@G@@ INITIALIZE VALUES INIZG )@@G@@00210 @K@[@@00156 22* C ZH )@@G@@ INI00220 @K@[@@00157 23* 10 LINE=1 ZI )@@G@@ @ INITIALIZE INPUT LINE COUNTER INI00230 @K@[@@ZJ )@@G@@00160 24* MPUN=-1 @ WRITE OUTPUT ELEZK )@@G@@MENT INI00240 @K@[@@00161 25* DIAG=1 ZL )@@G@@ @ LIST DIAGNOSTICS INI00250 @K@[@@00161 26*ZM )@@G@@ C ZN )@@G@@ INI00260 @K@[@@00161 27* C PROCESS OPTIONS ZO )@@G@@ INI00270 @K@[@@00161 28* C ZP )@@G@@ INI00280 ZQ )@@G@@@K@[@@00162 29* IF (FLD('@@@@@D'-'@@@@@Z'+35,1,TIDYC).NE.0) IZR )@@G@@NDENT=.TRUE. INI00290 @K@[@@00164 30* IF (FLD('@@@@@FZS )@@G@@'-'@@@@@Z'+35,1,TIDYC).NE.0) MCOL=-1 @ COLLECT FMTINI00300 @K@[@@00166 ZT )@@G@@ 31* IF (FLD('@@@@@R'-'@@@@@Z'+35,1,TIDYC).NE.0) RIGHT=.TRUE. ZU )@@G@@ @ RT JUSINI00310 @K@[@@00170 32* IF (FLD('@@@@@L'-'@@@@@Z'+3ZV )@@G@@5,1,TIDYC).EQ.0) GO TO 20 INI00320 @K@[@@00172 33* ZW )@@G@@ LOPT=1 @ LIST INPUT INIZX )@@G@@00330 @K@[@@00173 34* GO TO 30 ZY )@@G@@ INI00340 @K@[@@00174 35* 20 IF (FLD('ZZ )@@G@@@@@@@S'-'@@@@@Z'+35,1,TIDYC).EQ.0) GO TO 40 INI00350 @K@[@@AA )@@G@@00176 36* 30 SOPT=1 @ LIST OUTPUT AB )@@G@@ INI00360 @K@[@@00177 37* GO TO 50 AC )@@G@@ INI00370 @K@[@@00200 38*AD )@@G@@ 40 IF (FLD('@@@@@N'-'@@@@@Z'+35,1,TIDYC).NE.0) DIAG=0 @ NO. OF DAE )@@G@@IAGINI00380 @K@[@@00200 39* C AF )@@G@@ INI00390 @K@[@@00200 40* C PROAG )@@G@@CESS SPEC1 INI00400 AH )@@G@@@K@[@@00200 41* C AI )@@G@@ INI00410 @K@[@@00202 42* 50 CALL INFORW (SPAJ )@@G@@EC1,1,I) @ GET SPEC1 INI00420 @K@[@@00203 AK )@@G@@ 43* IF (I.EQ.0) GO TO 60 AL )@@G@@ INI00430 @K@[@@00205 44* NOSPC1=1 AM )@@G@@ @ NO SPEC1 FIELD INI00440 @K@[@@00206 45* AN )@@G@@ GO TO 140 INIAO )@@G@@00450 @K@[@@00207 46* 60 FILE(1)='@ASG,A' AP )@@G@@ INI00460 @K@[@@00210 47* FILE(2)='AQ )@@G@@ ' INI00470 @K@[@@AR )@@G@@00211 48* IF (FNL.NE.0) GO TO 70 @ FILE NAME WAS SPAS )@@G@@ECIFIED INI00480 @K@[@@00213 49* SPEC1(5)='TPF$ ' AT )@@G@@ @ SET FILE NAME TO ''TPF$'' INI00490 @K@[@@00214 50*AU )@@G@@ SPEC1(6)=' ' AV )@@G@@ INI00500 @K@[@@00215 51* FNL=4 AW )@@G@@ INI00510 @K@[@@00216 52* 70 CALAX )@@G@@L INFFMT (SPEC1,FILE(3)) INI00520 AY )@@G@@@K@[@@00217 53* CALL ASSIGN (FILE,I,0,$80) @ ASSIGN SPEAZ )@@G@@C1 FILE INI00530 @K@[@@00220 54* CALL INFORU ('SBA )@@G@@PEC1 ',FILE,I) @ USE SPEC1,SPEC1 FILE INI00540 @K@[@@00221 BB )@@G@@ 55* GO TO 90 BC )@@G@@ INI00550 @K@[@@00222 56* 80 WRITE (STDPRT,230) I BD )@@G@@ INI00560 @K@[@@00225 57* BE )@@G@@ STOP INIBF )@@G@@00570 @K@[@@00226 58* 90 LATEST=1 @ ASSUME LATEST BG )@@G@@ELEMENT CYCLE IS DESIRED INI00580 @K@[@@00227 59* IF (FLD(1BH )@@G@@2,6,SPEC1(2)).EQ.0) GO TO 110 @ NO CYCLE SPECIFIED INI00590 @K@[@@BI )@@G@@00231 60* IF (FLD(24,6,SPEC1(2)).EQ.'0') GO TO 100 @ CYC ISBJ )@@G@@ NUMERIC, UNSIGINI00600 @K@[@@00233 61* WRITE (STDPRT,240) BK )@@G@@ INI00610 @K@[@@00235 62*BL )@@G@@ STOP BM )@@G@@ INI00620 @K@[@@00236 63* 100 ECYC=FLD(30,6,SPEC1(2)) BN )@@G@@@ ELEMENT CYCLE NUMBER INI00630 @K@[@@00237 64* LATBO )@@G@@EST=0 INI00640 BP )@@G@@@K@[@@00240 65* 110 IF (FLD(6,6,SPEC1(2)).NE.0) GO TO 120 BQ )@@G@@ INI00650 @K@[@@00242 66* SPEC1(12)=' ' BR )@@G@@ INI00660 @K@[@@00243 BS )@@G@@ 67* SPEC1(13)=' ' BT )@@G@@ INI00670 @K@[@@00244 68* 120 IF (ELTRO(WORK1,'SPEC1 ',SBU )@@G@@PEC1(10),SPEC1(12)).NE.0) GO TO 130 INI00680 @K@[@@00246 69* BV )@@G@@ GO TO 140 INIBW )@@G@@00690 @K@[@@00247 70* 130 WRITE (STDPRT,270) BX )@@G@@ INI00700 @K@[@@00251 71* STOP BY )@@G@@ INI00710 @K@[@@BZ )@@G@@00252 72* 140 CALL INFORW (SPEC2,2,I) CA )@@G@@ INI00720 @K@[@@00253 73* IF (I.EQ.0) GO TO 150CB )@@G@@ INI00730 @K@[@@00255 74*CC )@@G@@ WRITE (STDPRT,250) CD )@@G@@ INI00740 @K@[@@00257 75* STOP CE )@@G@@ INI00750 @K@[@@00260 76* 150 FILCF )@@G@@E(1)='@ASG,A' INI00760 CG )@@G@@@K@[@@00261 77* FILE(2)='X ' @ ASSIGN OUTPUT FILE WCH )@@G@@ITH EXCLUSIVE USE INI00770 @K@[@@00262 78* IF (FNL.NE.0) GCI )@@G@@O TO 160 @ FILE NAME WAS SPECIFIED INI00780 @K@[@@00264 CJ )@@G@@ 79* SPEC2(5)='TPF$ ' @ SET FILE NAME TO ''TPFCK )@@G@@$'' INI00790 @K@[@@00265 80* SPEC2(6)=' ' CL )@@G@@ INI00800 @K@[@@00266 81* CM )@@G@@ FNL=4 INICN )@@G@@00810 @K@[@@00267 82* 160 CALL INFFMT (SPEC2,FILE(3)) CO )@@G@@ INI00820 @K@[@@00270 83* CALL ASSICP )@@G@@GN (FILE,I,0,$170) @ ASSIGN SPEC2 FILE INI00830 @K@[@@CQ )@@G@@00271 84* CALL INFORU ('SPEC2 ',FILE,I) @ USE SPEC2,SPEC2 CR )@@G@@FILE INI00840 @K@[@@00272 85* GO TO 180 CS )@@G@@ INI00850 @K@[@@00273 86*CT )@@G@@ 170 WRITE (STDPRT,260) I CU )@@G@@ INI00860 @K@[@@00276 87* STOP CV )@@G@@ INI00870 @K@[@@00277 88* 180 IF CW )@@G@@(FLD(6,6,SPEC2(2)).NE.0) GO TO 190 INI00880 CX )@@G@@@K@[@@00301 89* SPEC2(12)=' ' CY )@@G@@ INI00890 @K@[@@00302 90* SPEC2(13)=' ' CZ )@@G@@ INI00900 @K@[@@00303 DA )@@G@@ 91* 190 IF (ELTWO(WORK2,'SPEC2 ',SPEC2(10),SPEC2(12)).EQ.0) GO TDB )@@G@@O 200 INI00910 @K@[@@00305 92* WRITE (STDPRT,280) DC )@@G@@ INI00920 @K@[@@00307 93* DD )@@G@@ STOP INIDE )@@G@@00930 @K@[@@00310 94* 200 IF (ELTWHD(WORK2).EQ.0) GO TO 210 DF )@@G@@ INI00940 @K@[@@00312 95* WRITE (STDG )@@G@@DPRT,290) INI00950 @K@[@@DH )@@G@@00314 96* STOP DI )@@G@@ INI00960 @K@[@@00315 97* 210 RETURN DJ )@@G@@ INI00970 @K@[@@00315 98*DK )@@G@@ C DL )@@G@@ INI00980 @K@[@@00316 99* 220 FORMAT (' TIDY IS ACCESSED AS FOLDM )@@G@@LOWS:'/' @TIDY,OPTIONS SPEC1,SPEINI00990 @K@[@@00316 100* 1C2'DN )@@G@@) INI01000 DO )@@G@@@K@[@@00317 101* 230 FORMAT (' SPEC1 FILE NOT AVAILABLE',O15) DP )@@G@@ INI01010 @K@[@@00320 102* 240 FORMAT (' ILLEGDQ )@@G@@AL ELEMENT CYCLE ON SPEC1') INI01020 @K@[@@00321 DR )@@G@@ 103* 250 FORMAT (' SPEC2 MISSING') DS )@@G@@ INI01030 @K@[@@00322 104* 260 FORMAT (' SPEC2 FILE NOT AVDT )@@G@@AILABLE',O15) INI01040 @K@[@@00323 105* 270DU )@@G@@ FORMAT (' SPEC1 ELEMENT UNOBTAINABLE') INIDV )@@G@@01050 @K@[@@00324 106* 280 FORMAT (' SPEC2 ELEMENT UNOBTAINABLE') DW )@@G@@ INI01060 @K@[@@00325 107* 290 FORMAT ('DX )@@G@@ SPEC2 ELEMENT UNWRITEABLE') INI01070 @K@[@@DY )@@G@@00325 108* C DZ )@@G@@ INI01080 @K@[@@00326 109* END EA )@@G@@ INI01090 @D@]@@ END OEB )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P IOERR 0 FOREC )@@G@@ H, ,1, IOERR . @L^@^__@@@FOR,S IOERR,IOERR @E@[@@CYCLE ED )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:28:58. @@@[@@@@@[@@@B@[@@EE )@@G@@ SUBROUTINE IOERR ENTRY POINT 000035@@@[@@@G@]@@ STORAGE USED: CEF )@@G@@ODE(1) 000045; DATA(0) 000020; BLANK COMMON(2) 000000 @#@]@@ COMMON BEG )@@G@@LOCKS:@@@[@@@^@[@@ 0003 IOMSG 000011@^@[@@ 0004 TAPES 000016EH )@@G@@@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0005 NWDU$ EI )@@G@@@#@[@@ 0006 NIO1$ @#@[@@ 0007 NIO2$ @#@[@@ 0010 NERR3$ EJ )@@G@@@F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) EK )@@G@@@@@[@@@O@[@@ 0001 000007 10L 0001 000015 122G 0000 0EL )@@G@@00002 20F 0000 000010 INJP$ 0003 I 000000 IOMSGS@O@[@@ 00EM )@@G@@04 000000 IO1 0004 000001 IO2 0000 I 000000 I$ 00EN )@@G@@04 000002 JALTFD 0004 000003 JOUT @C@[@@ 0000 I 000001 MP2 EO )@@G@@ 0004 000004 USE @@@^@@@K@[@@00101 1* SUBROUTINE IOEREP )@@G@@R (N,STAT) IOE00010 @K@[@@00101 EQ )@@G@@ 2* C ER )@@G@@ IOE00020 @K@[@@00101 3* C THIS ROUTINE PRINTS THE I/OES )@@G@@ ERROR MESSAGES FOR TIDY. IOE00030 @K@[@@00101 4* C ET )@@G@@ IOEEU )@@G@@00040 @K@[@@00101 5* C N .LT.0 MEANS ERROR WHILE READING INPUTEV )@@G@@ ELEMENT. IOE00050 @K@[@@00101 6* C N .EQ.0 MEW )@@G@@EANS ERROR WHILE CLOSING OUTPUT ELEMENT. IOE00060 @K@[@@EX )@@G@@00101 7* C N .GT.0 MEANS ERROR WHILE WRITING OUTPUT ELEMENT. EY )@@G@@ IOE00070 @K@[@@00101 8* C EZ )@@G@@ IOE00080 @K@[@@00103 9*FA )@@G@@ IMPLICIT INTEGER (A-Z) FB )@@G@@ IOE00090 @K@[@@00104 10* INCLUDE IOMSG, LIST FC )@@G@@ IOE00100 @K@[@@00105 10* COMFD )@@G@@MON /IOMSG/ IOMSGS(9) PRO00500 FE )@@G@@@K@[@@00105 10* END FF )@@G@@ PRO00510 @K@[@@00106 11* INCLUDE TAPES, FG )@@G@@LIST IOE00110 @K@[@@00106 FH )@@G@@ 12* C FI )@@G@@ IOE00120 @K@[@@00107 12* COMMON /TAPES/ IO1, IO2, JAFJ )@@G@@LTFD, JOUT, USE (10) PRO00680 @K@[@@00110 12* FK )@@G@@ PARAMETER STDRD=5 @ STANDARD READ UNIT PROFL )@@G@@00690 @K@[@@00111 12* PARAMETER STDPRT=6 @ STANDARD PRINT UNIFM )@@G@@T PRO00700 @K@[@@00112 12* PARAMETERFN )@@G@@ STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@FO )@@G@@00112 12* END FP )@@G@@ PRO00720 @K@[@@00113 13* IF (N) ,10,10 FQ )@@G@@ IOE00130 @K@[@@00113 14*FR )@@G@@ C FS )@@G@@ IOE00140 @K@[@@00113 15* C ERROR WHILE READING FT )@@G@@ IOE00150 @K@[@@00113 16* C FU )@@G@@ IOE00160 FV )@@G@@@K@[@@00116 17* IOMSGS(2)=' READI' FW )@@G@@ IOE00170 @K@[@@00117 18* IOMSGS(3)='NG FX )@@G@@IN' IOE00180 @K@[@@00117 FY )@@G@@ 19* C FZ )@@G@@ IOE00190 @K@[@@00120 20* 10 WRITE (STDPRT,20) IOMSGS,STGA )@@G@@AT IOE00200 @K@[@@00120 21* C GB )@@G@@ IOEGC )@@G@@00210 @K@[@@00120 22* C INHIBIT WRITING OF OUTPUT ELEMENT GD )@@G@@ IOE00220 @K@[@@00120 23* C GE )@@G@@ IOE00230 @K@[@@GF )@@G@@00127 24* MP2=0 GG )@@G@@ IOE00240 @K@[@@00130 25* RETURN GH )@@G@@ IOE00250 @K@[@@00130 26*GI )@@G@@ C GJ )@@G@@ IOE00260 @K@[@@00130 27* C GK )@@G@@ IOE00270 @K@[@@00131 28* 20 FORGL )@@G@@MAT (9A6,O3) IOE00280 GM )@@G@@@K@[@@00131 29* C GN )@@G@@ IOE00290 @K@[@@00132 30* END GO )@@G@@ IOE00300 @D@]@@ GP )@@G@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P IOSYS GQ )@@G@@0 H, ,1, IOSYS . @L^@^__@@@FOR,S IOSYS,IOSYS @E@[@@GR )@@G@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:29:03. @@@[@@@@@[@@GS )@@G@@@B@[@@ SUBROUTINE IOSYS1 ENTRY POINT 000342@B@[@@ IOSYGT )@@G@@S2 ENTRY POINT 000356@@@[@@@G@]@@ STORAGE USED: CODE(1) 000372; DATGU )@@G@@A(0) 001031; BLANK COMMON(2) 000000 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@GV )@@G@@ 0003 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@GW )@@G@@@#@[@@ 0004 NERR2$ @#@[@@ 0005 NWBU$ @#@[@@ 0006 NIO1$ GX )@@G@@@#@[@@ 0007 NIO2$ @#@[@@ 0010 NREW$ @#@[@@ 0011 NPAUS$ GY )@@G@@@#@[@@ 0012 NRBU$ @#@[@@ 0013 NERR3$ @F@#@@ STORAGE ASSIGNMGZ )@@G@@ENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 0HA )@@G@@00011 10L 0001 000113 100L 0001 000156 120L 0001 0HB )@@G@@00163 130L 0001 000055 135G @O@[@@ 0001 000166 140L 00HC )@@G@@01 000065 143G 0001 000174 160L 0001 000127 164G 00HD )@@G@@01 000151 175G @O@[@@ 0001 000202 180L 0001 000223 190L HE )@@G@@ 0001 000026 20L 0001 000214 220G 0001 000275 220L HF )@@G@@@O@[@@ 0001 000306 230L 0001 000240 232G 0001 000310 HG )@@G@@240L 0001 000270 246G 0001 000031 30L @O@[@@ 0001 0HH )@@G@@00071 60L 0001 000102 70L 0001 000110 90L 0000 I 0HI )@@G@@00776 I 0000 001005 INJP$ @O@[@@ 0000 I 000000 IOBUF 00HJ )@@G@@03 I 000000 IO1 0003 I 000001 IO2 0003 000002 JALTFD 00HK )@@G@@03 000003 JOUT @O@[@@ 0000 I 000777 K 0000 I 000763 MR HL )@@G@@ 0000 I 000774 NAREA 0000 I 000765 NMR 0000 I 000767 NR HM )@@G@@@O@[@@ 0000 I 000775 NRN 0000 I 000773 NTAPE 0000 I 000762 HN )@@G@@OPSW 0000 I 000771 RWS 0003 000004 USE @@@^@@@K@[@@00101 HO )@@G@@ 1* SUBROUTINE IOSYS1 (OP,LIST,LEN) HP )@@G@@ IOS00010 @K@[@@00101 2* C HQ )@@G@@ IOS00020 @K@[@@00101 3* C HR )@@G@@ THIS SUBROUTINE BUFFERS IN AND OUT BINARY RECORDS IN ''BLOCK'' IOSHS )@@G@@00030 @K@[@@00101 4* C WORD BLOCKS ON FILES IO1 AND IO2. HT )@@G@@ IOS00040 @K@[@@00101 5* C HU )@@G@@ IOS00050 @K@[@@HV )@@G@@00101 6* C OP CODES PERMITTED. HW )@@G@@ IOS00060 @K@[@@00101 7* C 0 1 2HX )@@G@@ 3 IOS00070 @K@[@@00101 8*HY )@@G@@ C ERASE REWIND WRITE READ HZ )@@G@@ IOS00080 @K@[@@00101 9* C IA )@@G@@ IOS00090 @K@[@@00103 10* INCIB )@@G@@LUDE TAPES, LIST IOS00100 IC )@@G@@@K@[@@00104 10* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (1ID )@@G@@0) PRO00680 @K@[@@00105 10* PARAMETER STDRDIE )@@G@@=5 @ STANDARD READ UNIT PRO00690 @K@[@@00106 IF )@@G@@ 10* PARAMETER STDPRT=6 @ STANDARD PRINT UNIT IG )@@G@@ PRO00700 @K@[@@00107 10* PARAMETER STDALT=101 @ STANIH )@@G@@DARD ALTERNATE PRINT UNIT PRO00710 @K@[@@00107 10* ENII )@@G@@D PROIJ )@@G@@00720 @K@[@@00110 11* PARAMETER BLOCK=249 @ BINAIK )@@G@@RY RECORD SIZE IOS00110 @K@[@@00111 12* DIMENSIONIL )@@G@@ LIST(1), IOBUF(BLOCK,2) IOS00120 @K@[@@IM )@@G@@00112 13* INTEGER OP,OPSW IN )@@G@@ IOS00130 @K@[@@00113 14* INTEGER MR(2),NMR(2),IO )@@G@@NR(2),RWS(2) IOS00140 @K@[@@00113 15*IP )@@G@@ C IQ )@@G@@ IOS00150 @K@[@@00114 16* NTAPE=IO1 IR )@@G@@ IOS00160 @K@[@@00115 17* NARIS )@@G@@EA=1 IOS00170 IT )@@G@@@K@[@@00116 18* GO TO 10 IU )@@G@@ IOS00180 @K@[@@00116 19* C IV )@@G@@ IOS00190 @K@[@@00116 IW )@@G@@ 20* C IOSYS2 ENTRY. IX )@@G@@ IOS00200 @K@[@@00116 21* C IY )@@G@@ IOS00210 @K@[@@00117 22* IZ )@@G@@ ENTRY IOSYS2 (OP,LIST,LEN) IOSJA )@@G@@00220 @K@[@@00121 23* NTAPE=IO2 JB )@@G@@ IOS00230 @K@[@@00122 24* NAREA=2 JC )@@G@@ IOS00240 @K@[@@JD )@@G@@00122 25* C JE )@@G@@ IOS00250 @K@[@@00123 26* 10 OPSW=OP+1 JF )@@G@@ IOS00260 @K@[@@00124 27*JG )@@G@@ GO TO (20,30,70,140), OPSW JH )@@G@@ IOS00270 @K@[@@00124 28* C JI )@@G@@ IOS00280 @K@[@@00124 29* C ERAJJ )@@G@@SE IOS00290 JK )@@G@@@K@[@@00124 30* C JL )@@G@@ IOS00300 @K@[@@00125 31* 20 MR(NAREA)=0 JM )@@G@@ IOS00310 @K@[@@00126 JN )@@G@@ 32* GO TO 60 JO )@@G@@ IOS00320 @K@[@@00126 33* C JP )@@G@@ IOS00330 @K@[@@00126 34* C JQ )@@G@@ REWIND IOSJR )@@G@@00340 @K@[@@00126 35* C JS )@@G@@ IOS00350 @K@[@@00127 36* 30 IF (RWS(NJT )@@G@@AREA)*NR(NAREA)) 60,60,40 IOS00360 @K@[@@JU )@@G@@00132 37* 40 NR(NAREA)=NR(NAREA)+1 JV )@@G@@ IOS00370 @K@[@@00133 38* NRN=NR(NAREA) JW )@@G@@ IOS00380 @K@[@@00134 39*JX )@@G@@ DO 50 I=NRN,BLOCK JY )@@G@@ IOS00390 @K@[@@00137 40* 50 IOBUF(I,NAREA)=0 JZ )@@G@@ IOS00400 @K@[@@00141 41* WRIKA )@@G@@TE (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) IOS00410 KB )@@G@@@K@[@@00147 42* 60 REWIND NTAPE KC )@@G@@ IOS00420 @K@[@@00150 43* RWS(NAREA)=0 KD )@@G@@ IOS00430 @K@[@@00151 KE )@@G@@ 44* NR(NAREA)=0 KF )@@G@@ IOS00440 @K@[@@00152 45* RETURN KG )@@G@@ IOS00450 @K@[@@00152 46* C KH )@@G@@ IOSKI )@@G@@00460 @K@[@@00152 47* C WRITE KJ )@@G@@ IOS00470 @K@[@@00152 48* C KK )@@G@@ IOS00480 @K@[@@KL )@@G@@00153 49* 70 IF (RWS(NAREA)) 80,90,100 KM )@@G@@ IOS00490 @K@[@@00156 50* 80 PAUSE 11 KN )@@G@@ IOS00500 @K@[@@00157 51*KO )@@G@@ 90 RWS(NAREA)=1 KP )@@G@@ IOS00510 @K@[@@00160 52* 100 IF (LEN) 130,130,110 KQ )@@G@@ IOS00520 @K@[@@00163 53* 110 DO KR )@@G@@120 I=1,LEN IOS00530 KS )@@G@@@K@[@@00166 54* NR(NAREA)=NR(NAREA)+1 KT )@@G@@ IOS00540 @K@[@@00167 55* NRN=NR(NAREA) KU )@@G@@ IOS00550 @K@[@@00170 KV )@@G@@ 56* IOBUF(NRN,NAREA)=LIST(I) KW )@@G@@ IOS00560 @K@[@@00171 57* IF (NRN.LT.BLOCK) GO TO 120KX )@@G@@ IOS00570 @K@[@@00173 58* KY )@@G@@ WRITE (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) IOSKZ )@@G@@00580 @K@[@@00201 59* NR(NAREA)=0 LA )@@G@@ IOS00590 @K@[@@00202 60* 120 CONTINUE LB )@@G@@ IOS00600 @K@[@@LC )@@G@@00204 61* MR(NAREA)=MR(NAREA)+LEN LD )@@G@@ IOS00610 @K@[@@00205 62* 130 RETURN LE )@@G@@ IOS00620 @K@[@@00205 63*LF )@@G@@ C LG )@@G@@ IOS00630 @K@[@@00205 64* C READ LH )@@G@@ IOS00640 @K@[@@00205 65* C LI )@@G@@ IOS00650 LJ )@@G@@@K@[@@00206 66* 140 IF (MR(NAREA)) 150,150,160 LK )@@G@@ IOS00660 @K@[@@00211 67* 150 PAUSE 12 LL )@@G@@ IOS00670 @K@[@@00212 LM )@@G@@ 68* 160 IF (RWS(NAREA)) 190,180,170 LN )@@G@@ IOS00680 @K@[@@00215 69* 170 PAUSE 13 LO )@@G@@ IOS00690 @K@[@@00216 70* 180LP )@@G@@ READ (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) IOSLQ )@@G@@00700 @K@[@@00224 71* RWS(NAREA)=-1 LR )@@G@@ IOS00710 @K@[@@00225 72* NMR(NAREALS )@@G@@)=0 IOS00720 @K@[@@LT )@@G@@00226 73* 190 IF (LEN) 240,240,200 LU )@@G@@ IOS00730 @K@[@@00231 74* 200 DO 220 I=1,LEN LV )@@G@@ IOS00740 @K@[@@00234 75*LW )@@G@@ NR(NAREA)=NR(NAREA)+1 LX )@@G@@ IOS00750 @K@[@@00235 76* NRN=NR(NAREA) LY )@@G@@ IOS00760 @K@[@@00236 77* LISLZ )@@G@@T(I)=IOBUF(NRN,NAREA) IOS00770 MA )@@G@@@K@[@@00237 78* IF (NRN.LT.BLOCK) GO TO 220 MB )@@G@@ IOS00780 @K@[@@00241 79* IF (NMR(NAREA)+MC )@@G@@I-MR(NAREA)) 210,60,230 IOS00790 @K@[@@00244 MD )@@G@@ 80* 210 READ (NTAPE) (IOBUF(K,NAREA),K=1,BLOCK) ME )@@G@@ IOS00800 @K@[@@00252 81* NR(NAREA)=0 MF )@@G@@ IOS00810 @K@[@@00253 82* 220MG )@@G@@ CONTINUE IOSMH )@@G@@00820 @K@[@@00255 83* NMR(NAREA)=NMR(NAREA)+LEN MI )@@G@@ IOS00830 @K@[@@00256 84* IF (NMR(NMJ )@@G@@AREA)-MR(NAREA)) 240,240,230 IOS00840 @K@[@@MK )@@G@@00261 85* 230 PAUSE 14 ML )@@G@@ IOS00850 @K@[@@00262 86* 240 RETURN MM )@@G@@ IOS00860 @K@[@@00262 87*MN )@@G@@ C MO )@@G@@ IOS00870 @K@[@@00263 88* END MP )@@G@@ IOS00880 @D@]@@ END OF COMPILATIOMQ )@@G@@N: NO DIAGNOSTICS. @#@^@@@HDG,P KIMPAK 0 B1 H, ,1,MR )@@G@@ KIMPAK . @L^@^__@@@FOR,S KIMPAK,KIMPAK @E@[@@CYCLE 000 COMPILEDMS )@@G@@ BY 1201 S7E-A ON 27 AUG 72 AT 19:29:42. @@@[@@@@@[@@@B@[@@ SUBROUTINMT )@@G@@E KIMPAK ENTRY POINT 000230@@@[@@@G@]@@ STORAGE USED: CODE(1) 00024MU )@@G@@1; DATA(0) 000044; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@MV )@@G@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 LIOS 000004@A@#@@ EXTMW )@@G@@ERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0005 CHPACK @#@[@@ 00MX )@@G@@06 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATIONMY )@@G@@, NAME) @@@[@@@O@[@@ 0001 000212 100L 0001 000025 144G MZ )@@G@@ 0001 000030 147G 0001 000067 163G 0001 000122 173G NA )@@G@@@O@[@@ 0001 000043 20L 0001 000137 203G 0001 000172 NB )@@G@@215G 0001 000100 40L 0001 000102 50L @O@[@@ 0001 0NC )@@G@@00150 80L 0000 I 000002 I 0002 000000 ICOL 0002 0ND )@@G@@00001 IFIR 0000 I 000004 II @O@[@@ 0004 I 000003 IMAX 00NE )@@G@@00 000024 INJP$ 0002 000002 INPUT 0002 000450 IOUT 00NF )@@G@@04 000001 ITYPE @O@[@@ 0000 I 000001 J 0002 003127 JCOL NG )@@G@@ 0002 I 003130 JINT 0002 005607 JMAX 0000 I 000005 K NH )@@G@@@O@[@@ 0003 000013 KA 0003 000013 KABC 0003 000061 NI )@@G@@KAND 0003 I 000062 KAT 0003 000014 KB @O@[@@ 0003 I 0NJ )@@G@@00000 KBL 0000 000007 KBUFF 0000 000007 KB1 0002 0NK )@@G@@05610 KB15 0000 000014 KB6 @O@[@@ 0003 000015 KC 00NL )@@G@@03 000051 KCLOSE 0003 000046 KCOMMA 0003 000016 KD 00NM )@@G@@03 000057 KDASH @O@[@@ 0003 I 000001 KDIG 0003 000056 KDOLARNN )@@G@@ 0002 005611 KD15 0003 000017 KE 0003 000045 KEQ NO )@@G@@@O@[@@ 0003 000064 KERM 0003 000020 KF 0003 000021 NP )@@G@@KG 0003 000022 KH 0003 000023 KI @O@[@@ 0004 0NQ )@@G@@00000 KILI 0002 003130 KIM 0003 000024 KJ 0003 0NR )@@G@@00025 KK 0003 000026 KL @O@[@@ 0004 I 000000 KLASS 00NS )@@G@@03 000063 KLR2 0003 000027 KM 0003 000053 KMINUS 00NT )@@G@@03 000030 KN @O@[@@ 0003 000031 KO 0003 000047 KOPEN NU )@@G@@ 0002 I 000450 KOUT 0003 000032 KP 0003 000055 KPERD NV )@@G@@@O@[@@ 0003 000052 KPLUS 0003 000033 KQ 0003 000060 NW )@@G@@KQUOTE 0003 000034 KR 0003 000035 KS @O@[@@ 0003 0NX )@@G@@00050 KSLASH 0003 000045 KSPK 0003 000054 KSTAR 0003 0NY )@@G@@00036 KT 0003 000037 KU @O@[@@ 0003 000040 KV 00NZ )@@G@@03 000041 KW 0003 000042 KX 0003 000043 KY 00OA )@@G@@03 000044 KZ @O@[@@ 0003 000001 K0 0000 I 000006 L OB )@@G@@ 0002 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF OC )@@G@@@O@[@@ 0002 I 010551 LDO 0002 010602 LFIR 0002 010603 OD )@@G@@LQUAL 0002 010604 LREF 0004 000002 L15 @O@[@@ 0002 0OE )@@G@@05612 L772 0002 012554 MCOL 0002 012555 MEOF 0002 0OF )@@G@@12556 MEX 0002 012557 MILDO @O@[@@ 0002 012560 MLGC 00OG )@@G@@02 012561 MP2 0002 012562 MSTOP 0002 012563 MTRAN 00OH )@@G@@02 012564 NBLC @O@[@@ 0002 I 012565 NCD 0002 012566 NCDO OI )@@G@@ 0002 012567 NDEF 0002 012570 NDOL 0002 012571 NDOS OJ )@@G@@@O@[@@ 0002 012572 NINS 0002 012573 NPAR 0002 012574 OK )@@G@@NPUN 0002 012575 NREC 0002 012576 NREF @O@[@@ 0002 0OL )@@G@@12577 NRT1 0002 012600 NRT2 0002 012601 NTEMP 0002 0OM )@@G@@12606 NXEQ 0000 I 000000 N1 @K@[@@ 0002 I 003130 OUTPUT 00ON )@@G@@02 012607 PAREN 0002 012610 PNEXT 0000 I 000003 SIZE @@@^@@OO )@@G@@@K@[@@00101 1* SUBROUTINE KIMPAK OP )@@G@@ KIM00010 @K@[@@00101 2* C OQ )@@G@@ KIM00020 @K@[@@00101 OR )@@G@@ 3* C THIS ROUTINE PACKS SUPER-CARD IMAGES FROM IOUT INTO OUTPUOS )@@G@@T. KIM00030 @K@[@@00101 4* C OT )@@G@@ KIM00040 @K@[@@00103 5* OU )@@G@@ INCLUDE TIDY, LIST KIMOV )@@G@@00050 @K@[@@00104 5* IMPLICIT INTEGER (A-Z) OW )@@G@@ PRO00020 @K@[@@00105 5* PARAMETEROX )@@G@@ CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@OY )@@G@@00106 5* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPOZ )@@G@@S PRO00040 @K@[@@00107 5* PARAMETER MAXCHS=1327PA )@@G@@ @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 5*PB )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PC )@@G@@ PRO00060 @K@[@@00111 5* COMMON ICOL, IFIR, INPUT(14,21), PD )@@G@@IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 5* 1 PE )@@G@@ JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 PF )@@G@@@K@[@@00111 5* 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOPG )@@G@@L, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 5* 3 MLGC, MPPH )@@G@@2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 PI )@@G@@ 5* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTPJ )@@G@@EMP(5), PRO00110 @K@[@@00111 5* 5 NXEQ, PAREN, PNEXT PK )@@G@@ PRO00120 @K@[@@00112 5* PL )@@G@@ DIMENSION KIM(CRDLNG,20) PROPM )@@G@@00130 @K@[@@00113 5* DIMENSION KOUT(CRDLNG,20) PN )@@G@@ PRO00140 @K@[@@00114 5* DIMENSIONPO )@@G@@ OUTPUT(12,20) PRO00150 @K@[@@PP )@@G@@00115 5* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PQ )@@G@@ PRO00160 @K@[@@00116 5* EQUIVALENCE (KDIG(1),PR )@@G@@K0) PRO00170 @K@[@@00117 5*PS )@@G@@ EQUIVALENCE (IOUT,KOUT) PT )@@G@@ PRO00180 @K@[@@00120 5* EQUIVALENCE (JINT,KIM) PU )@@G@@ PRO00190 @K@[@@00121 5* EQUPV )@@G@@IVALENCE (JINT,OUTPUT) PRO00200 PW )@@G@@@K@[@@00122 5* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) PX )@@G@@ PRO00210 @K@[@@00123 5* DEFINE DSTMT(X)PY )@@G@@=FLD(18,18,LDEF(X)) PRO00220 @K@[@@00124 PZ )@@G@@ 5* DEFINE LDOS(X)=FLD(0,18,LDO(X)) QA )@@G@@ PRO00230 @K@[@@00125 5* DEFINE LDOL(X)=FLD(18,18,LDQB )@@G@@O(X)) PRO00240 @K@[@@00125 5* ENQC )@@G@@D PROQD )@@G@@00250 @K@[@@00126 6* INCLUDE ALPHA, LIST QE )@@G@@ KIM00060 @K@[@@00127 6* COMMON /AQF )@@G@@LPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@QG )@@G@@00127 6* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,QH )@@G@@KY,KZ, PRO00280 @K@[@@00127 6* 2 KEQ,KCQI )@@G@@OMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 6*QJ )@@G@@ 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM QK )@@G@@ PRO00300 @K@[@@00130 6* DIMENSION KABC(26), KSPK(14) QL )@@G@@ PRO00310 @K@[@@00131 6* EQUQM )@@G@@IVALENCE (KABC,KA), (KSPK,KEQ) PRO00320 QN )@@G@@@K@[@@00131 6* END QO )@@G@@ PRO00330 @K@[@@00132 7* INCLUDE LIOS, LQP )@@G@@IST KIM00070 @K@[@@00133 QQ )@@G@@ 7* COMMON /LIOS/ KLASS, ITYPE, L15, IMAX QR )@@G@@ PRO00630 @K@[@@00134 7* DIMENSION KILI(4) QS )@@G@@ PRO00640 @K@[@@00135 7* QT )@@G@@ EQUIVALENCE (KLASS,KILI) PROQU )@@G@@00650 @K@[@@00135 7* END QV )@@G@@ PRO00660 @K@[@@00136 8* PARAMETERQW )@@G@@ COLUMN=40 @ DESIRED STARTING COLUMN FOR @-COMMENT KIM00080 @K@[@@QX )@@G@@00136 9* C QY )@@G@@ KIM00090 @K@[@@00137 10* NCD=((IMAX-7)/66)+1 QZ )@@G@@ KIM00100 @K@[@@00140 11*RA )@@G@@ IF (KLASS.EQ.0) GO TO 80 RB )@@G@@ KIM00110 @K@[@@00140 12* C RC )@@G@@ KIM00120 @K@[@@00140 13* C POSRD )@@G@@ITION @-COMMENT KIM00130 RE )@@G@@@K@[@@00140 14* C RF )@@G@@ KIM00140 @K@[@@00142 15* N1=MAX(1,NCD-1)RG )@@G@@ KIM00150 @K@[@@00143 RH )@@G@@ 16* DO 10 J=N1,NCD RI )@@G@@ KIM00160 @K@[@@00146 17* DO 10 I=7,72 RJ )@@G@@ KIM00170 @K@[@@00151 18* 10 RK )@@G@@ IF (KOUT(I,J).EQ.KAT) GO TO 20 KIMRL )@@G@@00180 @K@[@@00155 19* GO TO 80 RM )@@G@@ KIM00190 @K@[@@00156 20* 20 SIZE=IMAXRN )@@G@@-I+1 KIM00200 @K@[@@RO )@@G@@00157 21* II=((I+4)/5)*5 @ NEXT 5-COLUMN BORP )@@G@@UNDARY KIM00210 @K@[@@00160 22* IF (II.GE.COLUMN) GO RQ )@@G@@TO 50 KIM00220 @K@[@@00162 23*RR )@@G@@ DO 30 K=COLUMN,II,-5 RS )@@G@@ KIM00230 @K@[@@00165 24* 30 IF (73-K.GE.SIZE) GO TO 40 RT )@@G@@ KIM00240 @K@[@@00170 25* 40 II=RU )@@G@@K KIM00250 RV )@@G@@@K@[@@00171 26* 50 L=0 RW )@@G@@ KIM00260 @K@[@@00172 27* DO 60 I=I,72 RX )@@G@@ KIM00270 @K@[@@00175 RY )@@G@@ 28* L=L+1 RZ )@@G@@ KIM00280 @K@[@@00176 29* JINT(L)=KOUT(I,J) SA )@@G@@ @ SAVE COMMENT IN JINT KIM00290 @K@[@@00177 30* 60 SB )@@G@@ KOUT(I,J)=KBL KIMSC )@@G@@00300 @K@[@@00201 31* L=0 SD )@@G@@ KIM00310 @K@[@@00202 32* DO 70 I=ISE )@@G@@I,72 KIM00320 @K@[@@SF )@@G@@00205 33* L=L+1 SG )@@G@@ KIM00330 @K@[@@00206 34* 70 KOUT(I,J)=JINT(L) SH )@@G@@ @ MOVE COMMENT BACK TO KOUT KIM00340 @K@[@@00210 35*SI )@@G@@ NCD=J SJ )@@G@@ KIM00350 @K@[@@00211 36* 80 CALL CHPACK (KOUT(1,1),1,OUTPUT,1SK )@@G@@,72) KIM00360 @K@[@@00212 37* IF SL )@@G@@(NCD.LE.1) GO TO 100 KIM00370 SM )@@G@@@K@[@@00214 38* DO 90 J=2,NCD SN )@@G@@ KIM00380 @K@[@@00217 39* OUTPUT(1,J)=KBLSO )@@G@@ KIM00390 @K@[@@00220 SP )@@G@@ 40* FLD(30,6,OUTPUT(1,J))=FLD(0,6,KDIG(J)) @ 1-9,A-J SQ )@@G@@ KIM00400 @K@[@@00221 41* 90 CALL CHPACK (KOUT(7,J),1,OUSR )@@G@@TPUT(2,J),1,66) KIM00410 @K@[@@00223 42* 100SS )@@G@@ CONTINUE KIMST )@@G@@00420 @K@[@@00224 43* RETURN SU )@@G@@ KIM00430 @K@[@@00224 44* C SV )@@G@@ KIM00440 @K@[@@SW )@@G@@00224 45* C SX )@@G@@ KIM00450 @K@[@@00225 46* END SY )@@G@@ KIM00460 @D@]@@ END OSZ )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P PASS1 0 @___TA )@@G@@ H, ,1, PASS1 . @L^@^__@@@FOR,S PASS1,PASS1 @E@[@@CYCLE TB )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:30:32. @@@[@@@@@[@@@B@[@@TC )@@G@@ SUBROUTINE PASS1 ENTRY POINT 004525@@@[@@@G@]@@ STORAGE USED: CTD )@@G@@ODE(1) 004720; DATA(0) 000123; BLANK COMMON(2) 012611 @#@]@@ COMMON BTE )@@G@@LOCKS:@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 INIT 000013TF )@@G@@@^@[@@ 0005 KST 001270@^@[@@ 0006 LIOS 000004@^@[@@ 00TG )@@G@@07 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@TH )@@G@@ 0010 IOSYS1 @#@[@@ 0011 IOSYS2 @#@[@@ 0012 SKARD @#@[@@TI )@@G@@ 0013 CONTRL @#@[@@ 0014 DIAGNO @#@[@@ 0015 HOLCK @#@[@@TJ )@@G@@ 0016 COPY @#@[@@ 0017 RSTAT @#@[@@ 0020 RLIST @#@[@@TK )@@G@@ 0021 DLIST @#@[@@ 0022 NWDU$ @#@[@@ 0023 NIO2$ @#@[@@TL )@@G@@ 0024 NIO1$ @#@[@@ 0025 NERR2$ @#@[@@ 0026 NERR3$ @F@#@@TM )@@G@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@TN )@@G@@@O@[@@ 0001 004626 10L 0001 000252 100L 0001 001706 TO )@@G@@1016G 0001 002305 1020L 0001 002317 1040L @O@[@@ 0001 0TP )@@G@@02327 1060L 0001 002345 1070L 0001 002350 1080L 0001 0TQ )@@G@@02362 1090L 0001 000257 110L @O@[@@ 0001 002114 1104G 00TR )@@G@@01 002405 1110L 0001 002454 1120L 0001 002164 1127G 00TS )@@G@@01 002514 1130L @O@[@@ 0001 002203 1141G 0001 002544 1150L TT )@@G@@ 0001 002240 1162G 0001 002607 1170L 0001 002617 1180L TU )@@G@@@O@[@@ 0001 002626 1190L 0001 000263 120L 0001 002636 TV )@@G@@1200L 0001 002273 1201G 0001 002646 1210L @O@[@@ 0001 0TW )@@G@@02652 1220L 0001 002667 1230L 0001 002674 1240L 0001 0TX )@@G@@02375 1241G 0001 002750 1250L @O@[@@ 0001 002767 1260L 00TY )@@G@@01 002772 1270L 0001 002474 1273G 0001 002502 1275G 00TZ )@@G@@01 003026 1280L @O@[@@ 0001 003036 1290L 0001 000312 130L UA )@@G@@ 0001 003041 1300L 0001 002527 1310G 0001 003057 1310L UB )@@G@@@O@[@@ 0001 003100 1320L 0001 002552 1323G 0001 003123 UC )@@G@@1330L 0001 003127 1340L 0001 003142 1350L @O@[@@ 0001 0UD )@@G@@03155 1360L 0001 003171 1370L 0001 003176 1380L 0001 0UE )@@G@@00317 140L 0001 003217 1400L @O@[@@ 0001 003251 1410L 00UF )@@G@@01 003273 1420L 0001 003311 1430L 0001 003314 1440L 00UG )@@G@@01 003346 1450L @O@[@@ 0001 003366 1460L 0001 003405 1470L UH )@@G@@ 0001 003411 1480L 0001 003442 1490L 0001 000326 150L UI )@@G@@@O@[@@ 0001 003473 1500L 0001 003520 1530L 0001 003546 UJ )@@G@@1540L 0001 003551 1550L 0001 003564 1560L @O@[@@ 0001 0UK )@@G@@03600 1570L 0001 003613 1580L 0001 003617 1590L 0001 0UL )@@G@@00335 160L 0001 003650 1610L @O@[@@ 0001 003711 1620L 00UM )@@G@@01 003714 1630L 0001 003717 1640L 0001 003723 1650L 00UN )@@G@@01 000016 166G @O@[@@ 0001 003734 1660L 0001 003742 1670L UO )@@G@@ 0001 003745 1680L 0001 003750 1690L 0001 000356 170L UP )@@G@@@O@[@@ 0001 003766 1700L 0001 004007 1710L 0001 004022 UQ )@@G@@1720L 0001 004035 1730L 0001 003635 1734G @O@[@@ 0001 0UR )@@G@@04040 1740L 0001 004060 1750L 0001 004066 1760L 0001 0US )@@G@@04101 1770L 0001 004106 1780L @O@[@@ 0001 004111 1790L 00UT )@@G@@01 000375 180L 0001 004114 1800L 0001 004127 1810L 00UU )@@G@@01 004132 1820L @O@[@@ 0001 004144 1830L 0001 004202 1840L UV )@@G@@ 0001 004213 1850L 0001 004224 1860L 0001 004242 1870L UW )@@G@@@O@[@@ 0001 004245 1880L 0001 004256 1890L 0001 004271 UX )@@G@@1900L 0001 004311 1910L 0001 004330 1920L @O@[@@ 0001 0UY )@@G@@04333 1930L 0001 004354 1940L 0001 004424 1950L 0001 0UZ )@@G@@04436 1960L 0001 004441 1970L @O@[@@ 0001 004450 1980L 00VA )@@G@@01 004454 1990L 0001 000053 20L 0001 004671 20L 00VB )@@G@@01 000406 200L @O@[@@ 0001 004460 2000L 0001 004470 2010L VC )@@G@@ 0001 004502 2020L 0000 000015 2030F 0000 000024 2040F VD )@@G@@@O@[@@ 0000 000027 2050F 0001 000416 210L 0001 000055 VE )@@G@@214G 0001 000430 220L 0001 004543 2241G @O@[@@ 0001 0VF )@@G@@00112 230G 0001 000445 230L 0001 000120 232G 0001 0VG )@@G@@00457 240L 0001 000462 250L @O@[@@ 0001 000500 260L 00VH )@@G@@01 000510 270L 0001 000225 272G 0001 000544 280L 00VI )@@G@@01 000567 290L @O@[@@ 0001 004706 30L 0001 000571 300L VJ )@@G@@ 0001 000240 301G 0001 000615 320L 0001 000641 330L VK )@@G@@@O@[@@ 0001 000656 340L 0001 000364 345G 0001 000707 VL )@@G@@350L 0001 000377 354G 0001 000725 360L @O@[@@ 0001 0VM )@@G@@00730 370L 0001 000733 380L 0001 000757 390L 0001 0VN )@@G@@00064 40L 0001 001025 410L @O@[@@ 0001 001034 420L 00VO )@@G@@01 001037 430L 0001 000602 450G 0001 001057 450L 00VP )@@G@@01 001077 460L @O@[@@ 0001 001125 470L 0001 001225 480L VQ )@@G@@ 0001 001230 490L 0001 000156 50L 0001 001233 500L VR )@@G@@@O@[@@ 0001 001236 510L 0001 000741 512G 0001 000756 VS )@@G@@517G 0001 001242 520L 0001 001244 530L @O@[@@ 0001 0VT )@@G@@01255 540L 0001 001273 550L 0001 001316 560L 0001 0VU )@@G@@01054 561G 0001 001330 570L @O@[@@ 0001 001342 580L 00VV )@@G@@01 001355 590L 0001 000167 60L 0001 001364 600L 00VW )@@G@@01 001365 610L @O@[@@ 0001 001417 620L 0001 001423 630L VX )@@G@@ 0001 001425 635L 0001 001430 640L 0001 001433 650L VY )@@G@@@O@[@@ 0001 001457 660L 0001 001521 680L 0001 001526 VZ )@@G@@690L 0001 000214 70L 0001 001541 710L @O@[@@ 0001 0WA )@@G@@01500 720G 0001 001551 720L 0001 001512 725G 0001 0WB )@@G@@01560 730L 0001 001572 740L @O@[@@ 0001 001534 741G 00WC )@@G@@01 000216 75L 0001 001631 750L 0001 001654 760L 00WD )@@G@@01 001677 770L @O@[@@ 0001 001723 790L 0001 000222 80L WE )@@G@@ 0001 001744 800L 0001 001764 810L 0001 001767 820L WF )@@G@@@O@[@@ 0001 002005 830L 0001 002034 840L 0001 002047 WG )@@G@@850L 0001 002070 860L 0001 002073 870L @O@[@@ 0001 0WH )@@G@@02104 880L 0001 002115 890L 0001 002143 910L 0001 0WI )@@G@@02152 920L 0001 002176 940L @O@[@@ 0001 002217 960L 00WJ )@@G@@01 002252 980L 0000 I 000001 AMBIG 0004 I 000012 DHDG 00WK )@@G@@04 I 000000 DIAG @O@[@@ 0000 I 000003 ERR 0000 I 000000 I WL )@@G@@ 0002 I 000000 ICOL 0002 I 000001 IFIR 0006 I 000003 IMAX WM )@@G@@@O@[@@ 0004 L 000001 INDENT 0000 000070 INJP$ 0000 000063 WN )@@G@@INJP$ 0000 000074 INJP$ 0002 I 000002 INPUT @O@[@@ 0002 I 0WO )@@G@@00450 IOUT 0007 I 000000 IO1 0007 I 000001 IO2 0000 I 0WP )@@G@@00013 IS 0000 I 000010 ISWVAR@O@[@@ 0006 I 000001 ITYPE 00WQ )@@G@@00 I 000002 J 0007 I 000002 JALTFD 0002 I 003127 JCOL 00WR )@@G@@02 I 003130 JINT @O@[@@ 0002 I 005607 JMAX 0007 I 000003 JOUT WS )@@G@@ 0003 I 000013 KA 0003 000013 KABC 0003 I 000061 KAND WT )@@G@@@O@[@@ 0003 I 000062 KAT 0003 I 000014 KB 0003 I 000000 WU )@@G@@KBL 0000 000033 KBUFF 0000 000033 KB1 @O@[@@ 0002 I 0WV )@@G@@05610 KB15 0000 000040 KB6 0003 I 000015 KC 0003 I 0WW )@@G@@00051 KCLOSE 0003 I 000046 KCOMMA@O@[@@ 0003 I 000016 KD 00WX )@@G@@03 I 000057 KDASH 0003 I 000001 KDIG 0003 I 000056 KDOLAR 00WY )@@G@@02 I 005611 KD15 @O@[@@ 0003 I 000017 KE 0003 I 000045 KEQ WZ )@@G@@ 0003 I 000064 KERM 0003 I 000020 KF 0003 I 000021 KG XA )@@G@@@O@[@@ 0003 I 000022 KH 0003 I 000023 KI 0006 I 000000 XB )@@G@@KILI 0002 003130 KIM 0003 I 000024 KJ @O@[@@ 0003 I 0XC )@@G@@00025 KK 0003 I 000026 KL 0006 I 000000 KLASS 0003 I 0XD )@@G@@00063 KLR2 0003 I 000027 KM @O@[@@ 0003 I 000053 KMINUS 00XE )@@G@@03 I 000030 KN 0003 I 000031 KO 0003 I 000047 KOPEN 00XF )@@G@@02 000450 KOUT @O@[@@ 0003 I 000032 KP 0003 I 000055 KPERD XG )@@G@@ 0003 I 000052 KPLUS 0003 I 000033 KQ 0003 I 000060 KQUOTEXH )@@G@@@O@[@@ 0003 I 000034 KR 0003 I 000035 KS 0003 I 000050 XI )@@G@@KSLASH 0003 I 000045 KSPK 0003 I 000054 KSTAR @O@[@@ 0005 I 0XJ )@@G@@00000 KSTIJ 0003 I 000036 KT 0003 I 000037 KU 0003 I 0XK )@@G@@00040 KV 0003 I 000041 KW @O@[@@ 0003 I 000042 KX 00XL )@@G@@03 I 000043 KY 0003 I 000044 KZ 0003 000001 K0 00XM )@@G@@02 I 005613 LAST @O@[@@ 0002 I 005614 LCPY 0002 I 005615 LDEF XN )@@G@@ 0004 L 000002 LDIAG 0002 I 010551 LDO 0002 I 010602 LFIR XO )@@G@@@O@[@@ 0004 I 000003 LINE 0000 I 000007 LOOK 0004 I 000004 XP )@@G@@LOPT 0002 I 010603 LQUAL 0002 I 010604 LREF @O@[@@ 0006 I 0XQ )@@G@@00002 L15 0002 I 005612 L772 0002 I 012554 MCOL 0002 I 0XR )@@G@@12555 MEOF 0000 I 000006 MERR @O@[@@ 0002 I 012556 MEX 00XS )@@G@@02 I 012557 MILDO 0002 I 012560 MLGC 0002 I 012561 MP2 00XT )@@G@@00 I 000014 MRTAN @O@[@@ 0002 I 012562 MSTOP 0002 I 012563 MTRAN XU )@@G@@ 0002 I 012564 NBLC 0000 I 000004 NBLC1 0002 I 012565 NCD XV )@@G@@@O@[@@ 0002 I 012566 NCDO 0000 I 000011 NCOM 0002 I 012567 XW )@@G@@NDEF 0002 I 012570 NDOL 0002 I 012571 NDOS @O@[@@ 0002 I 0XX )@@G@@12572 NINS 0002 I 012573 NPAR 0002 I 012574 NPUN 0002 I 0XY )@@G@@12575 NREC 0002 I 012576 NREF @O@[@@ 0002 I 012577 NRT1 00XZ )@@G@@02 I 012600 NRT2 0000 I 000005 NSPACE 0004 L 000005 NSTART 00YA )@@G@@02 I 012601 NTEMP @O@[@@ 0002 I 012606 NXEQ 0002 003130 OUTPUTYB )@@G@@ 0002 I 012607 PAREN 0002 I 012610 PNEXT 0004 L 000006 RIGHT YC )@@G@@@O@[@@ 0004 L 000007 RSTART 0004 I 000010 SOPT 0004 L 000011 YD )@@G@@SOURCE 0007 I 000004 USE 0000 I 000012 WHERE @@@^@@@K@[@@00101 YE )@@G@@ 1* SUBROUTINE PASS1 YF )@@G@@ PA100010 @K@[@@00101 2* C YG )@@G@@ PA100020 @K@[@@00101 3* C YH )@@G@@ THIS ROUTINE COLLECTS STATEMENT NUMBERS, MAKES DIAGNOSTIC COMMENTSPA1YI )@@G@@00030 @K@[@@00101 4* C AND SETS UP THE FORTRAN STATEMENTS IN AYJ )@@G@@ FORM SUITABLE FOR PASS2. PA100040 @K@[@@00101 5* C YK )@@G@@ PA100050 @K@[@@YL )@@G@@00103 6* INCLUDE TIDY, LIST YM )@@G@@ PA100060 @K@[@@00104 6* IMPLICIT INTEGER (A-ZYN )@@G@@) PRO00020 @K@[@@00105 6*YO )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD YP )@@G@@ PRO00030 @K@[@@00106 6* PARAMETER DOS=25 @ MAXIMUM NESTINYQ )@@G@@G DEPTH OF DO LOOPS PRO00040 @K@[@@00107 6* PARYR )@@G@@AMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 YS )@@G@@@K@[@@00110 6* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED SYT )@@G@@TATEMENT NUMBERS PRO00060 @K@[@@00111 6* COMMON ICOL, IFYU )@@G@@IR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 YV )@@G@@ 6* 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), YW )@@G@@ PRO00080 @K@[@@00111 6* 2 LDO(DOS), LFIR, LQUAYX )@@G@@L, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 6* YY )@@G@@ 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PROYZ )@@G@@00100 @K@[@@00111 6* 4 NDOS, NINS, NPAR, NPUN, NREC, NRZA )@@G@@EF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 6* 5 NXZB )@@G@@EQ, PAREN, PNEXT PRO00120 @K@[@@ZC )@@G@@00112 6* DIMENSION KIM(CRDLNG,20) ZD )@@G@@ PRO00130 @K@[@@00113 6* DIMENSION KOUT(CRDLNGZE )@@G@@,20) PRO00140 @K@[@@00114 6*ZF )@@G@@ DIMENSION OUTPUT(12,20) ZG )@@G@@ PRO00150 @K@[@@00115 6* EQUIVALENCE (KBUFF(1),KB1), (KBUFZH )@@G@@F(6),KB6) PRO00160 @K@[@@00116 6* EQUZI )@@G@@IVALENCE (KDIG(1),K0) PRO00170 ZJ )@@G@@@K@[@@00117 6* EQUIVALENCE (IOUT,KOUT) ZK )@@G@@ PRO00180 @K@[@@00120 6* EQUIVALENCE (JIZL )@@G@@NT,KIM) PRO00190 @K@[@@00121 ZM )@@G@@ 6* EQUIVALENCE (JINT,OUTPUT) ZN )@@G@@ PRO00200 @K@[@@00122 6* DEFINE DLOC(X)=FLD(0,18,LDEZO )@@G@@F(X)) PRO00210 @K@[@@00123 6* ZP )@@G@@ DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) PROZQ )@@G@@00220 @K@[@@00124 6* DEFINE LDOS(X)=FLD(0,18,LDO(X)) ZR )@@G@@ PRO00230 @K@[@@00125 6* DEFINE LDZS )@@G@@OL(X)=FLD(18,18,LDO(X)) PRO00240 @K@[@@ZT )@@G@@00125 6* END ZU )@@G@@ PRO00250 @K@[@@00126 7* INCLUDE ALPHA, LIST ZV )@@G@@ PA100070 @K@[@@00127 7*ZW )@@G@@ COMMON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KLZX )@@G@@, PRO00270 @K@[@@00127 7* 1 KM,KN,KO,KP,KQ,KR,ZY )@@G@@KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 @K@[@@00127 7* 2 ZZ )@@G@@ KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 AA )@@G@@@K@[@@00127 7* 3 KPERD,KDOLAR,KDASH,KQUOTE,KANDAB )@@G@@,KAT,KLR2,KERM PRO00300 @K@[@@00130 7* DIMENSION KABC(AC )@@G@@26), KSPK(14) PRO00310 @K@[@@00131 AD )@@G@@ 7* EQUIVALENCE (KABC,KA), (KSPK,KEQ) AE )@@G@@ PRO00320 @K@[@@00131 7* END AF )@@G@@ PRO00330 @K@[@@00132 8* AG )@@G@@ INCLUDE INIT, LIST PA1AH )@@G@@00080 @K@[@@00133 8* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOAI )@@G@@PT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00133 8* 1 AJ )@@G@@ SOPT,SOURCE,DHDG PRO00450 @K@[@@AK )@@G@@00134 8* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE AL )@@G@@ PRO00460 @K@[@@00135 8* LOGICAL RIGHT AM )@@G@@ PRO00470 @K@[@@00135 8*AN )@@G@@ END AO )@@G@@ PRO00480 @K@[@@00136 9* INCLUDE KST, LIST AP )@@G@@ PA100090 @K@[@@00137 9* PARAQ )@@G@@AMETER NOIDS=58 @ NUMBER OF FORTRAN DIRECTIVES PRO00530 AR )@@G@@@K@[@@00140 9* PARAMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUAS )@@G@@E STATEMENT PRO00540 @K@[@@00141 9* PARAMETER IDDELAT )@@G@@E=13 @ INDEX INTO KSTIJ FOR DELETE DIRECTIVE PRO00550 @K@[@@00142 AU )@@G@@ 9* PARAMETER IDEND=19 @ INDEX INTO KSTIJ FOR END STATEMENT AV )@@G@@ PRO00560 @K@[@@00143 9* PARAMETER IDFUNC=24 @ KSTIJAW )@@G@@ INDEX FOR FUNCTION STATEMENT PRO00570 @K@[@@00144 9* AX )@@G@@ PARAMETER IGOTON=26 @ INDEX INTO KSTIJ FOR GO TO N STATEMENT PROAY )@@G@@00580 @K@[@@00145 9* PARAMETER IDSTOP=53 @ INDEX INTO KSTIJ AZ )@@G@@FOR STOP STATEMENT PRO00590 @K@[@@00146 9* COMMON /KBA )@@G@@ST/ KSTIJ(12,NOIDS) PRO00600 @K@[@@BB )@@G@@00146 9* END BC )@@G@@ PRO00610 @K@[@@00147 10* INCLUDE LIOS, LIST BD )@@G@@ PA100100 @K@[@@00150 10*BE )@@G@@ COMMON /LIOS/ KLASS, ITYPE, L15, IMAX BF )@@G@@ PRO00630 @K@[@@00151 10* DIMENSION KILI(4) BG )@@G@@ PRO00640 @K@[@@00152 10* EQUBH )@@G@@IVALENCE (KLASS,KILI) PRO00650 BI )@@G@@@K@[@@00152 10* END BJ )@@G@@ PRO00660 @K@[@@00153 11* INCLUDE TAPES, BK )@@G@@LIST PA100110 @K@[@@00154 BL )@@G@@ 11* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) BM )@@G@@ PRO00680 @K@[@@00155 11* PARAMETER STDRD=5 @ STANDARBN )@@G@@D READ UNIT PRO00690 @K@[@@00156 11* BO )@@G@@ PARAMETER STDPRT=6 @ STANDARD PRINT UNIT PROBP )@@G@@00700 @K@[@@00157 11* PARAMETER STDALT=101 @ STANDARD ALTERNABQ )@@G@@TE PRINT UNIT PRO00710 @K@[@@00157 11* END BR )@@G@@ PRO00720 @K@[@@BS )@@G@@00160 12* PARAMETER DOIN=2 @ NO. OF SPACES TO INDENT EX. STMBT )@@G@@TS. IN DO LOOP PA100120 @K@[@@00160 13* C BU )@@G@@ PA100130 @K@[@@00160 14*BV )@@G@@ C BW )@@G@@ PA100140 @K@[@@00160 15* C SET UP INITIAL CONDITIONS. BX )@@G@@ PA100150 @K@[@@00160 16* C REWBY )@@G@@IND TAPE FILES 1 AND 2. PA100160 BZ )@@G@@@K@[@@00160 17* C CA )@@G@@ PA100170 @K@[@@00161 18* CALL IOSYS1 (0,CB )@@G@@0,0) PA100180 @K@[@@00162 CC )@@G@@ 19* NRT1=0 CD )@@G@@ PA100190 @K@[@@00163 20* CALL IOSYS2 (0,0,0) CE )@@G@@ PA100200 @K@[@@00164 21* CF )@@G@@ NRT2=0 PA1CG )@@G@@00210 @K@[@@00165 22* DO 10 I=1,10 CH )@@G@@ PA100220 @K@[@@00170 23* 10 LDOS(I)=0CI )@@G@@ PA100230 @K@[@@CJ )@@G@@00172 24* DHDG=LOPT CK )@@G@@ PA100240 @K@[@@00173 25* KLASS=0 CL )@@G@@ PA100250 @K@[@@00174 26*CM )@@G@@ MILDO=0 CN )@@G@@ PA100260 @K@[@@00175 27* MLGC=0 CO )@@G@@ PA100270 @K@[@@00176 28* MP2CP )@@G@@=1 PA100280 CQ )@@G@@@K@[@@00177 29* MSTOP=0 @ *LAST CR )@@G@@ PA100290 @K@[@@00200 30* MTRAN=0 CS )@@G@@ PA100300 @K@[@@00201 CT )@@G@@ 31* NBLC=2 CU )@@G@@ PA100310 @K@[@@00202 32* NDEF=0 CV )@@G@@ PA100320 @K@[@@00203 33* CW )@@G@@ NDOL=0 PA1CX )@@G@@00330 @K@[@@00204 34* NDOS=0 CY )@@G@@ PA100340 @K@[@@00205 35* NREC=0 CZ )@@G@@ @ NUMBER OF STATEMENTS PA100350 @K@[@@DA )@@G@@00206 36* NREF=0 DB )@@G@@ PA100360 @K@[@@00207 37* NXEQ=0 DC )@@G@@ PA100370 @K@[@@00210 38*DD )@@G@@ IF (LOPT.NE.0) WRITE (JOUT,2030) @ HEADING DE )@@G@@ PA100380 @K@[@@00210 39* C DF )@@G@@ PA100390 @K@[@@00210 40* C DG )@@G@@ PA100400 DH )@@G@@@K@[@@00213 41* 20 DO 30 I=1,MAXCHS DI )@@G@@ PA100410 @K@[@@00216 42* 30 IOUT(I)=KBL DJ )@@G@@ @ CLEAR IOUT PA100420 @K@[@@00220 DK )@@G@@ 43* L15=0 DL )@@G@@ PA100430 @K@[@@00221 44* L772=0 DM )@@G@@ PA100440 @K@[@@00222 45* DN )@@G@@ AMBIG=0 PA1DO )@@G@@00450 @K@[@@00223 46* PAREN=0 DP )@@G@@ PA100460 @K@[@@00223 47* C DQ )@@G@@ PA100470 @K@[@@DR )@@G@@00224 48* 40 IF (LDIAG.OR.(LOPT.NE.0.AND.NREC.GT.0)) WRITE (JOUTDS )@@G@@,2040) LINE,((IPA100480 @K@[@@00224 49* 1NPUT(I,J),I=1,14),J=1DT )@@G@@,NCD) PA100490 @K@[@@00237 50*DU )@@G@@ IF (MP2.EQ.0) RETURN @ FATAL ERROR EXIT DV )@@G@@ PA100500 @K@[@@00241 51* LDIAG=.FALSE. DW )@@G@@ PA100510 @K@[@@00242 52* IF DX )@@G@@(.NOT.RSTART) LINE=LINE+NCD PA100520 DY )@@G@@@K@[@@00244 53* CALL SKARD DZ )@@G@@ PA100530 @K@[@@00245 54* NREC=NREC+1 EA )@@G@@ PA100540 @K@[@@00245 EB )@@G@@ 55* C EC )@@G@@ PA100550 @K@[@@00245 56* C CLEAR MLGC AND MTRAN IF MLGED )@@G@@C (LOGICAL FLAG) IS SET. PA100560 @K@[@@00245 57* C EE )@@G@@ PA1EF )@@G@@00570 @K@[@@00246 58* IF (MLGC.EQ.0) GO TO 50 EG )@@G@@ PA100580 @K@[@@00250 59* MLGC=0 EH )@@G@@ PA100590 @K@[@@EI )@@G@@00251 60* MTRAN=0 EJ )@@G@@ PA100600 @K@[@@00251 61* C EK )@@G@@ PA100610 @K@[@@00251 62*EL )@@G@@ C LOOK FOR * IN COLUMN 1 EM )@@G@@ PA100620 @K@[@@00251 63* C EN )@@G@@ PA100630 @K@[@@00252 64* 50 IF EO )@@G@@(JINT(1).NE.KSTAR) GO TO 60 PA100640 EP )@@G@@@K@[@@00252 65* C EQ )@@G@@ PA100650 @K@[@@00252 66* C * IN COLUMN 1. ER )@@G@@ GO TO CONTROL SUBROUTINE. PA100660 @K@[@@00252 ES )@@G@@ 67* C ET )@@G@@ PA100670 @K@[@@00254 68* CALL CONTRL EU )@@G@@ PA100680 @K@[@@00255 69* EV )@@G@@ IF (MSTOP.EQ.0) GO TO 20 PA1EW )@@G@@00690 @K@[@@00257 70* GO TO 1090 EX )@@G@@ PA100700 @K@[@@00257 71* C EY )@@G@@ PA100710 @K@[@@EZ )@@G@@00257 72* C LOOK FOR BLANK COMMENT FA )@@G@@ PA100720 @K@[@@00257 73* C FB )@@G@@ PA100730 @K@[@@00260 74*FC )@@G@@ 60 IF (JMAX.LE.1) GO TO 120 FD )@@G@@ PA100740 @K@[@@00260 75* C FE )@@G@@ PA100750 @K@[@@00260 76* C LOOFF )@@G@@K FOR NON-BLANK C-COMMENT PA100760 FG )@@G@@@K@[@@00260 77* C FH )@@G@@ PA100770 @K@[@@00262 78* IF (JINT(1).EQ.FI )@@G@@KC) GO TO 150 PA100780 @K@[@@00262 FJ )@@G@@ 79* C FK )@@G@@ PA100790 @K@[@@00262 80* C CHECK FOR STATEMENT STARTINFL )@@G@@G WITH CONTINUATION CARD PA100800 @K@[@@00262 81* C FM )@@G@@ PA1FN )@@G@@00810 @K@[@@00264 82* IF (JINT(6).EQ.KBL.OR.JINT(6).EQ.KDIG(1FO )@@G@@)) GO TO 80 PA100820 @K@[@@00266 83* 70 ERR=8 FP )@@G@@ @ ILLEGAL USE OF CONTINUATION CARD PA100830 @K@[@@FQ )@@G@@00267 84* 75 CALL DIAGNO (ERR) FR )@@G@@ PA100840 @K@[@@00270 85* GO TO 20 FS )@@G@@ PA100850 @K@[@@00270 86*FT )@@G@@ C FU )@@G@@ PA100860 @K@[@@00270 87* C FV )@@G@@ PA100870 @K@[@@00270 88* C GETFW )@@G@@ STATEMENT NUMBER AND CHECK FOR @-COMMENT PA100880 FX )@@G@@@K@[@@00270 89* C FY )@@G@@ PA100890 @K@[@@00271 90* 80 DO 110 LFIR=1,5FZ )@@G@@ PA100900 @K@[@@00274 GA )@@G@@ 91* IF (JINT(LFIR).EQ.KBL) GO TO 110 GB )@@G@@ PA100910 @K@[@@00276 92* IF (JINT(LFIR).EQ.KAT) GO TGC )@@G@@O 140 PA100920 @K@[@@00300 93* GD )@@G@@ DO 90 J=1,10 PA1GE )@@G@@00930 @K@[@@00303 94* 90 IF (JINT(LFIR).EQ.KDIG(J)) GO TO 100 GF )@@G@@ PA100940 @K@[@@00306 95* ERR=11 GG )@@G@@ @ ILLEGAL STATEMENT NUMBER PA100950 @K@[@@GH )@@G@@00307 96* GO TO 75 GI )@@G@@ PA100960 @K@[@@00310 97* 100 L15=10*L15+J-1 GJ )@@G@@ PA100970 @K@[@@00311 98*GK )@@G@@ 110 CONTINUE GL )@@G@@ PA100980 @K@[@@00313 99* GO TO 160 GM )@@G@@ PA100990 @K@[@@00313 100* C GN )@@G@@ PA101000 GO )@@G@@@K@[@@00313 101* C GP )@@G@@ PA101010 @K@[@@00313 102* C BLANK COMMENT. GQ )@@G@@ TEST IF TWO PREVIOUS CARDS WERE BLANK. PA101020 @K@[@@00313 GR )@@G@@ 103* C ELIMINATE BLANK COMMENT FOLLOWING COLLECTED FORMAT IF FORGS )@@G@@MAT WAS PA101030 @K@[@@00313 104* C PRECEDED BY BLANK COMMENT. GT )@@G@@ PA101040 @K@[@@00313 105* C GU )@@G@@ PA1GV )@@G@@01050 @K@[@@00314 106* 120 IF (NBLC.EQ.2) GO TO 20 GW )@@G@@ PA101060 @K@[@@00316 107* IF (KLASSGX )@@G@@.EQ.2.AND.MCOL.NE.0.AND.NBLC.NE.0) GO TO 20 PA101070 @K@[@@GY )@@G@@00320 108* NBLC=NBLC+1 GZ )@@G@@ PA101080 @K@[@@00321 109* JMAX=1 HA )@@G@@ PA101090 @K@[@@00322 110*HB )@@G@@ 130 JINT(1)=KC HC )@@G@@ PA101100 @K@[@@00323 111* KLASS=0 HD )@@G@@ PA101110 @K@[@@00324 112* ITYHE )@@G@@PE=0 PA101120 HF )@@G@@@K@[@@00325 113* GO TO 450 HG )@@G@@ PA101130 @K@[@@00325 114* C HH )@@G@@ PA101140 @K@[@@00325 HI )@@G@@ 115* C @ COMMENT. CHANGE TO C COMMENT HJ )@@G@@ PA101150 @K@[@@00325 116* C HK )@@G@@ PA101160 @K@[@@00326 117* 140HL )@@G@@ JINT(LFIR)=KBL PA1HM )@@G@@01170 @K@[@@00327 118* IF (LFIR.EQ.JMAX) GO TO 120 HN )@@G@@ PA101180 @K@[@@00327 119* C HO )@@G@@ PA101190 @K@[@@HP )@@G@@00327 120* C NON-BLANK COMMENT. HQ )@@G@@ PA101200 @K@[@@00327 121* C HR )@@G@@ PA101210 @K@[@@00331 122*HS )@@G@@ 150 NBLC=0 HT )@@G@@ PA101220 @K@[@@00332 123* IF (JMAX.GT.72) GO TO 70 HU )@@G@@ PA101230 @K@[@@00334 124* GO HV )@@G@@TO 130 PA101240 HW )@@G@@@K@[@@00334 125* C HX )@@G@@ PA101250 @K@[@@00334 126* C APPARENTLY FORTHY )@@G@@RAN. PA101260 @K@[@@00334 HZ )@@G@@ 127* C IA )@@G@@ PA101270 @K@[@@00335 128* 160 JCOL=7 IB )@@G@@ PA101280 @K@[@@00336 129* IC )@@G@@ ICOL=6 PA1ID )@@G@@01290 @K@[@@00336 130* C IE )@@G@@ PA101300 @K@[@@00336 131* C CLEAR BLAIF )@@G@@NK COMMENT COUNTER. LOOK FOR FIRST SPECIAL CHARACTER. PA101310 @K@[@@IG )@@G@@00336 132* C IH )@@G@@ PA101320 @K@[@@00337 133* IF (KLASS.EQ.2.AND.MCII )@@G@@OL.NE.0) GO TO 170 @ PRECEDING FORMAT MOVEPA101330 @K@[@@00341 134*IJ )@@G@@ NBLC1=NBLC @ SAVE PRECEDING NUMBER OF BLANK COMMENTIK )@@G@@S PA101340 @K@[@@00342 135* NBLC=0 IL )@@G@@ PA101350 @K@[@@00343 136* 170 NSPIM )@@G@@ACE=0 PA101360 IN )@@G@@@K@[@@00344 137* DO 200 LFIR=JCOL,JMAX IO )@@G@@ PA101370 @K@[@@00347 138* IF (JINT(LFIR).IP )@@G@@NE.KBL) GO TO 180 PA101380 @K@[@@00351 IQ )@@G@@ 139* NSPACE=NSPACE+1 IR )@@G@@ PA101390 @K@[@@00352 140* GO TO 200 IS )@@G@@ PA101400 @K@[@@00353 141* 180IT )@@G@@ DO 190 IFIR=1,14 PA1IU )@@G@@01410 @K@[@@00356 142* 190 IF (JINT(LFIR).EQ.KSPK(IFIR)) GO TO 210IV )@@G@@ PA101420 @K@[@@00361 143* 200 CONTINUE IW )@@G@@ PA101430 @K@[@@IX )@@G@@00363 144* LFIR=6 IY )@@G@@ PA101440 @K@[@@00364 145* IFIR=15 IZ )@@G@@ PA101450 @K@[@@00365 146*JA )@@G@@ GO TO 380 JB )@@G@@ PA101460 @K@[@@00365 147* C JC )@@G@@ PA101470 @K@[@@00365 148* C HAVJD )@@G@@E FIRST SPECIAL CHARACTER. REJECT IF ) + - . $ OR - PA101480 JE )@@G@@@K@[@@00365 149* C JF )@@G@@ PA101490 @K@[@@00366 150* 210 IF (IFIR.NE.14)JG )@@G@@ GO TO 220 PA101500 @K@[@@00366 JH )@@G@@ 151* C JI )@@G@@ PA101510 @K@[@@00366 152* C @ IS FIRST SPECIAL CHARACTEJJ )@@G@@R PA101520 @K@[@@00366 153* C JK )@@G@@ PA1JL )@@G@@01530 @K@[@@00370 154* IF (LFIR.EQ.(JCOL+NSPACE)) GO TO 140 @JM )@@G@@ '@' COMMENT PA101540 @K@[@@00372 155* GO TO 230JN )@@G@@ PA101550 @K@[@@JO )@@G@@00372 156* C JP )@@G@@ PA101560 @K@[@@00373 157* 220 IF (IFIR.GT.5.AND.IFIJQ )@@G@@R.NE.8) GO TO 240 PA101570 @K@[@@00375 158*JR )@@G@@ 230 IF (MLGC.NE.0) GO TO 250 JS )@@G@@ PA101580 @K@[@@00377 159* CALL HOLCK @ ELIMINATE HOLLERITJT )@@G@@H CODE AND EMBEDDED @-COMMENTS PA101590 @K@[@@00400 160* IF JU )@@G@@(NTEMP(1).NE.0) NBLC1=0 PA101600 JV )@@G@@@K@[@@00402 161* IF (IFIR.NE.0) GO TO 250 JW )@@G@@ PA101610 @K@[@@00404 162* GO TO 170 JX )@@G@@ PA101620 @K@[@@00404 JY )@@G@@ 163* C JZ )@@G@@ PA101630 @K@[@@00404 164* C KA )@@G@@ PA101640 @K@[@@00405 165* 240KB )@@G@@ ERR=9 @ ILLEGAL FIRST SPECIAL CHARACTER PA1KC )@@G@@01650 @K@[@@00406 166* GO TO 75 KD )@@G@@ PA101660 @K@[@@00406 167* C KE )@@G@@ PA101670 @K@[@@KF )@@G@@00406 168* C IF THERE ARE MORE THAN 6 CHARACTERS TO THE LEFT OF KG )@@G@@THE FIRST PA101680 @K@[@@00406 169* C SPECIAL CHARACTER THEKH )@@G@@N THE STATEMENT IS NOT ARITHMETIC. PA101690 @K@[@@00406 170*KI )@@G@@ C KJ )@@G@@ PA101700 @K@[@@00407 171* 250 IF (LFIR-JCOL-NSPACE.GT.6) GO TO KK )@@G@@380 PA101710 @K@[@@00407 172* C KL )@@G@@ PA101720 KM )@@G@@@K@[@@00407 173* C KN )@@G@@ PA101730 @K@[@@00407 174* C SCAN STATEMENT.KO )@@G@@ IF EQUAL SIGN IS FIRST SPECIAL CHARACTER, OR PA101740 @K@[@@00407 KP )@@G@@ 175* C FIRST SPECIAL CHARACTER IS LEFT PARENTHESIS AND FIRST CHAKQ )@@G@@RACTER PA101750 @K@[@@00407 176* C AFTER PARENTHESIS BALANCE IKR )@@G@@S AN EQUAL SIGN, TENTATIVELY CLASSIFY PA101760 @K@[@@00407 177* C KS )@@G@@ THE STATEMENT AS ARITHMETIC. IF THE FIRST SPECIAL CHARACTER PA1KT )@@G@@01770 @K@[@@00407 178* C AFTER THE EQUAL SIGN IS ANOTHER EQUAL SKU )@@G@@IGN, A COMMA, DOLLAR SIGN PA101780 @K@[@@00407 179* C OR AMPERSKV )@@G@@AND, RETRACT THE ARITHMETIC CLASSIFICATION AND SCAN PA101790 @K@[@@KW )@@G@@00407 180* C THE DIRECTIVE LISTS. KX )@@G@@ PA101800 @K@[@@00407 181* C KY )@@G@@ PA101810 @K@[@@00411 182*KZ )@@G@@ IF (IFIR.NE.1) GO TO 260 LA )@@G@@ PA101820 @K@[@@00413 183* LQUAL=LFIR LB )@@G@@ PA101830 @K@[@@00414 184* GO LC )@@G@@TO 290 PA101840 LD )@@G@@@K@[@@00415 185* 260 IF (IFIR.NE.3) GO TO 380 LE )@@G@@ PA101850 @K@[@@00417 186* NPAR=1 LF )@@G@@ PA101860 @K@[@@00420 LG )@@G@@ 187* LQUAL=LFIR LH )@@G@@ PA101870 @K@[@@00421 188* 270 LQUAL=LQUAL+1 LI )@@G@@ PA101880 @K@[@@00422 189* LJ )@@G@@ IF (LQUAL.GT.JMAX) GO TO 360 PA1LK )@@G@@01890 @K@[@@00424 190* IF (JINT(LQUAL).EQ.KOPEN) NPAR=NPAR+1 LL )@@G@@ PA101900 @K@[@@00426 191* IF (JINT(LM )@@G@@LQUAL).NE.KCLOSE) GO TO 270 PA101910 @K@[@@LN )@@G@@00430 192* NPAR=NPAR-1 LO )@@G@@ PA101920 @K@[@@00431 193* IF (NPAR) 370,280,270LP )@@G@@ PA101930 @K@[@@00434 194*LQ )@@G@@ 280 LQUAL=LQUAL+1 LR )@@G@@ PA101940 @K@[@@00435 195* IF (LQUAL.GT.JMAX) GO TO 380 LS )@@G@@ PA101950 @K@[@@00437 196* IF LT )@@G@@(JINT(LQUAL).EQ.KBL) GO TO 280 PA101960 LU )@@G@@@K@[@@00441 197* IF (JINT(LQUAL).NE.KEQ) GO TO 380 LV )@@G@@ PA101970 @K@[@@00441 198* C LW )@@G@@ PA101980 @K@[@@00441 LX )@@G@@ 199* C HAVE EQUAL SIGN WITH PROPER LEFT-SIDE SYNTAX. CHECK FOR LY )@@G@@PROPER PA101990 @K@[@@00441 200* C RIGHT-SIDE SYNTAX. LZ )@@G@@ PA102000 @K@[@@00441 201* C MA )@@G@@ PA1MB )@@G@@02010 @K@[@@00443 202* 290 LAST=LQUAL MC )@@G@@ PA102020 @K@[@@00444 203* 300 LAST=LASTMD )@@G@@+1 PA102030 @K@[@@ME )@@G@@00445 204* IF (LAST.GT.JMAX) GO TO 330 MF )@@G@@ PA102040 @K@[@@00447 205* DO 310 I=1,14 MG )@@G@@ PA102050 @K@[@@00452 206*MH )@@G@@ IF (JINT(LAST).EQ.KSPK(I)) GO TO 320 MI )@@G@@ PA102060 @K@[@@00454 207* 310 CONTINUE MJ )@@G@@ PA102070 @K@[@@00456 208* GO MK )@@G@@TO 300 PA102080 ML )@@G@@@K@[@@00457 209* 320 GO TO (380,380,330,330,380,330,300,330,330,38MM )@@G@@0,330,330,380,330), IPA102090 @K@[@@00457 210* C MN )@@G@@ PA102100 @K@[@@00457 MO )@@G@@ 211* C HAVE EQUAL SIGN WITH PROPER LEFT- AND RIGHT-SIDE SYNTAX. MP )@@G@@ TREAT PA102110 @K@[@@00457 212* C STATEMENT AS ARITHMETIC. MQ )@@G@@ PA102120 @K@[@@00457 213* C MR )@@G@@ PA1MS )@@G@@02130 @K@[@@00460 214* 330 KLASS=3 MT )@@G@@ PA102140 @K@[@@00461 215* ITYPE=0 MU )@@G@@ PA102150 @K@[@@MV )@@G@@00462 216* IF (INDENT.AND.MLGC.EQ.0) ICOL=ICOL+(NDOL*DOIN) MW )@@G@@ PA102160 @K@[@@00464 217* 340 CALL COPY (1) MX )@@G@@ PA102170 @K@[@@00465 218*MY )@@G@@ IF (MEOF) ,520,20 MZ )@@G@@ PA102180 @K@[@@00470 219* IF (LCPY.NE.KDOLAR.AND.LCPY.NE.KANA )@@G@@ND) GO TO 340 PA102190 @K@[@@00472 220* CALNB )@@G@@L RSTAT PA102200 NC )@@G@@@K@[@@00473 221* IF (L772.NE.0) GO TO 350 ND )@@G@@ PA102210 @K@[@@00475 222* ERR=10 NE )@@G@@ @ ILLEGAL ARGUMENT PA102220 @K@[@@00476 NF )@@G@@ 223* GO TO 75 NG )@@G@@ PA102230 @K@[@@00477 224* 350 IOUT(ICOL+1)=KLR2 NH )@@G@@ PA102240 @K@[@@00500 225* NI )@@G@@ ICOL=ICOL+2 PA1NJ )@@G@@02250 @K@[@@00501 226* IOUT(ICOL)=L772 NK )@@G@@ PA102260 @K@[@@00502 227* KLASS=4 NL )@@G@@ PA102270 @K@[@@NM )@@G@@00503 228* CALL RLIST NN )@@G@@ PA102280 @K@[@@00504 229* GO TO 340 NO )@@G@@ PA102290 @K@[@@00504 230*NP )@@G@@ C NQ )@@G@@ PA102300 @K@[@@00505 231* 360 ERR=2 @ MISNR )@@G@@SING ) PA102310 @K@[@@00506 232* GO NS )@@G@@TO 75 PA102320 NT )@@G@@@K@[@@00506 233* C NU )@@G@@ PA102330 @K@[@@00507 234* 370 ERR=3 NV )@@G@@ @ EXCESS ) PA102340 @K@[@@00510 NW )@@G@@ 235* GO TO 75 NX )@@G@@ PA102350 @K@[@@00510 236* C NY )@@G@@ PA102360 @K@[@@00510 237* C NZ )@@G@@ ======================================== PA1OA )@@G@@02370 @K@[@@00510 238* C * OB )@@G@@ * PA102380 @K@[@@00510 239* C OC )@@G@@* END OF ARITHMETIC PROCESSING * PA102390 @K@[@@OD )@@G@@00510 240* C * START FORTRAN STATEMENT PROCESSING * OE )@@G@@ PA102400 @K@[@@00510 241* C * OF )@@G@@ * PA102410 @K@[@@00510 242*OG )@@G@@ C ======================================== OH )@@G@@ PA102420 @K@[@@00510 243* C OI )@@G@@ PA102430 @K@[@@00511 244* 380 DO OJ )@@G@@410 ITYPE=1,NOIDS PA102440 OK )@@G@@@K@[@@00514 245* NINS=KSTIJ(11,ITYPE) OL )@@G@@ PA102450 @K@[@@00515 246* LAST=JCOL-1 OM )@@G@@ PA102460 @K@[@@00515 ON )@@G@@ 247* C OO )@@G@@ PA102470 @K@[@@00516 248* DO 400 I=1,NINS OP )@@G@@ PA102480 @K@[@@00521 249* 390OQ )@@G@@ LAST=LAST+1 PA1OR )@@G@@02490 @K@[@@00522 250* IF (LAST.GT.JMAX) GO TO 410 OS )@@G@@ PA102500 @K@[@@00524 251* IF (JINT(OT )@@G@@LAST).EQ.KBL) GO TO 390 PA102510 @K@[@@OU )@@G@@00526 252* IF (JINT(LAST).NE.KSTIJ(I,ITYPE)) GO TO 410 OV )@@G@@ PA102520 @K@[@@00530 253* 400 CONTINUE OW )@@G@@ PA102530 @K@[@@00530 254*OX )@@G@@ C OY )@@G@@ PA102540 @K@[@@00532 255* KLASS=KSTIJ(12,ITYPE) OZ )@@G@@ PA102550 @K@[@@00533 256* IF PA )@@G@@(MLGC) ,430, PA102560 PB )@@G@@@K@[@@00536 257* IF (KLASS.EQ.3.OR.KLASS.EQ.4) GO TO 470 PC )@@G@@ PA102570 @K@[@@00540 258* GO TO 420 PD )@@G@@ PA102580 @K@[@@00541 PE )@@G@@ 259* 410 CONTINUE PF )@@G@@ PA102590 @K@[@@00541 260* C PG )@@G@@ PA102600 @K@[@@00541 261* C PH )@@G@@ NOT IN DIRECTIVE LIST. CHECK FOR AMBIGUOUS IF STATEMENT PA1PI )@@G@@02610 @K@[@@00541 262* C PJ )@@G@@ PA102620 @K@[@@00543 263* IF (AMBIGPK )@@G@@.EQ.0) GO TO 420 PA102630 @K@[@@PL )@@G@@00543 264* C PM )@@G@@ PA102640 @K@[@@00543 265* C AMBIGUOUS IF STATEMENPN )@@G@@T. TREAT AS ARITHMETIC IF. PA102650 @K@[@@00543 266*PO )@@G@@ C PP )@@G@@ PA102660 @K@[@@00545 267* MLGC=0 PQ )@@G@@@ UNDO PROCESSING FOR LOGICAL IF PA102670 @K@[@@00546 268* GO PR )@@G@@TO 1560 PA102680 PS )@@G@@@K@[@@00546 269* C PT )@@G@@ PA102690 @K@[@@00546 270* C UNIDENTIFIABLE PU )@@G@@STATEMENT. PA102700 @K@[@@00546 PV )@@G@@ 271* C PW )@@G@@ PA102710 @K@[@@00547 272* 420 ERR=1 PX )@@G@@ @ ILLEGAL STATEMENT HAS BEEN DELETED PA102720 @K@[@@00550 273* PY )@@G@@ GO TO 75 PA1PZ )@@G@@02730 @K@[@@00550 274* C QA )@@G@@ PA102740 @K@[@@00550 275* C TEST EXEMQB )@@G@@PT FLAG, MEX, FOR NON-ZERO PA102750 @K@[@@QC )@@G@@00550 276* C QD )@@G@@ PA102760 @K@[@@00551 277* 430 IF (KLASS.NE.1) GO TOQE )@@G@@ 460 PA102770 @K@[@@00553 278*QF )@@G@@ IF (MEX.EQ.0) GO TO 470 QG )@@G@@ PA102780 @K@[@@00553 279* C QH )@@G@@ PA102790 @K@[@@00553 280* C MEXQI )@@G@@ IS NON-ZERO, STATEMENT IS KLASS 1, AND HENCE IS EXEMPT. PA102800 QJ )@@G@@@K@[@@00553 281* C QK )@@G@@ PA102810 @K@[@@00555 282* CALL DLIST (MERQL )@@G@@R) PA102820 @K@[@@00556 QM )@@G@@ 283* IF (MERR.NE.0) GO TO 20 QN )@@G@@ PA102830 @K@[@@00560 284* DO 440 J=1,6 QO )@@G@@ PA102840 @K@[@@00563 285* 440QP )@@G@@ JINT(J)=KBL PA1QQ )@@G@@02850 @K@[@@00565 286* 450 IMAX=JMAX QR )@@G@@ PA102860 @K@[@@00566 287* CALL IOSYQS )@@G@@S1 (2,KILI,4) PA102870 @K@[@@QT )@@G@@00567 288* CALL IOSYS1 (2,JINT,JMAX) QU )@@G@@ PA102880 @K@[@@00570 289* NRT1=NRT1+1 QV )@@G@@ PA102890 @K@[@@00571 290*QW )@@G@@ GO TO 40 QX )@@G@@ PA102900 @K@[@@00571 291* C QY )@@G@@ PA102910 @K@[@@00571 292* C INDQZ )@@G@@ENT EXECUTABLE STATEMENTS WITHIN DO LOOP, IF REQUIRED. PA102920 RA )@@G@@@K@[@@00571 293* C RB )@@G@@ PA102930 @K@[@@00572 294* 460 IF (KLASS.EQ.2.RC )@@G@@OR.KLASS.EQ.5) GO TO 470 @ DON'T INDENT FORMAT,EPA102940 @K@[@@00574 RD )@@G@@ 295* IF (ITYPE.EQ.IDDELE) GO TO 470 @ DON'T INDENT DELETE STRE )@@G@@ATEMENT PA102950 @K@[@@00576 296* IF (INDENT) ICOL=ICOL+(NDOLRF )@@G@@*DOIN) PA102960 @K@[@@00576 297* C RG )@@G@@ PA1RH )@@G@@02970 @K@[@@00576 298* C GO TO INDIVIDUAL STATEMENT PROCESSING BRI )@@G@@Y ITYPE. PA102980 @K@[@@00576 299* C RJ )@@G@@ PA102990 @K@[@@RK )@@G@@00600 300* 470 GO TO ( 480, 550, 480, 560, 570, 590, 640, 660, 690RL )@@G@@, 720, PA103000 @K@[@@00600 301* 1 730, 770, 800RM )@@G@@, 810, 870, 910, 730,1080,1090,1180, PA103010 @K@[@@00600 302*RN )@@G@@ 2 1210, 480,1230,1250,1270,1270,1410,1450,1460,1480, RO )@@G@@ PA103020 @K@[@@00600 303* 3 1490,1500,1680,1750, 660, RP )@@G@@660,1770,1780, 480,1810, PA103030 @K@[@@00600 304* 4 RQ )@@G@@ 1810,1840,1870,1900,1810, 660, 480, 480,1950,1960, PA103040 RR )@@G@@@K@[@@00600 305* 5 1980,1980,1990,2000,2010,2020,1900,122RS )@@G@@0) , ITYPE PA103050 @K@[@@00600 306* C RT )@@G@@ PA103060 @K@[@@00600 RU )@@G@@ 307* C RV )@@G@@ PA103070 @K@[@@00600 308* C ===========================RW )@@G@@=======================================PA103080 @K@[@@00600 309* C RX )@@G@@ * *PA1RY )@@G@@03090 @K@[@@00600 310* C * AT THIS POINT, COMMENTS AND ARITHMETRZ )@@G@@IC STATEMENTS HAVE BEEN *PA103100 @K@[@@00600 311* C * PROCESSA )@@G@@SED. THE STATEMENTS HAVE BEEN CLASSIFIED AS ITYPE AND *PA103110 @K@[@@SB )@@G@@00600 312* C * KLASS. THE LAST SYMBOL USED IN SCANNING THE FORSC )@@G@@TRAN STATE- *PA103120 @K@[@@00600 313* C * MENT IS KSTIJ(NINSSD )@@G@@,ITYPE), AND WAS FOUND AT JINT(LAST). THE *PA103130 @K@[@@00600 314*SE )@@G@@ C * FIRST SPECIAL CHARACTER, IF ANY, IS KSPK(IFIR), LOCATED AT SF )@@G@@ *PA103140 @K@[@@00600 315* C * JINT(LFIR). INVALID COMBINATISG )@@G@@ONS OF STATEMENTS AND FIRST *PA103150 @K@[@@00600 316* C * SH )@@G@@SPECIAL CHARACTER HAVE BEEN ELIMINATED. IF A STATEMENT *PA103160 SI )@@G@@@K@[@@00600 317* C * NUMBER IS PERMITTED, IT IS IN L15. IF NOTSJ )@@G@@, L15=0. *PA103170 @K@[@@00600 318* C * UNLESS MLGC,SK )@@G@@ THE LOGICAL FLAG, IS ON ICOL = 6, AND JCOL = 7. *PA103180 @K@[@@00600 SL )@@G@@ 319* C * SM )@@G@@ *PA103190 @K@[@@00600 320* C ===========================SN )@@G@@=======================================PA103200 @K@[@@00600 321* C SO )@@G@@ PA1SP )@@G@@03210 @K@[@@00600 322* C ABNORMAL, BACKSPACE, EXTERNAL, PAUSE, RSQ )@@G@@ETURN, REWIND PA103220 @K@[@@00600 323* C SR )@@G@@ PA103230 @K@[@@SS )@@G@@00601 324* 480 CALL COPY (NINS) ST )@@G@@ PA103240 @K@[@@00601 325* C SU )@@G@@ PA103250 @K@[@@00601 326*SV )@@G@@ C SW )@@G@@ PA103260 @K@[@@00602 327* 490 ICOL=ICOL+1 SX )@@G@@ PA103270 @K@[@@00603 328* 500 CALSY )@@G@@L COPY (0) @ FINISH UP COPY PA103280 SZ )@@G@@@K@[@@00604 329* 510 IF (MEOF.GT.0) GO TO 20 TA )@@G@@ PA103290 @K@[@@00606 330* 520 IMAX=ICOL TB )@@G@@ PA103300 @K@[@@00607 TC )@@G@@ 331* 530 CALL DLIST (MERR) TD )@@G@@ PA103310 @K@[@@00610 332* IF (MERR.NE.0) GO TO 20 TE )@@G@@ PA103320 @K@[@@00612 333* TF )@@G@@ IF (L772.NE.0) CALL RLIST @ UPDATE REFERENCED STATEMENT NUMBERS PA1TG )@@G@@03330 @K@[@@00612 334* C TH )@@G@@ PA103340 @K@[@@00612 335* C WRITE STATI )@@G@@TEMENT IMAGE ON TAPE 1 FOR PASS 2. PA103350 @K@[@@TJ )@@G@@00612 336* C TK )@@G@@ PA103360 @K@[@@00614 337* 540 CALL IOSYS1 (2,KILI,4TL )@@G@@) PA103370 @K@[@@00615 338*TM )@@G@@ CALL IOSYS1 (2,IOUT,IMAX) TN )@@G@@ PA103380 @K@[@@00616 339* NRT1=NRT1+1 TO )@@G@@ PA103390 @K@[@@00617 340* GO TP )@@G@@TO 20 PA103400 TQ )@@G@@@K@[@@00617 341* C TR )@@G@@ PA103410 @K@[@@00617 342* C ASSIGN TS )@@G@@ PA103420 @K@[@@00617 TT )@@G@@ 343* C TU )@@G@@ PA103430 @K@[@@00620 344* 550 CALL COPY (NINS) TV )@@G@@ PA103440 @K@[@@00621 345* TW )@@G@@ CALL RSTAT PA1TX )@@G@@03450 @K@[@@00622 346* IF (L772.EQ.0) GO TO 420 TY )@@G@@ PA103460 @K@[@@00624 347* IOUT(ICOLTZ )@@G@@+2)=KLR2 PA103470 @K@[@@UA )@@G@@00625 348* IOUT(ICOL+3)=L772 UB )@@G@@ PA103480 @K@[@@00626 349* ICOL=ICOL+4 UC )@@G@@ PA103490 @K@[@@00627 350*UD )@@G@@ CALL COPY (2) UE )@@G@@ PA103500 @K@[@@00630 351* GO TO 490 UF )@@G@@ PA103510 @K@[@@00630 352* C UG )@@G@@ PA103520 UH )@@G@@@K@[@@00630 353* C BLOCK DATA UI )@@G@@ PA103530 @K@[@@00630 354* C UJ )@@G@@ PA103540 @K@[@@00631 UK )@@G@@ 355* 560 CALL COPY (5) UL )@@G@@ PA103550 @K@[@@00632 356* ICOL=ICOL+1 UM )@@G@@ PA103560 @K@[@@00633 357* UN )@@G@@ CALL COPY (4) PA1UO )@@G@@03570 @K@[@@00634 358* GO TO 500 UP )@@G@@ PA103580 @K@[@@00634 359* C UQ )@@G@@ PA103590 @K@[@@UR )@@G@@00634 360* C CALL US )@@G@@ PA103600 @K@[@@00634 361* C UT )@@G@@ PA103610 @K@[@@00635 362*UU )@@G@@ 570 CALL COPY (NINS) UV )@@G@@ PA103620 @K@[@@00636 363* ICOL=ICOL+1 UW )@@G@@ PA103630 @K@[@@00637 364* IF UX )@@G@@(IFIR.NE.3) GO TO 500 @ NO ARGUMENTS PA103640 UY )@@G@@@K@[@@00641 365* 580 CALL COPY (1) UZ )@@G@@ PA103650 @K@[@@00642 366* IF (PNEXT.NE.KOVA )@@G@@PEN) GO TO 580 PA103660 @K@[@@00644 VB )@@G@@ 367* ICOL=ICOL+1 @ INSERT SPACE AFTER SUBROUTIVC )@@G@@NE NAME PA103670 @K@[@@00645 368* GO TO 340 VD )@@G@@ PA103680 @K@[@@00645 369* C VE )@@G@@ PA1VF )@@G@@03690 @K@[@@00645 370* C COMMON VG )@@G@@ PA103700 @K@[@@00645 371* C VH )@@G@@ PA103710 @K@[@@VI )@@G@@00646 372* 590 CALL COPY (NINS) VJ )@@G@@ PA103720 @K@[@@00647 373* IF (IFIR.NE.4) GO TO VK )@@G@@490 @ BLANK COMMON PA103730 @K@[@@00651 374*VL )@@G@@ 600 NPAR=0 VM )@@G@@ PA103740 @K@[@@00652 375* 610 CALL COPY (1) VN )@@G@@ PA103750 @K@[@@00653 376* IF VO )@@G@@(MEOF) ,630,20 PA103760 VP )@@G@@@K@[@@00656 377* IF (LCPY.NE.KSLASH) GO TO 610 VQ )@@G@@ PA103770 @K@[@@00660 378* IF (NPAR.NE.0) VR )@@G@@GO TO 620 PA103780 @K@[@@00660 VS )@@G@@ 379* C VT )@@G@@ PA103790 @K@[@@00660 380* C INSERT SPACE BEFORE FIRST /VU )@@G@@ PA103800 @K@[@@00662 381* VV )@@G@@ IOUT(ICOL)=KBL PA1VW )@@G@@03810 @K@[@@00663 382* ICOL=ICOL+1 VX )@@G@@ PA103820 @K@[@@00664 383* IOUT(ICOLVY )@@G@@)=KSLASH PA103830 @K@[@@VZ )@@G@@00665 384* NPAR=1 WA )@@G@@ PA103840 @K@[@@00666 385* GO TO 610 WB )@@G@@ PA103850 @K@[@@00666 386*WC )@@G@@ C WD )@@G@@ PA103860 @K@[@@00666 387* C INSERT SPACE AFTER SECOND SLASH WE )@@G@@ PA103870 @K@[@@00666 388* C WF )@@G@@ PA103880 WG )@@G@@@K@[@@00667 389* 620 ICOL=ICOL+1 WH )@@G@@ PA103890 @K@[@@00670 390* GO TO 600 WI )@@G@@ PA103900 @K@[@@00670 WJ )@@G@@ 391* C WK )@@G@@ PA103910 @K@[@@00671 392* 630 IF (NPAR.EQ.0) GO TO 520 WL )@@G@@ PA103920 @K@[@@00673 393* 635WM )@@G@@ ERR=21 @ MISSING / PA1WN )@@G@@03930 @K@[@@00674 394* GO TO 75 WO )@@G@@ PA103940 @K@[@@00674 395* C WP )@@G@@ PA103950 @K@[@@WQ )@@G@@00674 396* C COMPILER WR )@@G@@ PA103960 @K@[@@00674 397* C WS )@@G@@ PA103970 @K@[@@00675 398*WT )@@G@@ 640 CALL COPY (NINS) WU )@@G@@ PA103980 @K@[@@00676 399* 650 ICOL=ICOL+1 WV )@@G@@ PA103990 @K@[@@00677 400* CALWW )@@G@@L COPY (-1) PA104000 WX )@@G@@@K@[@@00700 401* IF (MEOF.GT.0) GO TO 20 WY )@@G@@ PA104010 @K@[@@00702 402* IF (MEOF.EQ.0) WZ )@@G@@GO TO 1920 PA104020 @K@[@@00704 XA )@@G@@ 403* CALL COPY (1) XB )@@G@@ PA104030 @K@[@@00705 404* IF (LCPY.EQ.KCOMMA) GO TO 6XC )@@G@@50 PA104040 @K@[@@00707 405* XD )@@G@@ GO TO 510 PA1XE )@@G@@04050 @K@[@@00707 406* C XF )@@G@@ PA104060 @K@[@@00707 407* C XG )@@G@@ PA104070 @K@[@@XH )@@G@@00707 408* C COMPLEX, INTEGER, LOGICAL, REAL. XI )@@G@@ PA104080 @K@[@@00707 409* C XJ )@@G@@ PA104090 @K@[@@00710 410*XK )@@G@@ 660 CALL COPY (NINS) XL )@@G@@ PA104100 @K@[@@00711 411* IF (IFIR.NE.8) GO TO 880 XM )@@G@@ PA104110 @K@[@@00713 412* CALXN )@@G@@L COPY (2) @ *N PA104120 XO )@@G@@@K@[@@00714 413* IF (MEOF) ,420,20 XP )@@G@@ PA104130 @K@[@@00714 414* C XQ )@@G@@ PA104140 @K@[@@00714 XR )@@G@@ 415* C LOOK FOR NEXT SPECIAL CHARACTER XS )@@G@@ PA104150 @K@[@@00714 416* C XT )@@G@@ PA104160 @K@[@@00717 417* XU )@@G@@ DO 680 LFIR=JCOL,JMAX PA1XV )@@G@@04170 @K@[@@00722 418* IF (JINT(JCOL).EQ.KBL) GO TO 680 XW )@@G@@ PA104180 @K@[@@00724 419* DO 670 IFXX )@@G@@IR=1,14 PA104190 @K@[@@XY )@@G@@00727 420* 670 IF (JINT(LFIR).EQ.KSPK(IFIR)) GO TO 880 XZ )@@G@@ PA104200 @K@[@@00732 421* 680 CONTINUE YA )@@G@@ PA104210 @K@[@@00734 422*YB )@@G@@ IFIR=15 YC )@@G@@ PA104220 @K@[@@00735 423* GO TO 880 YD )@@G@@ PA104230 @K@[@@00735 424* C YE )@@G@@ PA104240 YF )@@G@@@K@[@@00735 425* C CONTINUE YG )@@G@@ PA104250 @K@[@@00735 426* C YH )@@G@@ PA104260 @K@[@@00736 YI )@@G@@ 427* 690 IF (MLGC.EQ.0) GO TO 710 YJ )@@G@@ PA104270 @K@[@@00740 428* DO 700 I=7,ICOL YK )@@G@@ PA104280 @K@[@@00743 429* 700YL )@@G@@ IOUT(I)=KBL PA1YM )@@G@@04290 @K@[@@00745 430* ICOL=6 YN )@@G@@ PA104300 @K@[@@00746 431* 710 CALL COPYYO )@@G@@ (8) PA104310 @K@[@@YP )@@G@@00747 432* IF (L15.NE.0) GO TO 500 YQ )@@G@@ PA104320 @K@[@@00751 433* ERR=12 YR )@@G@@ @ REDUNDANT CONTINUE STATEMENT PA104330 @K@[@@00752 434*YS )@@G@@ GO TO 75 YT )@@G@@ PA104340 @K@[@@00752 435* C YU )@@G@@ PA104350 @K@[@@00752 436* C DATYV )@@G@@A PA104360 YW )@@G@@@K@[@@00752 437* C YX )@@G@@ PA104370 @K@[@@00753 438* 720 CALL COPY (NINSYY )@@G@@) PA104380 @K@[@@00754 YZ )@@G@@ 439* ICOL=ICOL+1 ZA )@@G@@ PA104390 @K@[@@00755 440* GO TO 600 ZB )@@G@@ PA104400 @K@[@@00755 441* C ZC )@@G@@ PA1ZD )@@G@@04410 @K@[@@00755 442* C DECODE OR ENCODE STATEMENT. ZE )@@G@@ PA104420 @K@[@@00755 443* C ZF )@@G@@ PA104430 @K@[@@ZG )@@G@@00755 444* C DECODE (SIZE,FORMAT,BLOCK,TRANS) LIST ZH )@@G@@ PA104440 @K@[@@00755 445* C DECODE (SIZE,FORMAT,BZI )@@G@@LOCK) LIST PA104450 @K@[@@00755 446*ZJ )@@G@@ C DECODE (BLOCK,FORMAT) LIST ZK )@@G@@ PA104460 @K@[@@00755 447* C ZL )@@G@@ PA104470 @K@[@@00756 448* 730 CALZM )@@G@@L COPY (6) PA104480 ZN )@@G@@@K@[@@00757 449* ICOL=ICOL+1 ZO )@@G@@ PA104490 @K@[@@00760 450* CALL COPY (1) ZP )@@G@@ PA104500 @K@[@@00761 ZQ )@@G@@ 451* NPAR=0 ZR )@@G@@ PA104510 @K@[@@00762 452* 740 CALL COPY (1) ZS )@@G@@ PA104520 @K@[@@00763 453* ZT )@@G@@ IF (LCPY.EQ.KOPEN) NPAR=NPAR+1 PA1ZU )@@G@@04530 @K@[@@00765 454* IF (LCPY.EQ.KCLOSE) NPAR=NPAR-1 ZV )@@G@@ PA104540 @K@[@@00767 455* IF (LCPY.ZW )@@G@@EQ.KCOMMA.AND.NPAR.EQ.0) GO TO 750 PA104550 @K@[@@ZX )@@G@@00771 456* IF (MEOF) 740,420,420 ZY )@@G@@ PA104560 @K@[@@00774 457* 750 CALL RSTAT ZZ )@@G@@ PA104570 @K@[@@00775 458*AA )@@G@@ KLASS=3 AB )@@G@@ PA104580 @K@[@@00776 459* IF (L772.EQ.0) GO TO 760 AC )@@G@@ PA104590 @K@[@@01000 460* IOUAD )@@G@@T(ICOL+1)=KLR2 PA104600 AE )@@G@@@K@[@@01001 461* ICOL=ICOL+2 AF )@@G@@ PA104610 @K@[@@01002 462* IOUT(ICOL)=L772AG )@@G@@ PA104620 @K@[@@01003 AH )@@G@@ 463* CALL RLIST AI )@@G@@ PA104630 @K@[@@01004 464* KLASS=4 AJ )@@G@@ PA104640 @K@[@@01005 465* 760AK )@@G@@ CALL COPY (-1) PA1AL )@@G@@04650 @K@[@@01006 466* IF (MEOF) ,420,20 AM )@@G@@ PA104660 @K@[@@01011 467* IF (PNEXTAN )@@G@@.EQ.KAT.OR.PNEXT.EQ.KERM) GO TO 500 @ NO LIST PA104670 @K@[@@AO )@@G@@01013 468* GO TO 490 @ COPY LIST AP )@@G@@ PA104680 @K@[@@01013 469* C AQ )@@G@@ PA104690 @K@[@@01013 470*AR )@@G@@ C DEFINE. AS )@@G@@ PA104700 @K@[@@01013 471* C AT )@@G@@ PA104710 @K@[@@01014 472* 770 CALAU )@@G@@L COPY (NINS) PA104720 AV )@@G@@@K@[@@01015 473* DO 780 I=JCOL,JMAX AW )@@G@@ PA104730 @K@[@@01020 474* 780 IF (JINT(I).EQ.AX )@@G@@KEQ) GO TO 490 PA104740 @K@[@@01020 AY )@@G@@ 475* C AZ )@@G@@ PA104750 @K@[@@01020 476* C DEFINE FILE STATEMENT. BA )@@G@@ PA104760 @K@[@@01020 477* C BB )@@G@@ PA1BC )@@G@@04770 @K@[@@01023 478* ICOL=ICOL+1 BD )@@G@@ PA104780 @K@[@@01024 479* CALL COPYBE )@@G@@ (4) @ FILE PA104790 @K@[@@BF )@@G@@01025 480* 790 ICOL=ICOL+1 BG )@@G@@ PA104800 @K@[@@01026 481* CALL COPY (-1) BH )@@G@@ PA104810 @K@[@@01027 482*BI )@@G@@ IF (MEOF) ,420,20 BJ )@@G@@ PA104820 @K@[@@01032 483* IF (PNEXT.NE.KCOMMA) GO TO 500 BK )@@G@@ PA104830 @K@[@@01034 484* CALBL )@@G@@L COPY (1) PA104840 BM )@@G@@@K@[@@01035 485* GO TO 790 BN )@@G@@ PA104850 @K@[@@01035 486* C BO )@@G@@ PA104860 @K@[@@01035 BP )@@G@@ 487* C DELETE BQ )@@G@@ PA104870 @K@[@@01035 488* C BR )@@G@@ PA104880 @K@[@@01036 489* 800BS )@@G@@ CALL COPY (6) PA1BT )@@G@@04890 @K@[@@01037 490* CALL RSTAT BU )@@G@@ PA104900 @K@[@@01040 491* IF (L772.BV )@@G@@EQ.0) GO TO 420 PA104910 @K@[@@BW )@@G@@01042 492* IOUT(ICOL+2)=KLR2 BX )@@G@@ PA104920 @K@[@@01043 493* IOUT(ICOL+3)=L772 BY )@@G@@ PA104930 @K@[@@01044 494*BZ )@@G@@ ICOL=ICOL+3 CA )@@G@@ PA104940 @K@[@@01045 495* GO TO 500 CB )@@G@@ PA104950 @K@[@@01045 496* C CC )@@G@@ PA104960 CD )@@G@@@K@[@@01045 497* C DIMENSION CE )@@G@@ PA104970 @K@[@@01045 498* C CF )@@G@@ PA104980 @K@[@@01046 CG )@@G@@ 499* 810 CALL COPY (NINS) CH )@@G@@ PA104990 @K@[@@01047 500* 820 ICOL=ICOL+1 CI )@@G@@ PA105000 @K@[@@01050 501* CJ )@@G@@ CALL COPY (-1) PA1CK )@@G@@05010 @K@[@@01051 502* IF (MEOF.GT.0) GO TO 20 CL )@@G@@ PA105020 @K@[@@01053 503* IF (MEOF.CM )@@G@@EQ.0) GO TO 1920 PA105030 @K@[@@CN )@@G@@01055 504* LOOK=1 CO )@@G@@ PA105040 @K@[@@01056 505* 830 CALL COPY (1) CP )@@G@@ PA105050 @K@[@@01057 506*CQ )@@G@@ IF (LCPY.EQ.KERM) GO TO (520,860), LOOK CR )@@G@@ PA105060 @K@[@@01061 507* GO TO (840,850), LOOK CS )@@G@@ PA105070 @K@[@@01062 508* 840 IF CT )@@G@@(LCPY.EQ.KCOMMA) GO TO 820 PA105080 CU )@@G@@@K@[@@01064 509* IF (LCPY.EQ.KSLASH) LOOK=2 CV )@@G@@ PA105090 @K@[@@01066 510* GO TO 830 CW )@@G@@ PA105100 @K@[@@01067 CX )@@G@@ 511* 850 IF (LCPY.NE.KSLASH) GO TO 830 CY )@@G@@ PA105110 @K@[@@01071 512* IF (PNEXT.EQ.KERM.OR.PNEXT.CZ )@@G@@EQ.KAT) GO TO 500 PA105120 @K@[@@01073 513* DA )@@G@@ GO TO 820 PA1DB )@@G@@05130 @K@[@@01074 514* 860 ERR=13 @ INCODC )@@G@@MPLETE DIMENSION STATEMENT PA105140 @K@[@@01075 515* GO TO 75 DD )@@G@@ PA105150 @K@[@@DE )@@G@@01075 516* C DF )@@G@@ PA105160 @K@[@@01075 517* C DOUBLE PRECISION DG )@@G@@ PA105170 @K@[@@01075 518*DH )@@G@@ C DI )@@G@@ PA105180 @K@[@@01076 519* 870 CALL COPY (6) DJ )@@G@@ PA105190 @K@[@@01077 520* ICODK )@@G@@L=ICOL+1 PA105200 DL )@@G@@@K@[@@01100 521* CALL COPY (9) DM )@@G@@ PA105210 @K@[@@01101 522* 880 ICOL=ICOL+1 DN )@@G@@ PA105220 @K@[@@01101 DO )@@G@@ 523* C DP )@@G@@ PA105230 @K@[@@01101 524* C TYPE STATEMENT (INTEGER, REDQ )@@G@@AL, ETC.) CHECK TO SEE IF FUNCTION. PA105240 @K@[@@01101 525* C DR )@@G@@ PA1DS )@@G@@05250 @K@[@@01102 526* J=JCOL-1 DT )@@G@@ PA105260 @K@[@@01103 527* DO 900 I=DU )@@G@@1,8 PA105270 @K@[@@DV )@@G@@01106 528* 890 J=J+1 DW )@@G@@ PA105280 @K@[@@01107 529* IF (J.GT.JMAX) GO TO DX )@@G@@500 PA105290 @K@[@@01111 530*DY )@@G@@ IF (JINT(J).EQ.KBL) GO TO 890 DZ )@@G@@ PA105300 @K@[@@01113 531* IF (JINT(J).NE.KSTIJ(I,IDFUNC)) GEA )@@G@@O TO 500 PA105310 @K@[@@01115 532* 900 CONEB )@@G@@TINUE PA105320 EC )@@G@@@K@[@@01117 533* GO TO 1250 ED )@@G@@ PA105330 @K@[@@01117 534* C EE )@@G@@ PA105340 @K@[@@01117 EF )@@G@@ 535* C DO STATEMENT EG )@@G@@ PA105350 @K@[@@01117 536* C EH )@@G@@ PA105360 @K@[@@01120 537* 910EI )@@G@@ IF (IFIR.NE.1) GO TO 920 PA1EJ )@@G@@05370 @K@[@@01122 538* I=LFIR EK )@@G@@ PA105380 @K@[@@01123 539* GO TO 940EL )@@G@@ PA105390 @K@[@@EM )@@G@@01124 540* 920 JINT(LFIR)=KBL EN )@@G@@ PA105400 @K@[@@01125 541* CALL DIAGNO (18) EO )@@G@@ PA105410 @K@[@@01126 542*EP )@@G@@ DO 930 I=LFIR,JMAX EQ )@@G@@ PA105420 @K@[@@01131 543* IF (JINT(I).EQ.KEQ) GO TO 940 ER )@@G@@ PA105430 @K@[@@01133 544* 930 CONES )@@G@@TINUE PA105440 ET )@@G@@@K@[@@01135 545* ERR=14 @ MISSING = EU )@@G@@IN DO STATEMENT PA105450 @K@[@@01136 546* GO TO 75 EV )@@G@@ PA105460 @K@[@@01136 EW )@@G@@ 547* C EX )@@G@@ PA105470 @K@[@@01136 548* C HAVE =. LOOK FOR COMMA, CHEY )@@G@@ECK STATEMENT AND TERMINAL NUMBER. PA105480 @K@[@@01136 549* C EZ )@@G@@ PA1FA )@@G@@05490 @K@[@@01137 550* 940 LQUAL=I FB )@@G@@ PA105500 @K@[@@01140 551* DO 950 I=FC )@@G@@LQUAL,JMAX PA105510 @K@[@@FD )@@G@@01143 552* IF (JINT(I).EQ.KOPEN) GO TO 330 FE )@@G@@ PA105520 @K@[@@01145 553* IF (JINT(I).EQ.KCOMMAFF )@@G@@) GO TO 960 PA105530 @K@[@@01147 554*FG )@@G@@ 950 CONTINUE FH )@@G@@ PA105540 @K@[@@01151 555* GO TO 330 FI )@@G@@ PA105550 @K@[@@01152 556* 960 MILFJ )@@G@@DO=-1 PA105560 FK )@@G@@@K@[@@01153 557* CALL COPY (2) FL )@@G@@ PA105570 @K@[@@01154 558* CALL RSTAT FM )@@G@@ PA105580 @K@[@@01155 FN )@@G@@ 559* IF (L772.EQ.0) GO TO 330 FO )@@G@@ PA105590 @K@[@@01157 560* IF (NDEF.LE.0) GO TO 980 FP )@@G@@ PA105600 @K@[@@01161 561* FQ )@@G@@ DO 970 I=1,NDEF PA1FR )@@G@@05610 @K@[@@01164 562* IF (DSTMT(I).EQ.L772) GO TO 1070 FS )@@G@@ PA105620 @K@[@@01166 563* 970 CONTINUE FT )@@G@@ PA105630 @K@[@@FU )@@G@@01166 564* C FV )@@G@@ PA105640 @K@[@@01166 565* C ADD STATEMENT NUMBER FW )@@G@@TO DO-LIST. PA105650 @K@[@@01166 566*FX )@@G@@ C FY )@@G@@ PA105660 @K@[@@01170 567* 980 IF (NDOS) 1020,1040,990 FZ )@@G@@ PA105670 @K@[@@01173 568* 990 IF GA )@@G@@(LDOS(NDOS).EQ.L772) GO TO 1060 PA105680 GB )@@G@@@K@[@@01175 569* IF (NDOS-1) 980,1040,1000 GC )@@G@@ PA105690 @K@[@@01200 570* 1000 DO 1010 I=2,NDOGD )@@G@@S PA105700 @K@[@@01203 GE )@@G@@ 571* IF (LDOS(I-1).EQ.L772) GO TO 1070 GF )@@G@@ PA105710 @K@[@@01205 572* 1010 CONTINUE GG )@@G@@ PA105720 @K@[@@01207 573* 102GH )@@G@@0 IF (NDOS.LT.DOS) GO TO 1040 PA1GI )@@G@@05730 @K@[@@01211 574* CALL DIAGNO (24) GJ )@@G@@ PA105740 @K@[@@01212 575* MP2=0 GK )@@G@@ PA105750 @K@[@@GL )@@G@@01213 576* GO TO 20 GM )@@G@@ PA105760 @K@[@@01214 577* 1040 NDOS=NDOS+1 GN )@@G@@ PA105770 @K@[@@01215 578*GO )@@G@@ LDOS(NDOS)=L772 GP )@@G@@ PA105780 @K@[@@01216 579* LDOL(NDOS)=NDOL GQ )@@G@@ PA105790 @K@[@@01217 580* 1060 IOUGR )@@G@@T(ICOL+2)=KLR2 PA105800 GS )@@G@@@K@[@@01220 581* IOUT(ICOL+3)=L772 GT )@@G@@ PA105810 @K@[@@01221 582* ICOL=ICOL+3 GU )@@G@@ PA105820 @K@[@@01222 GV )@@G@@ 583* CALL RLIST GW )@@G@@ PA105830 @K@[@@01223 584* NDOL=NDOL+1 GX )@@G@@ PA105840 @K@[@@01224 585* GY )@@G@@ GO TO 490 PA1GZ )@@G@@05850 @K@[@@01224 586* C HA )@@G@@ PA105860 @K@[@@01225 587* 1070 ERR=15 HB )@@G@@ @ INVALID TERMINAL ON DO STATEMENT PA105870 @K@[@@HC )@@G@@01226 588* GO TO 75 HD )@@G@@ PA105880 @K@[@@01226 589* C HE )@@G@@ PA105890 @K@[@@01226 590*HF )@@G@@ C END DO-LOOP STATEMENT PROCESSING. HG )@@G@@ PA105900 @K@[@@01226 591* C HH )@@G@@ PA105910 @K@[@@01226 592* C HI )@@G@@ PA105920 HJ )@@G@@@K@[@@01226 593* C END FILE HK )@@G@@ PA105930 @K@[@@01226 594* C HL )@@G@@ PA105940 @K@[@@01227 HM )@@G@@ 595* 1080 CALL COPY (3) HN )@@G@@ PA105950 @K@[@@01230 596* ICOL=ICOL+1 HO )@@G@@ PA105960 @K@[@@01231 597* HP )@@G@@ CALL COPY (4) PA1HQ )@@G@@05970 @K@[@@01232 598* GO TO 490 HR )@@G@@ PA105980 @K@[@@01232 599* C HS )@@G@@ PA105990 @K@[@@HT )@@G@@01232 600* C END STATEMENT. HU )@@G@@ PA106000 @K@[@@01232 601* C HV )@@G@@ PA106010 @K@[@@01233 602*HW )@@G@@ 1090 MSTOP=-1 HX )@@G@@ PA106020 @K@[@@01234 603* IF (L15.EQ.0) GO TO 1120 HY )@@G@@ PA106030 @K@[@@01236 604* IF HZ )@@G@@(NREF.LE.0) GO TO 1120 PA106040 IA )@@G@@@K@[@@01240 605* DO 1100 I=1,NREF IB )@@G@@ PA106050 @K@[@@01243 606* 1100 IF (LREF(I).EQ.IC )@@G@@L15) GO TO 1110 PA106060 @K@[@@01246 ID )@@G@@ 607* GO TO 1130 IE )@@G@@ PA106070 @K@[@@01247 608* 1110 CALL DIAGNO (18) IF )@@G@@ PA106080 @K@[@@01247 609* C IG )@@G@@ PA1IH )@@G@@06090 @K@[@@01247 610* C GENERATE NEW STOP COMMAND. II )@@G@@ PA106100 @K@[@@01247 611* C IJ )@@G@@ PA106110 @K@[@@IK )@@G@@01250 612* IOUT(7)=KS IL )@@G@@ PA106120 @K@[@@01251 613* IOUT(8)=KT IM )@@G@@ PA106130 @K@[@@01252 614*IN )@@G@@ IOUT(9)=KO IO )@@G@@ PA106140 @K@[@@01253 615* IOUT(10)=KP IP )@@G@@ PA106150 @K@[@@01254 616* MILIQ )@@G@@DO=-1 PA106160 IR )@@G@@@K@[@@01255 617* CALL DLIST (MERR) IS )@@G@@ PA106170 @K@[@@01256 618* IF (MERR.NE.0) IT )@@G@@GO TO 1130 PA106180 @K@[@@01260 IU )@@G@@ 619* JINT(1)=3 IV )@@G@@ PA106190 @K@[@@01261 620* JINT(2)=IDSTOP IW )@@G@@ PA106200 @K@[@@01262 621* IX )@@G@@ JINT(3)=L15 PA1IY )@@G@@06210 @K@[@@01263 622* JINT(4)=10 IZ )@@G@@ PA106220 @K@[@@01264 623* CALL IOSYJA )@@G@@S1 (2,JINT,4) PA106230 @K@[@@JB )@@G@@01265 624* CALL IOSYS1 (2,IOUT,10) JC )@@G@@ PA106240 @K@[@@01266 625* NRT1=NRT1+1 JD )@@G@@ PA106250 @K@[@@01266 626*JE )@@G@@ C JF )@@G@@ PA106260 @K@[@@01267 627* 1120 IF (LDIAG.OR.LOPT.NE.0) WRITE (JOJG )@@G@@UT,2040) LINE,((INPUT(I,J),I=1,14PA106270 @K@[@@01267 628* 1),JJH )@@G@@=1,NCD) PA106280 JI )@@G@@@K@[@@01267 629* C JJ )@@G@@ PA106290 @K@[@@01267 630* C CHECK FOR UNRESJK )@@G@@OLVED DO LOOPS PA106300 @K@[@@01267 JL )@@G@@ 631* C JM )@@G@@ PA106310 @K@[@@01302 632* 1130 IF (NDOS.EQ.0) GO TO 1150 JN )@@G@@ PA106320 @K@[@@01304 633* JO )@@G@@ CALL DIAGNO (16) PA1JP )@@G@@06330 @K@[@@01305 634* IF (DIAG.EQ.0) GO TO 1150 JQ )@@G@@ PA106340 @K@[@@01307 635* DO 1140 IJR )@@G@@=1,NDOS PA106350 @K@[@@JS )@@G@@01312 636* NTEMP(1)=LDOS(I) JT )@@G@@ PA106360 @K@[@@01313 637* 1140 WRITE (JOUT,2050) NTEJU )@@G@@MP(1) PA106370 @K@[@@01313 638*JV )@@G@@ C JW )@@G@@ PA106380 @K@[@@01313 639* C LOOK FOR FORMATS ON TAPE 2 JX )@@G@@ PA106390 @K@[@@01313 640* C JY )@@G@@ PA106400 JZ )@@G@@@K@[@@01317 641* 1150 CALL FORMAT KA )@@G@@ PA106410 @K@[@@01317 642* C KB )@@G@@ PA106420 @K@[@@01317 KC )@@G@@ 643* C WRITE END STATEMENT KD )@@G@@ PA106430 @K@[@@01317 644* C KE )@@G@@ PA106440 @K@[@@01320 645* KF )@@G@@ IF (RSTART) GO TO 1170 PA1KG )@@G@@06450 @K@[@@01322 646* DO 1160 I=1,6 KH )@@G@@ PA106460 @K@[@@01325 647* 1160 IOUT(I)=KKI )@@G@@BL PA106470 @K@[@@KJ )@@G@@01327 648* IOUT(7)=KE KK )@@G@@ PA106480 @K@[@@01330 649* IOUT(8)=KN KL )@@G@@ PA106490 @K@[@@01331 650*KM )@@G@@ IOUT(9)=KD KN )@@G@@ PA106500 @K@[@@01332 651* KLASS=5 KO )@@G@@ PA106510 @K@[@@01333 652* ITYKP )@@G@@PE=IDEND PA106520 KQ )@@G@@@K@[@@01334 653* L15=0 KR )@@G@@ PA106530 @K@[@@01335 654* IMAX=9 KS )@@G@@ PA106540 @K@[@@01336 KT )@@G@@ 655* CALL IOSYS1 (2,KILI,4) KU )@@G@@ PA106550 @K@[@@01337 656* CALL IOSYS1 (2,IOUT,9) KV )@@G@@ PA106560 @K@[@@01340 657* KW )@@G@@ NRT1=NRT1+1 PA1KX )@@G@@06570 @K@[@@01341 658* 1170 CALL IOSYS1 (1,0,0) @ REWIKY )@@G@@ND IO1 PA106580 @K@[@@01342 659* RETURN KZ )@@G@@ PA106590 @K@[@@LA )@@G@@01342 660* C LB )@@G@@ PA106600 @K@[@@01342 661* C =========LC )@@G@@========================= PA106610 @K@[@@01342 662*LD )@@G@@ C * PASS1 NORMALLY EXITS HERE. * LE )@@G@@ PA106620 @K@[@@01342 663* C =====================LF )@@G@@============= PA106630 @K@[@@01342 664* C LG )@@G@@ PA106640 LH )@@G@@@K@[@@01342 665* C LI )@@G@@ PA106650 @K@[@@01342 666* C ENTRY LJ )@@G@@ PA106660 @K@[@@01342 LK )@@G@@ 667* C LL )@@G@@ PA106670 @K@[@@01343 668* 1180 IF (NBLC1.EQ.0) CALL BLANK LM )@@G@@ PA106680 @K@[@@01345 669* LN )@@G@@ CALL COPY (NINS) PA1LO )@@G@@06690 @K@[@@01346 670* 1190 MTRAN=0 @ THIS STATLP )@@G@@EMENT CAN ALWAYS BE REACHEDPA106700 @K@[@@01347 671* ICOL=ICOLLQ )@@G@@+1 PA106710 @K@[@@LR )@@G@@01350 672* IF (IFIR.NE.3) GO TO 500 @ NO ARGUMENTS LS )@@G@@ PA106720 @K@[@@01352 673* 1200 CALL COPY (1) LT )@@G@@ PA106730 @K@[@@01353 674*LU )@@G@@ IF (PNEXT.NE.KOPEN) GO TO 1200 LV )@@G@@ PA106740 @K@[@@01355 675* GO TO 490 LW )@@G@@ PA106750 @K@[@@01355 676* C LX )@@G@@ PA106760 LY )@@G@@@K@[@@01355 677* C EQUIVALENCE LZ )@@G@@ PA106770 @K@[@@01355 678* C MA )@@G@@ PA106780 @K@[@@01356 MB )@@G@@ 679* 1210 CALL COPY (11) MC )@@G@@ PA106790 @K@[@@01357 680* GO TO 650 MD )@@G@@ PA106800 @K@[@@01357 681* C ME )@@G@@ PA1MF )@@G@@06810 @K@[@@01357 682* C FIND MG )@@G@@ PA106820 @K@[@@01357 683* C MH )@@G@@ PA106830 @K@[@@MI )@@G@@01360 684* 1220 CALL COPY (NINS) MJ )@@G@@ PA106840 @K@[@@01361 685* ICOL=ICOL+1 MK )@@G@@ PA106850 @K@[@@01362 686*ML )@@G@@ CALL COPY (-1) MM )@@G@@ PA106860 @K@[@@01363 687* IF (MEOF) 500,420,20 MN )@@G@@ PA106870 @K@[@@01363 688* C MO )@@G@@ PA106880 MP )@@G@@@K@[@@01363 689* C FORMAT ( MQ )@@G@@ PA106890 @K@[@@01363 690* C MR )@@G@@ PA106900 @K@[@@01366 MS )@@G@@ 691* 1230 IF (L15.NE.0) GO TO 1240 MT )@@G@@ PA106910 @K@[@@01370 692* ERR=17 MU )@@G@@ @ INVALID OR UNNUMBERED FORMAT STATE. PA106920 @K@[@@01371 693* MV )@@G@@ GO TO 75 PA1MW )@@G@@06930 @K@[@@01372 694* 1240 CALL COPY (6) MX )@@G@@ PA106940 @K@[@@01373 695* ICOL=ICOLMY )@@G@@+1 PA106950 @K@[@@MZ )@@G@@01374 696* CALL COPY (-1) NA )@@G@@ PA106960 @K@[@@01375 697* IF (MEOF.GT.0) GO TO NB )@@G@@20 PA106970 @K@[@@01377 698*NC )@@G@@ IF (MEOF.EQ.0) GO TO 1920 ND )@@G@@ PA106980 @K@[@@01401 699* CALL COPY (0) NE )@@G@@@ COPY COMMENT PA106990 @K@[@@01402 700* IF NF )@@G@@(MEOF.GT.0) GO TO 20 PA107000 NG )@@G@@@K@[@@01404 701* IMAX=ICOL NH )@@G@@ PA107010 @K@[@@01405 702* IF (MCOL.EQ.0) NI )@@G@@GO TO 530 PA107020 @K@[@@01407 NJ )@@G@@ 703* ITYPE=LINE @ SAVE ORIGINAL LINE NUMBER OF FORMAT SNK )@@G@@TATEMENT PA107030 @K@[@@01410 704* CALL IOSYS2 (2,KILI,4) NL )@@G@@ PA107040 @K@[@@01411 705* NM )@@G@@ CALL IOSYS2 (2,IOUT,IMAX) PA1NN )@@G@@07050 @K@[@@01412 706* NRT2=NRT2+1 NO )@@G@@ PA107060 @K@[@@01413 707* NBLC=NBLCNP )@@G@@1 PA107070 @K@[@@NQ )@@G@@01414 708* GO TO 20 NR )@@G@@ PA107080 @K@[@@01414 709* C NS )@@G@@ PA107090 @K@[@@01414 710*NT )@@G@@ C FUNCTION NU )@@G@@ PA107100 @K@[@@01414 711* C NV )@@G@@ PA107110 @K@[@@01415 712* 1250 IF NW )@@G@@(.NOT.RSTART.AND.NXEQ.NE.0) GO TO 1260 PA107120 NX )@@G@@@K@[@@01417 713* RSTART=.FALSE. NY )@@G@@ PA107130 @K@[@@01420 714* CALL COPY (8) NZ )@@G@@ PA107140 @K@[@@01421 OA )@@G@@ 715* IF (IFIR.NE.3) GO TO 420 OB )@@G@@ PA107150 @K@[@@01423 716* GO TO 1190 OC )@@G@@ PA107160 @K@[@@01423 717* C OD )@@G@@ PA1OE )@@G@@07170 @K@[@@01424 718* 1260 RSTART=.TRUE. OF )@@G@@ PA107180 @K@[@@01425 719* GO TO 113OG )@@G@@0 PA107190 @K@[@@OH )@@G@@01425 720* C OI )@@G@@ PA107200 @K@[@@01425 721* C GO TO (***,***),N ANOJ )@@G@@D GO TO *** PA107210 @K@[@@01425 722*OK )@@G@@ C OL )@@G@@ PA107220 @K@[@@01426 723* 1270 IF (MLGC.EQ.0) MILDO=-1 OM )@@G@@ PA107230 @K@[@@01430 724* CALON )@@G@@L DLIST (MERR) PA107240 OO )@@G@@@K@[@@01431 725* IF (MERR.NE.0) GO TO 20 OP )@@G@@ PA107250 @K@[@@01433 726* CALL COPY (2) OQ )@@G@@ PA107260 @K@[@@01434 OR )@@G@@ 727* ICOL=ICOL+1 OS )@@G@@ PA107270 @K@[@@01435 728* CALL COPY (2) OT )@@G@@ PA107280 @K@[@@01436 729* OU )@@G@@ ICOL=ICOL+1 PA1OV )@@G@@07290 @K@[@@01437 730* IF (ITYPE.EQ.IGOTON) GO TO 1340 OW )@@G@@ PA107300 @K@[@@01441 731* CALL COPYOX )@@G@@ (1) PA107310 @K@[@@OY )@@G@@01441 732* C OZ )@@G@@ PA107320 @K@[@@01441 733* C PROCESS --GO TO LIST-PA )@@G@@-. PA107330 @K@[@@01441 734*PB )@@G@@ C PC )@@G@@ PA107340 @K@[@@01442 735* 1280 CALL RSTAT PD )@@G@@ PA107350 @K@[@@01443 736* ISWPE )@@G@@VAR=0 PA107360 PF )@@G@@@K@[@@01444 737* IF (L772.NE.0) GO TO 1300 PG )@@G@@ PA107370 @K@[@@01446 738* ISWVAR=1 PH )@@G@@ PA107380 @K@[@@01447 PI )@@G@@ 739* GO TO 1310 PJ )@@G@@ PA107390 @K@[@@01450 740* 1290 ERR=19 PK )@@G@@ @ ILLEGAL GO TO STATEMENT PA107400 @K@[@@01451 741* PL )@@G@@ GO TO 75 PA1PM )@@G@@07410 @K@[@@01452 742* 1300 ICOL=ICOL+1 PN )@@G@@ PA107420 @K@[@@01453 743* IOUT(ICOLPO )@@G@@)=KLR2 PA107430 @K@[@@PP )@@G@@01454 744* ICOL=ICOL+1 PQ )@@G@@ PA107440 @K@[@@01455 745* IOUT(ICOL)=L772 PR )@@G@@ PA107450 @K@[@@01456 746*PS )@@G@@ CALL RLIST PT )@@G@@ PA107460 @K@[@@01457 747* 1310 CALL COPY (1) PU )@@G@@ PA107470 @K@[@@01460 748* IF PV )@@G@@(MEOF) ,420,20 PA107480 PW )@@G@@@K@[@@01463 749* IF (LCPY.EQ.KCOMMA) GO TO 1280 PX )@@G@@ PA107490 @K@[@@01465 750* IF (LCPY.EQ.KCLPY )@@G@@OSE) GO TO 1320 PA107500 @K@[@@01467 PZ )@@G@@ 751* IF (ISWVAR.EQ.0) GO TO 1290 QA )@@G@@ PA107510 @K@[@@01471 752* GO TO 1310 QB )@@G@@ PA107520 @K@[@@01472 753* 132QC )@@G@@0 CALL COPY (1) PA1QD )@@G@@07530 @K@[@@01473 754* IF (MEOF) ,1290,20 QE )@@G@@ PA107540 @K@[@@01476 755* IF (LCPY.QF )@@G@@EQ.KCOMMA) GO TO 1330 PA107550 @K@[@@QG )@@G@@01500 756* IOUT(ICOL+2)=LCPY QH )@@G@@ PA107560 @K@[@@01501 757* IOUT(ICOL)=KCOMMA QI )@@G@@ PA107570 @K@[@@01502 758*QJ )@@G@@ ICOL=ICOL+2 QK )@@G@@ PA107580 @K@[@@01503 759* GO TO 1360 QL )@@G@@ PA107590 @K@[@@01504 760* 1330 ICOQM )@@G@@L=ICOL+1 PA107600 QN )@@G@@@K@[@@01505 761* GO TO 1360 QO )@@G@@ PA107610 @K@[@@01505 762* C QP )@@G@@ PA107620 @K@[@@01505 QQ )@@G@@ 763* C GO TO **** QR )@@G@@ PA107630 @K@[@@01505 764* C QS )@@G@@ PA107640 @K@[@@01506 765* 134QT )@@G@@0 CALL RSTAT PA1QU )@@G@@07650 @K@[@@01506 766* C QV )@@G@@ PA107660 @K@[@@01506 767* C TEST REF QW )@@G@@STATEMENT FOR GO TO N OR GO TO N, (LIST) PA107670 @K@[@@QX )@@G@@01506 768* C QY )@@G@@ PA107680 @K@[@@01507 769* IF (L772.EQ.0) GO TO QZ )@@G@@1370 PA107690 @K@[@@01507 770*RA )@@G@@ C RB )@@G@@ PA107700 @K@[@@01507 771* C STATEMENT IS --GO TO 12345--. RC )@@G@@ PA107710 @K@[@@01507 772* C RD )@@G@@ PA107720 RE )@@G@@@K@[@@01511 773* IF (L15.EQ.0) GO TO 1350 RF )@@G@@ PA107730 @K@[@@01513 774* IF (MLGC.NE.0) RG )@@G@@GO TO 1350 PA107740 @K@[@@01515 RH )@@G@@ 775* CALL DIAGNO (18) RI )@@G@@ PA107750 @K@[@@01516 776* 1350 IOUT(ICOL+1)=KLR2 RJ )@@G@@ PA107760 @K@[@@01517 777* RK )@@G@@ ICOL=ICOL+2 PA1RL )@@G@@07770 @K@[@@01520 778* IOUT(ICOL)=L772 RM )@@G@@ PA107780 @K@[@@01521 779* CALL RLISRN )@@G@@T PA107790 @K@[@@RO )@@G@@01522 780* 1360 CALL COPY (0) RP )@@G@@ PA107800 @K@[@@01523 781* IF (MEOF.GT.0) GO TO RQ )@@G@@20 PA107810 @K@[@@01525 782*RR )@@G@@ IMAX=ICOL RS )@@G@@ PA107820 @K@[@@01526 783* MTRAN=-1 RT )@@G@@ PA107830 @K@[@@01527 784* GO RU )@@G@@TO 540 PA107840 RV )@@G@@@K@[@@01527 785* C RW )@@G@@ PA107850 @K@[@@01527 786* C GO TO N OR GO TRX )@@G@@O N,LIST PA107860 @K@[@@01527 RY )@@G@@ 787* C RZ )@@G@@ PA107870 @K@[@@01530 788* 1370 IF (IFIR.EQ.2) GO TO 1380 SA )@@G@@ PA107880 @K@[@@01530 789* C SB )@@G@@ PA1SC )@@G@@07890 @K@[@@01530 790* C STATEMENT IS --GO TO N--. SD )@@G@@ PA107900 @K@[@@01530 791* C SE )@@G@@ PA107910 @K@[@@SF )@@G@@01532 792* GO TO 1360 SG )@@G@@ PA107920 @K@[@@01532 793* C SH )@@G@@ PA107930 @K@[@@01532 794*SI )@@G@@ C GO TO N,(LIST) SJ )@@G@@ PA107940 @K@[@@01532 795* C SK )@@G@@ PA107950 @K@[@@01533 796* 1380 CALSL )@@G@@L COPY (1) PA107960 SM )@@G@@@K@[@@01534 797* IF (LCPY.NE.KCOMMA) GO TO 1380 SN )@@G@@ PA107970 @K@[@@01536 798* ICOL=ICOL+1 SO )@@G@@ PA107980 @K@[@@01537 SP )@@G@@ 799* CALL COPY (1) SQ )@@G@@ PA107990 @K@[@@01540 800* IF (LCPY.NE.KOPEN) GO TO 12SR )@@G@@90 PA108000 @K@[@@01542 801* 140SS )@@G@@0 CALL RSTAT PA1ST )@@G@@08010 @K@[@@01543 802* IF (L772.EQ.0) GO TO 1290 SU )@@G@@ PA108020 @K@[@@01545 803* IOUT(ICOLSV )@@G@@+1)=KLR2 PA108030 @K@[@@SW )@@G@@01546 804* ICOL=ICOL+2 SX )@@G@@ PA108040 @K@[@@01547 805* IOUT(ICOL)=L772 SY )@@G@@ PA108050 @K@[@@01550 806*SZ )@@G@@ CALL RLIST TA )@@G@@ PA108060 @K@[@@01551 807* CALL COPY (1) TB )@@G@@ PA108070 @K@[@@01552 808* IF TC )@@G@@(LCPY.EQ.KCOMMA) GO TO 1400 PA108080 TD )@@G@@@K@[@@01554 809* IF (LCPY-KCLOSE) 1290,1360,1290 TE )@@G@@ PA108090 @K@[@@01554 810* C TF )@@G@@ PA108100 @K@[@@01554 TG )@@G@@ 811* C IF ACCUMULATOR OVERFLOW. TH )@@G@@ PA108110 @K@[@@01554 812* C TI )@@G@@ PA108120 @K@[@@01557 813* 141TJ )@@G@@0 CALL COPY (2) PA1TK )@@G@@08130 @K@[@@01560 814* ICOL=ICOL+1 TL )@@G@@ PA108140 @K@[@@01561 815* CALL COPYTM )@@G@@ (11) PA108150 @K@[@@TN )@@G@@01562 816* ICOL=ICOL+1 TO )@@G@@ PA108160 @K@[@@01563 817* CALL COPY (8) TP )@@G@@ PA108170 @K@[@@01564 818*TQ )@@G@@ IF (MEOF) ,420,20 TR )@@G@@ PA108180 @K@[@@01564 819* C TS )@@G@@ PA108190 @K@[@@01564 820* C PROTT )@@G@@CESS TWO-WAY TRANSFER. PA108200 TU )@@G@@@K@[@@01564 821* C TV )@@G@@ PA108210 @K@[@@01567 822* 1420 ICOL=ICOL+1 TW )@@G@@ PA108220 @K@[@@01570 TX )@@G@@ 823* MILDO=-1 TY )@@G@@ PA108230 @K@[@@01571 824* CALL DLIST (MERR) TZ )@@G@@ PA108240 @K@[@@01572 825* UA )@@G@@ IF (MERR.NE.0) GO TO 20 PA1UB )@@G@@08250 @K@[@@01574 826* CALL RSTAT UC )@@G@@ PA108260 @K@[@@01575 827* IF (L772.UD )@@G@@NE.0) GO TO 1440 PA108270 @K@[@@UE )@@G@@01577 828* 1430 ERR=20 @ ILLEGAL IF STATEUF )@@G@@MENT PA108280 @K@[@@01600 829* GO TO 75 UG )@@G@@ PA108290 @K@[@@01601 830*UH )@@G@@ 1440 ICOL=ICOL+1 UI )@@G@@ PA108300 @K@[@@01602 831* IOUT(ICOL)=KLR2 UJ )@@G@@ PA108310 @K@[@@01603 832* ICOUK )@@G@@L=ICOL+1 PA108320 UL )@@G@@@K@[@@01604 833* IOUT(ICOL)=L772 UM )@@G@@ PA108330 @K@[@@01605 834* CALL RLIST UN )@@G@@ PA108340 @K@[@@01606 UO )@@G@@ 835* CALL COPY (1) UP )@@G@@ PA108350 @K@[@@01607 836* IF (LCPY.NE.KCOMMA) GO TO 1UQ )@@G@@430 PA108360 @K@[@@01611 837* UR )@@G@@ CALL RSTAT PA1US )@@G@@08370 @K@[@@01612 838* IF (L772) 1350,1430,1350 UT )@@G@@ PA108380 @K@[@@01612 839* C UU )@@G@@ PA108390 @K@[@@UV )@@G@@01612 840* C IF DIVIDE CHECK. UW )@@G@@ PA108400 @K@[@@01612 841* C UX )@@G@@ PA108410 @K@[@@01615 842*UY )@@G@@ 1450 CALL COPY (2) UZ )@@G@@ PA108420 @K@[@@01616 843* ICOL=ICOL+1 VA )@@G@@ PA108430 @K@[@@01617 844* CALVB )@@G@@L COPY (6) PA108440 VC )@@G@@@K@[@@01620 845* ICOL=ICOL+1 VD )@@G@@ PA108450 @K@[@@01621 846* CALL COPY (5) VE )@@G@@ PA108460 @K@[@@01622 VF )@@G@@ 847* GO TO 1470 VG )@@G@@ PA108470 @K@[@@01622 848* C VH )@@G@@ PA108480 @K@[@@01622 849* C VI )@@G@@ IF QUOTIENT OVERFLOW PA1VJ )@@G@@08490 @K@[@@01622 850* C VK )@@G@@ PA108500 @K@[@@01623 851* 1460 CALL COPYVL )@@G@@ (2) PA108510 @K@[@@VM )@@G@@01624 852* ICOL=ICOL+1 VN )@@G@@ PA108520 @K@[@@01625 853* CALL COPY (8) VO )@@G@@ PA108530 @K@[@@01626 854*VP )@@G@@ ICOL=ICOL+1 VQ )@@G@@ PA108540 @K@[@@01627 855* CALL COPY (8) VR )@@G@@ PA108550 @K@[@@01630 856* 1470 IF VS )@@G@@(MEOF) 1420,420,20 PA108560 VT )@@G@@@K@[@@01630 857* C VU )@@G@@ PA108570 @K@[@@01630 858* C IF(SENSE LIGHT VV )@@G@@5) 1,2 PA108580 @K@[@@01630 VW )@@G@@ 859* C VX )@@G@@ PA108590 @K@[@@01633 860* 1480 CALL COPY (2) VY )@@G@@ PA108600 @K@[@@01634 861* VZ )@@G@@ ICOL=ICOL+1 PA1WA )@@G@@08610 @K@[@@01635 862* CALL COPY (6) WB )@@G@@ PA108620 @K@[@@01636 863* ICOL=ICOLWC )@@G@@+1 PA108630 @K@[@@WD )@@G@@01637 864* CALL COPY (5) WE )@@G@@ PA108640 @K@[@@01640 865* ICOL=ICOL+1 WF )@@G@@ PA108650 @K@[@@01641 866*WG )@@G@@ CALL COPY (2) WH )@@G@@ PA108660 @K@[@@01642 867* IF (LCPY-KCLOSE) 1430,1420,1430 WI )@@G@@ PA108670 @K@[@@01642 868* C WJ )@@G@@ PA108680 WK )@@G@@@K@[@@01642 869* C IF(SENSE SWITCH 5) 1,2 WL )@@G@@ PA108690 @K@[@@01642 870* C WM )@@G@@ PA108700 @K@[@@01645 WN )@@G@@ 871* 1490 CALL COPY (2) WO )@@G@@ PA108710 @K@[@@01646 872* ICOL=ICOL+1 WP )@@G@@ PA108720 @K@[@@01647 873* WQ )@@G@@ CALL COPY (6) PA1WR )@@G@@08730 @K@[@@01650 874* ICOL=ICOL+1 WS )@@G@@ PA108740 @K@[@@01651 875* CALL COPYWT )@@G@@ (6) PA108750 @K@[@@WU )@@G@@01652 876* ICOL=ICOL+1 WV )@@G@@ PA108760 @K@[@@01653 877* CALL COPY (2) WW )@@G@@ PA108770 @K@[@@01654 878*WX )@@G@@ IF (LCPY-KCLOSE) 1430,1420,1430 WY )@@G@@ PA108780 @K@[@@01654 879* C WZ )@@G@@ PA108790 @K@[@@01654 880* C IF XA )@@G@@(ARITHMETIC) 1,2,3 OR IF (LOGICAL) STATEMENT. PA108800 XB )@@G@@@K@[@@01654 881* C XC )@@G@@ PA108810 @K@[@@01657 882* 1500 CALL COPY (2) XD )@@G@@ PA108820 @K@[@@01660 XE )@@G@@ 883* ICOL=ICOL+1 XF )@@G@@ PA108830 @K@[@@01661 884* CALL COPY (-1) XG )@@G@@ PA108840 @K@[@@01662 885* XH )@@G@@ IF (MEOF.GE.0) GO TO 1430 PA1XI )@@G@@08850 @K@[@@01664 886* 1520 ICOL=ICOL+1 XJ )@@G@@ PA108860 @K@[@@01665 887* CALL RSTAXK )@@G@@T PA108870 @K@[@@XL )@@G@@01666 888* NCOM=0 XM )@@G@@ PA108880 @K@[@@01667 889* IF (L772.EQ.0) GO TO XN )@@G@@1570 PA108890 @K@[@@01667 890*XO )@@G@@ C XP )@@G@@ PA108900 @K@[@@01667 891* C STATEMENT IS IF (ARITHMETIC) 1XQ )@@G@@,2,3 PA108910 @K@[@@01667 892* C XR )@@G@@ PA108920 XS )@@G@@@K@[@@01671 893* 1530 IOUT(ICOL+1)=KLR2 XT )@@G@@ PA108930 @K@[@@01672 894* ICOL=ICOL+2 XU )@@G@@ PA108940 @K@[@@01673 XV )@@G@@ 895* IOUT(ICOL)=L772 XW )@@G@@ PA108950 @K@[@@01674 896* CALL RLIST XX )@@G@@ PA108960 @K@[@@01675 897* XY )@@G@@ CALL COPY (1) PA1XZ )@@G@@08970 @K@[@@01676 898* IF (LCPY.EQ.KCOMMA) GO TO 1550 YA )@@G@@ PA108980 @K@[@@01700 899* IF (LCPY.YB )@@G@@NE.KERM) GO TO 1430 PA108990 @K@[@@YC )@@G@@01702 900* 1540 MILDO=-1 YD )@@G@@ PA109000 @K@[@@01703 901* GO TO 520 YE )@@G@@ PA109010 @K@[@@01704 902*YF )@@G@@ 1550 NCOM=NCOM+1 YG )@@G@@ PA109020 @K@[@@01705 903* IF (NCOM.GT.2) GO TO 1430 YH )@@G@@ PA109030 @K@[@@01707 904* CALYI )@@G@@L RSTAT PA109040 YJ )@@G@@@K@[@@01707 905* C YK )@@G@@ PA109050 @K@[@@01707 906* C TEST FOR SWITCHYL )@@G@@ VARIABLE AND COPY IT. PA109060 @K@[@@01707 YM )@@G@@ 907* C YN )@@G@@ PA109070 @K@[@@01710 908* IF (L772.NE.0) GO TO 1530 YO )@@G@@ PA109080 @K@[@@01712 909* 156YP )@@G@@0 CALL COPY (1) PA1YQ )@@G@@09090 @K@[@@01713 910* IF (LCPY.EQ.KCOMMA) GO TO 1550 YR )@@G@@ PA109100 @K@[@@01715 911* IF (LCPY.YS )@@G@@EQ.KERM) GO TO 1540 PA109110 @K@[@@YT )@@G@@01717 912* GO TO 1560 YU )@@G@@ PA109120 @K@[@@01717 913* C YV )@@G@@ PA109130 @K@[@@01717 914*YW )@@G@@ C STATEMENT MAY BE IF (LOGICAL) STATEMENT, YX )@@G@@ PA109140 @K@[@@01717 915* C IF CHARACTER AFTER ) IS , THEN STYY )@@G@@ATEMENT IS IF (ARITH) ,N2,N3 PA109150 @K@[@@01717 916* C YZ )@@G@@ PA109160 ZA )@@G@@@K@[@@01720 917* 1570 IF (JINT(JCOL).EQ.KCOMMA) GO TO 1560 ZB )@@G@@ PA109170 @K@[@@01720 918* C ZC )@@G@@ PA109180 @K@[@@01720 ZD )@@G@@ 919* C IF A SPECIAL CHARACTER IS NOT A COMMA, THEN STATEMENT IS ZE )@@G@@LOGICAL. PA109190 @K@[@@01720 920* C IF THERE ARE MORE THAN 2 COZF )@@G@@MMAS, THE STATEMENT IS LOGICAL. PA109200 @K@[@@01720 921* C ZG )@@G@@ IF THERE ARE MORE THAN 6 NON-BLANKS TO THE LEFT OF A COMMA OR PA1ZH )@@G@@09210 @K@[@@01720 922* C ERM, THE STATEMENT IS LOGICAL. ZI )@@G@@ PA109220 @K@[@@01720 923* C IF A STATZJ )@@G@@EMENT NUMBER FOLLOWS A COMMA, THEN STATEMENT IS PA109230 @K@[@@ZK )@@G@@01720 924* C ARITHMETIC. ZL )@@G@@ PA109240 @K@[@@01720 925* C ZM )@@G@@ PA109250 @K@[@@01720 926*ZN )@@G@@ C ZO )@@G@@ PA109260 @K@[@@01722 927* NTEMP(1)=JCOL ZP )@@G@@@ SAVE LOCATION FOLLOWING ) PA109270 @K@[@@01723 928* ASSZQ )@@G@@IGN 1670 TO WHERE @ ASSUME LOGICAL IF PA109280 ZR )@@G@@@K@[@@01724 929* 1580 IS=JCOL ZS )@@G@@ PA109290 @K@[@@01725 930* LFIR=IS ZT )@@G@@ PA109300 @K@[@@01726 ZU )@@G@@ 931* NSPACE=0 ZV )@@G@@ PA109310 @K@[@@01727 932* 1590 IF (JINT(IS).EQ.KBL) GO TO ZW )@@G@@1630 PA109320 @K@[@@01731 933* ZX )@@G@@ IF (JINT(IS).EQ.KERM) GO TO 1650 PA1ZY )@@G@@09330 @K@[@@01733 934* DO 1600 I=1,14 ZZ )@@G@@ PA109340 @K@[@@01736 935* 1600 IF (JINT(AA )@@G@@IS).EQ.KSPK(I)) GO TO 1610 PA109350 @K@[@@AB )@@G@@01741 936* GO TO 1640 @ NOT A SPECIAL CHAC )@@G@@ARACTER PA109360 @K@[@@01742 937* 1610 IF (I.EQ.14) GO TO 16AD )@@G@@50 PA109370 @K@[@@01744 938*AE )@@G@@ IF (I.NE.2) GO TO 1660 @ SPECIAL CHARACTER, NOT COMMA. LOGICAL AF )@@G@@IF.PA109380 @K@[@@01746 939* IF (IS-(LFIR+NSPACE).GT.6) GO TO AG )@@G@@1660 @ TOO LONG FOR SWITCH VAR. PA109390 @K@[@@01750 940* NCOAH )@@G@@M=NCOM+1 PA109400 AI )@@G@@@K@[@@01751 941* IF (NCOM.GT.2) GO TO 1660 @ TOO MANY COMMASAJ )@@G@@ FOR ARITHMETIC IF PA109410 @K@[@@01753 942* JCOL=IS+1 AK )@@G@@ PA109420 @K@[@@01754 AL )@@G@@ 943* CALL RSTAT AM )@@G@@ PA109430 @K@[@@01755 944* IF (L772.NE.0) GO TO 1620 AN )@@G@@ @ STATEMENT NUMBER FOLLOWS COMMA PA109440 @K@[@@01757 945* AO )@@G@@ IF (MEOF.LT.0) GO TO 1580 PA1AP )@@G@@09450 @K@[@@01761 946* 1620 ASSIGN 1560 TO WHERE @ ARITAQ )@@G@@HMETIC IF PA109460 @K@[@@01762 947* GO TO 166AR )@@G@@0 PA109470 @K@[@@AS )@@G@@01762 948* C AT )@@G@@ PA109480 @K@[@@01763 949* 1630 NSPACE=NSPACE+1 AU )@@G@@ PA109490 @K@[@@01764 950*AV )@@G@@ 1640 IS=IS+1 AW )@@G@@ PA109500 @K@[@@01765 951* GO TO 1590 AX )@@G@@ PA109510 @K@[@@01765 952* C AY )@@G@@ PA109520 AZ )@@G@@@K@[@@01766 953* 1650 IF (IS-(LFIR+NSPACE).GT.6) GO TO 1660 @ TOO LBA )@@G@@ONG FOR SWITCH VAR. PA109530 @K@[@@01766 954* C BB )@@G@@ PA109540 @K@[@@01766 BC )@@G@@ 955* C BD )@@G@@ PA109550 @K@[@@01766 956* C AMBIGUOUS STATEMENT. IF NAMBE )@@G@@E FOLLOWING ) IS IN DIRECTIVE LIST, PA109560 @K@[@@01766 957* C BF )@@G@@ TREAT STATEMENT AS LOGICAL IF. OTHERWISE, TREAT AS ARITHMETIC IF. PA1BG )@@G@@09570 @K@[@@01766 958* C BH )@@G@@ PA109580 @K@[@@01770 959* AMBIG=1 BI )@@G@@ PA109590 @K@[@@BJ )@@G@@01770 960* C BK )@@G@@ PA109600 @K@[@@01770 961* C RESTORE POINTERS AND BL )@@G@@EXIT PA109610 @K@[@@01771 962*BM )@@G@@ 1660 NCOM=0 BN )@@G@@ PA109620 @K@[@@01772 963* JCOL=NTEMP(1) BO )@@G@@ PA109630 @K@[@@01773 964* MEOBP )@@G@@F=-1 PA109640 BQ )@@G@@@K@[@@01774 965* GO TO WHERE BR )@@G@@ PA109650 @K@[@@01774 966* C BS )@@G@@ PA109660 @K@[@@01774 BT )@@G@@ 967* C IF (LOGICAL) STATEMENT. BU )@@G@@ PA109670 @K@[@@01774 968* C BV )@@G@@ PA109680 @K@[@@01775 969* 167BW )@@G@@0 MLGC=-1 PA1BX )@@G@@09690 @K@[@@01776 970* GO TO 170 BY )@@G@@ PA109700 @K@[@@01776 971* C BZ )@@G@@ PA109710 @K@[@@CA )@@G@@01776 972* C IMPLICIT CB )@@G@@ PA109720 @K@[@@01776 973* C CC )@@G@@ PA109730 @K@[@@01777 974*CD )@@G@@ 1680 CALL COPY (8) CE )@@G@@ PA109740 @K@[@@02000 975* 1690 ICOL=ICOL+1 CF )@@G@@ PA109750 @K@[@@02001 976* IF CG )@@G@@(JINT(JCOL).NE.KC) GO TO 1700 PA109760 CH )@@G@@@K@[@@02003 977* CALL COPY (7) CI )@@G@@ PA109770 @K@[@@02004 978* GO TO 1740 CJ )@@G@@ PA109780 @K@[@@02005 CK )@@G@@ 979* 1700 IF (JINT(JCOL).NE.KD) GO TO 1710 CL )@@G@@ PA109790 @K@[@@02007 980* CALL COPY (6) CM )@@G@@ PA109800 @K@[@@02010 981* CN )@@G@@ ICOL=ICOL+1 PA1CO )@@G@@09810 @K@[@@02011 982* CALL COPY (9) CP )@@G@@ PA109820 @K@[@@02012 983* GO TO 174CQ )@@G@@0 PA109830 @K@[@@CR )@@G@@02013 984* 1710 IF (JINT(JCOL).NE.KI) GO TO 1720 CS )@@G@@ PA109840 @K@[@@02015 985* CALL COPY (7) CT )@@G@@ PA109850 @K@[@@02016 986*CU )@@G@@ GO TO 1740 CV )@@G@@ PA109860 @K@[@@02017 987* 1720 IF (JINT(JCOL).NE.KL) GO TO 1730 CW )@@G@@ PA109870 @K@[@@02021 988* CALCX )@@G@@L COPY (7) PA109880 CY )@@G@@@K@[@@02022 989* GO TO 1740 CZ )@@G@@ PA109890 @K@[@@02023 990* 1730 CALL COPY (4) DA )@@G@@ PA109900 @K@[@@02024 DB )@@G@@ 991* 1740 ICOL=ICOL+1 DC )@@G@@ PA109910 @K@[@@02025 992* CALL COPY (-1) DD )@@G@@ PA109920 @K@[@@02026 993* DE )@@G@@ IF (MEOF) ,1920,20 PA1DF )@@G@@09930 @K@[@@02031 994* CALL COPY (1) DG )@@G@@ PA109940 @K@[@@02032 995* IF (MEOF)DH )@@G@@ 1690,520,20 PA109950 @K@[@@DI )@@G@@02032 996* C DJ )@@G@@ PA109960 @K@[@@02032 997* C INCLUDE DK )@@G@@ PA109970 @K@[@@02032 998*DL )@@G@@ C DM )@@G@@ PA109980 @K@[@@02035 999* 1750 CALL COPY (NINS) DN )@@G@@ PA109990 @K@[@@02036 1000* ICODO )@@G@@L=ICOL+1 PA110000 DP )@@G@@@K@[@@02037 1001* 1760 CALL COPY (1) DQ )@@G@@ PA110010 @K@[@@02040 1002* IF (LCPY.EQ.KCODR )@@G@@MMA) GO TO 490 PA110020 @K@[@@02042 DS )@@G@@ 1003* IF (MEOF) 1760,520,20 DT )@@G@@ PA110030 @K@[@@02042 1004* C DU )@@G@@ PA110040 @K@[@@02042 1005* C DV )@@G@@ NAMELIST PA1DW )@@G@@10050 @K@[@@02042 1006* C DX )@@G@@ PA110060 @K@[@@02045 1007* 1770 IF (IFIR.DY )@@G@@EQ.4) GO TO 590 PA110070 @K@[@@DZ )@@G@@02047 1008* GO TO 635 EA )@@G@@ PA110080 @K@[@@02047 1009* C EB )@@G@@ PA110090 @K@[@@02047 1010*EC )@@G@@ C PARAMETER. ED )@@G@@ PA110100 @K@[@@02047 1011* C EE )@@G@@ PA110110 @K@[@@02050 1012* 1780 CALEF )@@G@@L COPY (NINS) PA110120 EG )@@G@@@K@[@@02051 1013* 1790 ICOL=ICOL+1 EH )@@G@@ PA110130 @K@[@@02052 1014* 1800 CALL COPY (1) EI )@@G@@ PA110140 @K@[@@02053 EJ )@@G@@ 1015* IF (MEOF) ,520,20 EK )@@G@@ PA110150 @K@[@@02056 1016* IF (LCPY.EQ.KCOMMA) GO TO 1EL )@@G@@790 PA110160 @K@[@@02060 1017* EM )@@G@@ GO TO 1800 PA1EN )@@G@@10170 @K@[@@02060 1018* C EO )@@G@@ PA110180 @K@[@@02060 1019* C PRINT, PUEP )@@G@@NCH, READ. PA110190 @K@[@@EQ )@@G@@02060 1020* C ER )@@G@@ PA110200 @K@[@@02061 1021* 1810 CALL COPY (NINS) ES )@@G@@ PA110210 @K@[@@02062 1022*ET )@@G@@ 1820 ICOL=ICOL+1 EU )@@G@@ PA110220 @K@[@@02063 1023* CALL RSTAT EV )@@G@@ PA110230 @K@[@@02064 1024* IF EW )@@G@@(L772.NE.0) GO TO 1830 PA110240 EX )@@G@@@K@[@@02064 1025* C EY )@@G@@ PA110250 @K@[@@02064 1026* C HAVE PRINT FMT,EZ )@@G@@LIST PA110260 @K@[@@02064 FA )@@G@@ 1027* C FB )@@G@@ PA110270 @K@[@@02066 1028* KLASS=3 FC )@@G@@ PA110280 @K@[@@02067 1029* FD )@@G@@ GO TO 500 PA1FE )@@G@@10290 @K@[@@02067 1030* C FF )@@G@@ PA110300 @K@[@@02067 1031* C HAVE PRINFG )@@G@@T 12345 LIST PA110310 @K@[@@FH )@@G@@02067 1032* C FI )@@G@@ PA110320 @K@[@@02070 1033* 1830 IOUT(ICOL+1)=KLR2 FJ )@@G@@ PA110330 @K@[@@02071 1034*FK )@@G@@ ICOL=ICOL+2 FL )@@G@@ PA110340 @K@[@@02072 1035* IOUT(ICOL)=L772 FM )@@G@@ PA110350 @K@[@@02073 1036* CALFN )@@G@@L RLIST PA110360 FO )@@G@@@K@[@@02074 1037* CALL COPY (1) FP )@@G@@ PA110370 @K@[@@02075 1038* IF (MEOF) ,520,FQ )@@G@@20 PA110380 @K@[@@02100 FR )@@G@@ 1039* IF (LCPY.EQ.KCOMMA) GO TO 490 @ COPY LIST FS )@@G@@ PA110390 @K@[@@02102 1040* IOUT(ICOL+2)=IOUT(ICOL) FT )@@G@@ PA110400 @K@[@@02103 1041* FU )@@G@@ IOUT(ICOL)=KCOMMA @ INSERT COMMA AFTER FORMAT NUMBER PA1FV )@@G@@10410 @K@[@@02104 1042* ICOL=ICOL+2 FW )@@G@@ PA110420 @K@[@@02105 1043* GO TO 500FX )@@G@@ PA110430 @K@[@@FY )@@G@@02105 1044* C FZ )@@G@@ PA110440 @K@[@@02105 1045* C READ INPUT TAPE GA )@@G@@ PA110450 @K@[@@02105 1046*GB )@@G@@ C GC )@@G@@ PA110460 @K@[@@02106 1047* 1840 CALL COPY (4) GD )@@G@@ PA110470 @K@[@@02107 1048* ICOGE )@@G@@L=ICOL+1 PA110480 GF )@@G@@@K@[@@02110 1049* CALL COPY (5) @ INPUT GG )@@G@@ PA110490 @K@[@@02111 1050* 1850 ICOL=ICOL+1 GH )@@G@@ PA110500 @K@[@@02112 GI )@@G@@ 1051* CALL COPY (4) @ TAPE GJ )@@G@@ PA110510 @K@[@@02113 1052* ICOL=ICOL+1 GK )@@G@@ PA110520 @K@[@@02114 1053* 186GL )@@G@@0 CALL COPY (1) @ UNIT PA1GM )@@G@@10530 @K@[@@02115 1054* IF (LCPY.EQ.KCOMMA) GO TO 1820 GN )@@G@@ PA110540 @K@[@@02117 1055* IF (MEOF.GO )@@G@@LT.0) GO TO 1860 PA110550 @K@[@@GP )@@G@@02121 1056* ERR=22 @ ILLEGAL READ, PRINT, GQ )@@G@@OR PUNCH STATE.PA110560 @K@[@@02122 1057* GO TO 75 GR )@@G@@ PA110570 @K@[@@02122 1058*GS )@@G@@ C GT )@@G@@ PA110580 @K@[@@02122 1059* C READ TAPE GU )@@G@@ PA110590 @K@[@@02122 1060* C GV )@@G@@ PA110600 GW )@@G@@@K@[@@02123 1061* 1870 CALL COPY (4) GX )@@G@@ PA110610 @K@[@@02124 1062* 1880 ICOL=ICOL+1 GY )@@G@@ PA110620 @K@[@@02125 GZ )@@G@@ 1063* CALL COPY (4) @ TAPE HA )@@G@@ PA110630 @K@[@@02126 1064* ICOL=ICOL+1 HB )@@G@@ PA110640 @K@[@@02127 1065* 189HC )@@G@@0 CALL COPY (1) @ UNIT PA1HD )@@G@@10650 @K@[@@02130 1066* IF (LCPY.EQ.KCOMMA) GO TO 490 HE )@@G@@ PA110660 @K@[@@02132 1067* IF (MEOF)HF )@@G@@ 1890,520,20 PA110670 @K@[@@HG )@@G@@02132 1068* C HH )@@G@@ PA110680 @K@[@@02132 1069* C READ ( AND WRITE ( HI )@@G@@ PA110690 @K@[@@02132 1070*HJ )@@G@@ C READ(UNIT,FORMAT,ERR=L1,END=L2) LIST HK )@@G@@ PA110700 @K@[@@02132 1071* C READ(UNIT,ERR=L1,END=L2) HL )@@G@@ PA110710 @K@[@@02132 1072* C HM )@@G@@ PA110720 HN )@@G@@@K@[@@02135 1073* 1900 CALL COPY (NINS-1) HO )@@G@@ PA110730 @K@[@@02136 1074* ICOL=ICOL+1 HP )@@G@@ PA110740 @K@[@@02137 HQ )@@G@@ 1075* KLASS=3 HR )@@G@@ PA110750 @K@[@@02140 1076* NPAR=1 HS )@@G@@ PA110760 @K@[@@02141 1077* HT )@@G@@ CALL COPY (1) PA1HU )@@G@@10770 @K@[@@02142 1078* 1910 CALL COPY (1) HV )@@G@@ PA110780 @K@[@@02143 1079* IF (LCPY.HW )@@G@@EQ.KCOMMA) GO TO 1930 PA110790 @K@[@@HX )@@G@@02145 1080* IF (LCPY.EQ.KCLOSE) GO TO 490 HY )@@G@@ PA110800 @K@[@@02147 1081* IF (MEOF.LT.0) GO TO HZ )@@G@@1910 PA110810 @K@[@@02151 1082*IA )@@G@@ 1920 ERR=23 @ REQUIRED PARENTHESIS IS MISSING IB )@@G@@ PA110820 @K@[@@02152 1083* GO TO 75 IC )@@G@@ PA110830 @K@[@@02152 1084* C ID )@@G@@ PA110840 IE )@@G@@@K@[@@02152 1085* C GET FORMAT IF )@@G@@ PA110850 @K@[@@02152 1086* C IG )@@G@@ PA110860 @K@[@@02153 IH )@@G@@ 1087* 1930 CALL RSTAT II )@@G@@ PA110870 @K@[@@02154 1088* IF (L772.EQ.0) GO TO 1940 IJ )@@G@@ PA110880 @K@[@@02156 1089* IK )@@G@@ KLASS=4 PA1IL )@@G@@10890 @K@[@@02157 1090* IOUT(ICOL+1)=KLR2 IM )@@G@@ PA110900 @K@[@@02160 1091* ICOL=ICOLIN )@@G@@+2 PA110910 @K@[@@IO )@@G@@02161 1092* IOUT(ICOL)=L772 IP )@@G@@ PA110920 @K@[@@02162 1093* CALL RLIST IQ )@@G@@ PA110930 @K@[@@02163 1094*IR )@@G@@ 1940 CALL COPY (1) IS )@@G@@ PA110940 @K@[@@02164 1095* IF (MEOF.GE.0) GO TO 1920 IT )@@G@@ PA110950 @K@[@@02166 1096* IF IU )@@G@@(LCPY.EQ.KEQ) GO TO 1930 PA110960 IV )@@G@@@K@[@@02170 1097* IF (LCPY.EQ.KOPEN) NPAR=NPAR+1 IW )@@G@@ PA110970 @K@[@@02172 1098* IF (LCPY.NE.KCLIX )@@G@@OSE) GO TO 1940 PA110980 @K@[@@02174 IY )@@G@@ 1099* NPAR=NPAR-1 IZ )@@G@@ PA110990 @K@[@@02175 1100* IF (NPAR.NE.0) GO TO 1940 JA )@@G@@ PA111000 @K@[@@02177 1101* JB )@@G@@ IF (PNEXT.EQ.KAT.OR.PNEXT.EQ.KERM) GO TO 500 @ NO LIST PA1JC )@@G@@11010 @K@[@@02201 1102* GO TO 490 @ COPYJD )@@G@@ LIST PA111020 @K@[@@02201 1103* C JE )@@G@@ PA111030 @K@[@@JF )@@G@@02201 1104* C SENSE LIGHT JG )@@G@@ PA111040 @K@[@@02201 1105* C JH )@@G@@ PA111050 @K@[@@02202 1106*JI )@@G@@ 1950 CALL COPY (5) JJ )@@G@@ PA111060 @K@[@@02203 1107* ICOL=ICOL+1 JK )@@G@@ PA111070 @K@[@@02204 1108* CALJL )@@G@@L COPY (5) PA111080 JM )@@G@@@K@[@@02205 1109* GO TO 490 JN )@@G@@ PA111090 @K@[@@02205 1110* C JO )@@G@@ PA111100 @K@[@@02205 JP )@@G@@ 1111* C START EDIT CODE, START EDIT PAGE, START EDIT SOURCE JQ )@@G@@ PA111110 @K@[@@02205 1112* C JR )@@G@@ PA111120 @K@[@@02206 1113* 196JS )@@G@@0 CALL COPY (5) PA1JT )@@G@@11130 @K@[@@02207 1114* 1970 ICOL=ICOL+1 JU )@@G@@ PA111140 @K@[@@02210 1115* CALL COPYJV )@@G@@ (4) PA111150 @K@[@@JW )@@G@@02211 1116* GO TO 490 JX )@@G@@ PA111160 @K@[@@02211 1117* C JY )@@G@@ PA111170 @K@[@@02211 1118*JZ )@@G@@ C STOP EDIT CODE, STOP EDIT SOURCE. KA )@@G@@ PA111180 @K@[@@02211 1119* C KB )@@G@@ PA111190 @K@[@@02212 1120* 1980 CALKC )@@G@@L COPY (4) PA111200 KD )@@G@@@K@[@@02213 1121* GO TO 1970 KE )@@G@@ PA111210 @K@[@@02213 1122* C KF )@@G@@ PA111220 @K@[@@02213 KG )@@G@@ 1123* C STOP KH )@@G@@ PA111230 @K@[@@02213 1124* C KI )@@G@@ PA111240 @K@[@@02214 1125* 199KJ )@@G@@0 MRTAN=-1 PA1KK )@@G@@11250 @K@[@@02215 1126* MILDO=-1 KL )@@G@@ PA111260 @K@[@@02216 1127* GO TO 480KM )@@G@@ PA111270 @K@[@@KN )@@G@@02216 1128* C KO )@@G@@ PA111280 @K@[@@02216 1129* C SUBROUTINE KP )@@G@@ PA111290 @K@[@@02216 1130*KQ )@@G@@ C KR )@@G@@ PA111300 @K@[@@02217 1131* 2000 IF (.NOT.RSTART.AND.NXEQ.NE.0) GOKS )@@G@@ TO 1260 PA111310 @K@[@@02221 1132* RSTKT )@@G@@ART=.FALSE. PA111320 KU )@@G@@@K@[@@02222 1133* GO TO 1180 KV )@@G@@ PA111330 @K@[@@02222 1134* C KW )@@G@@ PA111340 @K@[@@02222 KX )@@G@@ 1135* C WRITE OUTPUT TAPE KY )@@G@@ PA111350 @K@[@@02222 1136* C KZ )@@G@@ PA111360 @K@[@@02223 1137* 201LA )@@G@@0 CALL COPY (5) @ WRITE PA1LB )@@G@@11370 @K@[@@02224 1138* ICOL=ICOL+1 LC )@@G@@ PA111380 @K@[@@02225 1139* CALL COPYLD )@@G@@ (6) @ OUTPUT PA111390 @K@[@@LE )@@G@@02226 1140* GO TO 1850 LF )@@G@@ PA111400 @K@[@@02226 1141* C LG )@@G@@ PA111410 @K@[@@02226 1142*LH )@@G@@ C WRITE TAPE LI )@@G@@ PA111420 @K@[@@02226 1143* C LJ )@@G@@ PA111430 @K@[@@02227 1144* 2020 CALLK )@@G@@L COPY (5) @ WRITE PA111440 LL )@@G@@@K@[@@02230 1145* GO TO 1880 LM )@@G@@ PA111450 @K@[@@02230 1146* C LN )@@G@@ PA111460 @K@[@@02231 LO )@@G@@ 1147* 2030 FORMAT ('1',11X,'***** INPUT TO TIDY *****') LP )@@G@@ PA111470 @K@[@@02232 1148* 2040 FORMAT (1X,I4,(T8,14A6)) LQ )@@G@@ PA111480 @K@[@@02233 1149* 205LR )@@G@@0 FORMAT (13X,3H***,10I6,3H***) PA1LS )@@G@@11490 @K@[@@02233 1150* C LT )@@G@@ PA111500 @K@[@@02233 1151* C LU )@@G@@ PA111510 @K@[@@LV )@@G@@02234 1152* SUBROUTINE BLANK LW )@@G@@ PA111520 @K@[@@02234 1153* C LX )@@G@@ PA111530 @K@[@@02234 1154*LY )@@G@@ C SUBROUTINE TO INSERT A BLANK CARD. LZ )@@G@@ PA111540 @K@[@@02234 1155* C MA )@@G@@ PA111550 @K@[@@02237 1156* IOUMB )@@G@@T(1)=KC PA111560 MC )@@G@@@K@[@@02240 1157* DO 10 I=2,7 MD )@@G@@ PA111570 @K@[@@02243 1158* 10 IOUT(I)=KBL ME )@@G@@ PA111580 @K@[@@02245 MF )@@G@@ 1159* KLASS=0 MG )@@G@@ PA111590 @K@[@@02246 1160* ITYPE=0 MH )@@G@@ PA111600 @K@[@@02247 1161* MI )@@G@@ L15=0 PA1MJ )@@G@@11610 @K@[@@02250 1162* IMAX=7 MK )@@G@@ PA111620 @K@[@@02251 1163* CALL IOSYML )@@G@@S1 (2,KILI,4) PA111630 @K@[@@MM )@@G@@02252 1164* CALL IOSYS1 (2,IOUT,7) MN )@@G@@ PA111640 @K@[@@02253 1165* NRT1=NRT1+1 MO )@@G@@ PA111650 @K@[@@02254 1166*MP )@@G@@ IOUT(1)=KBL MQ )@@G@@ PA111660 @K@[@@02255 1167* RETURN MR )@@G@@ PA111670 @K@[@@02255 1168* C MS )@@G@@ PA111680 MT )@@G@@@K@[@@02255 1169* C MU )@@G@@ PA111690 @K@[@@02256 1170* SUBROUTINE FORMMV )@@G@@AT PA111700 @K@[@@02256 MW )@@G@@ 1171* C MX )@@G@@ PA111710 @K@[@@02256 1172* C SUBROUTINE TO TRANSFER FORMMY )@@G@@AT STATEMENTS. PA111720 @K@[@@02256 1173* C MZ )@@G@@ PA1NA )@@G@@11730 @K@[@@02261 1174* IF (NBLC1.EQ.0) CALL BLANK @ INSENB )@@G@@RT LEADING BLANK IF NEEDED PA111740 @K@[@@02263 1175* IF (NRT2.NC )@@G@@LE.0) GO TO 30 PA111750 @K@[@@ND )@@G@@02265 1176* NTEMP(1)=LINE @ SAVE CURRENT INPNE )@@G@@UT LINE NUMBER PA111760 @K@[@@02266 1177* CALL IOSYS2 (1,0,0) NF )@@G@@ PA111770 @K@[@@02267 1178*NG )@@G@@ 10 CALL IOSYS2 (3,KILI,4) NH )@@G@@ PA111780 @K@[@@02270 1179* CALL IOSYS2 (3,IOUT,IMAX) NI )@@G@@ PA111790 @K@[@@02271 1180* NRTNJ )@@G@@2=NRT2-1 PA111800 NK )@@G@@@K@[@@02272 1181* LINE=ITYPE NL )@@G@@ PA111810 @K@[@@02273 1182* MILDO=-1 NM )@@G@@ PA111820 @K@[@@02274 NN )@@G@@ 1183* CALL DLIST (MERR) NO )@@G@@ PA111830 @K@[@@02275 1184* IF (MERR.NE.0) GO TO 20 NP )@@G@@ PA111840 @K@[@@02277 1185* NQ )@@G@@ CALL IOSYS1 (2,KILI,4) PA1NR )@@G@@11850 @K@[@@02300 1186* CALL IOSYS1 (2,IOUT,IMAX) NS )@@G@@ PA111860 @K@[@@02301 1187* NRT1=NRT1NT )@@G@@+1 PA111870 @K@[@@NU )@@G@@02302 1188* 20 IF (NRT2.GT.0) GO TO 10 NV )@@G@@ PA111880 @K@[@@02304 1189* CALL IOSYS2 (0,0,0) NW )@@G@@ PA111890 @K@[@@02305 1190*NX )@@G@@ LINE=NTEMP(1) @ RESTORE CURRENT INPUT LINE NUMBERNY )@@G@@ PA111900 @K@[@@02306 1191* CALL BLANK NZ )@@G@@@ INSERT A BLANK CARD PA111910 @K@[@@02307 1192* 30 RETOA )@@G@@URN PA111920 OB )@@G@@@K@[@@02307 1193* C OC )@@G@@ PA111930 @K@[@@02310 1194* END OD )@@G@@ PA111940 @D@]@@ OE )@@G@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P PASS2 OF )@@G@@0 H, ,1, PASS2 . @L^@^__@@@FOR,S PASS2,PASS2 @E@[@@OG )@@G@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:31:30. @@@[@@@@@[@@OH )@@G@@@B@[@@ SUBROUTINE PASS2 ENTRY POINT 000363@@@[@@@G@]@@ STORAGE UOI )@@G@@SED: CODE(1) 000373; DATA(0) 000051; BLANK COMMON(2) 012611 @#@]@@ COOJ )@@G@@MMON BLOCKS:@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 INIT OK )@@G@@000013@^@[@@ 0005 KST 001270@^@[@@ 0006 LIOS 000004@^@[@@OL )@@G@@ 0007 TAPES 000016@^@[@@ 0010 WORK 001673@A@#@@ EXTERNAL OM )@@G@@REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0011 IOSYS1 @#@[@@ 0012 KON )@@G@@IMPAK @#@[@@ 0013 ELTW @#@[@@ 0014 IOERR @#@[@@ 0015 TOO )@@G@@ERM @#@[@@ 0016 RENUM @#@[@@ 0017 NWDU$ @#@[@@ 0020 NOP )@@G@@IO2$ @#@[@@ 0021 NERR2$ @#@[@@ 0022 NIO1$ @#@[@@ 0023 NOQ )@@G@@ERR6$ @#@[@@ 0024 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE,OR )@@G@@ RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000014 10L 00OS )@@G@@01 000247 100L 0001 000273 120L 0001 000314 140L 00OT )@@G@@01 000330 150L @O@[@@ 0001 000333 160L 0001 000346 170L OU )@@G@@ 0000 000004 180F 0000 000013 190F 0001 000031 202G OV )@@G@@@O@[@@ 0001 000114 222G 0001 000141 231G 0001 000162 OW )@@G@@241G 0001 000101 30L 0001 000260 303G @O@[@@ 0001 0OX )@@G@@00173 50L 0001 000221 70L 0001 000230 80L 0001 0OY )@@G@@00233 90L 0004 000012 DHDG @O@[@@ 0004 000000 DIAG 00OZ )@@G@@10 000000 ECYC 0013 I 000000 ELTW 0010 001026 FILE 00PA )@@G@@00 I 000001 I @O@[@@ 0002 I 000000 ICOL 0000 I 000003 ICW PB )@@G@@ 0002 000001 IFIR 0006 I 000003 IMAX 0004 L 000001 INDENTPC )@@G@@@O@[@@ 0000 000032 INJP$ 0002 000002 INPUT 0002 I 000450 PD )@@G@@IOUT 0007 000000 IO1 0007 000001 IO2 @O@[@@ 0000 I 0PE )@@G@@00000 IP 0006 I 000001 ITYPE 0000 I 000002 J 0007 0PF )@@G@@00002 JALTFD 0002 I 003127 JCOL @O@[@@ 0002 I 003130 JINT 00PG )@@G@@02 I 005607 JMAX 0007 I 000003 JOUT 0003 000013 KA 00PH )@@G@@03 I 000013 KABC @O@[@@ 0003 000061 KAND 0003 000062 KAT PI )@@G@@ 0003 000014 KB 0003 I 000000 KBL 0000 000016 KBUFF PJ )@@G@@@O@[@@ 0000 000016 KB1 0002 005610 KB15 0000 000023 PK )@@G@@KB6 0003 000015 KC 0003 000051 KCLOSE@O@[@@ 0003 0PL )@@G@@00046 KCOMMA 0003 000016 KD 0003 000057 KDASH 0003 0PM )@@G@@00001 KDIG 0003 000056 KDOLAR@O@[@@ 0002 005611 KD15 00PN )@@G@@03 000017 KE 0003 000045 KEQ 0003 000064 KERM 00PO )@@G@@03 000020 KF @O@[@@ 0003 000021 KG 0003 000022 KH PP )@@G@@ 0003 000023 KI 0006 I 000000 KILI 0002 003130 KIM PQ )@@G@@@O@[@@ 0003 000024 KJ 0003 000025 KK 0003 000026 PR )@@G@@KL 0006 I 000000 KLASS 0003 I 000063 KLR2 @O@[@@ 0003 0PS )@@G@@00027 KM 0003 000053 KMINUS 0003 000030 KN 0003 0PT )@@G@@00031 KO 0003 000047 KOPEN @O@[@@ 0002 000450 KOUT 00PU )@@G@@03 000032 KP 0003 000055 KPERD 0003 000052 KPLUS 00PV )@@G@@03 000033 KQ @O@[@@ 0003 000060 KQUOTE 0003 000034 KR PW )@@G@@ 0003 000035 KS 0003 000050 KSLASH 0003 000045 KSPK PX )@@G@@@O@[@@ 0003 000054 KSTAR 0005 000000 KSTIJ 0003 000036 PY )@@G@@KT 0003 000037 KU 0003 000040 KV @O@[@@ 0003 0PZ )@@G@@00041 KW 0003 000042 KX 0003 000043 KY 0003 0QA )@@G@@00044 KZ 0003 000001 K0 @O@[@@ 0002 005613 LAST 00QB )@@G@@10 000001 LATEST 0002 005614 LCPY 0002 I 005615 LDEF 00QC )@@G@@04 L 000002 LDIAG @O@[@@ 0002 I 010551 LDO 0002 010602 LFIR QD )@@G@@ 0004 000003 LINE 0004 000004 LOPT 0002 010603 LQUAL QE )@@G@@@O@[@@ 0002 010604 LREF 0006 I 000002 L15 0002 I 005612 QF )@@G@@L772 0002 012554 MCOL 0002 012555 MEOF @O@[@@ 0002 0QG )@@G@@12556 MEX 0002 012557 MILDO 0002 012560 MLGC 0002 I 0QH )@@G@@12561 MP2 0002 012562 MSTOP @O@[@@ 0002 012563 MTRAN 00QI )@@G@@02 012564 NBLC 0002 I 012565 NCD 0002 012566 NCDO 00QJ )@@G@@02 012567 NDEF @O@[@@ 0002 012570 NDOL 0002 012571 NDOS QK )@@G@@ 0002 012572 NINS 0010 000002 NOSPC1 0002 012573 NPAR QL )@@G@@@O@[@@ 0002 I 012574 NPUN 0002 I 012575 NREC 0002 012576 QM )@@G@@NREF 0002 I 012577 NRT1 0002 012600 NRT2 @O@[@@ 0004 L 0QN )@@G@@00005 NSTART 0002 012601 NTEMP 0002 012606 NXEQ 0002 I 0QO )@@G@@03130 OUTPUT 0002 012607 PAREN @O@[@@ 0002 012610 PNEXT 00QP )@@G@@04 L 000006 RIGHT 0004 L 000007 RSTART 0004 I 000010 SOPT 00QQ )@@G@@04 L 000011 SOURCE@K@[@@ 0010 000737 TIDYC 0007 000004 USE QR )@@G@@ 0010 000003 WORK1 0010 I 000737 WORK2 @@@^@@@K@[@@00101 1*QS )@@G@@ SUBROUTINE PASS2 QT )@@G@@ PA200010 @K@[@@00101 2* C QU )@@G@@ PA200020 @K@[@@00101 3* C THIQV )@@G@@S ROUTINE READS THE DATA GENERATED BY PASS1 AND PRINTS AND PA200030 QW )@@G@@@K@[@@00101 4* C PUNCHES THE RENUMBERED DECK. QX )@@G@@ PA200040 @K@[@@00101 5* C UNNUMBERED CONTQY )@@G@@INUE AND FORMAT STATEMENTS ARE DELETED WITHOUT PA200050 @K@[@@00101 QZ )@@G@@ 6* C A DIAGNOSTIC. RA )@@G@@ PA200060 @K@[@@00101 7* C RB )@@G@@ PA200070 @K@[@@00103 8* RC )@@G@@ INCLUDE TIDY, LIST PA2RD )@@G@@00080 @K@[@@00104 8* IMPLICIT INTEGER (A-Z) RE )@@G@@ PRO00020 @K@[@@00105 8* PARAMETERRF )@@G@@ CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@RG )@@G@@00106 8* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPRH )@@G@@S PRO00040 @K@[@@00107 8* PARAMETER MAXCHS=1327RI )@@G@@ @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 8*RJ )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS RK )@@G@@ PRO00060 @K@[@@00111 8* COMMON ICOL, IFIR, INPUT(14,21), RL )@@G@@IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 8* 1 RM )@@G@@ JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 RN )@@G@@@K@[@@00111 8* 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCORO )@@G@@L, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 8* 3 MLGC, MPRP )@@G@@2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 RQ )@@G@@ 8* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTRR )@@G@@EMP(5), PRO00110 @K@[@@00111 8* 5 NXEQ, PAREN, PNEXT RS )@@G@@ PRO00120 @K@[@@00112 8* RT )@@G@@ DIMENSION KIM(CRDLNG,20) PRORU )@@G@@00130 @K@[@@00113 8* DIMENSION KOUT(CRDLNG,20) RV )@@G@@ PRO00140 @K@[@@00114 8* DIMENSIONRW )@@G@@ OUTPUT(12,20) PRO00150 @K@[@@RX )@@G@@00115 8* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) RY )@@G@@ PRO00160 @K@[@@00116 8* EQUIVALENCE (KDIG(1),RZ )@@G@@K0) PRO00170 @K@[@@00117 8*SA )@@G@@ EQUIVALENCE (IOUT,KOUT) SB )@@G@@ PRO00180 @K@[@@00120 8* EQUIVALENCE (JINT,KIM) SC )@@G@@ PRO00190 @K@[@@00121 8* EQUSD )@@G@@IVALENCE (JINT,OUTPUT) PRO00200 SE )@@G@@@K@[@@00122 8* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) SF )@@G@@ PRO00210 @K@[@@00123 8* DEFINE DSTMT(X)SG )@@G@@=FLD(18,18,LDEF(X)) PRO00220 @K@[@@00124 SH )@@G@@ 8* DEFINE LDOS(X)=FLD(0,18,LDO(X)) SI )@@G@@ PRO00230 @K@[@@00125 8* DEFINE LDOL(X)=FLD(18,18,LDSJ )@@G@@O(X)) PRO00240 @K@[@@00125 8* ENSK )@@G@@D PROSL )@@G@@00250 @K@[@@00126 9* INCLUDE ALPHA, LIST SM )@@G@@ PA200090 @K@[@@00127 9* COMMON /ASN )@@G@@LPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@SO )@@G@@00127 9* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,SP )@@G@@KY,KZ, PRO00280 @K@[@@00127 9* 2 KEQ,KCSQ )@@G@@OMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 9*SR )@@G@@ 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM SS )@@G@@ PRO00300 @K@[@@00130 9* DIMENSION KABC(26), KSPK(14) ST )@@G@@ PRO00310 @K@[@@00131 9* EQUSU )@@G@@IVALENCE (KABC,KA), (KSPK,KEQ) PRO00320 SV )@@G@@@K@[@@00131 9* END SW )@@G@@ PRO00330 @K@[@@00132 10* INCLUDE INIT, LSX )@@G@@IST PA200100 @K@[@@00133 SY )@@G@@ 10* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSSZ )@@G@@TART, PRO00440 @K@[@@00133 10* 1 SOPT,SOURCE,DTA )@@G@@HDG PRO00450 @K@[@@00134 10* TB )@@G@@ LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE PROTC )@@G@@00460 @K@[@@00135 10* LOGICAL RIGHT TD )@@G@@ PRO00470 @K@[@@00135 10* END TE )@@G@@ PRO00480 @K@[@@TF )@@G@@00136 11* INCLUDE KST, LIST TG )@@G@@ PA200110 @K@[@@00137 11* PARAMETER NOIDS=58 @ TH )@@G@@NUMBER OF FORTRAN DIRECTIVES PRO00530 @K@[@@00140 11*TI )@@G@@ PARAMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUE STATEMENT TJ )@@G@@ PRO00540 @K@[@@00141 11* PARAMETER IDDELE=13 @ INDEX INTO TK )@@G@@KSTIJ FOR DELETE DIRECTIVE PRO00550 @K@[@@00142 11* PARTL )@@G@@AMETER IDEND=19 @ INDEX INTO KSTIJ FOR END STATEMENT PRO00560 TM )@@G@@@K@[@@00143 11* PARAMETER IDFUNC=24 @ KSTIJ INDEX FOR FUNCTIOTN )@@G@@N STATEMENT PRO00570 @K@[@@00144 11* PARAMETER IGOTOTO )@@G@@N=26 @ INDEX INTO KSTIJ FOR GO TO N STATEMENT PRO00580 @K@[@@00145 TP )@@G@@ 11* PARAMETER IDSTOP=53 @ INDEX INTO KSTIJ FOR STOP STATEMENTTQ )@@G@@ PRO00590 @K@[@@00146 11* COMMON /KST/ KSTIJ(12,NOIDSTR )@@G@@) PRO00600 @K@[@@00146 11* ENTS )@@G@@D PROTT )@@G@@00610 @K@[@@00147 12* INCLUDE LIOS, LIST TU )@@G@@ PA200120 @K@[@@00150 12* COMMON /LTV )@@G@@IOS/ KLASS, ITYPE, L15, IMAX PRO00630 @K@[@@TW )@@G@@00151 12* DIMENSION KILI(4) TX )@@G@@ PRO00640 @K@[@@00152 12* EQUIVALENCE (KLASS,KITY )@@G@@LI) PRO00650 @K@[@@00152 12*TZ )@@G@@ END UA )@@G@@ PRO00660 @K@[@@00153 13* INCLUDE TAPES, LIST UB )@@G@@ PA200130 @K@[@@00154 13* COMUC )@@G@@MON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) PRO00680 UD )@@G@@@K@[@@00155 13* PARAMETER STDRD=5 @ STANDARD READ UNIT UE )@@G@@ PRO00690 @K@[@@00156 13* PARAMETER STDPRUF )@@G@@T=6 @ STANDARD PRINT UNIT PRO00700 @K@[@@00157 UG )@@G@@ 13* PARAMETER STDALT=101 @ STANDARD ALTERNATE PRINT UNIT UH )@@G@@ PRO00710 @K@[@@00157 13* END UI )@@G@@ PRO00720 @K@[@@00160 14* UJ )@@G@@ INCLUDE WORK, LIST PA2UK )@@G@@00140 @K@[@@00160 15* C UL )@@G@@ PA200150 @K@[@@00161 15* PARAMETERUM )@@G@@ LTIDY=55 PRO00740 @K@[@@UN )@@G@@00162 15* PARAMETER LTIDY1=LTIDY+1 UO )@@G@@ PRO00750 @K@[@@00163 15* COMMON /WORK/ ECYC, LUP )@@G@@ATEST, NOSPC1, WORK1(476), WORK2(476) PRO00760 @K@[@@00164 15*UQ )@@G@@ DIMENSION TIDYC(LTIDY) UR )@@G@@ PRO00770 @K@[@@00165 15* DIMENSION FILE(15) US )@@G@@ PRO00780 @K@[@@00166 15* EQUUT )@@G@@IVALENCE (WORK2,TIDYC), (WORK2(LTIDY1),FILE) PRO00790 UU )@@G@@@K@[@@00166 15* END UV )@@G@@ PRO00800 @K@[@@00167 16* IF (SOPT.NE.0) UW )@@G@@WRITE (JOUT,180) @ HEADING PA200160 @K@[@@00172 UX )@@G@@ 17* IF (MP2.EQ.0) GO TO 170 UY )@@G@@ PA200170 @K@[@@00174 18* NREC=0 UZ )@@G@@ PA200180 @K@[@@00175 19* VA )@@G@@ IP=1326 PA2VB )@@G@@00190 @K@[@@00176 20* 10 IF (NRT1.LE.0) GO TO 170 VC )@@G@@ PA200200 @K@[@@00200 21* CALL IOSYVD )@@G@@S1 (3,KILI,4) PA200210 @K@[@@VE )@@G@@00201 22* DO 20 I=1,IP VF )@@G@@ PA200220 @K@[@@00204 23* 20 IOUT(I)=KBL VG )@@G@@ PA200230 @K@[@@00206 24*VH )@@G@@ IF (IMAX.LE.0) GO TO 160 @ END STATEMENT VI )@@G@@ PA200240 @K@[@@00210 25* CALL IOSYS1 (3,IOUT,IMAX) VJ )@@G@@ PA200250 @K@[@@00211 26* NRTVK )@@G@@1=NRT1-1 PA200260 VL )@@G@@@K@[@@00212 27* IF (NREC.LT.0.OR.KLASS.LT.0) GO TO 10 VM )@@G@@ PA200270 @K@[@@00212 28* C CHECK KLASS FORVN )@@G@@ COMMENT. (KLASS=0) PA200280 @K@[@@00214 VO )@@G@@ 29* IF (KLASS.EQ.0) GO TO 30 VP )@@G@@ PA200290 @K@[@@00214 30* C VQ )@@G@@ PA200300 @K@[@@00216 31* VR )@@G@@ GO TO (90,70,90,100,90), KLASS PA2VS )@@G@@00310 @K@[@@00216 32* C VT )@@G@@ PA200320 @K@[@@00216 33* C PRINT (PUVU )@@G@@NCH) NEW STATEMENT. PA200330 @K@[@@VV )@@G@@00216 34* C VW )@@G@@ PA200340 @K@[@@00217 35* 30 CALL KIMPAK VX )@@G@@ PA200350 @K@[@@00220 36*VY )@@G@@ IP=NCD*66+6 VZ )@@G@@ PA200360 @K@[@@00221 37* DO 60 J=1,NCD WA )@@G@@ PA200370 @K@[@@00224 38* NPUWB )@@G@@N=NPUN+1 PA200380 WC )@@G@@@K@[@@00225 39* IF (SOPT.NE.0) WRITE (JOUT,190) NPUN,(OUTPUT(WD )@@G@@I,J),I=1,12) PA200390 @K@[@@00235 40* I=12 WE )@@G@@ PA200400 @K@[@@00236 WF )@@G@@ 41* IF (J.NE.NCD) GO TO 50 WG )@@G@@ PA200410 @K@[@@00240 42* DO 40 I=12,1 WH )@@G@@ PA200420 @K@[@@00243 43* 40 WI )@@G@@ IF (OUTPUT(I,J).NE.KBL) GO TO 50 PA2WJ )@@G@@00430 @K@[@@00246 44* I=0 WK )@@G@@ PA200440 @K@[@@00247 45* 50 FLD(6,6,IWL )@@G@@CW)=I PA200450 @K@[@@WM )@@G@@00250 46* 60 I=ELTW(WORK2,OUTPUT(1,J),ICW) WN )@@G@@ PA200460 @K@[@@00252 47* IF (I.EQ.0) GO TO 10 WO )@@G@@ PA200470 @K@[@@00254 48*WP )@@G@@ CALL IOERR (-1,I) @ I/O ERROR ON OUTPUT WQ )@@G@@ PA200480 @K@[@@00255 49* CALL TERM WR )@@G@@ PA200490 @K@[@@00256 50* RETWS )@@G@@URN 0 PA200500 WT )@@G@@@K@[@@00256 51* C WU )@@G@@ PA200510 @K@[@@00256 52* C KLASS 2 (FORMAWV )@@G@@T) PA200520 @K@[@@00256 WW )@@G@@ 53* C WX )@@G@@ PA200530 @K@[@@00257 54* 70 L772=L15 WY )@@G@@ PA200540 @K@[@@00260 55* WZ )@@G@@ ICOL=0 PA2XA )@@G@@00550 @K@[@@00261 56* CALL RENUM XB )@@G@@ PA200560 @K@[@@00262 57* IF (L772)XC )@@G@@ 30,80,30 PA200570 @K@[@@XD )@@G@@00265 58* 80 IP=IMAX XE )@@G@@ PA200580 @K@[@@00266 59* GO TO 10 XF )@@G@@ PA200590 @K@[@@00266 60*XG )@@G@@ C XH )@@G@@ PA200600 @K@[@@00266 61* C KLASS 3. (STATEMENT NUMBER, NO RXI )@@G@@EFERENCES.) PA200610 @K@[@@00266 62* C XJ )@@G@@ PA200620 XK )@@G@@@K@[@@00267 63* 90 L772=L15 XL )@@G@@ PA200630 @K@[@@00270 64* ICOL=0 XM )@@G@@ PA200640 @K@[@@00271 XN )@@G@@ 65* CALL RENUM XO )@@G@@ PA200650 @K@[@@00272 66* IF (L772.NE.0) GO TO 30 XP )@@G@@ PA200660 @K@[@@00274 67* XQ )@@G@@ IF (ITYPE.EQ.IDCONT) GO TO 80 @ ELIMINATE NON-REFERENCED CONTINPA2XR )@@G@@00670 @K@[@@00276 68* GO TO 30 XS )@@G@@ PA200680 @K@[@@00276 69* C XT )@@G@@ PA200690 @K@[@@XU )@@G@@00276 70* C KLASS 4 (STATEMENT NUMBERS AND REFERENCES.) XV )@@G@@ PA200700 @K@[@@00276 71* C XW )@@G@@ PA200710 @K@[@@00277 72*XX )@@G@@ 100 L772=L15 XY )@@G@@ PA200720 @K@[@@00300 73* ICOL=0 XZ )@@G@@ PA200730 @K@[@@00301 74* CALYA )@@G@@L RENUM PA200740 YB )@@G@@@K@[@@00302 75* DO 110 I=7,IMAX YC )@@G@@ PA200750 @K@[@@00305 76* JINT(I)=IOUT(I)YD )@@G@@ PA200760 @K@[@@00306 YE )@@G@@ 77* 110 IOUT(I)=KBL YF )@@G@@ PA200770 @K@[@@00310 78* ICOL=6 YG )@@G@@ PA200780 @K@[@@00311 79* YH )@@G@@ JCOL=7 PA2YI )@@G@@00790 @K@[@@00312 80* JMAX=IMAX YJ )@@G@@ PA200800 @K@[@@00313 81* 120 IF (JINT(YK )@@G@@JCOL)-KLR2) 130,140,130 PA200810 @K@[@@YL )@@G@@00316 82* 130 ICOL=ICOL+1 YM )@@G@@ PA200820 @K@[@@00317 83* IOUT(ICOL)=JINT(JCOL)YN )@@G@@ PA200830 @K@[@@00320 84*YO )@@G@@ JCOL=JCOL+1 YP )@@G@@ PA200840 @K@[@@00321 85* IF (JCOL-JMAX) 120,120,150 YQ )@@G@@ PA200850 @K@[@@00324 86* 140 L77YR )@@G@@2=JINT(JCOL+1) PA200860 YS )@@G@@@K@[@@00325 87* JCOL=JCOL+2 YT )@@G@@ PA200870 @K@[@@00326 88* CALL RENUM YU )@@G@@ PA200880 @K@[@@00327 YV )@@G@@ 89* IF (JCOL-JMAX) 120,120,150 YW )@@G@@ PA200890 @K@[@@00332 90* 150 IMAX=ICOL YX )@@G@@ PA200900 @K@[@@00333 91* YY )@@G@@ GO TO 30 PA2YZ )@@G@@00910 @K@[@@00333 92* C ZA )@@G@@ PA200920 @K@[@@00333 93* C KLASS 5. ZB )@@G@@ (END) PA200930 @K@[@@ZC )@@G@@00333 94* C ZD )@@G@@ PA200940 @K@[@@00334 95* 160 NCD=1 ZE )@@G@@ PA200950 @K@[@@00335 96*ZF )@@G@@ IOUT(7)=KABC(5) ZG )@@G@@ PA200960 @K@[@@00336 97* IOUT(8)=KABC(14) ZH )@@G@@ PA200970 @K@[@@00337 98* IOUZI )@@G@@T(9)=KABC(4) PA200980 ZJ )@@G@@@K@[@@00340 99* IMAX=10 ZK )@@G@@ PA200990 @K@[@@00341 100* GO TO 30 ZL )@@G@@ PA201000 @K@[@@00341 ZM )@@G@@ 101* C ZN )@@G@@ PA201010 @K@[@@00342 102* 170 CONTINUE ZO )@@G@@ PA201020 @K@[@@00343 103* ZP )@@G@@ RETURN PA2ZQ )@@G@@01030 @K@[@@00343 104* C ZR )@@G@@ PA201040 @K@[@@00343 105* C ZS )@@G@@ PA201050 @K@[@@ZT )@@G@@00344 106* 180 FORMAT ('1',11X,'***** TIDYED PROGRAM *****') ZU )@@G@@ PA201060 @K@[@@00345 107* 190 FORMAT (1X,I4,1X,12A6ZV )@@G@@) PA201070 @K@[@@00345 108*ZW )@@G@@ C ZX )@@G@@ PA201080 @K@[@@00346 109* END ZY )@@G@@ PA201090 @D@]@@ END OF COMPILATIOZZ )@@G@@N: NO DIAGNOSTICS. @#@^@@@HDG,P RDIR 0 + H, ,1,AA )@@G@@ RDIR . @L^@^__@@@FOR,S RDIR,RDIR @E@[@@CYCLE 000 COMPILEDAB )@@G@@ BY 1201 S7E-A ON 27 AUG 72 AT 19:31:56. @@@[@@@@@[@@@B@[@@ SUBROUTINAC )@@G@@E RDIR ENTRY POINT 000161@@@[@@@G@]@@ STORAGE USED: CODE(1) 00016AD )@@G@@7; DATA(0) 000071; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@AE )@@G@@@^@[@@ 0003 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)AF )@@G@@@@@[@@@#@[@@ 0004 NWDU$ @#@[@@ 0005 NIO2$ @#@[@@ 0006 NAG )@@G@@IO1$ @#@[@@ 0007 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE,AH )@@G@@ RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000021 140G 00AI )@@G@@01 000045 152G 0001 000075 172G 0001 000031 20L 00AJ )@@G@@01 000064 40L @O@[@@ 0001 000071 50L 0000 000013 70F AK )@@G@@ 0000 000037 80F 0000 I 000000 I 0002 000000 ICOL AL )@@G@@@O@[@@ 0002 000001 IFIR 0000 000060 INJP$ 0002 000002 AM )@@G@@INPUT 0002 000450 IOUT 0003 000000 IO1 @O@[@@ 0003 0AN )@@G@@00001 IO2 0000 I 000003 J 0003 000002 JALTFD 0002 0AO )@@G@@03127 JCOL 0002 I 003130 JINT @O@[@@ 0002 005607 JMAX 00AP )@@G@@03 I 000003 JOUT 0000 I 000004 K 0000 000051 KBUFF 00AQ )@@G@@00 000051 KB1 @O@[@@ 0002 I 005610 KB15 0000 000056 KB6 AR )@@G@@ 0000 000057 KDIG 0002 I 005611 KD15 0002 003130 KIM AS )@@G@@@O@[@@ 0002 000450 KOUT 0000 000057 K0 0002 005613 AT )@@G@@LAST 0002 005614 LCPY 0002 I 005615 LDEF @O@[@@ 0002 I 0AU )@@G@@10551 LDO 0002 010602 LFIR 0000 I 000007 LO1 0000 I 0AV )@@G@@00012 LO2 0002 010603 LQUAL @O@[@@ 0002 010604 LREF 00AW )@@G@@02 005612 L772 0000 I 000001 M 0002 012554 MCOL 00AX )@@G@@02 012555 MEOF @O@[@@ 0002 012556 MEX 0002 012557 MILDO AY )@@G@@ 0002 012560 MLGC 0002 012561 MP2 0002 012562 MSTOP AZ )@@G@@@O@[@@ 0002 012563 MTRAN 0002 012564 NBLC 0002 012565 BA )@@G@@NCD 0002 012566 NCDO 0002 I 012567 NDEF @O@[@@ 0002 0BB )@@G@@12570 NDOL 0002 012571 NDOS 0002 012572 NINS 0000 I 0BC )@@G@@00006 NO1 0000 I 000011 NO2 @O@[@@ 0002 012573 NPAR 00BD )@@G@@02 012574 NPUN 0000 I 000002 NR 0002 012575 NREC 00BE )@@G@@02 012576 NREF @O@[@@ 0002 012577 NRT1 0002 012600 NRT2 BF )@@G@@ 0002 012601 NTEMP 0000 I 000005 NW1 0000 I 000010 NW2 BG )@@G@@@O@[@@ 0002 012606 NXEQ 0002 003130 OUTPUT 0002 012607 BH )@@G@@PAREN 0002 012610 PNEXT 0003 000004 USE @@@^@@@K@[@@00101 BI )@@G@@ 1* SUBROUTINE RDIR BJ )@@G@@ RDI00010 @K@[@@00101 2* C BK )@@G@@ RDI00020 @K@[@@00101 3* C BL )@@G@@ THIS SUBROUTINE GENERATES A REFERENCE DIRECTORY OF STATEMENT RDIBM )@@G@@00030 @K@[@@00101 4* C NUMBERS SHOWING THE OLD STATEMENT NUMBEBN )@@G@@R, ITS LOCATION IN THE RDI00040 @K@[@@00101 5* C ROUTINE, BO )@@G@@AND THE NEW STATEMENT NUMBER GENERATED BY TIDY. RDI00050 @K@[@@BP )@@G@@00101 6* C BQ )@@G@@ RDI00060 @K@[@@00103 7* INCLUDE TIDY, LIST BR )@@G@@ RDI00070 @K@[@@00104 7*BS )@@G@@ IMPLICIT INTEGER (A-Z) BT )@@G@@ PRO00020 @K@[@@00105 7* PARAMETER CRDLNG=66 @ MAXIMUM NO.BU )@@G@@ OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 7* PARBV )@@G@@AMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 BW )@@G@@@K@[@@00107 7* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS.BX )@@G@@ IN A STATEMENT PRO00050 @K@[@@00110 7* PARAMETER DEFLNBY )@@G@@G=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 BZ )@@G@@ 7* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINTCA )@@G@@(MAXCHS),PRO00070 @K@[@@00111 7* 1 JMAX, KB15, KD15, L7CB )@@G@@72, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 7* CC )@@G@@ 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PROCD )@@G@@00090 @K@[@@00111 7* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCE )@@G@@CD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 7* 4 NDCF )@@G@@OS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@CG )@@G@@00111 7* 5 NXEQ, PAREN, PNEXT CH )@@G@@ PRO00120 @K@[@@00112 7* DIMENSION KIM(CRDLNG,CI )@@G@@20) PRO00130 @K@[@@00113 7*CJ )@@G@@ DIMENSION KOUT(CRDLNG,20) CK )@@G@@ PRO00140 @K@[@@00114 7* DIMENSION OUTPUT(12,20) CL )@@G@@ PRO00150 @K@[@@00115 7* EQUCM )@@G@@IVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PRO00160 CN )@@G@@@K@[@@00116 7* EQUIVALENCE (KDIG(1),K0) CO )@@G@@ PRO00170 @K@[@@00117 7* EQUIVALENCE (IOCP )@@G@@UT,KOUT) PRO00180 @K@[@@00120 CQ )@@G@@ 7* EQUIVALENCE (JINT,KIM) CR )@@G@@ PRO00190 @K@[@@00121 7* EQUIVALENCE (JINT,OUTPUT) CS )@@G@@ PRO00200 @K@[@@00122 7* CT )@@G@@ DEFINE DLOC(X)=FLD(0,18,LDEF(X)) PROCU )@@G@@00210 @K@[@@00123 7* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) CV )@@G@@ PRO00220 @K@[@@00124 7* DEFINE LDCW )@@G@@OS(X)=FLD(0,18,LDO(X)) PRO00230 @K@[@@CX )@@G@@00125 7* DEFINE LDOL(X)=FLD(18,18,LDO(X)) CY )@@G@@ PRO00240 @K@[@@00125 7* END CZ )@@G@@ PRO00250 @K@[@@00126 8*DA )@@G@@ INCLUDE TAPES, LIST DB )@@G@@ RDI00080 @K@[@@00126 9* C DC )@@G@@ RDI00090 @K@[@@00126 10* C DD )@@G@@ RDI00100 DE )@@G@@@K@[@@00127 10* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (1DF )@@G@@0) PRO00680 @K@[@@00130 10* PARAMETER STDRDDG )@@G@@=5 @ STANDARD READ UNIT PRO00690 @K@[@@00131 DH )@@G@@ 10* PARAMETER STDPRT=6 @ STANDARD PRINT UNIT DI )@@G@@ PRO00700 @K@[@@00132 10* PARAMETER STDALT=101 @ STANDJ )@@G@@DARD ALTERNATE PRINT UNIT PRO00710 @K@[@@00132 10* ENDK )@@G@@D PRODL )@@G@@00720 @K@[@@00133 11* IF (NDEF.LT.1) RETURN DM )@@G@@ RDI00110 @K@[@@00135 12* WRITE (JODN )@@G@@UT,70) RDI00120 @K@[@@DO )@@G@@00137 13* DO 10 I=1,NDEF DP )@@G@@ RDI00130 @K@[@@00142 14* 10 JINT(I)=I DQ )@@G@@ RDI00140 @K@[@@00142 15*DR )@@G@@ C DS )@@G@@ RDI00150 @K@[@@00142 16* C ADDRESS-SORT STATEMENT NUMBERS DT )@@G@@ RDI00160 @K@[@@00142 17* C DU )@@G@@ RDI00170 DV )@@G@@@K@[@@00144 18* M=NDEF+1 DW )@@G@@ RDI00180 @K@[@@00145 19* 20 NR=0 DX )@@G@@ RDI00190 @K@[@@00146 DY )@@G@@ 20* IF (M.LT.3) GO TO 50 DZ )@@G@@ RDI00200 @K@[@@00150 21* M=M-1 EA )@@G@@ RDI00210 @K@[@@00151 22* EB )@@G@@ DO 40 I=2,M RDIEC )@@G@@00220 @K@[@@00154 23* J=JINT(I-1) ED )@@G@@ RDI00230 @K@[@@00155 24* K=JINT(I)EE )@@G@@ RDI00240 @K@[@@EF )@@G@@00156 25* IF (DSTMT(J)-DSTMT(K)) 40,40,30 EG )@@G@@ RDI00250 @K@[@@00161 26* 30 JINT(I-1)=K EH )@@G@@ RDI00260 @K@[@@00162 27*EI )@@G@@ JINT(I)=J EJ )@@G@@ RDI00270 @K@[@@00163 28* NR=-1 EK )@@G@@ RDI00280 @K@[@@00164 29* 40 CONEL )@@G@@TINUE RDI00290 EM )@@G@@@K@[@@00166 30* IF (NR) 20,50,50 EN )@@G@@ RDI00300 @K@[@@00166 31* C EO )@@G@@ RDI00310 @K@[@@00166 EP )@@G@@ 32* C PRINT DIRECTORY EQ )@@G@@ RDI00320 @K@[@@00166 33* C ER )@@G@@ RDI00330 @K@[@@00171 34* 50 ES )@@G@@ DO 60 I=1,NDEF RDIET )@@G@@00340 @K@[@@00174 35* NW1=KD15*(I-1)+KB15 EU )@@G@@ RDI00350 @K@[@@00175 36* NO1=DSTMTEV )@@G@@(I) RDI00360 @K@[@@EW )@@G@@00176 37* LO1=DLOC(I) EX )@@G@@ RDI00370 @K@[@@00177 38* J=JINT(I) EY )@@G@@ RDI00380 @K@[@@00200 39*EZ )@@G@@ NW2=KD15*(J-1)+KB15 FA )@@G@@ RDI00390 @K@[@@00201 40* NO2=DSTMT(J) FB )@@G@@ RDI00400 @K@[@@00202 41* LO2FC )@@G@@=DLOC(J) RDI00410 FD )@@G@@@K@[@@00203 42* WRITE (JOUT,80) NW1,NO1,LO1,NO2,LO2,NW2 FE )@@G@@ RDI00420 @K@[@@00213 43* 60 CONTINUE FF )@@G@@ RDI00430 @K@[@@00215 FG )@@G@@ 44* RETURN FH )@@G@@ RDI00440 @K@[@@00215 45* C FI )@@G@@ RDI00450 @K@[@@00216 46* 70 FJ )@@G@@ FORMAT ('1',32X,'STATEMENT NUMBER DIRECTORY'/'0',22X,'NEW',5X,'OLDRDIFK )@@G@@00460 @K@[@@00216 47* 1',3X,'LOC',12X,'OLD',3X,'LOC',6X,'NEW'/FL )@@G@@1X) RDI00470 @K@[@@00217 48* 80 FORMAT (2FM )@@G@@1X,I5,3H = ,I5,2H,(,I4,2H).,8X,I5,2H,(,I4,4H) = ,I5,1H.) RDI00480 @K@[@@FN )@@G@@00217 49* C FO )@@G@@ RDI00490 @K@[@@00220 50* END FP )@@G@@ RDI00500 @D@]@@ END OFQ )@@G@@F COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P RENUM 0 )=FNFR )@@G@@ H, ,1, RENUM . @L^@^__@@@FOR,S RENUM,RENUM @E@[@@CYCLE FS )@@G@@000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:32:26. @@@[@@@@@[@@@B@[@@FT )@@G@@ SUBROUTINE RENUM ENTRY POINT 000124@@@[@@@G@]@@ STORAGE USED: CFU )@@G@@ODE(1) 000132; DATA(0) 000026; BLANK COMMON(2) 012611 @#@]@@ COMMON BFV )@@G@@LOCKS:@@@[@@@^@[@@ 0003 ALPHA 000065@^@[@@ 0004 INIT 000013FW )@@G@@@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0005 NERR3$ FX )@@G@@@F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) FY )@@G@@@@@[@@@O@[@@ 0001 000003 10L 0001 000012 143G 0001 0FZ )@@G@@00040 155G 0001 000005 20L 0001 000010 30L @O@[@@ 00GA )@@G@@01 000030 50L 0001 000065 70L 0001 000074 80L 00GB )@@G@@04 000012 DHDG 0004 000000 DIAG @O@[@@ 0000 I 000000 I GC )@@G@@ 0002 I 000000 ICOL 0002 000001 IFIR 0004 L 000001 INDENTGD )@@G@@ 0000 000012 INJP$ @O@[@@ 0002 000002 INPUT 0002 I 000450 GE )@@G@@IOUT 0000 I 000002 IT 0000 I 000001 J 0002 003127 GF )@@G@@JCOL @O@[@@ 0002 003130 JINT 0002 005607 JMAX 0000 I 0GG )@@G@@00003 K 0003 000013 KA 0003 000013 KABC @O@[@@ 00GH )@@G@@03 000061 KAND 0003 000062 KAT 0003 000014 KB 00GI )@@G@@03 000000 KBL 0000 000004 KBUFF @O@[@@ 0000 000004 KB1 GJ )@@G@@ 0002 I 005610 KB15 0000 000011 KB6 0003 000015 KC GK )@@G@@ 0003 000051 KCLOSE@O@[@@ 0003 000046 KCOMMA 0003 000016 GL )@@G@@KD 0003 000057 KDASH 0003 I 000001 KDIG 0003 000056 GM )@@G@@KDOLAR@O@[@@ 0002 I 005611 KD15 0003 000017 KE 0003 0GN )@@G@@00045 KEQ 0003 000064 KERM 0003 000020 KF @O@[@@ 00GO )@@G@@03 000021 KG 0003 000022 KH 0003 000023 KI 00GP )@@G@@02 003130 KIM 0003 000024 KJ @O@[@@ 0003 000025 KK GQ )@@G@@ 0003 000026 KL 0003 000063 KLR2 0003 000027 KM GR )@@G@@ 0003 000053 KMINUS@O@[@@ 0003 000030 KN 0003 000031 GS )@@G@@KO 0003 000047 KOPEN 0002 000450 KOUT 0003 000032 GT )@@G@@KP @O@[@@ 0003 000055 KPERD 0003 000052 KPLUS 0003 0GU )@@G@@00033 KQ 0003 000060 KQUOTE 0003 000034 KR @O@[@@ 00GV )@@G@@03 000035 KS 0003 000050 KSLASH 0003 000045 KSPK 00GW )@@G@@03 000054 KSTAR 0003 000036 KT @O@[@@ 0003 000037 KU GX )@@G@@ 0003 000040 KV 0003 000041 KW 0003 000042 KX GY )@@G@@ 0003 000043 KY @O@[@@ 0003 000044 KZ 0003 000001 GZ )@@G@@K0 0002 005613 LAST 0002 005614 LCPY 0002 I 005615 HA )@@G@@LDEF @O@[@@ 0004 L 000002 LDIAG 0002 I 010551 LDO 0002 0HB )@@G@@10602 LFIR 0004 000003 LINE 0004 000004 LOPT @O@[@@ 00HC )@@G@@02 010603 LQUAL 0002 010604 LREF 0002 I 005612 L772 00HD )@@G@@02 012554 MCOL 0002 012555 MEOF @O@[@@ 0002 012556 MEX HE )@@G@@ 0002 012557 MILDO 0002 012560 MLGC 0002 012561 MP2 HF )@@G@@ 0002 012562 MSTOP @O@[@@ 0002 012563 MTRAN 0002 012564 HG )@@G@@NBLC 0002 012565 NCD 0002 012566 NCDO 0002 I 012567 HH )@@G@@NDEF @O@[@@ 0002 012570 NDOL 0002 012571 NDOS 0002 0HI )@@G@@12572 NINS 0002 012573 NPAR 0002 012574 NPUN @O@[@@ 00HJ )@@G@@02 012575 NREC 0002 012576 NREF 0002 012577 NRT1 00HK )@@G@@02 012600 NRT2 0004 L 000005 NSTART@O@[@@ 0002 I 012601 NTEMP HL )@@G@@ 0002 012606 NXEQ 0002 003130 OUTPUT 0002 012607 PAREN HM )@@G@@ 0002 012610 PNEXT @K@[@@ 0004 L 000006 RIGHT 0004 L 000007 HN )@@G@@RSTART 0004 000010 SOPT 0004 L 000011 SOURCE@@@^@@@K@[@@00101 HO )@@G@@ 1* SUBROUTINE RENUM HP )@@G@@ REN00010 @K@[@@00101 2* C HQ )@@G@@ REN00020 @K@[@@00101 3* C HR )@@G@@ THIS SUBROUTINE INSPECTS THE OLD STATEMENT NUMBER IN L772 AND RENHS )@@G@@00030 @K@[@@00101 4* C INSERTS THE NEW NUMBER CORRESPONDING TOHT )@@G@@ L772 IN IOUT STARTING AT REN00040 @K@[@@00101 5* C ICOL+1. HU )@@G@@ON EXIT, L772 CONTAINS THE NEW STATEMENT NUMBER. REN00050 @K@[@@HV )@@G@@00101 6* C HW )@@G@@ REN00060 @K@[@@00103 7* INCLUDE TIDY, LIST HX )@@G@@ REN00070 @K@[@@00104 7*HY )@@G@@ IMPLICIT INTEGER (A-Z) HZ )@@G@@ PRO00020 @K@[@@00105 7* PARAMETER CRDLNG=66 @ MAXIMUM NO.IA )@@G@@ OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 7* PARIB )@@G@@AMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 IC )@@G@@@K@[@@00107 7* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS.ID )@@G@@ IN A STATEMENT PRO00050 @K@[@@00110 7* PARAMETER DEFLNIE )@@G@@G=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 IF )@@G@@ 7* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINTIG )@@G@@(MAXCHS),PRO00070 @K@[@@00111 7* 1 JMAX, KB15, KD15, L7IH )@@G@@72, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 7* II )@@G@@ 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PROIJ )@@G@@00090 @K@[@@00111 7* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NIK )@@G@@CD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 7* 4 NDIL )@@G@@OS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@IM )@@G@@00111 7* 5 NXEQ, PAREN, PNEXT IN )@@G@@ PRO00120 @K@[@@00112 7* DIMENSION KIM(CRDLNG,IO )@@G@@20) PRO00130 @K@[@@00113 7*IP )@@G@@ DIMENSION KOUT(CRDLNG,20) IQ )@@G@@ PRO00140 @K@[@@00114 7* DIMENSION OUTPUT(12,20) IR )@@G@@ PRO00150 @K@[@@00115 7* EQUIS )@@G@@IVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) PRO00160 IT )@@G@@@K@[@@00116 7* EQUIVALENCE (KDIG(1),K0) IU )@@G@@ PRO00170 @K@[@@00117 7* EQUIVALENCE (IOIV )@@G@@UT,KOUT) PRO00180 @K@[@@00120 IW )@@G@@ 7* EQUIVALENCE (JINT,KIM) IX )@@G@@ PRO00190 @K@[@@00121 7* EQUIVALENCE (JINT,OUTPUT) IY )@@G@@ PRO00200 @K@[@@00122 7* IZ )@@G@@ DEFINE DLOC(X)=FLD(0,18,LDEF(X)) PROJA )@@G@@00210 @K@[@@00123 7* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) JB )@@G@@ PRO00220 @K@[@@00124 7* DEFINE LDJC )@@G@@OS(X)=FLD(0,18,LDO(X)) PRO00230 @K@[@@JD )@@G@@00125 7* DEFINE LDOL(X)=FLD(18,18,LDO(X)) JE )@@G@@ PRO00240 @K@[@@00125 7* END JF )@@G@@ PRO00250 @K@[@@00126 8*JG )@@G@@ INCLUDE ALPHA, LIST JH )@@G@@ REN00080 @K@[@@00127 8* COMMON /ALPHA/ KBL,KDIG(10),KA,KBJI )@@G@@,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@00127 8* 1 JJ )@@G@@ KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,KZ, PRO00280 JK )@@G@@@K@[@@00127 8* 2 KEQ,KCOMMA,KOPEN,KSLASH,KCLOSEJL )@@G@@,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 8* 3 JM )@@G@@KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM PRO00300 @K@[@@00130 JN )@@G@@ 8* DIMENSION KABC(26), KSPK(14) JO )@@G@@ PRO00310 @K@[@@00131 8* EQUIVALENCE (KABC,KA), (KSPJP )@@G@@K,KEQ) PRO00320 @K@[@@00131 8* ENJQ )@@G@@D PROJR )@@G@@00330 @K@[@@00132 9* INCLUDE INIT, LIST JS )@@G@@ REN00090 @K@[@@00132 10* C JT )@@G@@ REN00100 @K@[@@JU )@@G@@00132 11* C JV )@@G@@ REN00110 @K@[@@00133 11* COMMON /INIT/ DIAG,INJW )@@G@@DENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @K@[@@00133 11*JX )@@G@@ 1 SOPT,SOURCE,DHDG JY )@@G@@ PRO00450 @K@[@@00134 11* LOGICAL INDENT, LDIAG, NSTART, RSJZ )@@G@@TART, SOURCE PRO00460 @K@[@@00135 11* LOGKA )@@G@@ICAL RIGHT PRO00470 KB )@@G@@@K@[@@00135 11* END KC )@@G@@ PRO00480 @K@[@@00136 12* 10 IF (L772) 30,20KD )@@G@@,30 REN00120 @K@[@@00141 KE )@@G@@ 13* 20 RETURN KF )@@G@@ REN00130 @K@[@@00141 14* C KG )@@G@@ REN00140 @K@[@@00141 15* C KH )@@G@@ SEARCH DEFINED STATEMENT TABLE FOR L772. RENKI )@@G@@00150 @K@[@@00141 16* C KJ )@@G@@ REN00160 @K@[@@00142 17* 30 DO 40 I=1KK )@@G@@,NDEF REN00170 @K@[@@KL )@@G@@00145 18* 40 IF (DSTMT(I).EQ.L772) GO TO 50 KM )@@G@@ REN00180 @K@[@@00145 19* C KN )@@G@@ REN00190 @K@[@@00145 20*KO )@@G@@ C NOT IN STATEMENT NUMBER LIST. DELETE NUMBER. KP )@@G@@ REN00200 @K@[@@00145 21* C KQ )@@G@@ REN00210 @K@[@@00150 22* L77KR )@@G@@2=0 REN00220 KS )@@G@@@K@[@@00151 23* RETURN KT )@@G@@ REN00230 @K@[@@00151 24* C KU )@@G@@ REN00240 @K@[@@00151 KV )@@G@@ 25* C ASSEMBLE NEW STATEMENT NUMBER. KW )@@G@@ REN00250 @K@[@@00151 26* C KX )@@G@@ REN00260 @K@[@@00152 27* 50 KY )@@G@@ I=(I-1)*KD15+KB15 RENKZ )@@G@@00270 @K@[@@00153 28* L772=I LA )@@G@@ REN00280 @K@[@@00154 29* DO 60 J=1LB )@@G@@,5 REN00290 @K@[@@LC )@@G@@00157 30* IT=I/10 LD )@@G@@ REN00300 @K@[@@00160 31* K=I+1-IT*10 LE )@@G@@ REN00310 @K@[@@00161 32*LF )@@G@@ NTEMP(J)=KDIG(K) LG )@@G@@ REN00320 @K@[@@00162 33* I=IT LH )@@G@@ REN00330 @K@[@@00163 34* IF LI )@@G@@(I) 10,70,60 REN00340 LJ )@@G@@@K@[@@00166 35* 60 CONTINUE LK )@@G@@ REN00350 @K@[@@00170 36* J=5 LL )@@G@@ REN00360 @K@[@@00170 LM )@@G@@ 37* C LN )@@G@@ REN00370 @K@[@@00170 38* C INSERT STATEMENT NUMBER DIGLO )@@G@@ITS. REN00380 @K@[@@00170 39* C LP )@@G@@ RENLQ )@@G@@00390 @K@[@@00171 40* 70 IF (ICOL.NE.0) GO TO 80 LR )@@G@@ REN00400 @K@[@@00173 41* IF (.NOT.LS )@@G@@RIGHT) GO TO 80 REN00410 @K@[@@LT )@@G@@00175 42* ICOL=5-J LU )@@G@@ REN00420 @K@[@@00176 43* 80 ICOL=ICOL+1 LV )@@G@@ REN00430 @K@[@@00177 44*LW )@@G@@ IOUT(ICOL)=NTEMP(J) LX )@@G@@ REN00440 @K@[@@00200 45* J=J-1 LY )@@G@@ REN00450 @K@[@@00201 46* IF LZ )@@G@@(J) 10,20,80 REN00460 MA )@@G@@@K@[@@00201 47* C MB )@@G@@ REN00470 @K@[@@00204 48* END MC )@@G@@ REN00480 @D@]@@ MD )@@G@@ END OF COMPILATION: NO DIAGNOSTICS. @#@^@@@HDG,P RLIST ME )@@G@@0 390 H, ,1, RLIST . @L^@^__@@@FOR,S RLIST,RLIST @E@[@@MF )@@G@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUG 72 AT 19:32:38. @@@[@@@@@[@@MG )@@G@@@B@[@@ SUBROUTINE RLIST ENTRY POINT 000064@@@[@@@G@]@@ STORAGE UMH )@@G@@SED: CODE(1) 000070; DATA(0) 000021; BLANK COMMON(2) 012611 @#@]@@ COMI )@@G@@MMON BLOCKS:@@@[@@@^@[@@ 0003 LIOS 000004@A@#@@ EXTERNAL REFEREMJ )@@G@@NCES (BLOCK, NAME)@@@[@@@#@[@@ 0004 DIAGNO @#@[@@ 0005 NERR3$ MK )@@G@@@F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) ML )@@G@@@@@[@@@O@[@@ 0001 000024 147G 0001 000016 30L 0001 0MM )@@G@@00032 60L 0001 000044 80L 0001 000052 90L @O@[@@ 00MN )@@G@@00 I 000000 I 0002 000000 ICOL 0002 000001 IFIR 00MO )@@G@@03 000003 IMAX 0000 000012 INJP$ @O@[@@ 0002 000002 INPUT MP )@@G@@ 0002 000450 IOUT 0003 000001 ITYPE 0002 003127 JCOL MQ )@@G@@ 0002 003130 JINT @O@[@@ 0002 005607 JMAX 0000 000001 MR )@@G@@KBUFF 0000 000001 KB1 0002 005610 KB15 0000 000006 MS )@@G@@KB6 @O@[@@ 0000 000007 KDIG 0002 005611 KD15 0003 0MT )@@G@@00000 KILI 0002 003130 KIM 0003 000000 KLASS @O@[@@ 00MU )@@G@@02 000450 KOUT 0000 000007 K0 0002 005613 LAST 00MV )@@G@@02 005614 LCPY 0002 I 005615 LDEF @O@[@@ 0002 I 010551 LDO MW )@@G@@ 0002 010602 LFIR 0002 010603 LQUAL 0002 I 010604 LREF MX )@@G@@ 0003 I 000002 L15 @O@[@@ 0002 I 005612 L772 0002 012554 MY )@@G@@MCOL 0002 012555 MEOF 0002 012556 MEX 0002 012557 MZ )@@G@@MILDO @O@[@@ 0002 012560 MLGC 0002 I 012561 MP2 0002 0NA )@@G@@12562 MSTOP 0002 012563 MTRAN 0002 012564 NBLC @O@[@@ 00NB )@@G@@02 012565 NCD 0002 012566 NCDO 0002 012567 NDEF 00NC )@@G@@02 012570 NDOL 0002 012571 NDOS @O@[@@ 0002 012572 NINS ND )@@G@@ 0002 012573 NPAR 0002 012574 NPUN 0002 012575 NREC NE )@@G@@ 0002 I 012576 NREF @O@[@@ 0002 012577 NRT1 0002 012600 NF )@@G@@NRT2 0002 012601 NTEMP 0002 I 012606 NXEQ 0002 003130 NG )@@G@@OUTPUT@C@[@@ 0002 012607 PAREN 0002 012610 PNEXT @@@^@@@K@[@@NH )@@G@@00101 1* SUBROUTINE RLIST NI )@@G@@ RLI00010 @K@[@@00101 2* C NJ )@@G@@ RLI00020 @K@[@@00101 3*NK )@@G@@ C THIS SUBROUTINE UPDATES THE REFERENCED STATEMENT NUMBER LIST. NL )@@G@@ RLI00030 @K@[@@00101 4* C L772 CONTAINS THE REFERENCED STATNM )@@G@@EMENT NUMBER. RLI00040 @K@[@@00101 5* C NN )@@G@@ RLI00050 NO )@@G@@@K@[@@00103 6* INCLUDE TIDY, LIST NP )@@G@@ RLI00060 @K@[@@00104 6* IMPLICIT INTEGENQ )@@G@@R (A-Z) PRO00020 @K@[@@00105 NR )@@G@@ 6* PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARNS )@@G@@D PRO00030 @K@[@@00106 6* PARAMETER DOS=25 @ MAXIMUM NT )@@G@@NESTING DEPTH OF DO LOOPS PRO00040 @K@[@@00107 6* NU )@@G@@ PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRONV )@@G@@00050 @K@[@@00110 6* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFNW )@@G@@INED STATEMENT NUMBERS PRO00060 @K@[@@00111 6* COMMON ICNX )@@G@@OL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@NY )@@G@@00111 6* 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFNZ )@@G@@LNG), PRO00080 @K@[@@00111 6* 2 LDO(DOS), LFIROA )@@G@@, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 6*OB )@@G@@ 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, OC )@@G@@ PRO00100 @K@[@@00111 6* 4 NDOS, NINS, NPAR, NPUN, NROD )@@G@@EC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 6* 5 OE )@@G@@ NXEQ, PAREN, PNEXT PRO00120 OF )@@G@@@K@[@@00112 6* DIMENSION KIM(CRDLNG,20) OG )@@G@@ PRO00130 @K@[@@00113 6* DIMENSION KOUT(OH )@@G@@CRDLNG,20) PRO00140 @K@[@@00114 OI )@@G@@ 6* DIMENSION OUTPUT(12,20) OJ )@@G@@ PRO00150 @K@[@@00115 6* EQUIVALENCE (KBUFF(1),KB1),OK )@@G@@ (KBUFF(6),KB6) PRO00160 @K@[@@00116 6* OL )@@G@@ EQUIVALENCE (KDIG(1),K0) PROOM )@@G@@00170 @K@[@@00117 6* EQUIVALENCE (IOUT,KOUT) ON )@@G@@ PRO00180 @K@[@@00120 6* EQUIVALENOO )@@G@@CE (JINT,KIM) PRO00190 @K@[@@OP )@@G@@00121 6* EQUIVALENCE (JINT,OUTPUT) OQ )@@G@@ PRO00200 @K@[@@00122 6* DEFINE DLOC(X)=FLD(0,OR )@@G@@18,LDEF(X)) PRO00210 @K@[@@00123 6*OS )@@G@@ DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) OT )@@G@@ PRO00220 @K@[@@00124 6* DEFINE LDOS(X)=FLD(0,18,LDO(X)) OU )@@G@@ PRO00230 @K@[@@00125 6* DEFOV )@@G@@INE LDOL(X)=FLD(18,18,LDO(X)) PRO00240 OW )@@G@@@K@[@@00125 6* END OX )@@G@@ PRO00250 @K@[@@00126 7* INCLUDE LIOS, LOY )@@G@@IST RLI00070 @K@[@@00126 OZ )@@G@@ 8* C PA )@@G@@ RLI00080 @K@[@@00126 9* C PB )@@G@@ RLI00090 @K@[@@00127 9* PC )@@G@@ COMMON /LIOS/ KLASS, ITYPE, L15, IMAX PROPD )@@G@@00630 @K@[@@00130 9* DIMENSION KILI(4) PE )@@G@@ PRO00640 @K@[@@00131 9* EQUIVALENPF )@@G@@CE (KLASS,KILI) PRO00650 @K@[@@PG )@@G@@00131 9* END PH )@@G@@ PRO00660 @K@[@@00132 10* IF (L772.EQ.0) RETURNPI )@@G@@ RLI00100 @K@[@@00132 11*PJ )@@G@@ C PK )@@G@@ RLI00110 @K@[@@00134 12* IF (L772-L15) 30,10,30 PL )@@G@@ RLI00120 @K@[@@00137 13* 10 IF PM )@@G@@(NXEQ) 60,60,20 RLI00130 PN )@@G@@@K@[@@00142 14* 20 CALL DIAGNO (18) PO )@@G@@ RLI00140 @K@[@@00143 15* 30 IF (NREF) 60,60PP )@@G@@,40 RLI00150 @K@[@@00146 PQ )@@G@@ 16* 40 DO 50 I=1,NREF PR )@@G@@ RLI00160 @K@[@@00151 17* IF (LREF(I)-L772) 50,90,50 PS )@@G@@ RLI00170 @K@[@@00154 18* 50 PT )@@G@@ CONTINUE RLIPU )@@G@@00180 @K@[@@00154 19* C PV )@@G@@ RLI00190 @K@[@@00154 20* C ADD REFERPW )@@G@@ENCED STATEMENT TO TABLE. RLI00200 @K@[@@PX )@@G@@00154 21* C PY )@@G@@ RLI00210 @K@[@@00156 22* 60 NREF=NREF+1 PZ )@@G@@ RLI00220 @K@[@@00157 23*QA )@@G@@ IF (NREF-1000) 70,70,80 QB )@@G@@ RLI00230 @K@[@@00162 24* 70 LREF(NREF)=L772 QC )@@G@@ RLI00240 @K@[@@00163 25* GO QD )@@G@@TO 90 RLI00250 QE )@@G@@@K@[@@00163 26* C QF )@@G@@ RLI00260 @K@[@@00164 27* 80 CALL DIAGNO (7)QG )@@G@@ RLI00270 @K@[@@00165 QH )@@G@@ 28* NREF=-1 QI )@@G@@ RLI00280 @K@[@@00166 29* MP2=0 QJ )@@G@@ RLI00290 @K@[@@00167 30* 90 QK )@@G@@ L772=0 RLIQL )@@G@@00300 @K@[@@00170 31* RETURN QM )@@G@@ RLI00310 @K@[@@00170 32* C QN )@@G@@ RLI00320 @K@[@@QO )@@G@@00171 33* END QP )@@G@@ RLI00330 @D@]@@ END OF COMPILATION: NO DIAGQQ )@@G@@NOSTICS. @#@^@@@HDG,P RSTAT 0 H, ,1, RSTAT . @L^QR )@@G@@@^__@@@FOR,S RSTAT,RSTAT @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON QS )@@G@@27 AUG 72 AT 19:32:50. @@@[@@@@@[@@@B@[@@ SUBROUTINE RSTAT ENTRY QT )@@G@@POINT 000056@@@[@@@G@]@@ STORAGE USED: CODE(1) 000065; DATA(0) 000021;QU )@@G@@ BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 AQV )@@G@@LPHA 000065@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 00QW )@@G@@04 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATIONQX )@@G@@, NAME) @@@[@@@O@[@@ 0001 000006 134G 0001 000015 141G QY )@@G@@ 0001 000027 20L 0001 000034 30L 0002 000000 ICOL QZ )@@G@@@O@[@@ 0002 000001 IFIR 0000 000007 INJP$ 0002 000002 RA )@@G@@INPUT 0002 000450 IOUT 0000 I 000000 J @O@[@@ 0002 I 0RB )@@G@@03127 JCOL 0002 I 003130 JINT 0002 I 005607 JMAX 0003 0RC )@@G@@00013 KA 0003 000013 KABC @O@[@@ 0003 000061 KAND 00RD )@@G@@03 000062 KAT 0003 000014 KB 0003 I 000000 KBL 00RE )@@G@@00 000001 KBUFF @O@[@@ 0000 000001 KB1 0002 005610 KB15 RF )@@G@@ 0000 000006 KB6 0003 000015 KC 0003 000051 KCLOSERG )@@G@@@O@[@@ 0003 000046 KCOMMA 0003 000016 KD 0003 000057 RH )@@G@@KDASH 0003 I 000001 KDIG 0003 000056 KDOLAR@O@[@@ 0002 0RI )@@G@@05611 KD15 0003 000017 KE 0003 000045 KEQ 0003 0RJ )@@G@@00064 KERM 0003 000020 KF @O@[@@ 0003 000021 KG 00RK )@@G@@03 000022 KH 0003 000023 KI 0002 003130 KIM 00RL )@@G@@03 000024 KJ @O@[@@ 0003 000025 KK 0003 000026 KL RM )@@G@@ 0003 000063 KLR2 0003 000027 KM 0003 000053 KMINUSRN )@@G@@@O@[@@ 0003 000030 KN 0003 000031 KO 0003 000047 RO )@@G@@KOPEN 0002 000450 KOUT 0003 000032 KP @O@[@@ 0003 0RP )@@G@@00055 KPERD 0003 000052 KPLUS 0003 000033 KQ 0003 0RQ )@@G@@00060 KQUOTE 0003 000034 KR @O@[@@ 0003 000035 KS 00RR )@@G@@03 000050 KSLASH 0003 000045 KSPK 0003 000054 KSTAR 00RS )@@G@@03 000036 KT @O@[@@ 0003 000037 KU 0003 000040 KV RT )@@G@@ 0003 000041 KW 0003 000042 KX 0003 000043 KY RU )@@G@@@O@[@@ 0003 000044 KZ 0003 000001 K0 0002 005613 RV )@@G@@LAST 0002 005614 LCPY 0002 I 005615 LDEF @O@[@@ 0002 I 0RW )@@G@@10551 LDO 0002 010602 LFIR 0002 010603 LQUAL 0002 0RX )@@G@@10604 LREF 0002 I 005612 L772 @O@[@@ 0002 012554 MCOL 00RY )@@G@@02 012555 MEOF 0002 012556 MEX 0002 012557 MILDO 00RZ )@@G@@02 012560 MLGC @O@[@@ 0002 012561 MP2 0002 012562 MSTOP SA )@@G@@ 0002 012563 MTRAN 0002 012564 NBLC 0002 012565 NCD SB )@@G@@@O@[@@ 0002 012566 NCDO 0002 012567 NDEF 0002 012570 SC )@@G@@NDOL 0002 012571 NDOS 0002 012572 NINS @O@[@@ 0002 0SD )@@G@@12573 NPAR 0002 012574 NPUN 0002 012575 NREC 0002 0SE )@@G@@12576 NREF 0002 012577 NRT1 @O@[@@ 0002 012600 NRT2 00SF )@@G@@02 012601 NTEMP 0002 012606 NXEQ 0002 003130 OUTPUT 00SG )@@G@@02 012607 PAREN @^@[@@ 0002 012610 PNEXT @@@^@@@K@[@@00101 1*SH )@@G@@ SUBROUTINE RSTAT SI )@@G@@ RST00010 @K@[@@00101 2* C SJ )@@G@@ RST00020 @K@[@@00101 3* C THISK )@@G@@S SUBROUTINE GETS THE STATEMENT NUMBER REFERENCED AT LOCATION RST00030 SL )@@G@@@K@[@@00101 4* C JCOL AND PUTS IT IN L772. JCOL IS LEFT SET ASM )@@G@@T THE LOCATION OF THERST00040 @K@[@@00101 5* C NEXT SYMBOL ON SN )@@G@@JINT. RST00050 @K@[@@00101 SO )@@G@@ 6* C SP )@@G@@ RST00060 @K@[@@00103 7* INCLUDE TIDY, LIST SQ )@@G@@ RST00070 @K@[@@00104 7* SR )@@G@@ IMPLICIT INTEGER (A-Z) PROSS )@@G@@00020 @K@[@@00105 7* PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHST )@@G@@ARS. PER CONT. CARD PRO00030 @K@[@@00106 7* PARAMETERSU )@@G@@ DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS PRO00040 @K@[@@SV )@@G@@00107 7* PARAMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A SW )@@G@@STATEMENT PRO00050 @K@[@@00110 7* PARAMETER DEFLNG=1500SX )@@G@@ @ MAX. NO. OF DEFINED STATEMENT NUMBERS PRO00060 @K@[@@00111 7*SY )@@G@@ COMMON ICOL, IFIR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHSZ )@@G@@S),PRO00070 @K@[@@00111 7* 1 JMAX, KB15, KD15, L772, LATA )@@G@@ST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@00111 7* 2 TB )@@G@@ LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 TC )@@G@@@K@[@@00111 7* 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCTD )@@G@@DO, NDEF, NDOL, PRO00100 @K@[@@00111 7* 4 NDOS, NITE )@@G@@NS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00111 TF )@@G@@ 7* 5 NXEQ, PAREN, PNEXT TG )@@G@@ PRO00120 @K@[@@00112 7* DIMENSION KIM(CRDLNG,20) TH )@@G@@ PRO00130 @K@[@@00113 7* TI )@@G@@ DIMENSION KOUT(CRDLNG,20) PROTJ )@@G@@00140 @K@[@@00114 7* DIMENSION OUTPUT(12,20) TK )@@G@@ PRO00150 @K@[@@00115 7* EQUIVALENTL )@@G@@CE (KBUFF(1),KB1), (KBUFF(6),KB6) PRO00160 @K@[@@TM )@@G@@00116 7* EQUIVALENCE (KDIG(1),K0) TN )@@G@@ PRO00170 @K@[@@00117 7* EQUIVALENCE (IOUT,KOUTO )@@G@@T) PRO00180 @K@[@@00120 7*TP )@@G@@ EQUIVALENCE (JINT,KIM) TQ )@@G@@ PRO00190 @K@[@@00121 7* EQUIVALENCE (JINT,OUTPUT) TR )@@G@@ PRO00200 @K@[@@00122 7* DEFTS )@@G@@INE DLOC(X)=FLD(0,18,LDEF(X)) PRO00210 TT )@@G@@@K@[@@00123 7* DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) TU )@@G@@ PRO00220 @K@[@@00124 7* DEFINE LDOS(X)=TV )@@G@@FLD(0,18,LDO(X)) PRO00230 @K@[@@00125 TW )@@G@@ 7* DEFINE LDOL(X)=FLD(18,18,LDO(X)) TX )@@G@@ PRO00240 @K@[@@00125 7* END TY )@@G@@ PRO00250 @K@[@@00126 8* TZ )@@G@@ INCLUDE ALPHA, LIST RSTUA )@@G@@00080 @K@[@@00126 9* C UB )@@G@@ RST00090 @K@[@@00127 9* COMMON /AUC )@@G@@LPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @K@[@@UD )@@G@@00127 9* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,UE )@@G@@KY,KZ, PRO00280 @K@[@@00127 9* 2 KEQ,KCUF )@@G@@OMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 9*UG )@@G@@ 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KERM UH )@@G@@ PRO00300 @K@[@@00130 9* DIMENSION KABC(26), KSPK(14) UI )@@G@@ PRO00310 @K@[@@00131 9* EQUUJ )@@G@@IVALENCE (KABC,KA), (KSPK,KEQ) PRO00320 UK )@@G@@@K@[@@00131 9* END UL )@@G@@ PRO00330 @K@[@@00132 10* L772=0 UM )@@G@@ RST00100 @K@[@@00133 UN )@@G@@ 11* DO 30 JCOL=JCOL,JMAX UO )@@G@@ RST00110 @K@[@@00136 12* IF (JINT(JCOL).EQ.KBL) GO TUP )@@G@@O 30 RST00120 @K@[@@00140 13* UQ )@@G@@ DO 10 J=1,10 RSTUR )@@G@@00130 @K@[@@00143 14* IF (JINT(JCOL).EQ.KDIG(J)) GO TO 20 US )@@G@@ RST00140 @K@[@@00145 15* 10 CONTINUE UT )@@G@@ RST00150 @K@[@@UU )@@G@@00147 16* RETURN UV )@@G@@ RST00160 @K@[@@00150 17* 20 L772=L772*10+J-1 UW )@@G@@ RST00170 @K@[@@00151 18*UX )@@G@@ 30 CONTINUE UY )@@G@@ RST00180 @K@[@@00151 19* C UZ )@@G@@ RST00190 @K@[@@00153 20* JCOVA )@@G@@L=JMAX+1 RST00200 VB )@@G@@@K@[@@00154 21* RETURN VC )@@G@@ RST00210 @K@[@@00154 22* C VD )@@G@@ RST00220 @K@[@@00155 VE )@@G@@ 23* END VF )@@G@@ RST00230 @D@]@@ END OF COMPILATION: NO DIAGNOSTICVG )@@G@@S. @#@^@@@HDG,P SKARD 0 0 PR H, ,1, SKARD . @L^@^__@@VH )@@G@@@FOR,S SKARD,SKARD @E@[@@CYCLE 000 COMPILED BY 1201 S7E-A ON 27 AUGVI )@@G@@ 72 AT 19:32:57. @@@[@@@@@[@@@B@[@@ SUBROUTINE SKARD ENTRY POINT VJ )@@G@@000235@@@[@@@G@]@@ STORAGE USED: CODE(1) 000412; DATA(0) 000057; BLANKVK )@@G@@ COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 ALPHA VL )@@G@@000065@^@[@@ 0004 INIT 000013@^@[@@ 0005 WORK 001673@^@[@@VM )@@G@@ 0006 TAPES 000016@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@VN )@@G@@@#@[@@ 0007 CHUPAK @#@[@@ 0010 DIAGNO @#@[@@ 0011 TERM VO )@@G@@@#@[@@ 0012 ELTR @#@[@@ 0013 IOERR @#@[@@ 0014 NERR6$ VP )@@G@@@#@[@@ 0015 NERR3$ @#@[@@ 0016 NRDU$ @#@[@@ 0017 NIO1$ VQ )@@G@@@#@[@@ 0020 NIO2$ @#@[@@ 0021 NERR4$ @F@#@@ STORAGE ASSIGNMVR )@@G@@ENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 0VS )@@G@@00013 10L 0001 000273 10L 0001 000202 110L 0001 0VT )@@G@@00214 120L 0001 000024 166G @O@[@@ 0001 000031 173G 00VU )@@G@@01 000303 20L 0001 000112 203G 0001 000137 211G 00VV )@@G@@01 000140 214G @O@[@@ 0001 000171 224G 0001 000266 251G VW )@@G@@ 0001 000027 30L 0001 000337 30L 0001 000350 40L VX )@@G@@@O@[@@ 0001 000101 50L 0001 000364 50L 0000 000004 VY )@@G@@60F 0001 000120 70L 0004 I 000012 DHDG @O@[@@ 0004 I 0VZ )@@G@@00000 DIAG 0005 I 000000 ECYC 0012 I 000000 ELTR 0005 0WA )@@G@@01026 FILE 0000 I 000003 I @O@[@@ 0000 I 000001 I 00WB )@@G@@02 I 000000 ICOL 0000 I 000000 ICW 0002 I 000001 IFIR 00WC )@@G@@04 L 000001 INDENT@O@[@@ 0000 000034 INJP$ 0000 000026 INJP$ WD )@@G@@ 0002 I 000002 INPUT 0002 I 000450 IOUT 0006 I 000000 IO1 WE )@@G@@@O@[@@ 0006 I 000001 IO2 0000 I 000002 J 0006 I 000002 WF )@@G@@JALTFD 0002 I 003127 JCOL 0002 I 003130 JINT @O@[@@ 0002 I 0WG )@@G@@05607 JMAX 0006 I 000003 JOUT 0003 I 000013 KA 0003 0WH )@@G@@00013 KABC 0003 I 000061 KAND @O@[@@ 0003 I 000062 KAT 00WI )@@G@@03 I 000014 KB 0003 I 000000 KBL 0000 000006 KBUFF 00WJ )@@G@@00 000006 KB1 @O@[@@ 0002 I 005610 KB15 0000 000013 KB6 WK )@@G@@ 0003 I 000015 KC 0003 I 000051 KCLOSE 0003 I 000046 KCOMMAWL )@@G@@@O@[@@ 0003 I 000016 KD 0003 I 000057 KDASH 0003 I 000001 WM )@@G@@KDIG 0003 I 000056 KDOLAR 0002 I 005611 KD15 @O@[@@ 0003 I 0WN )@@G@@00017 KE 0003 I 000045 KEQ 0003 I 000064 KERM 0003 I 0WO )@@G@@00020 KF 0003 I 000021 KG @O@[@@ 0003 I 000022 KH 00WP )@@G@@03 I 000023 KI 0002 I 003130 KIM 0003 I 000024 KJ 00WQ )@@G@@03 I 000025 KK @O@[@@ 0003 I 000026 KL 0003 I 000063 KLR2 WR )@@G@@ 0003 I 000027 KM 0003 I 000053 KMINUS 0003 I 000030 KN WS )@@G@@@O@[@@ 0003 I 000031 KO 0003 I 000047 KOPEN 0002 000450 WT )@@G@@KOUT 0003 I 000032 KP 0003 I 000055 KPERD @O@[@@ 0003 I 0WU )@@G@@00052 KPLUS 0003 I 000033 KQ 0003 I 000060 KQUOTE 0003 I 0WV )@@G@@00034 KR 0003 I 000035 KS @O@[@@ 0003 I 000050 KSLASH 00WW )@@G@@03 000045 KSPK 0003 I 000054 KSTAR 0003 I 000036 KT 00WX )@@G@@03 I 000037 KU @O@[@@ 0003 I 000040 KV 0003 I 000041 KW WY )@@G@@ 0003 I 000042 KX 0003 I 000043 KY 0003 I 000044 KZ WZ )@@G@@@O@[@@ 0003 000001 K0 0002 I 005613 LAST 0005 I 000001 XA )@@G@@LATEST 0002 I 005614 LCPY 0002 I 005615 LDEF @O@[@@ 0004 L 0XB )@@G@@00002 LDIAG 0002 I 010551 LDO 0002 I 010602 LFIR 0004 I 0XC )@@G@@00003 LINE 0004 I 000004 LOPT @O@[@@ 0002 I 010603 LQUAL 00XD )@@G@@02 I 010604 LREF 0002 I 005612 L772 0002 I 012554 MCOL 00XE )@@G@@02 I 012555 MEOF @O@[@@ 0002 I 012556 MEX 0002 I 012557 MILDO XF )@@G@@ 0002 I 012560 MLGC 0002 I 012561 MP2 0002 I 012562 MSTOP XG )@@G@@@O@[@@ 0002 I 012563 MTRAN 0002 I 012564 NBLC 0002 I 012565 XH )@@G@@NCD 0002 I 012566 NCDO 0002 I 012567 NDEF @O@[@@ 0002 I 0XI )@@G@@12570 NDOL 0002 I 012571 NDOS 0002 I 012572 NINS 0005 I 0XJ )@@G@@00002 NOSPC1 0002 I 012573 NPAR @O@[@@ 0002 I 012574 NPUN 00XK )@@G@@02 I 012575 NREC 0002 I 012576 NREF 0002 I 012577 NRT1 00XL )@@G@@02 I 012600 NRT2 @O@[@@ 0004 L 000005 NSTART 0002 I 012601 NTEMP XM )@@G@@ 0002 I 012606 NXEQ 0002 003130 OUTPUT 0002 I 012607 PAREN XN )@@G@@@O@[@@ 0002 I 012610 PNEXT 0004 L 000006 RIGHT 0004 L 000007 XO )@@G@@RSTART 0004 I 000010 SOPT 0004 L 000011 SOURCE@K@[@@ 0005 0XP )@@G@@00737 TIDYC 0006 I 000004 USE 0005 I 000003 WORK1 0005 I 0XQ )@@G@@00737 WORK2 @@@^@@@K@[@@00101 1* SUBROUTINE SKARD XR )@@G@@ SKA00010 @K@[@@00101 2* C XS )@@G@@ SKAXT )@@G@@00020 @K@[@@00101 3* C SUPER-CARD INPUT ROUTINE. XU )@@G@@ SKA00030 @K@[@@00101 4* C THIS ROUTXV )@@G@@INE READS FORTRAN STATEMENTS WITH UP TO 19 CONTINUATION SKA00040 @K@[@@XW )@@G@@00101 5* C CARDS AND PACKS THE STATEMENT INTO THE SUPER-CARD -XX )@@G@@-JINT--. SKA00050 @K@[@@00101 6* C XY )@@G@@ SKA00060 @K@[@@00103 7*XZ )@@G@@ INCLUDE TIDY, LIST YA )@@G@@ SKA00070 @K@[@@00104 7* IMPLICIT INTEGER (A-Z) YB )@@G@@ PRO00020 @K@[@@00105 7* PARYC )@@G@@AMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 YD )@@G@@@K@[@@00106 7* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DYE )@@G@@O LOOPS PRO00040 @K@[@@00107 7* PARAMETER MAXCHYF )@@G@@S=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 YG )@@G@@ 7* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMYH )@@G@@BERS PRO00060 @K@[@@00111 7* COMMON ICOL, IFIR, INPUT(14YI )@@G@@,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 7* YJ )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PROYK )@@G@@00080 @K@[@@00111 7* 2 LDO(DOS), LFIR, LQUAL, LREF(1000YL )@@G@@), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00111 7* 3 MLYM )@@G@@GC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@YN )@@G@@00111 7* 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRYO )@@G@@T2, NTEMP(5), PRO00110 @K@[@@00111 7* 5 NXEQ, PAREN, PYP )@@G@@NEXT PRO00120 @K@[@@00112 7*YQ )@@G@@ DIMENSION KIM(CRDLNG,20) YR )@@G@@ PRO00130 @K@[@@00113 7* DIMENSION KOUT(CRDLNG,20) YS )@@G@@ PRO00140 @K@[@@00114 7* DIMYT )@@G@@ENSION OUTPUT(12,20) PRO00150 YU )@@G@@@K@[@@00115 7* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) YV )@@G@@ PRO00160 @K@[@@00116 7* EQUIVALENCE (KDYW )@@G@@IG(1),K0) PRO00170 @K@[@@00117 YX )@@G@@ 7* EQUIVALENCE (IOUT,KOUT) YY )@@G@@ PRO00180 @K@[@@00120 7* EQUIVALENCE (JINT,KIM) YZ )@@G@@ PRO00190 @K@[@@00121 7* ZA )@@G@@ EQUIVALENCE (JINT,OUTPUT) PROZB )@@G@@00200 @K@[@@00122 7* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) ZC )@@G@@ PRO00210 @K@[@@00123 7* DEFINE DSZD )@@G@@TMT(X)=FLD(18,18,LDEF(X)) PRO00220 @K@[@@ZE )@@G@@00124 7* DEFINE LDOS(X)=FLD(0,18,LDO(X)) ZF )@@G@@ PRO00230 @K@[@@00125 7* DEFINE LDOL(X)=FLD(18ZG )@@G@@,18,LDO(X)) PRO00240 @K@[@@00125 7*ZH )@@G@@ END ZI )@@G@@ PRO00250 @K@[@@00126 8* INCLUDE ALPHA, LIST ZJ )@@G@@ SKA00080 @K@[@@00127 8* COMZK )@@G@@MON /ALPHA/ KBL,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 ZL )@@G@@@K@[@@00127 8* 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,ZM )@@G@@KW,KX,KY,KZ, PRO00280 @K@[@@00127 8* 2 ZN )@@G@@KEQ,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @K@[@@00127 ZO )@@G@@ 8* 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2,KEZP )@@G@@RM PRO00300 @K@[@@00130 8* DIMENSION KABC(26), KSPK(14ZQ )@@G@@) PRO00310 @K@[@@00131 8* ZR )@@G@@ EQUIVALENCE (KABC,KA), (KSPK,KEQ) PROZS )@@G@@00320 @K@[@@00131 8* END ZT )@@G@@ PRO00330 @K@[@@00132 9* INCLUDE IZU )@@G@@NIT, LIST SKA00090 @K@[@@ZV )@@G@@00133 9* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTART,RIZW )@@G@@GHT,RSTART, PRO00440 @K@[@@00133 9* 1 SOPT,SOZX )@@G@@URCE,DHDG PRO00450 @K@[@@00134 9*ZY )@@G@@ LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE ZZ )@@G@@ PRO00460 @K@[@@00135 9* LOGICAL RIGHT AA )@@G@@ PRO00470 @K@[@@00135 9* END AB )@@G@@ PRO00480 AC )@@G@@@K@[@@00136 10* INCLUDE WORK, LIST AD )@@G@@ SKA00100 @K@[@@00137 10* PARAMETER LTIDYAE )@@G@@=55 PRO00740 @K@[@@00140 AF )@@G@@ 10* PARAMETER LTIDY1=LTIDY+1 AG )@@G@@ PRO00750 @K@[@@00141 10* COMMON /WORK/ ECYC, LATEST,AH )@@G@@ NOSPC1, WORK1(476), WORK2(476) PRO00760 @K@[@@00142 10* AI )@@G@@ DIMENSION TIDYC(LTIDY) PROAJ )@@G@@00770 @K@[@@00143 10* DIMENSION FILE(15) AK )@@G@@ PRO00780 @K@[@@00144 10* EQUIVALENAL )@@G@@CE (WORK2,TIDYC), (WORK2(LTIDY1),FILE) PRO00790 @K@[@@AM )@@G@@00144 10* END AN )@@G@@ PRO00800 @K@[@@00145 11* INCLUDE TAPES, LIST AO )@@G@@ SKA00110 @K@[@@00146 11*AP )@@G@@ COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USE (10) AQ )@@G@@ PRO00680 @K@[@@00147 11* PARAMETER STDRD=5 @ STANDARD READAR )@@G@@ UNIT PRO00690 @K@[@@00150 11* PARAS )@@G@@AMETER STDPRT=6 @ STANDARD PRINT UNIT PRO00700 AT )@@G@@@K@[@@00151 11* PARAMETER STDALT=101 @ STANDARD ALTERNATE PRIAU )@@G@@NT UNIT PRO00710 @K@[@@00151 11* END AV )@@G@@ PRO00720 @K@[@@00152 AW )@@G@@ 12* DEFINE DELCYL=FLD(18,6,ICW) AX )@@G@@ SKA00120 @K@[@@00153 13* DEFINE INSCYL=FLD(30,6,ICW)AY )@@G@@ SKA00130 @K@[@@00154 14* AZ )@@G@@ DEFINE NEWST(I)=FLD(30,6,INPUT(1,I)).EQ.5.OR.FLD(0,6,INPUT(1,I)).ESKABA )@@G@@00140 @K@[@@00154 15* 1Q.8.OR.FLD(0,6,INPUT(1,I)).EQ.'@@@@@*'.BB )@@G@@OR.FLD(30,6,INPUT(1,I)).EQ.SKA00150 @K@[@@00154 16* 2'@@@@@0' BC )@@G@@ SKA00160 @K@[@@BD )@@G@@00154 17* C BE )@@G@@ SKA00170 @K@[@@00154 18* C BF )@@G@@ SKA00180 @K@[@@00154 19*BG )@@G@@ C ENTRY POINT. TEST FOR FULL BUFFER. BH )@@G@@ SKA00190 @K@[@@00154 20* C BI )@@G@@ SKA00200 @K@[@@00155 21* NCDBJ )@@G@@=NCDO SKA00210 BK )@@G@@@K@[@@00156 22* IF (NSTART) GO TO 10 BL )@@G@@ SKA00220 @K@[@@00160 23* CALL READ ($120BM )@@G@@,1) SKA00230 @K@[@@00161 BN )@@G@@ 24* NSTART=.TRUE. BO )@@G@@ SKA00240 @K@[@@00162 25* GO TO 30 BP )@@G@@ SKA00250 @K@[@@00163 26* 10 BQ )@@G@@ IF (RSTART) GO TO 70 SKABR )@@G@@00260 @K@[@@00165 27* DO 20 I=1,14 BS )@@G@@ SKA00270 @K@[@@00170 28* 20 INPUT(I,1BT )@@G@@)=INPUT(I,NCD+1) SKA00280 @K@[@@BU )@@G@@00172 29* 30 DO 40 NCD=1,20 BV )@@G@@ SKA00290 @K@[@@00175 30* CALL READ ($50,NCD+1)BW )@@G@@ SKA00300 @K@[@@00176 31*BX )@@G@@ 40 IF (NEWST(NCD+1)) GO TO 70 BY )@@G@@ SKA00310 @K@[@@00201 32* GO TO 70 BZ )@@G@@ SKA00320 @K@[@@00202 33* 50 DO CA )@@G@@60 I=1,14 SKA00330 CB )@@G@@@K@[@@00205 34* 60 INPUT(I,NCD+1)=KBL CC )@@G@@ SKA00340 @K@[@@00207 35* INPUT(1,NCD+1)=CD )@@G@@'*STOP ' SKA00350 @K@[@@00210 CE )@@G@@ 36* 70 DO 90 I=NCD,1,-1 CF )@@G@@ SKA00360 @K@[@@00213 37* DO 80 J=1,72 CG )@@G@@ SKA00370 @K@[@@00216 38* 80 CH )@@G@@ KIM(J,I)=KBL SKACI )@@G@@00380 @K@[@@00220 39* 90 CALL CHUPAK (KIM(1,I),1,INPUT(1,I),1,72CJ )@@G@@) SKA00390 @K@[@@00220 40* C CK )@@G@@ SKA00400 @K@[@@CL )@@G@@00220 41* C LOCATE LAST NON-BLANK COLUMN IN CARD AND EXIT. CM )@@G@@ SKA00410 @K@[@@00220 42* C CN )@@G@@ SKA00420 @K@[@@00222 43*CO )@@G@@ I=NCD*66+6 CP )@@G@@ SKA00430 @K@[@@00223 44* DO 100 JMAX=I,1,-1 CQ )@@G@@ SKA00440 @K@[@@00226 45* 100 IF CR )@@G@@(JINT(JMAX).NE.KBL) GO TO 110 SKA00450 CS )@@G@@@K@[@@00231 46* JMAX=1 CT )@@G@@ SKA00460 @K@[@@00232 47* 110 MEOF=-1 CU )@@G@@ SKA00470 @K@[@@00233 CV )@@G@@ 48* JINT(JMAX+1)=KERM CW )@@G@@ SKA00480 @K@[@@00234 49* NCDO=NCD CX )@@G@@ SKA00490 @K@[@@00235 50* CY )@@G@@ RETURN SKACZ )@@G@@00500 @K@[@@00236 51* 120 CALL DIAGNO (25) @ NO INPUT DA )@@G@@IMAGES SKA00510 @K@[@@00237 52* CALL TERMDB )@@G@@ SKA00520 @K@[@@DC )@@G@@00240 53* RETURN 0 @ TERMINATE IN ERRDD )@@G@@OR MODE SKA00530 @K@[@@00240 54* C DE )@@G@@ SKA00540 @K@[@@00240 55*DF )@@G@@ C DG )@@G@@ SKA00550 @K@[@@00240 56* C DH )@@G@@ SKA00560 @K@[@@00241 57* SUBDI )@@G@@ROUTINE READ ($,J) SKA00570 DJ )@@G@@@K@[@@00244 58* INTEGER I DK )@@G@@ SKA00580 @K@[@@00245 59* IF (SOURCE) GO DL )@@G@@TO 20 SKA00590 @K@[@@00247 DM )@@G@@ 60* READ (STDRD,60,END=10) (INPUT(I,J),I=1,14) DN )@@G@@ SKA00600 @K@[@@00255 61* GO TO 50 DO )@@G@@ SKA00610 @K@[@@00256 62* 10 DP )@@G@@ IF (NOSPC1.NE.0) RETURN 1 @ END OF INPUT SKADQ )@@G@@00620 @K@[@@00260 63* SOURCE=.TRUE. DR )@@G@@ SKA00630 @K@[@@00261 64* 20 I=ELTR(WODS )@@G@@RK1,INPUT(1,J),14,ICW) SKA00640 @K@[@@DT )@@G@@00262 65* IF (I.EQ.37) RETURN 1 DU )@@G@@ SKA00650 @K@[@@00264 66* IF (I.EQ.0) GO TO 30 DV )@@G@@ SKA00660 @K@[@@00266 67*DW )@@G@@ CALL IOERR (1,I) @ ERROR READING INPUT DX )@@G@@ SKA00670 @K@[@@00267 68* CALL TERM DY )@@G@@ SKA00680 @K@[@@00270 69* RETDZ )@@G@@URN 0 SKA00690 EA )@@G@@@K@[@@00271 70* 30 IF (ICW.LT.0) GO TO 20 EB )@@G@@ SKA00700 @K@[@@00273 71* IF (LATEST.EQ.0EC )@@G@@) GO TO 40 @ ELEMENT CYCLE WAS SPECIFIED SKA00710 @K@[@@00273 ED )@@G@@ 72* C EE )@@G@@ SKA00720 @K@[@@00273 73* C ACCEPT LATEST CYCLE EF )@@G@@ SKA00730 @K@[@@00273 74* C EG )@@G@@ SKAEH )@@G@@00740 @K@[@@00275 75* IF (DELCYL.NE.0) GO TO 20 @ REJECT IMEI )@@G@@AGE THAT HAS BEEN DELETED SKA00750 @K@[@@00277 76* GO TO 50 EJ )@@G@@ SKA00760 @K@[@@EK )@@G@@00277 77* C EL )@@G@@ SKA00770 @K@[@@00277 78* C LOOK FOR SPECIFIC ELEEM )@@G@@MENT CYCLE SKA00780 @K@[@@00277 79*EN )@@G@@ C EO )@@G@@ SKA00790 @K@[@@00300 80* 40 IF (INSCYL.GT.ECYC) GO TO 20 EP )@@G@@@ IMAGE PUT IN AFTER DESIRED CYCLSKA00800 @K@[@@00302 81* IF EQ )@@G@@(DELCYL.EQ.0) GO TO 50 SKA00810 ER )@@G@@@K@[@@00304 82* IF (DELCYL.LE.ECYC) GO TO 20 @ IMAGE DELEES )@@G@@TED TOO SOON SKA00820 @K@[@@00306 83* 50 RETURN ET )@@G@@ SKA00830 @K@[@@00306 EU )@@G@@ 84* C EV )@@G@@ SKA00840 @K@[@@00307 85* 60 FORMAT (13A6,A2) EW )@@G@@ SKA00850 @K@[@@00307 86* C EX )@@G@@ SKAEY )@@G@@00860 @K@[@@00310 87* END EZ )@@G@@ SKA00870 @D@]@@ END OF COMPILATION: FA )@@G@@ NO DIAGNOSTICS. @#@^@@@HDG,P TERM 0 T< H, ,1, TERFB )@@G@@M . @L^@^__@@@FOR,S TERM,TERM @E@[@@CYCLE 000 COMPILED BY 12FC )@@G@@01 S7E-A ON 27 AUG 72 AT 19:33:07. @@@[@@@@@[@@@B@[@@ SUBROUTINE TERMFD )@@G@@ ENTRY POINT 000144@@@[@@@G@]@@ STORAGE USED: CODE(1) 000146; DATFE )@@G@@A(0) 000072; BLANK COMMON(2) 012611 @#@]@@ COMMON BLOCKS:@@@[@@@^@[@@FF )@@G@@ 0003 DIOMSG 000373@^@[@@ 0004 TAPES 000016@^@[@@ 0005 WFG )@@G@@ORK 001673@A@#@@ EXTERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 00FH )@@G@@06 CLOSE @#@[@@ 0007 CSFD @#@[@@ 0010 ELTRC @#@[@@ 00FI )@@G@@11 ELTWC @#@[@@ 0012 IOERR @#@[@@ 0013 CPU @#@[@@ 00FJ )@@G@@14 NWDU$ @#@[@@ 0015 NIO1$ @#@[@@ 0016 NIO2$ @#@[@@ 00FK )@@G@@17 NERR3$ @F@#@@ STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATIONFL )@@G@@, NAME) @@@[@@@O@[@@ 0001 000027 10L 0001 000045 20L FM )@@G@@ 0001 000104 30L 0001 000131 40L 0000 000000 50F FN )@@G@@@O@[@@ 0000 000020 60F 0000 000034 70F 0005 000000 FO )@@G@@ECYC 0011 I 000000 ELTWC 0005 001026 FILE @O@[@@ 0002 0FP )@@G@@00000 ICOL 0002 000001 IFIR 0000 000065 INJP$ 0002 0FQ )@@G@@00002 INPUT 0002 000450 IOUT @O@[@@ 0004 000000 IO1 00FR )@@G@@04 000001 IO2 0004 I 000002 JALTFD 0002 003127 JCOL 00FS )@@G@@02 003130 JINT @O@[@@ 0002 005607 JMAX 0004 I 000003 JOUT FT )@@G@@ 0000 000046 KBUFF 0000 000046 KB1 0002 005610 KB15 FU )@@G@@@O@[@@ 0000 000053 KB6 0000 000054 KDIG 0002 005611 FV )@@G@@KD15 0002 003130 KIM 0002 000450 KOUT @O@[@@ 0000 0FW )@@G@@00054 K0 0002 005613 LAST 0005 000001 LATEST 0002 0FX )@@G@@05614 LCPY 0002 I 005615 LDEF @O@[@@ 0002 I 010551 LDO 00FY )@@G@@02 010602 LFIR 0002 010603 LQUAL 0002 010604 LREF 00FZ )@@G@@02 005612 L772 @O@[@@ 0002 012554 MCOL 0002 012555 MEOF GA )@@G@@ 0002 012556 MEX 0002 012557 MILDO 0002 012560 MLGC GB )@@G@@@O@[@@ 0002 I 012561 MP2 0003 000001 MSG 0002 012562 GC )@@G@@MSTOP 0002 012563 MTRAN 0002 012564 NBLC @O@[@@ 0002 0GD )@@G@@12565 NCD 0002 012566 NCDO 0002 012567 NDEF 0002 0GE )@@G@@12570 NDOL 0002 012571 NDOS @O@[@@ 0002 012572 NINS 00GF )@@G@@03 I 000000 NMSG 0005 I 000002 NOSPC1 0002 012573 NPAR 00GG )@@G@@02 I 012574 NPUN @O@[@@ 0002 012575 NREC 0002 012576 NREF GH )@@G@@ 0002 012577 NRT1 0002 012600 NRT2 0002 I 012601 NTEMP GI )@@G@@@O@[@@ 0002 012606 NXEQ 0002 003130 OUTPUT 0002 012607 GJ )@@G@@PAREN 0002 012610 PNEXT 0005 000737 TIDYC @G@[@@ 0004 I 0GK )@@G@@00004 USE 0005 I 000003 WORK1 0005 I 000737 WORK2 @@@^@@@K@[@@GL )@@G@@00101 1* SUBROUTINE TERM GM )@@G@@ TER00010 @K@[@@00101 2* C GN )@@G@@ TER00020 @K@[@@00101 3*GO )@@G@@ C DO TERMINATION PROCESSING FOR TIDY. GP )@@G@@ TER00030 @K@[@@00101 4* C GQ )@@G@@ TER00040 @K@[@@00103 5* INCGR )@@G@@LUDE TIDY, LIST TER00050 GS )@@G@@@K@[@@00104 5* IMPLICIT INTEGER (A-Z) GT )@@G@@ PRO00020 @K@[@@00105 5* PARAMETER CRDLNGU )@@G@@G=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD PRO00030 @K@[@@00106 GV )@@G@@ 5* PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS GW )@@G@@ PRO00040 @K@[@@00107 5* PARAMETER MAXCHS=1327 @ MAXGX )@@G@@IMUM NO. OF CHARS. IN A STATEMENT PRO00050 @K@[@@00110 5* GY )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS PROGZ )@@G@@00060 @K@[@@00111 5* COMMON ICOL, IFIR, INPUT(14,21), IOUT(MHA )@@G@@AXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00111 5* 1 JMHB )@@G@@AX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), PRO00080 @K@[@@HC )@@G@@00111 5* 2 LDO(DOS), LFIR, LQUAL, LREF(1000), MCOL, MEOHD )@@G@@F, MEX, MILDO, PRO00090 @K@[@@00111 5* 3 MLGC, MP2, MSTHE )@@G@@OP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRO00100 @K@[@@00111 5*HF )@@G@@ 4 NDOS, NINS, NPAR, NPUN, NREC, NREF, NRT1, NRT2, NTEMP(5)HG )@@G@@, PRO00110 @K@[@@00111 5* 5 NXEQ, PAREN, PNEXT HH )@@G@@ PRO00120 @K@[@@00112 5* DIMHI )@@G@@ENSION KIM(CRDLNG,20) PRO00130 HJ )@@G@@@K@[@@00113 5* DIMENSION KOUT(CRDLNG,20) HK )@@G@@ PRO00140 @K@[@@00114 5* DIMENSION OUTPUHL )@@G@@T(12,20) PRO00150 @K@[@@00115 HM )@@G@@ 5* EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) HN )@@G@@ PRO00160 @K@[@@00116 5* EQUIVALENCE (KDIG(1),K0) HO )@@G@@ PRO00170 @K@[@@00117 5* HP )@@G@@ EQUIVALENCE (IOUT,KOUT) PROHQ )@@G@@00180 @K@[@@00120 5* EQUIVALENCE (JINT,KIM) HR )@@G@@ PRO00190 @K@[@@00121 5* EQUIVALENHS )@@G@@CE (JINT,OUTPUT) PRO00200 @K@[@@HT )@@G@@00122 5* DEFINE DLOC(X)=FLD(0,18,LDEF(X)) HU )@@G@@ PRO00210 @K@[@@00123 5* DEFINE DSTMT(X)=FLD(1HV )@@G@@8,18,LDEF(X)) PRO00220 @K@[@@00124 5*HW )@@G@@ DEFINE LDOS(X)=FLD(0,18,LDO(X)) HX )@@G@@ PRO00230 @K@[@@00125 5* DEFINE LDOL(X)=FLD(18,18,LDO(X)) HY )@@G@@ PRO00240 @K@[@@00125 5* END HZ )@@G@@ PRO00250 IA )@@G@@@K@[@@00126 6* INCLUDE DIOMSG, LIST IB )@@G@@ TER00060 @K@[@@00127 6* PARAMETER LMSG=IC )@@G@@25 PRO00400 @K@[@@00130 ID )@@G@@ 6* COMMON /DIOMSG/ NMSG, MSG(10,LMSG) IE )@@G@@ PRO00410 @K@[@@00130 6* END IF )@@G@@ PRO00420 @K@[@@00131 7* IG )@@G@@ INCLUDE TAPES, LIST TERIH )@@G@@00070 @K@[@@00132 7* COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, II )@@G@@USE (10) PRO00680 @K@[@@00133 7* PARAMETERIJ )@@G@@ STDRD=5 @ STANDARD READ UNIT PRO00690 @K@[@@IK )@@G@@00134 7* PARAMETER STDPRT=6 @ STANDARD PRINT UNIT IL )@@G@@ PRO00700 @K@[@@00135 7* PARAMETER STDALT=101 IM )@@G@@@ STANDARD ALTERNATE PRINT UNIT PRO00710 @K@[@@00135 7*IN )@@G@@ END IO )@@G@@ PRO00720 @K@[@@00136 8* INCLUDE WORK, LIST IP )@@G@@ TER00080 @K@[@@00136 9* C IQ )@@G@@ TER00090 IR )@@G@@@K@[@@00137 9* PARAMETER LTIDY=55 IS )@@G@@ PRO00740 @K@[@@00140 9* PARAMETER LTIDYIT )@@G@@1=LTIDY+1 PRO00750 @K@[@@00141 IU )@@G@@ 9* COMMON /WORK/ ECYC, LATEST, NOSPC1, WORK1(476), WORK2(476IV )@@G@@) PRO00760 @K@[@@00142 9* DIMENSION TIDYC(LTIDY) IW )@@G@@ PRO00770 @K@[@@00143 9* IX )@@G@@ DIMENSION FILE(15) PROIY )@@G@@00780 @K@[@@00144 9* EQUIVALENCE (WORK2,TIDYC), (WORK2(LTIDYIZ )@@G@@1),FILE) PRO00790 @K@[@@00144 9* END JA )@@G@@ PRO00800 @K@[@@JB )@@G@@00145 10* IF (NMSG.LE.0) GO TO 10 JC )@@G@@ TER00100 @K@[@@00147 11* WRITE (JOUT,50) NMSG JD )@@G@@ TER00110 @K@[@@00152 12*JE )@@G@@ IF (JOUT.NE.STDPRT) WRITE (STDPRT,50) NMSG JF )@@G@@ TER00120 @K@[@@00156 13* GO TO 20 JG )@@G@@ TER00130 @K@[@@00157 14* 10 WRIJH )@@G@@TE (JOUT,60) TER00140 JI )@@G@@@K@[@@00161 15* IF (JOUT.NE.STDPRT) WRITE (STDPRT,60) JJ )@@G@@ TER00150 @K@[@@00164 16* 20 WRITE (JOUT,70)JK )@@G@@ NPUN TER00160 @K@[@@00167 JL )@@G@@ 17* IF (JOUT.EQ.STDPRT) GO TO 30 JM )@@G@@ TER00170 @K@[@@00171 18* WRITE (STDPRT,70) NPUN JN )@@G@@ TER00180 @K@[@@00174 19* JO )@@G@@ CALL CLOSE (STDALT,0) @ CLOSE ALTERNATE PRINT FILE TERJP )@@G@@00190 @K@[@@00175 20* USE(1)='@FREE,' JQ )@@G@@ TER00200 @K@[@@00176 21* USE(2)='AJR )@@G@@ ' TER00210 @K@[@@JS )@@G@@00177 22* USE(3)=JALTFD JT )@@G@@ TER00220 @K@[@@00200 23* CALL CSFD (USE) JU )@@G@@ @ FREE USE NAME FROM APRINT FILE TER00230 @K@[@@00201 24*JV )@@G@@ 30 IF (NOSPC1.EQ.0) CALL ELTRC (WORK1) JW )@@G@@ TER00240 @K@[@@00203 25* IF (MP2.EQ.0) GO TO 40 JX )@@G@@ TER00250 @K@[@@00205 26* NTEJY )@@G@@MP(1)=ELTWC(WORK2,5,0,1) TER00260 JZ )@@G@@@K@[@@00206 27* IF (NTEMP(1).EQ.0) GO TO 40 KA )@@G@@ TER00270 @K@[@@00210 28* CALL IOERR (0,NKB )@@G@@TEMP(1)) @ ERROR CLOSING OUTPUT ELEMENT TER00280 @K@[@@00211 KC )@@G@@ 29* MP2=0 KD )@@G@@ TER00290 @K@[@@00212 30* 40 CALL CPU (WORK1,2) KE )@@G@@ @ PRINT CPU TIME IN MILLISECONDS TER00300 @K@[@@00213 31* KF )@@G@@ RETURN TERKG )@@G@@00310 @K@[@@00213 32* C KH )@@G@@ TER00320 @K@[@@00214 33* 50 FORMAT ('KI )@@G@@0','***** WARNING.',I5,' DIAGNOSTIC MESSAGES WERE GENERATTER00330 @K@[@@KJ )@@G@@00214 34* 1ED DURING THIS TIDY RUN.') KK )@@G@@ TER00340 @K@[@@00215 35* 60 FORMAT ('0','NO DIAGNKL )@@G@@OSTIC MESSAGES WERE GENERATED DURING THIS TIDTER00350 @K@[@@00215 36*KM )@@G@@ 1Y RUN.') KN )@@G@@ TER00360 @K@[@@00216 37* 70 FORMAT (1H0,'THE NUMBER OF LINES KO )@@G@@OUTPUT BY THIS TIDY RUN = ',I5) TER00370 @K@[@@00216 38* C KP )@@G@@ TER00380 KQ )@@G@@@K@[@@00217 39* END KR )@@G@@ TER00390 @D@]@@ END OF COMPILATION: NOKS )@@G@@ DIAGNOSTICS. @#@^@@@HDG,P TIDY 0 H, ,1, TIDY KT )@@G@@ . @L^@^__@@@FOR,S TIDY,TIDY @E@[@@CYCLE 000 COMPILED BY 1201 S7EKU )@@G@@-A ON 27 AUG 72 AT 19:33:17. @@@[@@@@@[@@@#@[@@ MAIN PROGRAM @G@]@@KV )@@G@@ STORAGE USED: CODE(1) 000035; DATA(0) 000016; BLANK COMMON(2) 012611 KW )@@G@@@#@]@@ COMMON BLOCKS:@@@[@@@^@[@@ 0003 INIT 000013@A@#@@ EXTKX )@@G@@ERNAL REFERENCES (BLOCK, NAME)@@@[@@@#@[@@ 0004 H8EADR @#@[@@ 00KY )@@G@@05 INITAL @#@[@@ 0006 PASS1 @#@[@@ 0007 EDIT @#@[@@ 00KZ )@@G@@10 PASS2 @#@[@@ 0011 RDIR @#@[@@ 0012 TERM @#@[@@ 00LA )@@G@@13 NINTR$ @#@[@@ 0014 NSTOP$ @F@#@@ STORAGE ASSIGNMENT (BLOCK,LB )@@G@@ TYPE, RELATIVE LOCATION, NAME) @@@[@@@O@[@@ 0001 000007 10L LC )@@G@@ 0001 000027 20L 0003 000012 DHDG 0003 000000 DIAG LD )@@G@@ 0002 000000 ICOL @O@[@@ 0002 000001 IFIR 0003 L 000001 LE )@@G@@INDENT 0002 000002 INPUT 0002 000450 IOUT 0002 003127 LF )@@G@@JCOL @O@[@@ 0002 003130 JINT 0002 005607 JMAX 0000 0LG )@@G@@00005 KBUFF 0000 000005 KB1 0002 005610 KB15 @O@[@@ 00LH )@@G@@00 000012 KB6 0000 000013 KDIG 0002 005611 KD15 00LI )@@G@@02 003130 KIM 0002 000450 KOUT @O@[@@ 0000 000013 K0 LJ )@@G@@ 0002 005613 LAST 0002 005614 LCPY 0002 I 005615 LDEF LK )@@G@@ 0003 L 000002 LDIAG @O@[@@ 0002 I 010551 LDO 0002 010602 LL )@@G@@LFIR 0003 000003 LINE 0003 I 000004 LOPT 0002 010603 LM )@@G@@LQUAL @O@[@@ 0002 010604 LREF 0002 005612 L772 0002 0LN )@@G@@12554 MCOL 0002 012555 MEOF 0002 012556 MEX @O@[@@ 00LO )@@G@@02 012557 MILDO 0002 012560 MLGC 0002 I 012561 MP2 00LP )@@G@@02 I 012562 MSTOP 0002 012563 MTRAN @O@[@@ 0002 012564 NBLC LQ )@@G@@ 0002 012565 NCD 0002 012566 NCDO 0002 012567 NDEF LR )@@G@@ 0002 012570 NDOL @O@[@@ 0002 012571 NDOS 0002 012572 LS )@@G@@NINS 0002 012573 NPAR 0002 012574 NPUN 0002 012575 LT )@@G@@NREC @O@[@@ 0002 012576 NREF 0002 012577 NRT1 0002 0LU )@@G@@12600 NRT2 0003 L 000005 NSTART 0002 012601 NTEMP @O@[@@ 00LV )@@G@@02 012606 NXEQ 0002 003130 OUTPUT 0002 012607 PAREN 00LW )@@G@@02 012610 PNEXT 0003 L 000006 RIGHT @G@[@@ 0003 L 000007 RSTARTLX )@@G@@ 0003 000010 SOPT 0003 L 000011 SOURCE@@@^@@@K@[@@00100 1*LY )@@G@@ C --------------------------------------------------------- LZ )@@G@@ TID00010 @K@[@@00100 2* C ---------------------------------MA )@@G@@------------------------ TID00020 @K@[@@00100 3* C * MB )@@G@@ * TID00030 MC )@@G@@@K@[@@00100 4* C * * * * T I D Y * * * MD )@@G@@ * TID00040 @K@[@@00100 5* C * ME )@@G@@ * TID00050 @K@[@@00100 MF )@@G@@ 6* C * A FORTRAN PROGRAM TO RENUMBER AND OTHERWISE CLEAN UP *MG )@@G@@ TID00060 @K@[@@00100 7* C * AN OLD AND TIRED SMH )@@G@@OURCE PROGRAM. * TID00070 @K@[@@00100 8* C MI )@@G@@ * * TIDMJ )@@G@@00080 @K@[@@00100 9* C * TIDY ACCEPTS UNIVAC FORTRAN V CODE ASMK )@@G@@ DEFINED IN * TID00090 @K@[@@00100 10* C * ML )@@G@@UP-4060, REV. 2 * TID00100 @K@[@@MM )@@G@@00100 11* C * MN )@@G@@ * TID00110 @K@[@@00100 12* C ---------------------MO )@@G@@------------------------------------ TID00120 @K@[@@00100 13*MP )@@G@@ C --------------------------------------------------------- MQ )@@G@@ TID00130 @K@[@@00100 14* C MR )@@G@@ TID00140 @K@[@@00100 15* C PROMS )@@G@@GRAM AND SUBROUTINES FOR ASA FORTRAN BY HARRY M. MURPHY, TID00150 MT )@@G@@@K@[@@00100 16* C AIR FORCE WEAPONS LABORATORY, KIRTLAND AIR FOMU )@@G@@RCE BASE, NEW MEXICO,TID00160 @K@[@@00100 17* C (1966). MV )@@G@@ TID00170 @K@[@@00100 MW )@@G@@ 18* C PROGRAM MODIFIED FOR FORTRAN V BY DR. PHILLIP H. ROBERTS,MX )@@G@@ JR. AND TID00180 @K@[@@00100 19* C SUZANNE E. DILLER, JET PROPMY )@@G@@ULSION LABORATORY, PASADENA, CALIFORNIATID00190 @K@[@@00100 20* C MZ )@@G@@ (AUGUST, 1972). TIDNA )@@G@@00200 @K@[@@00100 21* C NB )@@G@@ TID00210 @K@[@@00100 22* C NC )@@G@@ TID00220 @K@[@@ND )@@G@@00101 23* INCLUDE TIDY, LIST NE )@@G@@ TID00230 @K@[@@00103 23* IMPLICIT INTEGER (A-ZNF )@@G@@) PRO00020 @K@[@@00104 23*NG )@@G@@ PARAMETER CRDLNG=66 @ MAXIMUM NO. OF CHARS. PER CONT. CARD NH )@@G@@ PRO00030 @K@[@@00105 23* PARAMETER DOS=25 @ MAXIMUM NESTINNI )@@G@@G DEPTH OF DO LOOPS PRO00040 @K@[@@00106 23* PARNJ )@@G@@AMETER MAXCHS=1327 @ MAXIMUM NO. OF CHARS. IN A STATEMENT PRO00050 NK )@@G@@@K@[@@00107 23* PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED SNL )@@G@@TATEMENT NUMBERS PRO00060 @K@[@@00110 23* COMMON ICOL, IFNM )@@G@@IR, INPUT(14,21), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @K@[@@00110 NN )@@G@@ 23* 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), NO )@@G@@ PRO00080 @K@[@@00110 23* 2 LDO(DOS), LFIR, LQUANP )@@G@@L, LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @K@[@@00110 23* NQ )@@G@@ 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, PRONR )@@G@@00100 @K@[@@00110 23* 4 NDOS, NINS, NPAR, NPUN, NREC, NRNS )@@G@@EF, NRT1, NRT2, NTEMP(5), PRO00110 @K@[@@00110 23* 5 NXNT )@@G@@EQ, PAREN, PNEXT PRO00120 @K@[@@NU )@@G@@00111 23* DIMENSION KIM(CRDLNG,20) NV )@@G@@ PRO00130 @K@[@@00112 23* DIMENSION KOUT(CRDLNGNW )@@G@@,20) PRO00140 @K@[@@00113 23*NX )@@G@@ DIMENSION OUTPUT(12,20) NY )@@G@@ PRO00150 @K@[@@00114 23* EQUIVALENCE (KBUFF(1),KB1), (KBUFNZ )@@G@@F(6),KB6) PRO00160 @K@[@@00115 23* EQUOA )@@G@@IVALENCE (KDIG(1),K0) PRO00170 OB )@@G@@@K@[@@00116 23* EQUIVALENCE (IOUT,KOUT) OC )@@G@@ PRO00180 @K@[@@00117 23* EQUIVALENCE (JIOD )@@G@@NT,KIM) PRO00190 @K@[@@00120 OE )@@G@@ 23* EQUIVALENCE (JINT,OUTPUT) OF )@@G@@ PRO00200 @K@[@@00121 23* DEFINE DLOC(X)=FLD(0,18,LDEOG )@@G@@F(X)) PRO00210 @K@[@@00122 23* OH )@@G@@ DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) PROOI )@@G@@00220 @K@[@@00123 23* DEFINE LDOS(X)=FLD(0,18,LDO(X)) OJ )@@G@@ PRO00230 @K@[@@00124 23* DEFINE LDOK )@@G@@OL(X)=FLD(18,18,LDO(X)) PRO00240 @K@[@@OL )@@G@@00124 23* END OM )@@G@@ PRO00250 @K@[@@00125 24* INCLUDE INIT, LIST ON )@@G@@ TID00240 @K@[@@00125 25*OO )@@G@@ C OP )@@G@@ TID00250 @K@[@@00125 26* C IDENTIFY THIS VERSION OF TIDY OQ )@@G@@ TID00260 @K@[@@00125 27* C OR )@@G@@ TID00270 OS )@@G@@@K@[@@00126 27* COMMON /INIT/ DIAG,INDENT,LDIAG,LINE,LOPT,NSTOT )@@G@@ART,RIGHT,RSTART, PRO00440 @K@[@@00126 27* 1 SOU )@@G@@OPT,SOURCE,DHDG PRO00450 @K@[@@00127 OV )@@G@@ 27* LOGICAL INDENT, LDIAG, NSTART, RSTART, SOURCE OW )@@G@@ PRO00460 @K@[@@00130 27* LOGICAL RIGHT OX )@@G@@ PRO00470 @K@[@@00130 27* ENOY )@@G@@D PROOZ )@@G@@00480 @K@[@@00131 28* CALL H8EADR (' TIDY 082372-0200 'PA )@@G@@) TID00280 @K@[@@00131 29* C PB )@@G@@ TID00290 @K@[@@PC )@@G@@00132 30* CALL INITAL @ READ PROCESSOR CALL CARD, INITIALIZEPD )@@G@@ ENVIRONMENT TID00300 @K@[@@00132 31* C PE )@@G@@ TID00310 @K@[@@00133 32*PF )@@G@@ 10 CALL PASS1 PG )@@G@@ TID00320 @K@[@@00134 33* IF (MP2.EQ.0) GO TO 20 PH )@@G@@@ ERROR-- STOP PROCESSING TID00330 @K@[@@00136 34* CALPI )@@G@@L EDIT TID00340 PJ )@@G@@@K@[@@00137 35* CALL PASS2 PK )@@G@@ TID00350 @K@[@@00140 36* IF (MP2.EQ.0) GPL )@@G@@O TO 20 @ FATAL ERROR TID00360 @K@[@@00142 PM )@@G@@ 37* IF (LOPT.NE.0) CALL RDIR @ PRODUCE CROSS REFERENCPN )@@G@@E LIST TID00370 @K@[@@00144 38* IF (MSTOP.EQ.0) GO TO 10 PO )@@G@@ TID00380 @K@[@@00144 39* C PP )@@G@@ TIDPQ )@@G@@00390 @K@[@@00144 40* C TERMINATE PROCESSING PR )@@G@@ TID00400 @K@[@@00144 41* C PS )@@G@@ TID00410 @K@[@@PT )@@G@@00146 42* 20 CALL TERM PU )@@G@@ TID00420 @K@[@@00147 43* STOP PV )@@G@@ TID00430 @K@[@@00147 44*PW )@@G@@ C PX )@@G@@ TID00440 @K@[@@00150 45* END PY )@@G@@ TID00450 @D@]@@ END OF COMPILATIOPZ )@@G@@N: NO DIAGNOSTICS. @A@^@@@HDG,P MAP OF TIDY PROCESSOR QA )@@G@@0CWM+D H, ,1, MAP OF TIDY PROCESSOR . @)[@[@^@@@PACK @^@[@@QB )@@G@@FURPUR 17-C 08/27-19:33 @[@^@@@PREP @#__@@@MAP,IS MAP,TIDY@A@[@@MAP QC )@@G@@22-E - 08/27-19:33 -(,0) @@@[@@@B@]@@ 1. IN QD )@@G@@ TIDY,DATA @@@]@@@^@[@@ERROR IN ELEMENT: DATA @D@B@@ADDRESS LIMITS QE )@@G@@001000 025115 040000 065475 @^@[@@STARTING ADDRESS 025061@C@]@@QF )@@G@@WORDS DECIMAL 10318 IBANK 11070 DBANK@@@]@@@G@#@@ QG )@@G@@ SEGMENT MAIN 001000 025115 040000 065475 @@@[@@@C@[@@QH )@@G@@NRBLK$/FOR 1 001000 001025 @G@[@@NBDCV$/FOR QI )@@G@@ 1 001026 001161 2 040000 040037 @C@[@@NFTV$/FOR QJ )@@G@@ 1 001162 001204 @G@[@@NCNVT$/FOR 1 QK )@@G@@001205 001437 2 040040 040127 @G@[@@NBF00$/FOR QL )@@G@@ 2 040130 042331 @G@[@@NININ$/FOR QM )@@G@@ 1 001440 001664 2 042332 042353 @G@[@@NINPT$/FOR QN )@@G@@ 1 001665 002544 2 042354 042376 @G@[@@NFTCH$QO )@@G@@/FOR 1 002545 003076 2 042377 042446 @C@[@@QP )@@G@@NSWTC$/FOR 1 003077 003120 @C@[@@NBSBL$/FOR QQ )@@G@@ 1 003121 003156 @C@[@@NUPDA$/FOR 1 003157QR )@@G@@ 003214 @C@[@@NWBLK$/FOR 1 003215 003337 @G@[@@QS )@@G@@NWEF$/FOR 1 003340 003532 2 042447 042466 QT )@@G@@@G@[@@NOTIN$/FOR 1 003533 004072 2 042467 04250QU )@@G@@5 @G@[@@NOUT$/FOR 1 004073 005112 2 042506QV )@@G@@ 042536 @G@[@@NFMT$/FOR 1 005113 006017 2 QW )@@G@@042537 042555 @G@[@@NIOER$/FOR 1 006020 006172 QX )@@G@@ 2 042556 042672 @G@[@@NTAB$/FOR QY )@@G@@ 2 042673 043047 @G@[@@RLIB$ID QZ )@@G@@ 0 043050 043050 @G@[@@UTINFV (COMMON BLOCK) RA )@@G@@ 043051 043053 @G@[@@NFCHK$/FOR RB )@@G@@ 1 006173 006776 2 043054 043215 @G@[@@ RC )@@G@@ 3 UTINFV 4 043216 043267 @C@[@@NIBUF$/FOR RD )@@G@@ 1 006777 007040 @G@[@@NFINP$/FOR 1 RE )@@G@@007041 007367 2 043270 043355 @G@[@@NPAUS$/FOR RF )@@G@@ 1 007370 007402 2 043356 043370 @G@[@@NRWND$/FOR RG )@@G@@ 1 007403 007461 2 043371 043402 @G@[@@NFOUT$/FOR RH )@@G@@ 1 007462 007766 2 043403 043424 @C@[@@SDFO RI )@@G@@ 1 007767 010101 @C@[@@SDFI RJ )@@G@@ 1 010102 010254 @G@[@@INFOR$ 1 010255 01063RK )@@G@@5 0 043425 043457 @G@[@@NCLOS$/FOR 1 010636RL )@@G@@ 010774 2 043460 043504 @G@[@@NERR$/FOR 1 RM )@@G@@010775 011340 2 043505 043702 @G@[@@NIER$/FOR RN )@@G@@ 1 011341 011423 2 043703 044033 @C@[@@NOBUF$/FOR RO )@@G@@ 1 011424 011465 @[@[@@ERU$ @G@[@@NSTOP$/FOR RP )@@G@@ 1 011466 011523 2 044034 044046 @G@[@@NINTR$/FOR RQ )@@G@@ 1 011524 011745 2 044047 044133 @G@[@@CHUTIL-INIT RR )@@G@@ 1 011746 011757 2 044134 044134 @G@[@@CHUTILRS )@@G@@CHMOVE 1 011760 012001 2 044135 044157 @G@[@@RT )@@G@@CHUTILCHPACK 1 012002 012026 2 044160 044216 RU )@@G@@@C@[@@CHUTILCHSQUZ 1 012027 012062 @G@[@@CPU RV )@@G@@ 1 012063 012117 0 044217 044224 @C@[@@CSFD RW )@@G@@ 1 012120 012122 @G@[@@RENUM RX )@@G@@ 1 012123 012254 0 044225 044252 @F@[@@ RY )@@G@@ 3 ALPHA 2 BLANK$COMMON@E@[@@ RZ )@@G@@ 4 INIT @G@[@@IOERR SA )@@G@@ 1 012255 012321 0 044253 044272 @F@[@@ SB )@@G@@ 3 IOMSG 2 BLANK$COMMON@E@[@@ SC )@@G@@ 4 TAPES @G@[@@KIMPAK SD )@@G@@ 1 012322 012562 0 044273 044336 @F@[@@ SE )@@G@@ 3 ALPHA 2 BLANK$COMMON@E@[@@ SF )@@G@@ 4 LIOS @G@[@@DLIST SG )@@G@@ 1 012563 013042 0 044337 044423 @F@[@@ SH )@@G@@ 3 ALPHA 2 BLANK$COMMON@E@[@@ SI )@@G@@ 5 INIT 4 DIOMSG@E@[@@ SJ )@@G@@ 7 TAPES 6 LIOS @G@[@@RLIST 1 SK )@@G@@013043 013132 0 044424 044444 @F@[@@ SL )@@G@@ 3 LIOS 2 BLANK$COMMON@G@[@@RSTAT SM )@@G@@ 1 013133 013217 0 044445 044465 @F@[@@ SN )@@G@@ 3 ALPHA 2 BLANK$COMMON@G@[@@COPY SO )@@G@@ 1 013220 013415 0 044466 044505 @F@[@@ SP )@@G@@ 3 ALPHA 2 BLANK$COMMON@G@[@@HOLCK SQ )@@G@@ 1 013416 014024 0 044506 044543 @F@[@@ SR )@@G@@ 3 ALPHA 2 BLANK$COMMON@E@[@@ SS )@@G@@ 5 LIOS 4 INIT @G@[@@DIAGNO ST )@@G@@ 1 014025 014117 0 044544 044605 @F@[@@ SU )@@G@@ 3 DIOMSG 2 BLANK$COMMON@E@[@@ SV )@@G@@ 5 TAPES 4 INIT @G@[@@CONTRL SW )@@G@@ 1 014120 014560 0 044606 044645 @F@[@@ SX )@@G@@ 3 ALPHA 2 BLANK$COMMON@E@[@@ SY )@@G@@ 5 INIT 4 CONTDY@E@[@@ SZ )@@G@@ 6 TAPES @G@[@@SKARD TA )@@G@@ 1 014561 015172 0 044646 044724 @F@[@@ TB )@@G@@ 3 ALPHA 2 BLANK$COMMON@E@[@@ TC )@@G@@ 5 WORK 4 INIT @E@[@@ TD )@@G@@ 6 TAPES @G@[@@IOSYS TE )@@G@@ 1 015173 015564 0 044725 045755 @F@[@@ TF )@@G@@ 3 TAPES 2 BLANK$COMMON@G@[@@ELTWHD TG )@@G@@ 1 015565 015576 0 045756 045761 @G@[@@ELTW TH )@@G@@ 1 015577 015751 0 045762 045763 @G@[@@ELTR TI )@@G@@ 1 015752 016127 0 045764 045767 @G@[@@TJ )@@G@@ASSIGN 1 016130 016151 0 045770 045772 TK )@@G@@@G@[@@INFFMT 1 016152 016233 0 045773 04577TL )@@G@@5 @G@[@@INFOR8 1 016234 016324 2 045776TM )@@G@@ 046001 @G@[@@ 30 TN )@@G@@046002 046003 @G@[@@TERM 1 016325 016472 TO )@@G@@ 0 046004 046075 @F@[@@ 3 DIOMSG TP )@@G@@ 2 BLANK$COMMON@E@[@@ 5 WORK TQ )@@G@@ 4 TAPES @G@[@@RDIR 1 016473 016661 TR )@@G@@ 0 046076 046166 @F@[@@ 3 TAPES TS )@@G@@ 2 BLANK$COMMON@G@[@@PASS2 1 016662 01725TT )@@G@@4 0 046167 046237 @F@[@@ 3 ALPHA TU )@@G@@ 2 BLANK$COMMON@E@[@@ 5 KST TV )@@G@@ 4 INIT @E@[@@ 7 TAPES TW )@@G@@ 6 LIOS @E@[@@ TX )@@G@@ 8 WORK @G@[@@EDIT 1 017255 017476 0 TY )@@G@@046240 046344 @F@[@@ 3 DIOMSG TZ )@@G@@ 2 BLANK$COMMON@E@[@@ 5 TAPES UA )@@G@@ 4 INIT @G@[@@LIOS (COMMON BLOCK) UB )@@G@@046345 046350 @G@[@@PASS1 1 017477 024416 UC )@@G@@ 0 046351 046473 @F@[@@ 3 ALPHA UD )@@G@@ 2 BLANK$COMMON@E@[@@ 5 KST UE )@@G@@ 4 INIT @E@[@@ 7 TAPES UF )@@G@@ 6 LIOS @G@[@@WORK (COMMON BLOCK) UG )@@G@@046474 050366 @G@[@@INITAL 1 024417 025003 UH )@@G@@ 0 050367 050545 @F@[@@ 3 INIT UI )@@G@@ 2 BLANK$COMMON@E@[@@ 5 WORK UJ )@@G@@ 4 TAPES @G@[@@H8EADR 1 025004 025060 UK )@@G@@ 0 050546 050556 @G@[@@TAPES (COMMON BLOCK) UL )@@G@@ 050557 050574 @G@[@@KST (COMMON BLOCK) UM )@@G@@ 050575 052064 @G@[@@IOMSG (COMMON BLOCK) UN )@@G@@ 052065 052075 @G@[@@INIT (COMMON BLOCK) UO )@@G@@ 052076 052110 @G@[@@DIOMSG (COMMON BLOUP )@@G@@CK) 052111 052503 @G@[@@CONTDY (COMMUQ )@@G@@ON BLOCK) 052504 052547 @G@[@@ALPHA UR )@@G@@(COMMON BLOCK) 052550 052634 @G@[@@US )@@G@@BLANK$COMMON (COMMON BLOCK) 052635 065445 UT )@@G@@@G@[@@TIDY 1 025061 025115 0 065446 06546UU )@@G@@3 @F@[@@ 3 INIT 2 BLANK$UV )@@G@@COMMON@G@[@@DATA 3 ALPHA 0 065464UW )@@G@@ 065475 @F@[@@ 5 DIOMSG 2 UX )@@G@@BLANK$COMMON@E@[@@ 7 IOMSG 4 UY )@@G@@CONTDY@E@[@@ 9 TAPES 6 INIT UZ )@@G@@@E@[@@ 8 KST @^@#@@VA )@@G@@SYS$*RLIB$. LEVEL 57 02@B@[@@END OF COLLECTION - TIME 2.661 SECONDS VB )@@G@@@@@[@@@E@^@@@HDG,P CHANGE PROCS TO SUBROUTINES FOR INPUT TO INDEX VC )@@G@@0GW:9D H, ,1, CHANGE PROCS TO SUBROUTINES FOR INPUT TO INDEX VD )@@G@@ . M;(@#__@@@ELT,I SPROCS @A@[@@ELT 4-B 08/27/72 19:34:31 VE )@@G@@@^__@@@ELT,L SPROCS,SPROCS @A@[@@ELT 4-B 08/27/72 19:34:33 VF )@@G@@@B@[@@000001 NEW 000 SUBROUTINE PTIDY @L@[@@000002 -01 000 VG )@@G@@ IMPLICIT INTEGER (A-Z) VH )@@G@@PRO00020 @L@[@@000003 000 PARAMETER CRDLNG=66 @ MAXIMUM VI )@@G@@NO. OF CHARS. PER CONT. CARD PRO00030 @L@[@@000004 000 VJ )@@G@@ PARAMETER DOS=25 @ MAXIMUM NESTING DEPTH OF DO LOOPS VK )@@G@@PRO00040 @L@[@@000005 000 PARAMETER MAXCHS=1327 @ MAXIMUVL )@@G@@M NO. OF CHARS. IN A STATEMENT PRO00050 @L@[@@000006 000 VM )@@G@@ PARAMETER DEFLNG=1500 @ MAX. NO. OF DEFINED STATEMENT NUMBERS VN )@@G@@PRO00060 @L@[@@000007 000 COMMON ICOL, IFIR, INPUT(14,21VO )@@G@@), IOUT(MAXCHS), JCOL, JINT(MAXCHS),PRO00070 @L@[@@000008 000 VP )@@G@@ 1 JMAX, KB15, KD15, L772, LAST, LCPY, LDEF(DEFLNG), VQ )@@G@@PRO00080 @L@[@@000009 000 2 LDO(DOS), LFIR, LQUAL, VR )@@G@@LREF(1000), MCOL, MEOF, MEX, MILDO, PRO00090 @L@[@@000010 000 VS )@@G@@ 3 MLGC, MP2, MSTOP, MTRAN, NBLC, NCD, NCDO, NDEF, NDOL, VT )@@G@@PRO00100 @L@[@@000011 000 4 NDOS, NINS, NPAR, NPUN,VU )@@G@@ NREC, NREF, NRT1, NRT2, NTEMP(5), PRO00110 @L@[@@000012 000 VV )@@G@@ 5 NXEQ, PAREN, PNEXT VW )@@G@@PRO00120 @L@[@@000013 000 DIMENSION KIM(CRDLNG,20) VX )@@G@@ PRO00130 @L@[@@000014 000 VY )@@G@@ DIMENSION KOUT(CRDLNG,20) VZ )@@G@@PRO00140 @L@[@@000015 000 DIMENSION OUTPUT(12,20) WA )@@G@@ PRO00150 @L@[@@000016 000 WB )@@G@@ EQUIVALENCE (KBUFF(1),KB1), (KBUFF(6),KB6) WC )@@G@@PRO00160 @L@[@@000017 000 EQUIVALENCE (KDIG(1),K0) WD )@@G@@ PRO00170 @L@[@@000018 000 WE )@@G@@ EQUIVALENCE (IOUT,KOUT) WF )@@G@@PRO00180 @L@[@@000019 000 EQUIVALENCE (JINT,KIM) WG )@@G@@ PRO00190 @L@[@@000020 000 WH )@@G@@ EQUIVALENCE (JINT,OUTPUT) WI )@@G@@PRO00200 @L@[@@000021 000 DEFINE DLOC(X)=FLD(0,18,LDEF(XWJ )@@G@@)) PRO00210 @L@[@@000022 000 WK )@@G@@ DEFINE DSTMT(X)=FLD(18,18,LDEF(X)) WL )@@G@@PRO00220 @L@[@@000023 000 DEFINE LDOS(X)=FLD(0,18,LDO(X)WM )@@G@@) PRO00230 @L@[@@000024 000 WN )@@G@@ DEFINE LDOL(X)=FLD(18,18,LDO(X)) WO )@@G@@PRO00240 @ @[@@000025 NEW 000 END @B@[@@000026 NEW 000 WP )@@G@@ SUBROUTINE PALPHA @L@[@@000027 -02 000 COMMON /ALPHA/ KBLWQ )@@G@@,KDIG(10),KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL, PRO00270 @L@[@@000028WR )@@G@@ 000 1 KM,KN,KO,KP,KQ,KR,KS,KT,KU,KV,KW,KX,KY,WS )@@G@@KZ, PRO00280 @L@[@@000029 000 2 KEQWT )@@G@@,KCOMMA,KOPEN,KSLASH,KCLOSE,KPLUS,KMINUS,KSTAR, PRO00290 @L@[@@000030WU )@@G@@ 000 3 KPERD,KDOLAR,KDASH,KQUOTE,KAND,KAT,KLR2WV )@@G@@,KERM PRO00300 @L@[@@000031 000 DIMENSION KABC(26)WW )@@G@@, KSPK(14) PRO00310 @L@[@@000032WX )@@G@@ 000 EQUIVALENCE (KABC,KA), (KSPK,KEQ) WY )@@G@@ PRO00320 @ @[@@000033 NEW 000 END @B@[@@000034WZ )@@G@@ NEW 000 SUBROUTINE PCONTD @L@[@@000035 -02 000 PARAMEXA )@@G@@TER NKTRL=9 PRO00350 XB )@@G@@@L@[@@000036 000 COMMON /CONTDY/ KTRL(4,NKTRL) XC )@@G@@ PRO00360 @L@[@@000037 000 PARAMEXD )@@G@@TER CBASE=1 @ KTRL INDEX FOR BASE CONTROL STATEMENT PRO00370 XE )@@G@@@ @[@@000038 NEW 000 END @B@[@@000039 NEW 000 SUBROUXF )@@G@@TINE PDIOMS @L@[@@000040 -02 000 PARAMETER LMSG=25 XG )@@G@@ PRO00400 @L@[@@000041 000 XH )@@G@@ COMMON /DIOMSG/ NMSG, MSG(10,LMSG) XI )@@G@@PRO00410 @ @[@@000042 NEW 000 END @B@[@@000043 NEW 000 XJ )@@G@@ SUBROUTINE PINIT @L@[@@000044 -02 000 COMMON /INIT/ DIAGXK )@@G@@,INDENT,LDIAG,LINE,LOPT,NSTART,RIGHT,RSTART, PRO00440 @L@[@@000045XL )@@G@@ 000 1 SOPT,SOURCE,DHDG XM )@@G@@ PRO00450 @L@[@@000046 000 LOGICAL INDENT, LDXN )@@G@@IAG, NSTART, RSTART, SOURCE PRO00460 @L@[@@000047XO )@@G@@ 000 LOGICAL RIGHT XP )@@G@@ PRO00470 @ @[@@000048 NEW 000 END @B@[@@000049XQ )@@G@@ NEW 000 SUBROUTINE PIOMSG @L@[@@000050 -02 000 COMMONXR )@@G@@ /IOMSG/ IOMSGS(9) PRO00500 XS )@@G@@@ @[@@000051 NEW 000 END @B@[@@000052 NEW 000 SUBROUXT )@@G@@TINE PKST @L@[@@000053 -02 000 PARAMETER NOIDS=58 @ NUMBER OFXU )@@G@@ FORTRAN DIRECTIVES PRO00530 @L@[@@000054 000 XV )@@G@@ PARAMETER IDCONT= 9 @ KSTIJ INDEX FOR CONTINUE STATEMENT XW )@@G@@PRO00540 @L@[@@000055 000 PARAMETER IDDELE=13 @ INDEX INXX )@@G@@TO KSTIJ FOR DELETE DIRECTIVE PRO00550 @L@[@@000056 000 XY )@@G@@ PARAMETER IDEND=19 @ INDEX INTO KSTIJ FOR END STATEMENT XZ )@@G@@PRO00560 @L@[@@000057 000 PARAMETER IDFUNC=24 @ KSTIJ INYA )@@G@@DEX FOR FUNCTION STATEMENT PRO00570 @L@[@@000058 000 YB )@@G@@ PARAMETER IGOTON=26 @ INDEX INTO KSTIJ FOR GO TO N STATEMENT YC )@@G@@PRO00580 @L@[@@000059 000 PARAMETER IDSTOP=53 @ INDEX INYD )@@G@@TO KSTIJ FOR STOP STATEMENT PRO00590 @L@[@@000060 000 YE )@@G@@ COMMON /KST/ KSTIJ(12,NOIDS) YF )@@G@@PRO00600 @ @[@@000061 NEW 000 END @B@[@@000062 NEW 000 YG )@@G@@ SUBROUTINE PLIOS @L@[@@000063 -02 000 COMMON /LIOS/ KLASYH )@@G@@S, ITYPE, L15, IMAX PRO00630 @L@[@@000064YI )@@G@@ 000 DIMENSION KILI(4) YJ )@@G@@ PRO00640 @L@[@@000065 000 EQUIVALENCE (KLASSYK )@@G@@,KILI) PRO00650 @ @[@@000066YL )@@G@@ NEW 000 END @B@[@@000067 NEW 000 SUBROUTINE PTAPES YM )@@G@@@L@[@@000068 -02 000 COMMON /TAPES/ IO1, IO2, JALTFD, JOUT, USEYN )@@G@@ (10) PRO00680 @L@[@@000069 000 PARAMEYO )@@G@@TER STDRD=5 @ STANDARD READ UNIT PRO00690 YP )@@G@@@L@[@@000070 000 PARAMETER STDPRT=6 @ STANDARD PRINT UNIT YQ )@@G@@ PRO00700 @L@[@@000071 000 PARAMEYR )@@G@@TER STDALT=101 @ STANDARD ALTERNATE PRINT UNIT PRO00710 YS )@@G@@@ @[@@000072 NEW 000 END @B@[@@000073 NEW 000 SUBROUYT )@@G@@TINE PWORK @L@[@@000074 -02 000 PARAMETER LTIDY=55 YU )@@G@@ PRO00740 @L@[@@000075 000 YV )@@G@@ PARAMETER LTIDY1=LTIDY+1 YW )@@G@@PRO00750 @L@[@@000076 000 COMMON /WORK/ ECYC, LATEST, NOYX )@@G@@SPC1, WORK1(476), WORK2(476) PRO00760 @L@[@@000077 000 YY )@@G@@ DIMENSION TIDYC(LTIDY) YZ )@@G@@PRO00770 @L@[@@000078 000 DIMENSION FILE(15) ZA )@@G@@ PRO00780 @L@[@@000079 000 ZB )@@G@@ EQUIVALENCE (WORK2,TIDYC), (WORK2(LTIDY1),FILE) ZC )@@G@@PRO00790 @ @[@@000080 NEW 000 END @A@^@@@HDG,P CONTENTSZD )@@G@@ OF TIDY FILE 0C[[$$ H, ,1, CONTENTS OF TIDY FILE . @)[ZE )@@G@@@[__@@@EJECT@[@^@@@PRT,T@^@[@@FURPUR 17-C 08/27-19:34 @ @]@@SED*TIDY ZF )@@G@@ELEMENT TABLE @O@]@@D NAME VERSION TYPE DAZG )@@G@@TE TIME SEQ # SIZE-PRE,TEXT (CYCLE WORD) PSRMODE LOCATION ZH )@@G@@@O@[@@ ASSIGN RELOCATABLE 04 MAR 72 14:56:48 ZI )@@G@@ 1 1 2 1792 @O@[@@ CHUTIL-INZJ )@@G@@IT RELOCATABLE 19 AUG 71 14:34:57 2 1 ZK )@@G@@ 1 1795 @O@[@@ CHUTILCHMOVE ZL )@@G@@ RELOCATABLE 19 AUG 71 14:33:36 3 2 2 ZM )@@G@@ 1797 @O@[@@ CHUTILCHPACK RELOCATABLE 19 AZN )@@G@@UG 71 14:33:46 4 1 3 1801 ZO )@@G@@@O@[@@ CHUTILCHSQUZ RELOCATABLE 19 AUG 71 14:34:26 ZP )@@G@@ 5 1 2 1805 @O@[@@ CPU ZQ )@@G@@ RELOCATABLE 14 APR 72 03:49:17 6 1 ZR )@@G@@ 2 1808 @O@[@@ CSFD ZS )@@G@@ RELOCATABLE 07 JUN 72 16:20:37 7 1 1 ZT )@@G@@ 1811 @O@[@@ ELTR RELOCATABLE 15 NZU )@@G@@OV 71 11:02:34 8 2 6 1813 ZV )@@G@@@O@[@@ ELTW RELOCATABLE 19 AUG 71 14:33:07 ZW )@@G@@ 9 2 6 1821 @O@[@@ ELTWHD ZX )@@G@@ RELOCATABLE 19 AUG 71 14:33:03 10 1 ZY )@@G@@ 1 1829 @O@[@@ H8EADR ZZ )@@G@@ RELOCATABLE 14 APR 72 03:49:25 11 1 3 AA )@@G@@ 1831 @O@[@@ INFFMT RELOCATABLE 14 AAB )@@G@@PR 72 03:49:25 12 1 3 1835 AC )@@G@@@O@[@@ INFOR8 RELOCATABLE 31 AUG 71 10:27:26 AD )@@G@@ 13 3 4 1839 @O@[@@* TIDY AE )@@G@@ ABSOLUTE 15 AUG 72 02:30:51 14 AF )@@G@@489 1846 @O@[@@ CONTRL AG )@@G@@ SYMBOLIC 23 AUG 72 19:18:21 15 62 5 0 1 AH )@@G@@ 2335 @O@[@@ COPY SYMBOLIC 23 AAI )@@G@@UG 72 19:18:24 16 51 5 0 1 2397 AJ )@@G@@@O@[@@ DATA SYMBOLIC 23 AUG 72 19:18:29 AK )@@G@@ 17 70 5 0 1 2448 @O@[@@ DIAGNO AL )@@G@@ SYMBOLIC 23 AUG 72 19:18:33 18 AM )@@G@@ 30 5 0 1 2518 @O@[@@ DLIST AN )@@G@@ SYMBOLIC 23 AUG 72 19:18:37 19 48 5 0 1 AO )@@G@@ 2548 @O@[@@ EDIT SYMBOLIC 23 AAP )@@G@@UG 72 19:18:41 20 38 5 0 1 2596 AQ )@@G@@@O@[@@ HOLCK SYMBOLIC 23 AUG 72 19:18:46 AR )@@G@@ 21 71 5 0 1 2634 @O@[@@ INITAL AS )@@G@@ SYMBOLIC 23 AUG 72 19:18:50 22 AT )@@G@@ 59 5 0 1 2705 @O@[@@ IOERR AU )@@G@@ SYMBOLIC 23 AUG 72 19:18:55 23 17 5 0 1 AV )@@G@@ 2764 @O@[@@ IOSYS SYMBOLIC 23 AAW )@@G@@UG 72 19:19:00 24 48 5 0 1 2781 AX )@@G@@@O@[@@ KIMPAK SYMBOLIC 23 AUG 72 19:19:04 AY )@@G@@ 25 25 5 0 1 2829 @O@[@@ PASS2 AZ )@@G@@ SYMBOLIC 23 AUG 72 19:19:30 26 BA )@@G@@ 59 5 0 1 2854 @O@[@@ RDIR BB )@@G@@ SYMBOLIC 23 AUG 72 19:19:36 27 27 5 0 1 BC )@@G@@ 2913 @O@[@@ RENUM SYMBOLIC 23 ABD )@@G@@UG 72 19:19:41 28 26 5 0 1 2940 BE )@@G@@@O@[@@ RLIST SYMBOLIC 23 AUG 72 19:19:45 BF )@@G@@ 29 18 5 0 1 2966 @O@[@@ RSTAT BG )@@G@@ SYMBOLIC 23 AUG 72 19:19:48 30 BH )@@G@@ 13 5 0 1 2984 @O@[@@ SKARD BI )@@G@@ SYMBOLIC 23 AUG 72 19:19:52 31 47 5 0 1 BJ )@@G@@ 2997 @O@[@@ TERM SYMBOLIC 23 ABK )@@G@@UG 72 19:19:54 32 21 5 0 1 3044 BL )@@G@@@O@[@@ TIDY SYMBOLIC 23 AUG 72 19:19:57 BM )@@G@@ 33 25 5 0 1 3065 @O@[@@ PASS1 BN )@@G@@ SYMBOLIC 27 AUG 72 19:26:24 34 BO )@@G@@640 5 0 1 3090 @O@[@@ PROCS BP )@@G@@ FOR PROC 27 AUG 72 19:26:33 35 43 1 0 1 BQ )@@G@@ 3730 @O@[@@ CONTRL RELOCATABLE 27 ABR )@@G@@UG 72 19:26:58 36 2 17 3773 BS )@@G@@@O@[@@ COPY RELOCATABLE 27 AUG 72 19:27:20 BT )@@G@@ 37 1 7 3792 @O@[@@ DATA BU )@@G@@ RELOCATABLE 27 AUG 72 19:27:38 38 2 BV )@@G@@ 49 3800 @O@[@@ DIAGNO BW )@@G@@ RELOCATABLE 27 AUG 72 19:27:43 39 2 5 BX )@@G@@ 3851 @O@[@@ DLIST RELOCATABLE 27 ABY )@@G@@UG 72 19:28:12 40 2 12 3858 BZ )@@G@@@O@[@@ EDIT RELOCATABLE 27 AUG 72 19:28:17 CA )@@G@@ 41 2 11 3872 @O@[@@ HOLCK CB )@@G@@ RELOCATABLE 27 AUG 72 19:28:24 42 2 CC )@@G@@ 15 3885 @O@[@@ INITAL CD )@@G@@ RELOCATABLE 27 AUG 72 19:28:57 43 2 19 CE )@@G@@ 3902 @O@[@@ IOERR RELOCATABLE 27 ACF )@@G@@UG 72 19:29:01 44 2 3 3923 CG )@@G@@@O@[@@ IOSYS RELOCATABLE 27 AUG 72 19:29:07 CH )@@G@@ 45 2 15 3928 @O@[@@ KIMPAK CI )@@G@@ RELOCATABLE 27 AUG 72 19:29:49 46 2 CJ )@@G@@ 10 3945 @O@[@@ PASS1 CK )@@G@@ RELOCATABLE 27 AUG 72 19:31:25 47 3 137 CL )@@G@@ 3957 @O@[@@ PASS2 RELOCATABLE 27 ACM )@@G@@UG 72 19:31:42 48 3 15 4097 CN )@@G@@@O@[@@ RDIR RELOCATABLE 27 AUG 72 19:32:03 CO )@@G@@ 49 1 9 4115 @O@[@@ RENUM CP )@@G@@ RELOCATABLE 27 AUG 72 19:32:33 50 1 CQ )@@G@@ 6 4125 @O@[@@ RLIST CR )@@G@@ RELOCATABLE 27 AUG 72 19:32:42 51 1 4 CS )@@G@@ 4132 @O@[@@ RSTAT RELOCATABLE 27 ACT )@@G@@UG 72 19:32:52 52 1 4 4137 CU )@@G@@@O@[@@ SKARD RELOCATABLE 27 AUG 72 19:33:04 CV )@@G@@ 53 3 16 4142 @O@[@@ TERM CW )@@G@@ RELOCATABLE 27 AUG 72 19:33:14 54 2 CX )@@G@@ 9 4161 @O@[@@ TIDY CY )@@G@@ RELOCATABLE 27 AUG 72 19:33:23 55 2 3 CZ )@@G@@ 4172 @O@[@@ MAP MAP SYMB 27 ADA )@@G@@UG 72 19:33:52 56 1 5 0 1 4177 DB )@@G@@@O@[@@ TIDY ABSOLUTE 27 AUG 72 19:34:29 DC )@@G@@ 57 486 4178 @O@[@@* SPROCS DD )@@G@@ ELT SYMB 27 AUG 72 19:34:31 58 DE )@@G@@ 43 5 0 1 4664 @O@[@@ SPROCS DF )@@G@@ ELT SYMB 27 AUG 72 19:34:36 59 36 0 0 1 DG )@@G@@ 4707 @O@[@@NEXT AVAILABLE LOCATION- DH )@@G@@ 4743 DI )@@G@@@A@]@@ASSEMBLER PROCEDURE TABLE EMPTY @ @]@@COBOL PROCEDURE TABLE EMDJ )@@G@@PTY @C@]@@ FORTRAN PROCEDURE TABLE @P@]@@D NAMEDK )@@G@@ LOCATION LINK D NAME LOCATION LIDL )@@G@@NK D NAME LOCATION LINK @O@[@@ ALPHA DM )@@G@@ 104817 35 CONTDY 104937 35 DIOMDN )@@G@@SG 105012 35@O@[@@ INIT 105072 35DO )@@G@@ IOMSG 105162 35 KST 10DP )@@G@@5207 35@O@[@@ LIOS 105357 35 TAPES DQ )@@G@@ 105432 35 TIDY 104442 35@A@[@@DR )@@G@@ WORK 105522 35@B@]@@ ENTRY DS )@@G@@POINT TABLE @O@]@@ D NAME LINK D NAME LINK D NADT )@@G@@ME LINK D NAME LINK D NAME LINK @O@[@@DU )@@G@@ ASSIGN 1 CHMOVE 3 CHPACK 4DV )@@G@@ CHSQUZ 5 CHUPAK 4@O@[@@ CH$INIT DW )@@G@@ 2 CONTRL 36 COPY 37 CPU DX )@@G@@ 6 CSFD 7@O@[@@ DIAGNO 39 DLIST DY )@@G@@ 40 EDIT 41 ELTR 8 ELTRC DZ )@@G@@ 8@O@[@@ ELTRO 8 ELTW 9 ELEA )@@G@@TWC 9 ELTWHD 10 ELTWO 9@O@[@@EB )@@G@@ ERCSF 7 FORMAIN$ 55 HOLCK 42EC )@@G@@ H8EADR 11 INFFMT 12@O@[@@ INFORR ED )@@G@@ 13 INFORS 13 INFORU 13 INFORW EE )@@G@@ 13 INITAL 43@O@[@@ IOERR 44 IOSYS1 EF )@@G@@ 45 IOSYS2 45 KIMPAK 46 LOAD EG )@@G@@ 3@O@[@@ LOADO 3 PASS1 47 PAEH )@@G@@SS2 48 RDIR 49 RENUM 50@O@[@@EI )@@G@@ RLIST 51 RSTAT 52 SKARD 53EJ )@@G@@ STORE 3 STOREO 3@^@[@@ TERM EK )@@G@@ 54@D@^@@@HDG,P CROSS-REFERENCE DIRECTORY OF TIDY PROCESSOR 0F@@@@EL )@@G@@ H, ,1, CROSS-REFERENCE DIRECTORY OF TIDY PROCESSOR . @@@@#__@@EM )@@G@@@INFO*PROC$$.INDEX@B@[@@ INDEX 082272-0300 08/27/72 19:34:45@L__@@EN )@@G@@ I N D E X EO )@@G@@ PAGE 1 @I@[@@ ----------EP )@@G@@----------------------------------------------- @@@[@@@M@[@@ 00001* EQ )@@G@@ C ----------------------------------------------------ER )@@G@@----- TID00010 @M@[@@ 00002* C ----------ES )@@G@@----------------------------------------------- TID00020 @M@[@@ET )@@G@@ 00003* C * EU )@@G@@ * TID00030 @M@[@@ 00004* C EV )@@G@@ * * * * T I D Y * * * * TID0EW )@@G@@0040 @M@[@@ 00005* C * EX )@@G@@ * TID00050 @M@[@@ 00006* EY )@@G@@ C * A FORTRAN PROGRAM TO RENUMBER AND OTHERWISE CLEAN UP * EZ )@@G@@ TID00060 @M@[@@ 00007* C * AN OLD FA )@@G@@AND TIRED SOURCE PROGRAM. * TID00070 @M@[@@ 00008FB )@@G@@* C * FC )@@G@@ * TID00080 @M@[@@ 00009* C * TIFD )@@G@@DY ACCEPTS UNIVAC FORTRAN V CODE AS DEFINED IN * TID00090 FE )@@G@@@M@[@@ 00010* C * UP-4060, REV. 2 FF )@@G@@ * TID00100 @M@[@@ 00011* FG )@@G@@ C * * FH )@@G@@ TID00110 @M@[@@ 00012* C ----------------------FI )@@G@@----------------------------------- TID00120 @M@[@@ 00013* FJ )@@G@@ C ----------------------------------------------------FK )@@G@@----- TID00130 @M@[@@ 00014* C FL )@@G@@ TID00140 @M@[@@FM )@@G@@ 00015* C PROGRAM AND SUBROUTINES FOR ASA FORTRAN FN )@@G@@BY HARRY M. MURPHY, TID00150 @M@[@@ 00016* C FO )@@G@@ AIR FORCE WEAPONS LABORATORY, KIRTLAND AIR FORCE BASE, NEW MEXICO,TID0FP )@@G@@0160 @M@[@@ 00017* C (1966). FQ )@@G@@ TID00170 @M@[@@ 00018* FR )@@G@@ C PROGRAM MODIFIED FOR FORTRAN V BY DR. PHILLIP H. ROBERTS, FS )@@G@@JR. AND TID00180 @M@[@@ 00019* C SUZANNE E. DILLEFT )@@G@@R, JET PROPULSION LABORATORY, PASADENA, CALIFORNIATID00190 @M@[@@ 00020FU )@@G@@* C (AUGUST, 1972). FV )@@G@@ TID00200 @M@[@@ 00021* C FW )@@G@@ TID00210 FX )@@G@@@M@[@@ 00022* C FY )@@G@@ TID00220 @M@[@@ 00023* 1 FZ )@@G@@ INCLUDE TIDY, LIST GA )@@G@@ TID00230 @M@[@@ 00024* 2 INCLUDE INIT, LIST GB )@@G@@ TID00240 @M@[@@ 00025* GC )@@G@@ C GD )@@G@@ TID00250 @M@[@@ 00026* C IDENTIFY TGE )@@G@@HIS VERSION OF TIDY TID00260 @M@[@@GF )@@G@@ 00027* C GG )@@G@@ TID00270 @M@[@@ 00028* 3 GH )@@G@@ CALL H8EADR (' TIDY 082372-0200 ') TID0GI )@@G@@0280 @M@[@@ 00029* C GJ )@@G@@ TID00290 @M@[@@ 00030* GK )@@G@@ 4 CALL INITAL @ READ PROCESSOR CALL CARD, INITIALIZE ENVIROGL )@@G@@NMENT TID00300 @M@[@@ 00031* C GM )@@G@@ TID00310 @M@[@@ 00032GN )@@G@@* 5 10 CALL PASS1 GO )@@G@@ TID00320 @M@[@@ 00033* 6 IF (GP )@@G@@MP2.EQ.0) GO TO 20 @ ERROR-- STOP PROCESSING TID00330 GQ )@@G@@@M@[@@ 00034* 7 CALL EDIT GR )@@G@@ TID00340 @M@[@@ 00035* 8 GS )@@G@@ CALL PASS2 GT )@@G@@ TID00350 @M@[@@ 00036* 9 IF (MP2.EQ.0) GO TO 20GU )@@G@@ @ FATAL ERROR TID00360 @M@[@@ 00037* GV )@@G@@ 10 IF (LOPT.NE.0) CALL RDIR @ PRODUCE CROSS REFGW )@@G@@ERENCE LIST TID00370 @M@[@@ 00038* 11 IF (MSTOP.GX )@@G@@EQ.0) GO TO 10 TID00380 @M@[@@GY )@@G@@ 00039* C GZ )@@G@@ TID00390 @M@[@@ 00040* C HA )@@G@@ TERMINATE PROCESSING TID0HB )@@G@@0400 @M@[@@ 00041* C HC )@@G@@ TID00410 @M@[@@ 00042* HD )@@G@@ 12 20 CALL TERM HE )@@G@@ TID00420 @M@[@@ 00043* 13 STOP HF )@@G@@ TID00430 @M@[@@ 00044HG )@@G@@* C HH )@@G@@ TID00440 @M@[@@ 00045* 14 END HI )@@G@@ TID00450 HJ )@@G@@@L__@@ I N D E X HK )@@G@@ PAGE 2 @I@[@@ ----HL )@@G@@----------------------------------------------------- @@@[@@@K@[@@ HM )@@G@@ SYMBOL = = = = = = = = = = = = = = = REFERENCES = = = = = =HN )@@G@@ = = = = = = = = =@@@[@@@A@[@@ 10 - 5* 11 @B@[@@HO )@@G@@ 20 - 6 9 12*@ @[@@ EDIT - HP )@@G@@7 @ @[@@ H8EADR - 3 @ @[@@ INIT - HQ )@@G@@2IC @ @[@@ INITAL - 4 @ @[@@ LOPT - 1HR )@@G@@0 @A@[@@ MP2 - 6 9 @ @[@@ MSTOP HS )@@G@@- 11 @ @[@@ PASS1 - 5 @ @[@@ PASS2 HT )@@G@@- 8 @ @[@@ RDIR - 10 @ @[@@ TERM HU )@@G@@- 12 @ @[@@ TIDY - 1IC @L@]@@ -+-+-+-+HV )@@G@@-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+HW )@@G@@-+-+-+-+-+ @L__@@ I N D E X HX )@@G@@ PAGE 3 @F@[@@ HY )@@G@@ SUBROUTINE CONTRL @@@[@@@M@[@@ 00046* HZ )@@G@@ 1 SUBROUTINE CONTRL IA )@@G@@ CON00010 @M@[@@ 00047* C IB )@@G@@ CON00020 @M@[@@IC )@@G@@ 00048* C THIS SUBROUTINE EXECUTES THE TIDY CONTROID )@@G@@L STATEMENTS. CON00030 @M@[@@ 00049* C IE )@@G@@ ALL TIDY CONTROL STATEMENTS MUST HAVE AN * PUNCHED IN COLUMN 1. CON0IF )@@G@@0040 @M@[@@ 00050* C IG )@@G@@ CON00050 @M@[@@ 00051* IH )@@G@@ C 1 BASE ====== KB15 II )@@G@@ CON00060 @M@[@@ 00052* C 2 COLL NOCOLLIJ )@@G@@ MCOL CON00070 @M@[@@ 00053IK )@@G@@* C 3 EXEM NOEXEM MEX IL )@@G@@ CON00080 @M@[@@ 00054* C 4 IM )@@G@@LAST ====== MSTOP CON00090 IN )@@G@@@M@[@@ 00055* C 5 LEFT ====== .NOT.RIGHT IO )@@G@@ CON00100 @M@[@@ 00056* IP )@@G@@ C 6 LIST ====== JOUT=101 IQ )@@G@@ CON00110 @M@[@@ 00057* C 7 RIGH ====== RIIR )@@G@@GHT CON00120 @M@[@@ 00058* IS )@@G@@ C 8 STAT ====== KD15 IT )@@G@@ CON00130 @M@[@@ 00059* C 9 STOP IU )@@G@@====== MSTOP CON00140 @M@[@@IV )@@G@@ 00060* C IW )@@G@@ CON00150 @M@[@@ 00061* 2 IX )@@G@@ INCLUDE TIDY, LIST CON0IY )@@G@@0160 @M@[@@ 00062* 3 INCLUDE ALPHA, LIST IZ )@@G@@ CON00170 @M@[@@ 00063* JA )@@G@@ 4 INCLUDE CONTDY, LIST JB )@@G@@ CON00180 @M@[@@ 00064* 5 INCLUDE INIT, LIJC )@@G@@ST CON00190 @M@[@@ 00065JD )@@G@@* 6 INCLUDE TAPES, LIST JE )@@G@@ CON00200 @M@[@@ 00066* C JF )@@G@@ CON00210 JG )@@G@@@M@[@@ 00067* C JH )@@G@@ CON00220 @M@[@@ 00068* 7 JI )@@G@@ I=14 JJ )@@G@@ CON00230 @M@[@@ 00069* 8 JSW=0 JK )@@G@@ CON00240 @M@[@@ 00070* JL )@@G@@ 9 JL=JMAX-1 JM )@@G@@ CON00250 @M@[@@ 00071* 10 DO 30 JB=2JN )@@G@@,JL CON00260 @M@[@@JO )@@G@@ 00072* 11 IF (JINT(JB)-KBL) 10,30,10 JP )@@G@@ CON00270 @M@[@@ 00073* 12 10 JQ )@@G@@ IF (JINT(JB)-KABC(I)) 50,20,50 CON0JR )@@G@@0280 @M@[@@ 00074* 13 20 I=I+1 JS )@@G@@ CON00290 @M@[@@ 00075* JT )@@G@@ 14 IF (I-16) 30,40,40 JU )@@G@@ CON00300 @M@[@@ 00076* 15 30 CONTINUE JV )@@G@@ CON00310 @M@[@@ 00077JW )@@G@@* 16 RETURN JX )@@G@@ CON00320 @M@[@@ 00078* C JY )@@G@@ CON00330 JZ )@@G@@@M@[@@ 00079* 17 40 JSW=NKTRL KA )@@G@@ CON00340 @M@[@@ 00080* 18 KB )@@G@@ JB=JB+1 KC )@@G@@ CON00350 @M@[@@ 00081* 19 50 DO 90 J=1,NKTRL KD )@@G@@ CON00360 @M@[@@ 00082* KE )@@G@@ 20 I=0 KF )@@G@@ CON00370 @M@[@@ 00083* 21 DO 80 JCOLKG )@@G@@=JB,JMAX CON00380 @M@[@@KH )@@G@@ 00084* 22 IF (JINT(JCOL)-KBL) 60,80,60 KI )@@G@@ CON00390 @M@[@@ 00085* 23 60 KJ )@@G@@ I=I+1 CON0KK )@@G@@0400 @M@[@@ 00086* 24 IF (JINT(JCOL)-KTRL(I,J)) 90KL )@@G@@,70,90 CON00410 @M@[@@ 00087* KM )@@G@@ 25 70 IF (I-4) 80,110,110 KN )@@G@@ CON00420 @M@[@@ 00088* 26 80 CONTINUE KO )@@G@@ CON00430 @M@[@@ 00089KP )@@G@@* 27 90 CONTINUE KQ )@@G@@ CON00440 @M@[@@ 00090* 28 100 RETUKR )@@G@@RN CON00450 KS )@@G@@@M@[@@ 00091* C KT )@@G@@ CON00460 @M@[@@ 00092* KU )@@G@@ C EXECUTE CONTROL STATEMENT KV )@@G@@ CON00470 @M@[@@ 00093* C KW )@@G@@ CON00480 @M@[@@ 00094* KX )@@G@@ 29 110 JSW=JSW+J KY )@@G@@ CON00490 @M@[@@ 00095* C 1KZ )@@G@@ 2 3 4 5 6 7 8 9 CON00500 @L__@@LA )@@G@@ I N D E X LB )@@G@@ PAGE 4 @F@[@@ LC )@@G@@ SUBROUTINE CONTRL @@@[@@@M@[@@ 00096* 30 LD )@@G@@ GO TO (170,120,130,140,230,240,220,170,140, CON0LE )@@G@@0510 @M@[@@ 00097* 1 100,150,160,100,100,1LF )@@G@@00,100,100,100), JSW CON00520 @M@[@@ 00098* LG )@@G@@ 31 120 MCOL=-1 LH )@@G@@ CON00530 @M@[@@ 00099* 32 RETURN LI )@@G@@ CON00540 @M@[@@ 00100LJ )@@G@@* 33 130 MEX=-1 LK )@@G@@ CON00550 @M@[@@ 00101* 34 RETULL )@@G@@RN CON00560 LM )@@G@@@M@[@@ 00102* 35 140 MSTOP=-1 LN )@@G@@ CON00570 @M@[@@ 00103* 36 LO )@@G@@ RETURN LP )@@G@@ CON00580 @M@[@@ 00104* 37 150 MCOL=0 LQ )@@G@@ CON00590 @M@[@@ 00105* LR )@@G@@ 38 RETURN