SUBROUTINE LIST 00044 INTEGER BLN , CHC , CHSPAC, CHZERO, CLASS , ERRCL 00093 INTEGER CINLIN !25-JAN-80 00094 INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO 00095 INTEGER FORTCL, HOLDNO, I , LEVEL , LINENO 00096 INTEGER LISTCL, LSTLEV 00097 INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P 00098 INTEGER PTABLE, QP , READ , REFNO , RETRY 00099 INTEGER SB , SB2 , SB4 , SB6 , SB7 , SCOND 00100 INTEGER SDASH , SELSE , SENDER, SETUP , SFIN , SFLX 00101 INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2 00102 INTEGER SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER 00103 INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE, SP 00104 INTEGER SPINV , SPUTGO, SRP , SSPACR, SST , SSTMAX 00105 INTEGER STABH , STACK , STODUM, SVER , SWHEN , SXER1 00106 INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP 00107 INTEGER TELSE , TEND , TEXEC , TFIN , TOP , TTO 00108 INTEGER ULEN , USTART, UTYPE , WWIDTH 00109 LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER 00116 LOGICAL NDERR , NIERR , NOPGM , PASS , SAVED 00117 DIMENSION UTYPE(3), USTART(3), ULEN(3) 00125 DIMENSION STACK(2000) 00128 DIMENSION ERRSTK(5) 00131 COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST 00140 COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO 00141 COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT 00142 COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP 00143 COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE 00144 COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN 00145 COMMON USTART, UTYPE , WWIDTH 00146 COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC, CINLIN !25-JAN-80 00174 DIMENSION SFLX (51) 00187 DIMENSION SHOLD (51) 00189 DIMENSION SLIST (101) 00191 DIMENSION SPINV (41) 00193 DIMENSION SPUTGO (11) 00195 DIMENSION SST (101) 00197 DIMENSION SB (2) 00203 DIMENSION SB2 (2) 00206 DIMENSION SB4 (3) 00209 DIMENSION SB6 (4) 00212 DIMENSION SB7 (5) 00215 DIMENSION SCOND (10) 00218 DIMENSION SDASH (21) 00222 DIMENSION SELSE (11) 00227 DIMENSION SENDER (16) 00231 DIMENSION SFIN (6) 00235 DIMENSION SFSPCR (3) 00238 DIMENSION SICOND (28) 00241 DIMENSION SIELSE (21) 00247 DIMENSION SIFIN (20) 00252 DIMENSION SIFIN2 (8) 00257 DIMENSION SIGN (24) 00260 DIMENSION SINSRT (20) 00265 DIMENSION SINS2 (8) 00270 DIMENSION SITODM (26) 00273 DIMENSION SIWHEN (21) 00279 DIMENSION SMULER (23) 00284 DIMENSION SNDER1 (22) 00289 DIMENSION SNDER2 (23) 00294 DIMENSION SNIER1 (24) 00299 DIMENSION SNIER2 (23) 00304 DIMENSION SRP (2) 00309 DIMENSION SSPACR (3) 00312 DIMENSION STABH (20) 00315 DIMENSION STODUM (13) 00320 DIMENSION SVER (12) 00324 DIMENSION SWHEN (16) 00328 DIMENSION SXER1 (28) 00332 DIMENSION SXER2 (28) 00338 DIMENSION SXER3 (26) 00344 DIMENSION SXER4 (16) 00350 DIMENSION SXER5 (26) 00354 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 00365 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 00366 DATA SETUP /1/, RETRY /2/, READ /3/ 00367 DATA SSTMAX /200/ 00368 DATA SB / 1, 1H / 00369 DATA SB2 / 2, 2H / 00370 DATA SB4 / 4, 2H , 2H / 00371 DATA SB6 / 6, 2H , 2H , 2H / 00372 DATA SB7 / 7, 2H , 2H , 2H , 1H / 00373 DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 00374 1 , 1HL/ 00375 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 00376 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 00377 1 , 2H--, 2H--, 2H--, 2H--/ 00378 DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 00379 1 , 2HNU, 1HE/ 00380 DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 00381 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ 00382 DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ 00383 DATA SFSPCR / 3, 2H.., 1H./ 00384 DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 00385 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 00386 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 00387 1 , 2HSS, 2HIN, 2HG)/ 00388 DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 00389 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 00390 1 , 2HH , 2HLI, 2HNE, 1H / 00391 DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 00392 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 00393 1 , 2H L, 2HIN, 2HE / 00394 DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ 00395 DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 00396 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 00397 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ 00398 DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 00399 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 00400 1 , 2H L, 2HIN, 2HE / 00401 DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ 00402 DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 00403 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 00404 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 00405 1 , 2HT)/ 00406 DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 00407 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 00408 1 , 2HG , 2HEL, 2HSE, 1H)/ 00409 DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 00410 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 00411 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / 00412 DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 00413 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 00414 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ 00415 DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 00416 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 00417 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ 00418 DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 00419 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 00420 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ 00421 DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 00422 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 00423 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ 00424 DATA SRP / 1, 1H)/ 00425 DATA SSPACR / 3, 2H. , 1H / 00426 DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 00427 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 00428 1 , 2HTA, 2HBL, 1HE/ 00429 DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 00430 1 , 2HRO, 2HCE, 2HDU, 2HRE/ 00431 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 00432 1 , 2H2., 2H38, 1H)/ 00433 DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 00434 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 00435 DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 00436 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 00437 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 00438 1 , 2HFI, 2HEL, 2HD)/ 00439 DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 00440 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 00441 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 00442 1 , 2HBA, 2HGE, 1H)/ 00443 DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 00444 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 00445 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 00446 1 , 2HD)/ 00447 DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 00448 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ 00449 DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 00450 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 00451 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 00452 1 , 2HO)/ 00453 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32757 00460 SOURCE=RETRY 00460 GO TO 32758 00461 32757 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32756 00461 SOURCE=READ !IF NO ERROR, SET FLAG TO GET NEXT LINE FROM FLX 00462 ASSIGN 32754 TO I32755 00463 GO TO 32755 00463 32754 GO TO 32758 00465 32756 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 00466 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) 00467 MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)).OR.(ERROR.EQ.25) 00468 IF(.NOT.(MINER)) GO TO 32752 00469 MINCNT=MINCNT+1 !INC WARNING COUNT 00469 GO TO 32753 00469 32752 MAJCNT=MAJCNT+1 !INC ERROR COUNT 00470 32753 IF(.NOT.(ERROR.EQ.0)) GO TO 32750 00471 ERTYPE=1 00471 GO TO 32751 00471 32750 IF(.NOT.(ERROR.LE.3)) GO TO 32748 00474 ASSIGN 32746 TO I32747 00474 GO TO 32747 00474 32746 GO TO 32749 00475 32748 IF(.NOT.(ERROR.EQ.4)) GO TO 32745 00475 ASSIGN 32743 TO I32744 00475 GO TO 32744 00475 32743 GO TO 32749 00476 32745 IF(.NOT.(ERROR.LE.6)) GO TO 32742 00476 ERTYPE=3 00476 GO TO 32749 00477 32742 IF(.NOT.(ERROR.EQ.7)) GO TO 32741 00477 ASSIGN 32740 TO I32744 00477 GO TO 32744 00477 32740 GO TO 32749 00478 32741 IF(.NOT.(ERROR.EQ.8)) GO TO 32739 00478 ASSIGN 32737 TO I32738 00478 GO TO 32738 00478 32737 GO TO 32749 00479 32739 IF(.NOT.(ERROR.EQ.9)) GO TO 32736 00479 ASSIGN 32734 TO I32735 00479 GO TO 32735 00479 32734 GO TO 32749 00480 32736 IF(.NOT.(ERROR.EQ.10)) GO TO 32733 00480 ASSIGN 32731 TO I32732 00480 GO TO 32732 00480 32731 GO TO 32749 00481 32733 IF(.NOT.(ERROR.LE.12)) GO TO 32730 00481 ASSIGN 32729 TO I32747 00481 GO TO 32747 00481 32729 GO TO 32749 00482 32730 IF(.NOT.(ERROR.LE.15)) GO TO 32728 00482 ASSIGN 32727 TO I32747 00482 GO TO 32747 00482 32727 GO TO 32749 00483 32728 IF(.NOT.(ERROR.EQ.16)) GO TO 32726 00483 ASSIGN 32725 TO I32744 00483 GO TO 32744 00483 32725 GO TO 32749 00484 32726 IF(.NOT.(ERROR.EQ.17)) GO TO 32724 00484 ASSIGN 32722 TO I32723 00484 GO TO 32723 00484 32722 GO TO 32749 00485 32724 IF(.NOT.(ERROR.EQ.18)) GO TO 32721 00485 ASSIGN 32720 TO I32735 00485 GO TO 32735 00485 32720 GO TO 32749 00486 32721 IF(.NOT.(ERROR.LE.19)) GO TO 32719 00486 ASSIGN 32718 TO I32723 00486 GO TO 32723 00486 32718 GO TO 32749 00487 32719 IF(.NOT.(ERROR.EQ.20)) GO TO 32717 00487 ASSIGN 32716 TO I32744 00487 GO TO 32744 00487 32716 GO TO 32749 00488 32717 IF(.NOT.(ERROR.EQ.21)) GO TO 32715 00488 ASSIGN 32714 TO I32735 00488 GO TO 32735 00488 32714 GO TO 32749 00489 32715 IF(.NOT.(ERROR.LE.23)) GO TO 32713 00489 ASSIGN 32712 TO I32747 00489 GO TO 32747 00489 32712 GO TO 32749 00490 32713 IF(.NOT.(ERROR.EQ.24)) GO TO 32711 00490 ASSIGN 32710 TO I32744 00490 GO TO 32744 00490 32710 GO TO 32749 00491 32711 IF(.NOT.(ERROR.EQ.25)) GO TO 32709 00491 ERTYPE=4 00491 GO TO 32749 00492 32709 IF(.NOT.(ERROR.EQ.26)) GO TO 32708 00492 ERTYPE=5 00492 32708 CONTINUE 00493 32749 CONTINUE 00494 32751 SOURCE=READ 00495 IF((1).NE.(ERTYPE)) GO TO 32706 00497 CALL PUT(-LINENO,SHOLD,ERRCL) 00498 DO 32705 I=1,ERSTOP 00499 IF((1).NE.(ERRSTK(I))) GO TO 32703 00501 CALL PUT(0,SXER1,ERRCL) 00501 GO TO 32704 00502 32703 IF((2).NE.(ERRSTK(I))) GO TO 32702 00502 CALL PUT(0,SXER2,ERRCL) 00502 GO TO 32704 00503 32702 IF((3).NE.(ERRSTK(I))) GO TO 32701 00503 CALL PUT(0,SXER3,ERRCL) 00503 GO TO 32704 00504 32701 IF((4).NE.(ERRSTK(I))) GO TO 32700 00504 CALL PUT(0,SXER4,ERRCL) 00504 GO TO 32704 00505 32700 IF((5).NE.(ERRSTK(I))) GO TO 32699 00505 CALL PUT(0,SXER5,ERRCL) 00505 32699 CONTINUE 00506 32704 CONTINUE 00507 32705 CONTINUE 00507 GO TO 32707 00509 32706 IF((2).NE.(ERTYPE)) GO TO 32698 00509 SOURCE=SETUP !MISSING STATEMENT INSERTED 00509 GO TO 32707 00510 32698 IF((3).NE.(ERTYPE)) GO TO 32697 00510 CALL PUT(-LINENO,SFLX,ERRCL) !EXTRA FIN 00511 CALL PUT(0,SIGN,ERRCL) 00512 GO TO 32707 00514 32697 IF((4).NE.(ERTYPE)) GO TO 32696 00514 CALL PUT(0,SENDER,ERRCL) !MISSING END 00514 GO TO 32707 00515 32696 IF((5).NE.(ERTYPE)) GO TO 32695 00515 CALL PUT(LINENO,SFLX,ERRCL) !PROCEDURE ALREADY DEFINED 00516 CALL CPYSTR(SST,SMULER) 00517 CALL CATNUM(SST,MLINE) 00518 CALL CATSTR(SST,SRP) 00519 CALL PUT(0,SST,ERRCL) 00520 32695 CONTINUE 00522 32707 CONTINUE 00524 32758 IF(.NOT.(ENDPGM)) GO TO 32694 00525 ASSIGN 32692 TO I32693 00526 GO TO 32693 00526 32692 ASSIGN 32690 TO I32691 00527 GO TO 32691 00527 32690 CALL PUT(0,SVER,LISTCL) 00528 32694 RETURN 00530 32723 CONTINUE 00531 ASSIGN 32688 TO I32689 00532 GO TO 32689 00532 32688 CALL CPYSTR(SFLX,SCOND) 00533 CALL PUT(0,SICOND,ERRCL) 00534 GO TO I32723 00535 32744 CONTINUE 00536 ASSIGN 32687 TO I32689 00537 GO TO 32689 00537 32687 CALL CPYSTR(SFLX,SELSE) 00538 CALL CPYSTR(SLIST,SIELSE) 00539 CALL CATNUM(SLIST,STACK(TOP-1)) 00540 CALL CATSTR(SLIST,SRP) 00541 CALL PUT(0,SLIST,ERRCL) 00542 GO TO I32744 00543 32747 CONTINUE 00544 ASSIGN 32686 TO I32689 00545 GO TO 32689 00545 32686 CALL CPYSTR(SFLX,SFIN) 00546 CALL CPYSTR(SLIST,SIFIN) 00547 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32684 00548 CALL CATSTR(SLIST,SIFIN2) 00548 GO TO 32685 00548 32684 CALL CATNUM(SLIST,STACK(TOP-1)) 00550 CALL CATSTR(SLIST,SRP) 00551 32685 CALL PUT(0,SLIST,ERRCL) 00553 GO TO I32747 00554 32735 CONTINUE 00555 ASSIGN 32683 TO I32689 00556 GO TO 32689 00556 32683 CALL CPYSTR(SFLX,STODUM) 00557 CALL PUT(0,SITODM,ERRCL) 00558 GO TO I32735 00559 32738 CONTINUE 00560 ASSIGN 32682 TO I32689 00561 GO TO 32689 00561 32682 CALL CPYSTR(SFLX,SWHEN) 00562 CALL PUT(0,SIWHEN,ERRCL) 00563 GO TO I32738 00564 32732 CONTINUE 00565 IF(.NOT.(TOP.LE.7)) GO TO 32680 00567 ASSIGN 32679 TO I32738 00567 GO TO 32738 00567 32679 GO TO 32681 00568 32680 IF(.NOT.(STACK(TOP-6).EQ.TELSE)) GO TO 32678 00568 ASSIGN 32677 TO I32747 00568 GO TO 32747 00568 32677 GO TO 32681 00569 32678 ASSIGN 32676 TO I32738 00569 GO TO 32738 00569 32676 CONTINUE 00570 32681 GO TO I32732 00571 32691 CONTINUE 00572 LSTLEV=LEVEL 00573 IF(.NOT.(LSTLEV.EQ.0)) GO TO 32674 00574 CALL PUT(BLN,SB,LISTCL) 00574 GO TO 32675 00574 32674 CALL CPYSTR(SLIST,SB6) 00576 DO 32673 I=1,LSTLEV 00577 CALL CATSTR(SLIST,SSPACR) 00577 32673 CONTINUE 00577 IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32671 00578 CALL PUT(BLN,SP,LISTCL) 00578 GO TO 32672 00578 32671 CALL PUT(BLN,SLIST,LISTCL) 00579 32672 CONTINUE 00580 32675 BLN=0 00581 GO TO I32691 00582 32670 CONTINUE 00583 CALL PUT(0,SB,LISTCL) 00584 CALL PUT(0,SDASH,LISTCL) 00585 CALL PUT(0,SB,LISTCL) 00586 GO TO I32670 00587 32755 CONTINUE 00588 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32669 00589 ASSIGN 32668 TO I32670 00589 GO TO 32670 00589 32668 CONTINUE 00589 32669 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) 00590 CALL CPYSUB(SLIST,SFLX,1,6) 00591 IF(LSTLEV.EQ.0) GO TO 32667 00592 DO 32666 I=1,LSTLEV 00593 CALL CATSTR(SLIST,SSPACR) 00593 32666 CONTINUE 00593 32667 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32665 00595 SLIST(1)=SLIST(1)-SSPACR(1) 00596 CALL CATSTR(SLIST,SFSPCR) 00597 32665 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) 00599 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) 00603 IF(.NOT.(ERLST)) GO TO 32663 00604 CALL PUT(LINENO,SLIST,ERRCL) 00605 ERLST=.FALSE. 00606 GO TO 32664 00607 32663 CALL PUT(LINENO,SLIST,LISTCL) 00608 32664 GO TO I32755 00609 32689 CONTINUE 00610 ERTYPE=2 00611 ASSIGN 32661 TO I32662 00612 GO TO 32662 00612 32661 LINENO=0 00613 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32660 00614 CALL CPYSTR(SST,SINSRT) 00615 IF(.NOT.(HOLDNO.GT.0)) GO TO 32658 00616 CALL CATNUM(SST,HOLDNO) 00616 GO TO 32659 00616 32658 CALL CATSTR(SST,SINS2) 00617 32659 CALL PUT(0,SST,ERRCL) 00618 32660 GO TO I32689 00620 32693 CONTINUE 00621 IF(PTABLE.EQ.0) GO TO 32657 00622 TABLCL=LISTCL 00623 ASSIGN 32656 TO I32670 00624 GO TO 32670 00624 32656 CALL PUT(0,STABH,LISTCL) 00625 CALL PUT(0,SB,LISTCL) 00626 P=PTABLE 00627 NDERR=.FALSE. 00628 NIERR=.FALSE. 00629 GO TO 32654 00630 32655 IF(P.EQ.0) GO TO 32653 00630 32654 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32652 00631 NDERR=.TRUE. 00632 MAJCNT=MAJCNT+1 00633 32652 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32651 00635 NIERR=.TRUE. 00636 MINCNT=MINCNT+1 00637 32651 ASSIGN 32649 TO I32650 00639 GO TO 32650 00639 32649 P=STACK(P) 00640 GO TO 32655 00641 32653 IF(.NOT.(NDERR)) GO TO 32648 00642 CALL PUT(0,SNDER1,ERRCL) 00643 CALL PUT(0,SNDER2,ERRCL) 00644 ASSIGN 32647 TO I32691 00645 GO TO 32691 00645 32647 P=PTABLE 00646 TABLCL=ERRCL 00647 GO TO 32645 00648 32646 IF(P.EQ.0) GO TO 32644 00648 32645 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32643 00649 ASSIGN 32642 TO I32650 00649 GO TO 32650 00649 32642 CONTINUE 00649 32643 P=STACK(P) 00650 GO TO 32646 00651 32644 CONTINUE 00652 32648 IF(.NOT.(NIERR)) GO TO 32641 00653 CALL PUT(0,SNIER1,ERRCL) 00654 CALL PUT(0,SNIER2,ERRCL) 00655 ASSIGN 32640 TO I32691 00656 GO TO 32691 00656 32640 P=PTABLE 00657 TABLCL=ERRCL 00658 GO TO 32638 00659 32639 IF(P.EQ.0) GO TO 32637 00659 32638 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32636 00660 ASSIGN 32635 TO I32650 00660 GO TO 32650 00660 32635 CONTINUE 00660 32636 P=STACK(P) 00661 GO TO 32639 00662 32637 CONTINUE 00663 32641 CONTINUE 00664 32657 GO TO I32693 00665 32650 CONTINUE 00666 CALL CPYSTR(SST,SB6) 00667 IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2)) 00668 CALL CATSTR(SST,STACK(P+4)) 00669 CALL PUT(0,SST,TABLCL) 00670 QP=STACK(P+3) 00671 32634 IF(QP.EQ.0) GO TO 32633 00672 CALL CPYSTR(SST,SB4) 00673 I=1 00674 32632 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32631 00675 CALL CATSTR(SST,SB2) 00676 CALL CATNUM(SST,STACK(QP+1)) 00677 I=I+1 00678 QP=STACK(QP) 00679 GO TO 32632 00680 32631 CALL PUT(0,SST,TABLCL) 00681 GO TO 32634 00682 32633 CALL PUT(0,SB,LISTCL) 00683 GO TO I32650 00684 32662 CONTINUE 00685 IF(SAVED) GO TO 32630 00686 SAVED=.TRUE. 00687 HOLDNO=LINENO 00688 CALL CPYSTR(SHOLD,SFLX) 00689 32630 GO TO I32662 00691 END 00692