INCLUDE FLXHDR.FLX SUBROUTINE LIST INTEGER AELSE INTEGER BLN , CHC , CHSPAC, CHZERO, CLASS , ERRCL INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO INTEGER FORTCL, HOLDNO, I , LEVEL , LINENO INTEGER LISTCL, LSTLEV INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P INTEGER PTABLE, QP , READ , REFNO , RETRY INTEGER SB , SB2 , SB4 , SB6 , SB7 , SCOND INTEGER SDASH , SELSE , SENDER, SETUP , SFIN , SFLX INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2 INTEGER SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE, SP INTEGER SPINV , SPUTGO, SRP , SSPACR, SST , SSTMAX INTEGER STABH , STACK , STODUM, SVER , SWHEN , SXER1 INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP INTEGER TELSE , TEND , TEXEC , TFIN , TOP , TTO INTEGER ULEN , USTART, UTYPE , WWIDTH INTEGER OFFSET, OFFST2 C LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER LOGICAL NDERR , NIERR , NOPGM , PASS , SAVED LOGICAL NEWVER, FORTOF, LISTOF, CONDOF LOGICAL SHORT , FAKE , LONG , COGOTO C COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN COMMON USTART, UTYPE , WWIDTH COMMON SSPACR, SFSPCR, OFFSET, OFFST2 COMMON /CONTRL/ NEWVER,FORTOF, LISTOF, CONDOF COMMON /VERSON/ SVER C DIMENSION UTYPE (3) DIMENSION USTART (3) DIMENSION ULEN (3) DIMENSION STACK (1500) DIMENSION ERRSTK (5) DIMENSION SFLX (101) DIMENSION SHOLD (101) DIMENSION SLIST (201) DIMENSION SPINV (81) DIMENSION SPUTGO (21) DIMENSION SST (201) DIMENSION SB (2) DIMENSION SB2 (3) DIMENSION SB4 (5) DIMENSION SB6 (7) DIMENSION SB7 (8) DIMENSION SCOND (18) DIMENSION SDASH (41) DIMENSION SELSE (20) DIMENSION SENDER (31) DIMENSION SFIN (10) DIMENSION SFSPCR (4) DIMENSION SICOND (55) DIMENSION SIELSE (40) DIMENSION SIFIN (39) DIMENSION SIFIN2 (15) DIMENSION SIGN (46) DIMENSION SINSRT (39) DIMENSION SINS2 (14) DIMENSION SITODM (51) DIMENSION SIWHEN (40) DIMENSION SMULER (45) DIMENSION SNDER1 (43) DIMENSION SNDER2 (45) DIMENSION SNIER1 (47) DIMENSION SNIER2 (45) DIMENSION SRP (2) DIMENSION SSPACR (4) DIMENSION STABH (38) DIMENSION STODUM (25) DIMENSION SVER (22) DIMENSION SWHEN (30) DIMENSION SXER1 (55) DIMENSION SXER2 (54) DIMENSION SXER3 (51) DIMENSION SXER4 (31) DIMENSION SXER5 (51) C DATA CHC,CHSPAC,CHZERO /1HC,1H ,1H0 / DATA AELSE /2/ DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ DATA SETUP /1/, RETRY /2/, READ /3/ DATA SSTMAX /200/ DATA SB(1),SB(2)/ 1, 1H / DATA SB2(1),SB2(2),SB2(3)/ 2, 1H , 1H / DATA SB4(1),SB4(2),SB4(3),SB4(4),SB4(5)/ 4, 1H , 1H , 1H , 1H / DATA SB6(1),SB6(2),SB6(3),SB6(4),SB6(5),SB6(6),SB6(7)/ 6, 1H 1 , 1H , 1H , 1H , 1H , 1H / DATA SB7(1),SB7(2),SB7(3),SB7(4),SB7(5),SB7(6),SB7(7),SB7(8)/ 7 1 , 1H , 1H , 1H , 1H , 1H , 1H , 1H / DATA SCOND(1),SCOND(2),SCOND(3),SCOND(4),SCOND(5),SCOND(6) 1 ,SCOND(7),SCOND(8),SCOND(9),SCOND(10),SCOND(11),SCOND(12) 1 ,SCOND(13),SCOND(14),SCOND(15),SCOND(16),SCOND(17) 1 ,SCOND(18)/ 17, 1H , 1H , 1H , 1H , 1H , 1H , 1HC, 1HO, 1HN 1 , 1HD, 1HI, 1HT, 1HI, 1HO, 1HN, 1HA, 1HL/ DATA SDASH(1),SDASH(2),SDASH(3),SDASH(4),SDASH(5),SDASH(6) 1 ,SDASH(7),SDASH(8),SDASH(9),SDASH(10),SDASH(11),SDASH(12) 1 ,SDASH(13),SDASH(14),SDASH(15),SDASH(16),SDASH(17) 1 ,SDASH(18),SDASH(19),SDASH(20),SDASH(21),SDASH(22) 1 ,SDASH(23),SDASH(24),SDASH(25),SDASH(26),SDASH(27) 1 ,SDASH(28),SDASH(29),SDASH(30),SDASH(31),SDASH(32) 1 ,SDASH(33),SDASH(34),SDASH(35),SDASH(36),SDASH(37) 1 ,SDASH(38),SDASH(39),SDASH(40),SDASH(41)/ 40, 1H-, 1H-, 1H- 1 , 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H- 1 , 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H- 1 , 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H- 1 , 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H-, 1H- 1 , 1H-/ DATA SELSE(1),SELSE(2),SELSE(3),SELSE(4),SELSE(5),SELSE(6) 1 ,SELSE(7),SELSE(8),SELSE(9),SELSE(10),SELSE(11),SELSE(12) 1 ,SELSE(13),SELSE(14),SELSE(15),SELSE(16),SELSE(17) 1 ,SELSE(18),SELSE(19),SELSE(20)/ 19, 1H , 1H , 1H , 1H , 1H 1 , 1H , 1HE, 1HL, 1HS, 1HE, 1H , 1HC, 1HO, 1HN 1 , 1HT, 1HI, 1HN, 1HU, 1HE/ DATA SENDER(1),SENDER(2),SENDER(3),SENDER(4),SENDER(5) 1 ,SENDER(6),SENDER(7),SENDER(8),SENDER(9),SENDER(10) 1 ,SENDER(11),SENDER(12),SENDER(13),SENDER(14),SENDER(15) 1 ,SENDER(16),SENDER(17),SENDER(18),SENDER(19),SENDER(20) 1 ,SENDER(21),SENDER(22),SENDER(23),SENDER(24),SENDER(25) 1 ,SENDER(26),SENDER(27),SENDER(28),SENDER(29),SENDER(30) 1 ,SENDER(31)/ 30, 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1HE, 1HN, 1HD 1 , 1H , 1HS, 1HT, 1HA, 1HT, 1HE, 1HM, 1HE, 1HN 1 , 1HT, 1H , 1HI, 1HS, 1H , 1HM, 1HI, 1HS, 1HS 1 , 1HI, 1HN, 1HG/ DATA SFIN(1),SFIN(2),SFIN(3),SFIN(4),SFIN(5),SFIN(6),SFIN(7) 1 ,SFIN(8),SFIN(9),SFIN(10)/ 9, 1H , 1H , 1H , 1H , 1H , 1H 1 , 1HF, 1HI, 1HN/ DATA SICOND(1),SICOND(2),SICOND(3),SICOND(4),SICOND(5) 1 ,SICOND(6),SICOND(7),SICOND(8),SICOND(9),SICOND(10) 1 ,SICOND(11),SICOND(12),SICOND(13),SICOND(14),SICOND(15) 1 ,SICOND(16),SICOND(17),SICOND(18),SICOND(19),SICOND(20) 1 ,SICOND(21),SICOND(22),SICOND(23),SICOND(24),SICOND(25) 1 ,SICOND(26),SICOND(27),SICOND(28),SICOND(29),SICOND(30) 1 ,SICOND(31),SICOND(32),SICOND(33),SICOND(34),SICOND(35) 1 ,SICOND(36),SICOND(37),SICOND(38),SICOND(39),SICOND(40) 1 ,SICOND(41),SICOND(42),SICOND(43),SICOND(44),SICOND(45) 1 ,SICOND(46),SICOND(47),SICOND(48),SICOND(49),SICOND(50) 1 ,SICOND(51),SICOND(52),SICOND(53),SICOND(54),SICOND(55)/ 54 1 , 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H , 1H , 1H 1 , 1H(, 1HC, 1HO, 1HN, 1HD, 1HI, 1HT, 1HI, 1HO 1 , 1HN, 1HA, 1HL, 1H , 1HO, 1HR, 1H , 1HS, 1HE 1 , 1HL, 1HE, 1HC, 1HT, 1H , 1HI, 1HS, 1H , 1HA 1 , 1HP, 1HP, 1HA, 1HR, 1HE, 1HN, 1HT, 1HL, 1HY 1 , 1H , 1HM, 1HI, 1HS, 1HS, 1HI, 1HN, 1HG, 1H)/ DATA SIELSE(1),SIELSE(2),SIELSE(3),SIELSE(4),SIELSE(5) 1 ,SIELSE(6),SIELSE(7),SIELSE(8),SIELSE(9),SIELSE(10) 1 ,SIELSE(11),SIELSE(12),SIELSE(13),SIELSE(14),SIELSE(15) 1 ,SIELSE(16),SIELSE(17),SIELSE(18),SIELSE(19),SIELSE(20) 1 ,SIELSE(21),SIELSE(22),SIELSE(23),SIELSE(24),SIELSE(25) 1 ,SIELSE(26),SIELSE(27),SIELSE(28),SIELSE(29),SIELSE(30) 1 ,SIELSE(31),SIELSE(32),SIELSE(33),SIELSE(34),SIELSE(35) 1 ,SIELSE(36),SIELSE(37),SIELSE(38),SIELSE(39),SIELSE(40)/ 39 1 , 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H , 1H , 1H 1 , 1H(, 1HE, 1HL, 1HS, 1HE, 1H , 1HN, 1HE, 1HC 1 , 1HE, 1HS, 1HS, 1HA, 1HR, 1HY, 1H , 1HT, 1HO 1 , 1H , 1HM, 1HA, 1HT, 1HC, 1HH, 1H , 1HL, 1HI 1 , 1HN, 1HE, 1H / DATA SIFIN(1),SIFIN(2),SIFIN(3),SIFIN(4),SIFIN(5),SIFIN(6) 1 ,SIFIN(7),SIFIN(8),SIFIN(9),SIFIN(10),SIFIN(11),SIFIN(12) 1 ,SIFIN(13),SIFIN(14),SIFIN(15),SIFIN(16),SIFIN(17) 1 ,SIFIN(18),SIFIN(19),SIFIN(20),SIFIN(21),SIFIN(22) 1 ,SIFIN(23),SIFIN(24),SIFIN(25),SIFIN(26),SIFIN(27) 1 ,SIFIN(28),SIFIN(29),SIFIN(30),SIFIN(31),SIFIN(32) 1 ,SIFIN(33),SIFIN(34),SIFIN(35),SIFIN(36),SIFIN(37) 1 ,SIFIN(38),SIFIN(39)/ 38, 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H 1 , 1H , 1H , 1H(, 1HF, 1HI, 1HN, 1H , 1HN, 1HE 1 , 1HC, 1HE, 1HS, 1HS, 1HA, 1HR, 1HY, 1H , 1HT 1 , 1HO, 1H , 1HM, 1HA, 1HT, 1HC, 1HH, 1H , 1HL 1 , 1HI, 1HN, 1HE, 1H / DATA SIFIN2(1),SIFIN2(2),SIFIN2(3),SIFIN2(4),SIFIN2(5) 1 ,SIFIN2(6),SIFIN2(7),SIFIN2(8),SIFIN2(9),SIFIN2(10) 1 ,SIFIN2(11),SIFIN2(12),SIFIN2(13),SIFIN2(14),SIFIN2(15)/ 14 1 , 1HA, 1HS, 1HS, 1HU, 1HM, 1HE, 1HD, 1H , 1HA 1 , 1HB, 1HO, 1HV, 1HE, 1H)/ DATA SIGN(1),SIGN(2),SIGN(3),SIGN(4),SIGN(5),SIGN(6),SIGN(7) 1 ,SIGN(8),SIGN(9),SIGN(10),SIGN(11),SIGN(12),SIGN(13) 1 ,SIGN(14),SIGN(15),SIGN(16),SIGN(17),SIGN(18),SIGN(19) 1 ,SIGN(20),SIGN(21),SIGN(22),SIGN(23),SIGN(24),SIGN(25) 1 ,SIGN(26),SIGN(27),SIGN(28),SIGN(29),SIGN(30),SIGN(31) 1 ,SIGN(32),SIGN(33),SIGN(34),SIGN(35),SIGN(36),SIGN(37) 1 ,SIGN(38),SIGN(39),SIGN(40),SIGN(41),SIGN(42),SIGN(43) 1 ,SIGN(44),SIGN(45),SIGN(46)/ 45, 1H*, 1H*, 1H*, 1H*, 1H* 1 , 1H , 1H , 1H , 1H , 1H(, 1HN, 1HO, 1H , 1HC 1 , 1HO, 1HN, 1HT, 1HR, 1HO, 1HL, 1H , 1HP, 1HH 1 , 1HR, 1HA, 1HS, 1HE, 1H , 1HF, 1HO, 1HR, 1H 1 , 1HF, 1HI, 1HN, 1H , 1HT, 1HO, 1H , 1HM, 1HA 1 , 1HT, 1HC, 1HH, 1H)/ DATA SINSRT(1),SINSRT(2),SINSRT(3),SINSRT(4),SINSRT(5) 1 ,SINSRT(6),SINSRT(7),SINSRT(8),SINSRT(9),SINSRT(10) 1 ,SINSRT(11),SINSRT(12),SINSRT(13),SINSRT(14),SINSRT(15) 1 ,SINSRT(16),SINSRT(17),SINSRT(18),SINSRT(19),SINSRT(20) 1 ,SINSRT(21),SINSRT(22),SINSRT(23),SINSRT(24),SINSRT(25) 1 ,SINSRT(26),SINSRT(27),SINSRT(28),SINSRT(29),SINSRT(30) 1 ,SINSRT(31),SINSRT(32),SINSRT(33),SINSRT(34),SINSRT(35) 1 ,SINSRT(36),SINSRT(37),SINSRT(38),SINSRT(39)/ 38, 1H*, 1H* 1 , 1H*, 1H*, 1H*, 1H , 1HS, 1HT, 1HA, 1HT, 1HE 1 , 1HM, 1HE, 1HN, 1HT, 1H(, 1HS, 1H), 1H , 1HN 1 , 1HE, 1HE, 1HD, 1HE, 1HD, 1H , 1HB, 1HE, 1HF 1 , 1HO, 1HR, 1HE, 1H , 1HL, 1HI, 1HN, 1HE, 1H / DATA SINS2(1),SINS2(2),SINS2(3),SINS2(4),SINS2(5),SINS2(6) 1 ,SINS2(7),SINS2(8),SINS2(9),SINS2(10),SINS2(11),SINS2(12) 1 ,SINS2(13),SINS2(14)/ 13, 1HA, 1HS, 1HS, 1HU, 1HM, 1HE, 1HD 1 , 1H , 1HB, 1HE, 1HL, 1HO, 1HW/ DATA SITODM(1),SITODM(2),SITODM(3),SITODM(4),SITODM(5) 1 ,SITODM(6),SITODM(7),SITODM(8),SITODM(9),SITODM(10) 1 ,SITODM(11),SITODM(12),SITODM(13),SITODM(14),SITODM(15) 1 ,SITODM(16),SITODM(17),SITODM(18),SITODM(19),SITODM(20) 1 ,SITODM(21),SITODM(22),SITODM(23),SITODM(24),SITODM(25) 1 ,SITODM(26),SITODM(27),SITODM(28),SITODM(29),SITODM(30) 1 ,SITODM(31),SITODM(32),SITODM(33),SITODM(34),SITODM(35) 1 ,SITODM(36),SITODM(37),SITODM(38),SITODM(39),SITODM(40) 1 ,SITODM(41),SITODM(42),SITODM(43),SITODM(44),SITODM(45) 1 ,SITODM(46),SITODM(47),SITODM(48),SITODM(49),SITODM(50) 1 ,SITODM(51)/ 50, 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H , 1H , 1H 1 , 1H(, 1HO, 1HN, 1HL, 1HY, 1H , 1HT, 1HO, 1H 1 , 1HA, 1HN, 1HD, 1H , 1HE, 1HN, 1HD, 1H , 1HA 1 , 1HR, 1HE, 1H , 1HV, 1HA, 1HL, 1HI, 1HD, 1H 1 , 1HA, 1HT, 1H , 1HT, 1HH, 1HI, 1HS, 1H , 1HP 1 , 1HO, 1HI, 1HN, 1HT, 1H)/ DATA SIWHEN(1),SIWHEN(2),SIWHEN(3),SIWHEN(4),SIWHEN(5) 1 ,SIWHEN(6),SIWHEN(7),SIWHEN(8),SIWHEN(9),SIWHEN(10) 1 ,SIWHEN(11),SIWHEN(12),SIWHEN(13),SIWHEN(14),SIWHEN(15) 1 ,SIWHEN(16),SIWHEN(17),SIWHEN(18),SIWHEN(19),SIWHEN(20) 1 ,SIWHEN(21),SIWHEN(22),SIWHEN(23),SIWHEN(24),SIWHEN(25) 1 ,SIWHEN(26),SIWHEN(27),SIWHEN(28),SIWHEN(29),SIWHEN(30) 1 ,SIWHEN(31),SIWHEN(32),SIWHEN(33),SIWHEN(34),SIWHEN(35) 1 ,SIWHEN(36),SIWHEN(37),SIWHEN(38),SIWHEN(39),SIWHEN(40)/ 39 1 , 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H , 1H , 1H 1 , 1H(, 1HW, 1HH, 1HE, 1HN, 1H , 1HT, 1HO, 1H 1 , 1HM, 1HA, 1HT, 1HC, 1HH, 1H , 1HF, 1HO, 1HL 1 , 1HL, 1HO, 1HW, 1HI, 1HN, 1HG, 1H , 1HE, 1HL 1 , 1HS, 1HE, 1H)/ DATA SMULER(1),SMULER(2),SMULER(3),SMULER(4),SMULER(5) 1 ,SMULER(6),SMULER(7),SMULER(8),SMULER(9),SMULER(10) 1 ,SMULER(11),SMULER(12),SMULER(13),SMULER(14),SMULER(15) 1 ,SMULER(16),SMULER(17),SMULER(18),SMULER(19),SMULER(20) 1 ,SMULER(21),SMULER(22),SMULER(23),SMULER(24),SMULER(25) 1 ,SMULER(26),SMULER(27),SMULER(28),SMULER(29),SMULER(30) 1 ,SMULER(31),SMULER(32),SMULER(33),SMULER(34),SMULER(35) 1 ,SMULER(36),SMULER(37),SMULER(38),SMULER(39),SMULER(40) 1 ,SMULER(41),SMULER(42),SMULER(43),SMULER(44),SMULER(45)/ 44 1 , 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H , 1H , 1H 1 , 1H(, 1HP, 1HR, 1HO, 1HC, 1HE, 1HD, 1HU, 1HR 1 , 1HE, 1H , 1HA, 1HL, 1HR, 1HE, 1HA, 1HD, 1HY 1 , 1H , 1HD, 1HE, 1HF, 1HI, 1HN, 1HE, 1HD, 1H 1 , 1HO, 1HN, 1H , 1HL, 1HI, 1HN, 1HE, 1H / DATA SNDER1(1),SNDER1(2),SNDER1(3),SNDER1(4),SNDER1(5) 1 ,SNDER1(6),SNDER1(7),SNDER1(8),SNDER1(9),SNDER1(10) 1 ,SNDER1(11),SNDER1(12),SNDER1(13),SNDER1(14),SNDER1(15) 1 ,SNDER1(16),SNDER1(17),SNDER1(18),SNDER1(19),SNDER1(20) 1 ,SNDER1(21),SNDER1(22),SNDER1(23),SNDER1(24),SNDER1(25) 1 ,SNDER1(26),SNDER1(27),SNDER1(28),SNDER1(29),SNDER1(30) 1 ,SNDER1(31),SNDER1(32),SNDER1(33),SNDER1(34),SNDER1(35) 1 ,SNDER1(36),SNDER1(37),SNDER1(38),SNDER1(39),SNDER1(40) 1 ,SNDER1(41),SNDER1(42),SNDER1(43)/ 42, 1H*, 1H*, 1H*, 1H* 1 , 1H*, 1H , 1HT, 1HH, 1HE, 1H , 1HN, 1HE, 1HX 1 , 1HT, 1H , 1H , 1HP, 1HR, 1HO, 1HC, 1HE, 1HD 1 , 1HU, 1HR, 1HE, 1HS, 1H , 1HW, 1HE, 1HR, 1HE 1 , 1H , 1HI, 1HN, 1HV, 1HO, 1HK, 1HE, 1HD, 1H 1 , 1HO, 1HN/ DATA SNDER2(1),SNDER2(2),SNDER2(3),SNDER2(4),SNDER2(5) 1 ,SNDER2(6),SNDER2(7),SNDER2(8),SNDER2(9),SNDER2(10) 1 ,SNDER2(11),SNDER2(12),SNDER2(13),SNDER2(14),SNDER2(15) 1 ,SNDER2(16),SNDER2(17),SNDER2(18),SNDER2(19),SNDER2(20) 1 ,SNDER2(21),SNDER2(22),SNDER2(23),SNDER2(24),SNDER2(25) 1 ,SNDER2(26),SNDER2(27),SNDER2(28),SNDER2(29),SNDER2(30) 1 ,SNDER2(31),SNDER2(32),SNDER2(33),SNDER2(34),SNDER2(35) 1 ,SNDER2(36),SNDER2(37),SNDER2(38),SNDER2(39),SNDER2(40) 1 ,SNDER2(41),SNDER2(42),SNDER2(43),SNDER2(44),SNDER2(45)/ 44 1 , 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1HT, 1HH, 1HE 1 , 1H , 1HL, 1HI, 1HN, 1HE, 1HS, 1H , 1HG, 1HI 1 , 1HV, 1HE, 1HN, 1H , 1HB, 1HU, 1HT, 1H , 1HW 1 , 1HE, 1HR, 1HE, 1H , 1HN, 1HE, 1HV, 1HE, 1HR 1 , 1H , 1HD, 1HE, 1HF, 1HI, 1HN, 1HE, 1HD/ DATA SNIER1(1),SNIER1(2),SNIER1(3),SNIER1(4),SNIER1(5) 1 ,SNIER1(6),SNIER1(7),SNIER1(8),SNIER1(9),SNIER1(10) 1 ,SNIER1(11),SNIER1(12),SNIER1(13),SNIER1(14),SNIER1(15) 1 ,SNIER1(16),SNIER1(17),SNIER1(18),SNIER1(19),SNIER1(20) 1 ,SNIER1(21),SNIER1(22),SNIER1(23),SNIER1(24),SNIER1(25) 1 ,SNIER1(26),SNIER1(27),SNIER1(28),SNIER1(29),SNIER1(30) 1 ,SNIER1(31),SNIER1(32),SNIER1(33),SNIER1(34),SNIER1(35) 1 ,SNIER1(36),SNIER1(37),SNIER1(38),SNIER1(39),SNIER1(40) 1 ,SNIER1(41),SNIER1(42),SNIER1(43),SNIER1(44),SNIER1(45) 1 ,SNIER1(46),SNIER1(47)/ 46, 1H*, 1H*, 1H*, 1H*, 1H*, 1H 1 , 1HT, 1HH, 1HE, 1H , 1HF, 1HO, 1HL, 1HL, 1HO 1 , 1HW, 1HI, 1HN, 1HG, 1H , 1HP, 1HR, 1HO, 1HC 1 , 1HE, 1HD, 1HU, 1HR, 1HE, 1HS, 1H , 1HW, 1HE 1 , 1HR, 1HE, 1H , 1HD, 1HE, 1HF, 1HI, 1HN, 1HE 1 , 1HD, 1H , 1HO, 1HN/ DATA SNIER2(1),SNIER2(2),SNIER2(3),SNIER2(4),SNIER2(5) 1 ,SNIER2(6),SNIER2(7),SNIER2(8),SNIER2(9),SNIER2(10) 1 ,SNIER2(11),SNIER2(12),SNIER2(13),SNIER2(14),SNIER2(15) 1 ,SNIER2(16),SNIER2(17),SNIER2(18),SNIER2(19),SNIER2(20) 1 ,SNIER2(21),SNIER2(22),SNIER2(23),SNIER2(24),SNIER2(25) 1 ,SNIER2(26),SNIER2(27),SNIER2(28),SNIER2(29),SNIER2(30) 1 ,SNIER2(31),SNIER2(32),SNIER2(33),SNIER2(34),SNIER2(35) 1 ,SNIER2(36),SNIER2(37),SNIER2(38),SNIER2(39),SNIER2(40) 1 ,SNIER2(41),SNIER2(42),SNIER2(43),SNIER2(44),SNIER2(45)/ 44 1 , 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1HT, 1HH, 1HE 1 , 1H , 1HL, 1HI, 1HN, 1HE, 1HS, 1H , 1HG, 1HI 1 , 1HV, 1HE, 1HN, 1H , 1HB, 1HU, 1HT, 1H , 1HW 1 , 1HE, 1HR, 1HE, 1H , 1HN, 1HE, 1HV, 1HE, 1HR 1 , 1H , 1HI, 1HN, 1HV, 1HO, 1HK, 1HE, 1HD/ DATA SRP(1),SRP(2)/ 1, 1H)/ DATA STABH(1),STABH(2),STABH(3),STABH(4),STABH(5),STABH(6) 1 ,STABH(7),STABH(8),STABH(9),STABH(10),STABH(11),STABH(12) 1 ,STABH(13),STABH(14),STABH(15),STABH(16),STABH(17) 1 ,STABH(18),STABH(19),STABH(20),STABH(21),STABH(22) 1 ,STABH(23),STABH(24),STABH(25),STABH(26),STABH(27) 1 ,STABH(28),STABH(29),STABH(30),STABH(31),STABH(32) 1 ,STABH(33),STABH(34),STABH(35),STABH(36),STABH(37) 1 ,STABH(38)/ 37, 1H , 1H , 1H , 1H , 1H , 1H , 1HP, 1HR, 1HO 1 , 1HC, 1HE, 1HD, 1HU, 1HR, 1HE, 1H , 1HC, 1HR 1 , 1HO, 1HS, 1HS, 1H-, 1HR, 1HE, 1HF, 1HE, 1HR 1 , 1HE, 1HN, 1HC, 1HE, 1H , 1HT, 1HA, 1HB, 1HL 1 , 1HE/ DATA STODUM(1),STODUM(2),STODUM(3),STODUM(4),STODUM(5) 1 ,STODUM(6),STODUM(7),STODUM(8),STODUM(9),STODUM(10) 1 ,STODUM(11),STODUM(12),STODUM(13),STODUM(14),STODUM(15) 1 ,STODUM(16),STODUM(17),STODUM(18),STODUM(19),STODUM(20) 1 ,STODUM(21),STODUM(22),STODUM(23),STODUM(24),STODUM(25)/ 24 1 , 1H , 1H , 1H , 1H , 1H , 1H , 1HT, 1HO, 1H 1 , 1HD, 1HU, 1HM, 1HM, 1HY, 1H-, 1HP, 1HR, 1HO 1 , 1HC, 1HE, 1HD, 1HU, 1HR, 1HE/ DATA SWHEN(1),SWHEN(2),SWHEN(3),SWHEN(4),SWHEN(5),SWHEN(6) 1 ,SWHEN(7),SWHEN(8),SWHEN(9),SWHEN(10),SWHEN(11),SWHEN(12) 1 ,SWHEN(13),SWHEN(14),SWHEN(15),SWHEN(16),SWHEN(17) 1 ,SWHEN(18),SWHEN(19),SWHEN(20),SWHEN(21),SWHEN(22) 1 ,SWHEN(23),SWHEN(24),SWHEN(25),SWHEN(26),SWHEN(27) 1 ,SWHEN(28),SWHEN(29),SWHEN(30)/ 29, 1H , 1H , 1H , 1H , 1H 1 , 1H , 1HW, 1HH, 1HE, 1HN, 1H , 1H(, 1H., 1HT 1 , 1HR, 1HU, 1HE, 1H., 1H), 1H , 1HC, 1HA, 1HL 1 , 1HL, 1H , 1HE, 1HX, 1HI, 1HT/ DATA SXER1(1),SXER1(2),SXER1(3),SXER1(4),SXER1(5),SXER1(6) 1 ,SXER1(7),SXER1(8),SXER1(9),SXER1(10),SXER1(11),SXER1(12) 1 ,SXER1(13),SXER1(14),SXER1(15),SXER1(16),SXER1(17) 1 ,SXER1(18),SXER1(19),SXER1(20),SXER1(21),SXER1(22) 1 ,SXER1(23),SXER1(24),SXER1(25),SXER1(26),SXER1(27) 1 ,SXER1(28),SXER1(29),SXER1(30),SXER1(31),SXER1(32) 1 ,SXER1(33),SXER1(34),SXER1(35),SXER1(36),SXER1(37) 1 ,SXER1(38),SXER1(39),SXER1(40),SXER1(41),SXER1(42) 1 ,SXER1(43),SXER1(44),SXER1(45),SXER1(46),SXER1(47) 1 ,SXER1(48),SXER1(49),SXER1(50),SXER1(51),SXER1(52) 1 ,SXER1(53),SXER1(54),SXER1(55)/ 54, 1H*, 1H*, 1H*, 1H*, 1H* 1 , 1H , 1H , 1H , 1H , 1H(, 1HI, 1HN, 1HV, 1HA 1 , 1HL, 1HI, 1HD, 1H , 1HC, 1HH, 1HA, 1HR, 1HA 1 , 1HC, 1HT, 1HE, 1HR, 1H , 1HI, 1HN, 1H , 1HS 1 , 1HT, 1HA, 1HT, 1HE, 1HM, 1HE, 1HN, 1HT, 1H 1 , 1HN, 1HU, 1HM, 1HB, 1HE, 1HR, 1H , 1HF, 1HI 1 , 1HE, 1HL, 1HD, 1H)/ DATA SXER2(1),SXER2(2),SXER2(3),SXER2(4),SXER2(5),SXER2(6) 1 ,SXER2(7),SXER2(8),SXER2(9),SXER2(10),SXER2(11),SXER2(12) 1 ,SXER2(13),SXER2(14),SXER2(15),SXER2(16),SXER2(17) 1 ,SXER2(18),SXER2(19),SXER2(20),SXER2(21),SXER2(22) 1 ,SXER2(23),SXER2(24),SXER2(25),SXER2(26),SXER2(27) 1 ,SXER2(28),SXER2(29),SXER2(30),SXER2(31),SXER2(32) 1 ,SXER2(33),SXER2(34),SXER2(35),SXER2(36),SXER2(37) 1 ,SXER2(38),SXER2(39),SXER2(40),SXER2(41),SXER2(42) 1 ,SXER2(43),SXER2(44),SXER2(45),SXER2(46),SXER2(47) 1 ,SXER2(48),SXER2(49),SXER2(50),SXER2(51),SXER2(52) 1 ,SXER2(53),SXER2(54)/ 53, 1H*, 1H*, 1H*, 1H*, 1H*, 1H , 1H 1 , 1H , 1H , 1H(, 1HR, 1HE, 1HC, 1HO, 1HG, 1HN 1 , 1HI, 1HZ, 1HA, 1HB, 1HL, 1HE, 1H , 1HS, 1HT 1 , 1HA, 1HT, 1HE, 1HM, 1HE, 1HN, 1HT, 1H , 1HF 1 , 1HO, 1HL, 1HL, 1HO, 1HW, 1HE, 1HD, 1H , 1HB 1 , 1HY, 1H , 1HG, 1HA, 1HR, 1HB, 1HA, 1HG, 1HE 1 , 1H)/ DATA SXER3(1),SXER3(2),SXER3(3),SXER3(4),SXER3(5),SXER3(6) 1 ,SXER3(7),SXER3(8),SXER3(9),SXER3(10),SXER3(11),SXER3(12) 1 ,SXER3(13),SXER3(14),SXER3(15),SXER3(16),SXER3(17) 1 ,SXER3(18),SXER3(19),SXER3(20),SXER3(21),SXER3(22) 1 ,SXER3(23),SXER3(24),SXER3(25),SXER3(26),SXER3(27) 1 ,SXER3(28),SXER3(29),SXER3(30),SXER3(31),SXER3(32) 1 ,SXER3(33),SXER3(34),SXER3(35),SXER3(36),SXER3(37) 1 ,SXER3(38),SXER3(39),SXER3(40),SXER3(41),SXER3(42) 1 ,SXER3(43),SXER3(44),SXER3(45),SXER3(46),SXER3(47) 1 ,SXER3(48),SXER3(49),SXER3(50),SXER3(51)/ 50, 1H*, 1H*, 1H* 1 , 1H*, 1H*, 1H , 1H , 1H , 1H , 1H(, 1HL, 1HE 1 , 1HF, 1HT, 1H , 1HP, 1HA, 1HR, 1HE, 1HN, 1H 1 , 1HD, 1HO, 1HE, 1HS, 1H , 1HN, 1HO, 1HT, 1H 1 , 1HF, 1HO, 1HL, 1HL, 1HO, 1HW, 1H , 1HC, 1HO 1 , 1HN, 1HT, 1HR, 1HO, 1HL, 1H , 1HW, 1HO, 1HR 1 , 1HD, 1H)/ DATA SXER4(1),SXER4(2),SXER4(3),SXER4(4),SXER4(5),SXER4(6) 1 ,SXER4(7),SXER4(8),SXER4(9),SXER4(10),SXER4(11),SXER4(12) 1 ,SXER4(13),SXER4(14),SXER4(15),SXER4(16),SXER4(17) 1 ,SXER4(18),SXER4(19),SXER4(20),SXER4(21),SXER4(22) 1 ,SXER4(23),SXER4(24),SXER4(25),SXER4(26),SXER4(27) 1 ,SXER4(28),SXER4(29),SXER4(30),SXER4(31)/ 30, 1H*, 1H*, 1H* 1 , 1H*, 1H*, 1H , 1H , 1H , 1H , 1H(, 1HM, 1HI 1 , 1HS, 1HS, 1HI, 1HN, 1HG, 1H , 1HR, 1HI, 1HG 1 , 1HH, 1HT, 1H , 1HP, 1HA, 1HR, 1HE, 1HN, 1H)/ DATA SXER5(1),SXER5(2),SXER5(3),SXER5(4),SXER5(5),SXER5(6) 1 ,SXER5(7),SXER5(8),SXER5(9),SXER5(10),SXER5(11),SXER5(12) 1 ,SXER5(13),SXER5(14),SXER5(15),SXER5(16),SXER5(17) 1 ,SXER5(18),SXER5(19),SXER5(20),SXER5(21),SXER5(22) 1 ,SXER5(23),SXER5(24),SXER5(25),SXER5(26),SXER5(27) 1 ,SXER5(28),SXER5(29),SXER5(30),SXER5(31),SXER5(32) 1 ,SXER5(33),SXER5(34),SXER5(35),SXER5(36),SXER5(37) 1 ,SXER5(38),SXER5(39),SXER5(40),SXER5(41),SXER5(42) 1 ,SXER5(43),SXER5(44),SXER5(45),SXER5(46),SXER5(47) 1 ,SXER5(48),SXER5(49),SXER5(50),SXER5(51)/ 50, 1H*, 1H*, 1H* 1 , 1H*, 1H*, 1H , 1H , 1H , 1H , 1H(, 1HV, 1HA 1 , 1HL, 1HI, 1HD, 1H , 1HP, 1HR, 1HO, 1HC, 1HE 1 , 1HD, 1HU, 1HR, 1HE, 1H , 1HN, 1HA, 1HM, 1HE 1 , 1H , 1HD, 1HO, 1HE, 1HS, 1H , 1HN, 1HO, 1HT 1 , 1H , 1HF, 1HO, 1HL, 1HL, 1HO, 1HW, 1H , 1HT 1 , 1HO, 1H)/ C CONDITIONAL (SOURCE.EQ.SETUP) SOURCE=RETRY (ERROR.EQ.0.AND.ERSTOP.EQ.0) SOURCE=READ LIST-FLEX FIN (OTHERWISE) MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)) 2 .OR.(ERROR.EQ.25) WHEN (MINER) MINCNT=MINCNT+1 ELSE MAJCNT=MAJCNT+1 FORTOF=.TRUE. FIN WHEN (ERROR.EQ.0) ERTYPE=1 ELSE CONDITIONAL (ERROR.LE.3) INSERT-FIN (ERROR.EQ.4) INSERT-ELSE (ERROR.LE.6) ERTYPE=3 (ERROR.EQ.7) INSERT-ELSE (ERROR.EQ.8) INSERT-WHEN (ERROR.EQ.9) INSERT-TO-DUMMY-PROCEDURE (ERROR.EQ.10) INSERT-WHEN-OR-FIN (ERROR.LE.12) INSERT-FIN (ERROR.LE.15) INSERT-FIN (ERROR.EQ.16) INSERT-ELSE (ERROR.EQ.17) INSERT-CONDITIONAL (ERROR.EQ.18) INSERT-TO-DUMMY-PROCEDURE (ERROR.LE.19) INSERT-CONDITIONAL (ERROR.EQ.20) INSERT-ELSE (ERROR.EQ.21) INSERT-TO-DUMMY-PROCEDURE (ERROR.LE.23) INSERT-FIN (ERROR.EQ.24) INSERT-ELSE (ERROR.EQ.25) ERTYPE=4 (ERROR.EQ.26) ERTYPE=5 FIN FIN SOURCE=READ SELECT (ERTYPE) (1) CALL PUT(-LINENO,SHOLD,ERRCL) DO (I=1,ERSTOP) SELECT (ERRSTK(I)) (1) CALL PUT(0,SXER1,ERRCL) (2) CALL PUT(0,SXER2,ERRCL) (3) CALL PUT(0,SXER3,ERRCL) (4) CALL PUT(0,SXER4,ERRCL) (5) CALL PUT(0,SXER5,ERRCL) FIN FIN FIN (2) SOURCE=SETUP (3) CALL PUT(-LINENO,SFLX,ERRCL) CALL PUT(0,SIGN,ERRCL) FIN (4) CALL PUT(0,SENDER,ERRCL) (5) CALL PUT(LINENO,SFLX,ERRCL) CALL CPYSTR(SST,SMULER) CALL CATNUM(SST,MLINE) CALL CATSTR(SST,SRP) CALL PUT(0,SST,ERRCL) FIN FIN FIN FIN IF (ENDPGM) PROCESS-TABLE UNLESS (LISTOF) LIST-BLANK-LINE CALL PUT(0,SVER,LISTCL) FIN FIN RETURN C TO INSERT-CONDITIONAL PREPARE-FOR-INSERTION CALL CPYSTR(SFLX,SCOND) CALL PUT(0,SICOND,ERRCL) FIN C TO INSERT-ELSE PREPARE-FOR-INSERTION CALL CPYSTR(SFLX,SELSE) CALL CPYSTR(SLIST,SIELSE) CALL CATNUM(SLIST,STACK(TOP-1)) CALL CATSTR(SLIST,SRP) CALL PUT(0,SLIST,ERRCL) FIN C TO INSERT-FIN PREPARE-FOR-INSERTION CALL CPYSTR(SFLX,SFIN) CALL CPYSTR(SLIST,SIFIN) WHEN (STACK(TOP-1).EQ.0) CALL CATSTR(SLIST,SIFIN2) ELSE CALL CATNUM(SLIST,STACK(TOP-1)) CALL CATSTR(SLIST,SRP) FIN CALL PUT(0,SLIST,ERRCL) FIN C TO INSERT-TO-DUMMY-PROCEDURE PREPARE-FOR-INSERTION CALL CPYSTR(SFLX,STODUM) CALL PUT(0,SITODM,ERRCL) FIN C TO INSERT-WHEN PREPARE-FOR-INSERTION CALL CPYSTR(SFLX,SWHEN) CALL PUT(0,SIWHEN,ERRCL) FIN C TO INSERT-WHEN-OR-FIN CONDITIONAL (TOP.LE.7) INSERT-WHEN (STACK(TOP-6).EQ.AELSE) INSERT-FIN (OTHERWISE) INSERT-WHEN FIN FIN C TO LIST-BLANK-LINE UNLESS (LISTOF) LSTLEV=LEVEL WHEN (LSTLEV.EQ.0.OR.(SSPACR(1)*LSTLEV+SB6(1).GT.WWIDTH)) CALL PUT(BLN,SB,LISTCL) FIN ELSE CALL CPYSTR(SLIST,SB6) DO (I=1,LSTLEV) CALL CATSTR(SLIST,SSPACR) CALL PUT(BLN,SLIST,LISTCL) FIN BLN=0 FIN FIN C TO LIST-DASHES UNLESS (LISTOF) CALL PUT(0,SB,LISTCL) CALL PUT(0,SDASH,LISTCL) CALL PUT(0,SB,LISTCL) FIN FIN C TO LIST-FLEX UNLESS (LISTOF) IF (CLASS.EQ.TTO) LIST-DASHES IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) CALL CPYSUB(SLIST,SFLX,1,6) UNLESS(LSTLEV.EQ.0.OR.(SSPACR(1)*LSTLEV+SFLX(1).GT.WWIDTH)) DO (I=1,LSTLEV) CALL CATSTR(SLIST,SSPACR) IF(CLASS.EQ.TFIN) SLIST(1)=SLIST(1)-SSPACR(1) CALL CATSTR(SLIST,SFSPCR) FIN FIN CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) WHEN (ERLST) CALL PUT(LINENO,SLIST,ERRCL) ERLST=.FALSE. FIN ELSE CALL PUT(LINENO,SLIST,LISTCL) FIN FIN C TO PREPARE-FOR-INSERTION ERTYPE=2 SAVE-ORIGINAL-STATEMENT LINENO=0 IF (SOURCE.EQ.READ) CALL CPYSTR(SST,SINSRT) WHEN (HOLDNO.GT.0) CALL CATNUM(SST,HOLDNO) ELSE CALL CATSTR(SST,SINS2) CALL PUT(0,SST,ERRCL) FIN FIN C TO PROCESS-TABLE UNLESS (PTABLE.EQ.0) TABLCL=LISTCL LIST-DASHES UNLESS(LISTOF) CALL PUT(0,STABH,LISTCL) CALL PUT(0,SB,LISTCL) FIN P=PTABLE NDERR=.FALSE. NIERR=.FALSE. REPEAT UNTIL (P.EQ.0) IF (STACK(P+2).EQ.0) NDERR=.TRUE. MAJCNT=MAJCNT+1 FIN IF (STACK(P+3).EQ.0) NIERR=.TRUE. MINCNT=MINCNT+1 FIN UNLESS(LISTOF) PRODUCE-ENTRY-LISTING FIN P=STACK(P) FIN IF (NDERR) CALL PUT(0,SNDER1,ERRCL) CALL PUT(0,SNDER2,ERRCL) LIST-BLANK-LINE P=PTABLE TABLCL=ERRCL REPEAT UNTIL (P.EQ.0) IF (STACK(P+2).EQ.0) PRODUCE-ENTRY-LISTING P=STACK(P) FIN FIN IF (NIERR) CALL PUT(0,SNIER1,ERRCL) CALL PUT(0,SNIER2,ERRCL) LIST-BLANK-LINE P=PTABLE TABLCL=ERRCL REPEAT UNTIL (P.EQ.0) IF(STACK(P+3).EQ.0) PRODUCE-ENTRY-LISTING P=STACK(P) FIN FIN FIN FIN C TO PRODUCE-ENTRY-LISTING CALL CPYSTR(SST,SB6) UNLESS (STACK(P+2).EQ.0) CALL PUTNUM(SST,STACK(P+2)) CALL CATSTR(SST,STACK(P+4)) CALL PUT(0,SST,TABLCL) QP=STACK(P+3) UNTIL (QP.EQ.0) CALL CPYSTR(SST,SB4) I=1 UNTIL(QP.EQ.0.OR.I.GT.REFNO) CALL CATSTR(SST,SB2) CALL CATNUM(SST,STACK(QP+1)) I=I+1 QP=STACK(QP) FIN CALL PUT(0,SST,TABLCL) FIN CALL PUT(0,SB,LISTCL) FIN C TO SAVE-ORIGINAL-STATEMENT UNLESS (SAVED) SAVED=.TRUE. HOLDNO=LINENO CALL CPYSTR(SHOLD,SFLX) FIN FIN C C END