CALL MAIN END SUBROUTINE P3 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 4 99998 CALL P$UJC 5 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 437 CALL P$LDO(1,27) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,27) LINENO = 439 CALL P$LAO(7) CALL P$PAG CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 440 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LCA(26223) CALL P$LDC(1,INTL(13)) CALL P$LDC(1,INTL(13)) CALL P$WRS CALL P$LCA(26227) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS SP=SP-1 LINENO = 441 CALL P$LAO(7) CALL P$LCA(26230) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(174)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(8)) CALL P$WRC SP=SP-1 LINENO = 442 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,13026) CALL P$LDC(1,INTL(8)) CALL P$STR(0,5) 6 CONTINUE CALL P$LDO(1,13026) CALL P$LOD(0,5) CALL P$LEQ(1) CALL P$FJP($7) CALL P$LAO(7) CALL P$LAO(6469) CALL P$LDO(1,13026) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(6,0) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LDO(1,13026) CALL P$INC(1,INTL(1)) CALL P$SRO(1,13026) GOTO 6 7 CONTINUE CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(4)) CALL P$WRC SP=SP-1 LINENO = 443 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,13026) CALL P$LDC(1,INTL(8)) CALL P$STR(0,5) 8 CONTINUE CALL P$LDO(1,13026) CALL P$LOD(0,5) CALL P$LEQ(1) CALL P$FJP($9) CALL P$LAO(7) CALL P$LAO(6461) CALL P$LDO(1,13026) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(6,0) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LDO(1,13026) CALL P$INC(1,INTL(1)) CALL P$SRO(1,13026) GOTO 8 9 CONTINUE LINENO = 444 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(24)) CALL P$WRC CALL P$LCA(26233) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LDO(1,27) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 445 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 446 CALL P$LDC(1,INTL(56)) CALL P$SRO(1,26) CALL P$RET(0) RETURN 4 CONTINUE SG1SIZ = 6 SG2SIZ = 23 GOTO 5 END SUBROUTINE P10 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 11 99998 CALL P$UJC 12 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 463 CALL P$LDO(1,191) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($13) LINENO = 464 CALL P$LDO(1,26) CALL P$LDC(1,INTL(2)) CALL P$SBI CALL P$SRO(1,26) LINENO = 465 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LCA(26235) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(15)) CALL P$WRC SP=SP-1 LINENO = 466 CALL P$LDC(1,INTL(0)) CALL P$STR(0,10) CALL P$LDC(1,INTL(1)) CALL P$STR(0,9) LINENO = 467 CALL P$LDC(1,INTL(1)) CALL P$STR(0,5) CALL P$LDO(1,191) CALL P$STR(0,11) 14 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,11) CALL P$LEQ(1) CALL P$FJP($15) LINENO = 468 CALL P$LAO(193) CALL P$LOD(0,5) CALL P$CHK(INTL(1),INTL(10)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$STRA(0,12) LINENO = 469 CALL P$LODA(0,12) CALL P$IND(1,0) CALL P$STR(0,8) CALL P$LODA(0,12) CALL P$IND(1,1) CALL P$STR(0,7) LINENO = 470 CALL P$LOD(0,8) CALL P$LOD(0,10) CALL P$EQU(1,1) CALL P$FJP($16) CALL P$LAO(7) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 17 16 CONTINUE LINENO = 471 LINENO = 472 18 CONTINUE LINENO = 472 CALL P$LOD(0,9) CALL P$LOD(0,8) CALL P$LES(1,1) CALL P$FJP($19) LINENO = 473 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LOD(0,9) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,9) GOTO 18 19 CONTINUE LINENO = 474 CALL P$LAO(7) CALL P$LDC(6,INTL(222)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 475 CALL P$LOD(0,8) CALL P$STR(0,10) 17 CONTINUE LINENO = 477 CALL P$LOD(0,7) CALL P$LDC(1,INTL(10)) CALL P$LES(1,1) CALL P$FJP($20) CALL P$LDC(1,INTL(1)) CALL P$STR(0,6) GOTO 21 20 CONTINUE LINENO = 478 CALL P$LOD(0,7) CALL P$LDC(1,INTL(100)) CALL P$LES(1,1) CALL P$FJP($22) CALL P$LDC(1,INTL(2)) CALL P$STR(0,6) GOTO 23 22 CONTINUE LINENO = 479 CALL P$LDC(1,INTL(3)) CALL P$STR(0,6) 23 CONTINUE 21 CONTINUE LINENO = 480 CALL P$LAO(7) CALL P$LOD(0,7) CALL P$LOD(0,6) CALL P$WRI SP=SP-1 LINENO = 481 CALL P$LOD(0,9) CALL P$LOD(0,6) CALL P$ADI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,9) CALL P$LOD(0,5) CALL P$INC(1,INTL(1)) CALL P$STR(0,5) GOTO 14 15 CONTINUE LINENO = 483 CALL P$LAO(7) CALL P$WLN LINENO = 484 CALL P$LDO(1,226) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($24) LINENO = 485 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(21)) CALL P$WRC CALL P$LCA(26237) CALL P$LDC(1,INTL(19)) CALL P$LDC(1,INTL(19)) CALL P$WRS CALL P$LDO(1,226) CALL P$LDC(1,INTL(10)) CALL P$WRI CALL P$WLN GOTO 25 24 CONTINUE LINENO = 487 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(21)) CALL P$WRC CALL P$LCA(26242) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$WLN 25 CONTINUE LINENO = 488 CALL P$LDO(1,25) CALL P$SRO(1,226) LINENO = 489 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,191) 13 CONTINUE LINENO = 491 CALL P$LDO(1,25) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,25) LINENO = 492 CALL P$LDO(3,32) CALL P$LAO(5) CALL P$EOF CALL P$NOT CALL P$AND CALL P$FJP($26) LINENO = 493 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,26) LINENO = 494 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$LES(1,1) CALL P$FJP($27) CALL P$MST(1) CALL P$CUP(0) CALL P3 27 CONTINUE LINENO = 495 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LDO(1,25) CALL P$LDC(1,INTL(5)) CALL P$WRI SP=SP-1 LINENO = 496 CALL P$LAO(7) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LDC(1,INTL(4)) CALL P$WRI CALL P$LDO(1,28) CALL P$LDC(1,INTL(3)) CALL P$WRI SP=SP-1 LINENO = 497 CALL P$LDO(3,30) CALL P$FJP($28) CALL P$LAO(7) CALL P$LDO(1,23) CALL P$LDC(1,INTL(7)) CALL P$WRI SP=SP-1 GOTO 29 28 CONTINUE LINENO = 498 CALL P$LAO(7) CALL P$LDO(1,24) CALL P$LDC(1,INTL(7)) CALL P$WRI SP=SP-1 29 CONTINUE LINENO = 500 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 26 CONTINUE LINENO = 502 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,22) CALL P$RET(0) RETURN 11 CONTINUE SG1SIZ = 13 SG2SIZ = 29 GOTO 12 END SUBROUTINE P31 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 32 99998 CALL P$UJC 33 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 516 CALL P$LOD(0,5) CALL P$LDC(1,INTL(255)) CALL P$LEQ(1,1) CALL P$FJP($34) LINENO = 517 CALL P$LDC(1,INTL(7)) CALL P$LDO(4,213) CALL P$LOD(0,5) CALL P$SGS CALL P$UNI CALL P$LDC(1,INTL(7)) CALL P$SRO(4,213) GOTO 35 34 CONTINUE LINENO = 519 CALL P$LDC(1,INTL(4)) CALL P$LDO(4,221) CALL P$LOD(0,5) CALL P$LDC(1,INTL(255)) CALL P$SBI CALL P$SGS CALL P$UNI CALL P$LDC(1,INTL(4)) CALL P$SRO(4,221) 35 CONTINUE CALL P$RET(0) RETURN 32 CONTINUE SG1SIZ = 6 SG2SIZ = 37 GOTO 33 END SUBROUTINE P30 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 36 99998 CALL P$UJC 37 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 523 CALL P$LDO(1,191) CALL P$LDC(1,INTL(9)) CALL P$GEQ(1,1) CALL P$FJP($38) LINENO = 524 CALL P$LAO(193) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(10)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(255)) CALL P$CHK(INTL(1),INTL(400)) CALL P$STO(1) CALL P$MST(0) CALL P$LOD(0,5) CALL P$CUP(1) CALL P31 CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,191) GOTO 39 38 CONTINUE LINENO = 525 LINENO = 526 CALL P$LDO(1,191) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,191) LINENO = 527 CALL P$LAO(193) CALL P$LDO(1,191) CALL P$CHK(INTL(1),INTL(10)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$INC(0,INTL(1)) CALL P$LOD(0,5) CALL P$CHK(INTL(1),INTL(400)) CALL P$STO(1) LINENO = 528 CALL P$MST(0) CALL P$LOD(0,5) CALL P$CUP(1) CALL P31 39 CONTINUE LINENO = 530 CALL P$LAO(193) CALL P$LDO(1,191) CALL P$CHK(INTL(1),INTL(10)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LDO(1,22) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STO(1) CALL P$RET(0) RETURN 36 CONTINUE SG1SIZ = 6 SG2SIZ = 15 GOTO 37 END SUBROUTINE P40 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 41 99998 CALL P$UJC 42 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 543 CALL P$LAO(7) CALL P$WLN CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(400)) CALL P$SRO(1,192) LINENO = 544 CALL P$LDO(1,226) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$LDO(1,226) CALL P$LDO(1,25) CALL P$NEQ(1,1) CALL P$AND CALL P$FJP($43) LINENO = 546 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(21)) CALL P$WRC CALL P$LCA(26245) CALL P$LDC(1,INTL(19)) CALL P$LDC(1,INTL(19)) CALL P$WRS CALL P$LDO(1,226) CALL P$LDC(1,INTL(10)) CALL P$WRI CALL P$WLN 43 CONTINUE LINENO = 547 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,26) LINENO = 548 CALL P$LDO(1,26) CALL P$LDC(1,INTL(7)) CALL P$LEQ(1,1) CALL P$FJP($44) CALL P$MST(1) CALL P$CUP(0) CALL P3 44 CONTINUE LINENO = 549 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 550 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 551 CALL P$LDC(1,INTL(7)) CALL P$LDO(4,213) CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32367)) CALL P$NEQ(4,8) CALL P$LDC(1,INTL(4)) CALL P$LDO(4,221) CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32367)) CALL P$NEQ(4,5) CALL P$IOR CALL P$FJP($45) LINENO = 552 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LCA(26250) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$WLN LINENO = 553 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LCA(26252) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LCA(26254) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS CALL P$WLN LINENO = 554 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LCA(26256) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LCA(26258) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS CALL P$WLN LINENO = 555 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 556 CALL P$LDO(1,26) CALL P$LDC(1,INTL(6)) CALL P$SBI CALL P$SRO(1,26) LINENO = 557 CALL P$LDC(1,INTL(1)) CALL P$STR(0,5) CALL P$LDC(1,INTL(255)) CALL P$STR(0,6) 46 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($47) LINENO = 558 CALL P$LOD(0,5) CALL P$LDC(1,INTL(7)) CALL P$LDO(4,213) CALL P$INN CALL P$FJP($48) LINENO = 559 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LOD(0,5) CALL P$LDC(1,INTL(3)) CALL P$WRI CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(7)) CALL P$WRC CALL P$LAO(865) CALL P$LOD(0,5) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LDC(1,INTL(50)) CALL P$LDC(1,INTL(50)) CALL P$WRS CALL P$WLN LINENO = 560 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,26) LINENO = 561 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$LES(1,1) CALL P$FJP($49) CALL P$MST(1) CALL P$CUP(0) CALL P3 49 CONTINUE LINENO = 562 CALL P$LDO(1,192) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(400)) CALL P$SRO(1,192) 48 CONTINUE CALL P$LOD(0,5) CALL P$INC(1,INTL(1)) CALL P$STR(0,5) GOTO 46 47 CONTINUE LINENO = 564 CALL P$LDC(1,INTL(1)) CALL P$STR(0,5) CALL P$LDC(1,INTL(145)) CALL P$STR(0,6) 50 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($51) LINENO = 565 CALL P$LOD(0,5) CALL P$LDC(1,INTL(4)) CALL P$LDO(4,221) CALL P$INN CALL P$FJP($52) LINENO = 566 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LOD(0,5) CALL P$LDC(1,INTL(255)) CALL P$ADI CALL P$LDC(1,INTL(3)) CALL P$WRI CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(7)) CALL P$WRC CALL P$LAO(865) CALL P$LOD(0,5) CALL P$LDC(1,INTL(255)) CALL P$ADI CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LDC(1,INTL(50)) CALL P$LDC(1,INTL(50)) CALL P$WRS CALL P$WLN LINENO = 567 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,26) LINENO = 568 CALL P$LDO(1,26) CALL P$LDC(1,INTL(1)) CALL P$LES(1,1) CALL P$FJP($53) CALL P$MST(1) CALL P$CUP(0) CALL P3 53 CONTINUE LINENO = 569 CALL P$LDO(1,192) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(400)) CALL P$SRO(1,192) 52 CONTINUE CALL P$LOD(0,5) CALL P$INC(1,INTL(1)) CALL P$STR(0,5) GOTO 50 51 CONTINUE 45 CONTINUE CALL P$RET(0) RETURN 41 CONTINUE SG1SIZ = 7 SG2SIZ = 37 GOTO 42 END SUBROUTINE P54 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 55 99998 CALL P$UJC 56 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 581 CALL P$LDO(3,21) CALL P$FJP($57) LINENO = 582 CALL P$LDO(3,32) CALL P$FJP($58) CALL P$LAO(7) CALL P$WLN 58 CONTINUE LINENO = 583 CALL P$MST(1) CALL P$CUP(0) CALL P10 57 CONTINUE LINENO = 585 CALL P$LAO(5) CALL P$EOF CALL P$NOT CALL P$FJP($59) LINENO = 586 CALL P$LAO(5) CALL P$ELN CALL P$SRO(3,21) CALL P$LAO(5) CALL P$LAO(20) CALL P$RDC SP=SP-1 LINENO = 587 CALL P$LDO(3,32) CALL P$LDO(3,21) CALL P$NOT CALL P$AND CALL P$FJP($60) CALL P$LAO(7) CALL P$LDO(6,20) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 60 CONTINUE LINENO = 588 CALL P$LDO(1,22) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,22) GOTO 61 59 CONTINUE LINENO = 590 LINENO = 591 CALL P$LAO(7) CALL P$LCA(26260) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$LCA(26263) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$WLN LINENO = 592 CALL P$LODA(0,5) CALL P$LDC(3,INTL(0)) CALL P$STO(3) 61 CONTINUE CALL P$RET(0) RETURN 55 CONTINUE SG1SIZ = 6 SG2SIZ = 17 GOTO 56 END SUBROUTINE P66 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 67 99998 CALL P$UJC 68 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 616 CALL P$LOD(0,5) CALL P$LDC(6,INTL(225)) CALL P$GEQ(6,1) CALL P$LOD(0,5) CALL P$LDC(6,INTL(250)) CALL P$LEQ(6,1) CALL P$AND CALL P$FJP($69) LINENO = 617 CALL P$LOD(0,5) CALL P$LDC(1,INTL(32)) CALL P$SBI CALL P$CHK(INTL(128),INTL(255)) CALL P$STR(0,0) GOTO 70 69 CONTINUE LINENO = 619 CALL P$LOD(0,5) CALL P$STR(0,0) 70 CONTINUE CALL P$RET(1) RETURN 67 CONTINUE SG1SIZ = 6 SG2SIZ = 11 GOTO 68 END SUBROUTINE P71 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 72 99998 CALL P$UJC 73 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 627 74 CONTINUE LINENO = 628 CALL P$MST(2) CALL P$LDA(1,45) CALL P$CUP(1) CALL P54 LINENO = 629 CALL P$LDO(6,20) CALL P$LDC(6,INTL(170)) CALL P$NEQ(6,1) CALL P$FJP($75) LINENO = 630 CALL P$LDO(6,20) CALL P$STR(0,5) CALL P$MST(2) CALL P$LDA(1,45) CALL P$CUP(1) CALL P54 LINENO = 631 CALL P$LOD(0,5) CALL P$LDC(1,INTL(1542)) CALL P$LDC(4,INTL(32367)) CALL P$INN CALL P$FJP($76) LINENO = 632 CALL P$LOD(0,5) GOTO 77 79 CONTINUE LINENO = 633 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$SRO(3,39) GOTO 78 80 CONTINUE LINENO = 634 LINENO = 635 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$SRO(3,32) LINENO = 636 CALL P$LDO(3,32) CALL P$NOT CALL P$FJP($81) CALL P$LAO(7) CALL P$WLN 81 CONTINUE GOTO 78 82 CONTINUE LINENO = 638 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$SRO(3,33) GOTO 78 83 CONTINUE LINENO = 639 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$SRO(3,34) GOTO 78 84 CONTINUE LINENO = 640 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$SRO(3,38) GOTO 78 85 CONTINUE LINENO = 641 CALL P$LDO(6,20) CALL P$LDC(6,INTL(177)) CALL P$EQU(6,1) CALL P$FJP($86) LINENO = 642 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,36) LINENO = 643 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,37) GOTO 87 86 CONTINUE LINENO = 644 CALL P$LDO(6,20) CALL P$LDC(6,INTL(178)) CALL P$EQU(6,1) CALL P$FJP($88) LINENO = 645 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,36) LINENO = 646 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,37) GOTO 89 88 CONTINUE LINENO = 647 LINENO = 648 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,36) LINENO = 649 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,37) 89 CONTINUE 87 CONTINUE GOTO 78 90 CONTINUE LINENO = 650 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$SRO(3,35) GOTO 78 77 CONTINUE CALL P$CHK(INTL(194),INTL(212)) CALL P$LDC(1,INTL(194)) CALL P$SBI CALL P$XJP($91) 91 CONTINUE 92 GOTO 82 93 GOTO 90 94 GOTO 83 95 GOTO 99998 96 GOTO 99998 97 GOTO 99998 98 GOTO 99998 99 GOTO 99998 100 GOTO 99998 101 GOTO 99998 102 GOTO 80 103 GOTO 99998 104 GOTO 99998 105 GOTO 99998 106 GOTO 84 107 GOTO 99998 108 GOTO 85 109 GOTO 99998 110 GOTO 79 78 CONTINUE 76 CONTINUE LINENO = 652 CALL P$MST(2) CALL P$LDA(1,45) CALL P$CUP(1) CALL P54 75 CONTINUE LINENO = 654 CALL P$LDO(6,20) CALL P$LDC(6,INTL(172)) CALL P$NEQ(6,1) CALL P$FJP($74) CALL P$RET(0) RETURN 72 CONTINUE SG1SIZ = 6 SG2SIZ = 27 GOTO 73 END SUBROUTINE P62 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 111 99998 CALL P$UJC 112 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) 63 CONTINUE LINENO = 660 113 CONTINUE LINENO = 661 114 CONTINUE LINENO = 661 CALL P$LDO(6,20) CALL P$LDC(6,INTL(160)) CALL P$EQU(6,1) CALL P$LDO(3,21) CALL P$NOT CALL P$AND CALL P$FJP($115) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 114 115 CONTINUE LINENO = 662 CALL P$LDO(3,21) CALL P$STR(0,45) LINENO = 663 CALL P$LOD(0,45) CALL P$FJP($116) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 116 CONTINUE LINENO = 664 CALL P$LOD(0,45) CALL P$NOT CALL P$FJP($113) LINENO = 665 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($117) LINENO = 666 CALL P$LDC(1,INTL(52)) CALL P$SRO(1,13) CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) LINENO = 667 CALL P$MST(1) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 118 117 CONTINUE LINENO = 670 CALL P$LDO(6,20) GOTO 119 121 CONTINUE LINENO = 676 LINENO = 678 CALL P$LDC(1,INTL(0)) CALL P$STR(0,6) CALL P$LAO(18) CALL P$LCA(26266) CALL P$MOV(2) LINENO = 679 122 CONTINUE LINENO = 680 CALL P$LOD(0,6) CALL P$LDC(1,INTL(8)) CALL P$LES(1,1) CALL P$FJP($123) LINENO = 681 CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,6) CALL P$LAO(18) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$MST(0) CALL P$LDO(6,20) CALL P$CUP(1) CALL P66 CALL P$SPC 123 CONTINUE LINENO = 682 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 683 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32368)) CALL P$INN CALL P$FJP($122) LINENO = 684 CALL P$LAO(450) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$STR(0,7) CALL P$LAO(450) CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STR(0,47) 124 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,47) CALL P$LEQ(1) CALL P$FJP($125) LINENO = 685 CALL P$LAO(376) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LAO(18) CALL P$EQU(5,8) CALL P$FJP($126) LINENO = 686 CALL P$LAO(459) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$SRO(1,13) CALL P$LAO(624) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$SRO(1,14) GOTO 64 127 CONTINUE 126 CONTINUE CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 124 125 CONTINUE LINENO = 688 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13) CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) 64 CONTINUE GOTO 120 128 CONTINUE LINENO = 693 LINENO = 695 CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) CALL P$LDC(1,INTL(0)) CALL P$STR(0,7) LINENO = 696 129 CONTINUE LINENO = 697 CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,7) LINENO = 698 CALL P$LOD(0,7) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($130) CALL P$LDA(0,8) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 130 CONTINUE LINENO = 699 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 700 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$NEQ(1,1) CALL P$FJP($129) LINENO = 701 CALL P$LDO(6,20) CALL P$LDC(6,INTL(174)) CALL P$EQU(6,1) CALL P$MST(0) CALL P$LDO(6,20) CALL P$CUP(1) CALL P66 CALL P$LDC(6,INTL(197)) CALL P$EQU(6,1) CALL P$IOR CALL P$FJP($131) LINENO = 702 CALL P$LOD(0,7) CALL P$STR(0,6) LINENO = 703 CALL P$LDO(6,20) CALL P$LDC(6,INTL(174)) CALL P$EQU(6,1) CALL P$FJP($132) LINENO = 704 CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,6) LINENO = 705 CALL P$LOD(0,6) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($133) CALL P$LDA(0,8) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 133 CONTINUE LINENO = 706 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 707 CALL P$LDO(6,20) CALL P$LDC(6,INTL(174)) CALL P$EQU(6,1) CALL P$FJP($134) CALL P$LDC(6,INTL(186)) CALL P$SRO(6,20) GOTO 65 135 CONTINUE 134 CONTINUE LINENO = 708 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$NEQ(1,1) CALL P$FJP($136) CALL P$MST(1) CALL P$LDC(1,INTL(201)) CALL P$CUP(1) CALL P30 GOTO 137 136 CONTINUE LINENO = 710 138 CONTINUE LINENO = 711 CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,6) LINENO = 712 CALL P$LOD(0,6) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($139) CALL P$LDA(0,8) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 139 CONTINUE LINENO = 713 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 714 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$NEQ(1,1) CALL P$FJP($138) 137 CONTINUE 132 CONTINUE LINENO = 716 CALL P$MST(0) CALL P$LDO(6,20) CALL P$CUP(1) CALL P66 CALL P$LDC(6,INTL(197)) CALL P$EQU(6,1) CALL P$FJP($140) LINENO = 717 CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,6) LINENO = 718 CALL P$LOD(0,6) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($141) CALL P$LDA(0,8) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 141 CONTINUE LINENO = 719 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 720 CALL P$LDO(6,20) CALL P$LDC(6,INTL(171)) CALL P$EQU(6,1) CALL P$LDO(6,20) CALL P$LDC(6,INTL(173)) CALL P$EQU(6,1) CALL P$IOR CALL P$FJP($142) LINENO = 721 CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,6) LINENO = 722 CALL P$LOD(0,6) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($143) CALL P$LDA(0,8) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 143 CONTINUE LINENO = 723 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 142 CONTINUE LINENO = 725 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$NEQ(1,1) CALL P$FJP($144) CALL P$MST(1) CALL P$LDC(1,INTL(201)) CALL P$CUP(1) CALL P30 GOTO 145 144 CONTINUE LINENO = 727 146 CONTINUE LINENO = 728 CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,6) LINENO = 729 CALL P$LOD(0,6) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($147) CALL P$LDA(0,8) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 147 CONTINUE LINENO = 730 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 731 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$NEQ(1,1) CALL P$FJP($146) 145 CONTINUE 140 CONTINUE LINENO = 733 CALL P$LDA(0,44) CALL P$LDC(1,INTL(5)) CALL P$NEW CALL P$LDC(1,INTL(2)) CALL P$SRO(1,13) CALL P$LODA(0,44) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 734 CALL P$LODA(0,44) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,47) LINENO = 735 CALL P$LDC(1,INTL(1)) CALL P$STR(0,7) CALL P$LDC(1,INTL(16)) CALL P$STR(0,48) 148 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,48) CALL P$LEQ(1) CALL P$FJP($149) CALL P$LODA(0,47) CALL P$INC(0,INTL(1)) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(160)) CALL P$SPC CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 148 149 CONTINUE LINENO = 736 CALL P$LOD(0,6) CALL P$LDC(1,INTL(15)) CALL P$LEQ(1,1) CALL P$FJP($150) LINENO = 737 CALL P$LDC(1,INTL(2)) CALL P$STR(0,7) CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,48) 151 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,48) CALL P$LEQ(1) CALL P$FJP($152) CALL P$LODA(0,47) CALL P$INC(0,INTL(1)) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDA(0,8) CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$SPC CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 151 152 CONTINUE GOTO 153 150 CONTINUE LINENO = 738 LINENO = 739 CALL P$MST(1) CALL P$LDC(1,INTL(203)) CALL P$CUP(1) CALL P30 CALL P$LODA(0,47) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(176)) CALL P$SPC LINENO = 740 CALL P$LODA(0,47) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(174)) CALL P$SPC CALL P$LODA(0,47) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(176)) CALL P$SPC 153 CONTINUE LINENO = 743 CALL P$LODA(0,44) CALL P$SRO(0,16) GOTO 154 131 CONTINUE LINENO = 745 65 CONTINUE LINENO = 747 CALL P$LDO(6,20) CALL P$LDC(6,INTL(194)) CALL P$EQU(6,1) CALL P$FJP($155) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(8),INTL(10)) CALL P$STR(0,5) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 156 155 CONTINUE LINENO = 748 CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(8),INTL(10)) CALL P$STR(0,5) 156 CONTINUE LINENO = 749 CALL P$LOD(0,7) CALL P$LDC(1,INTL(15)) CALL P$GRT(1,1) CALL P$FJP($157) CALL P$MST(1) CALL P$LDC(1,INTL(203)) CALL P$CUP(1) CALL P30 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,16) GOTO 158 157 CONTINUE LINENO = 751 LINENO = 752 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,16) LINENO = 753 CALL P$LDC(1,INTL(1)) CALL P$STR(0,6) CALL P$LOD(0,7) CALL P$STR(0,47) 159 CONTINUE CALL P$LOD(0,6) CALL P$LOD(0,47) CALL P$LEQ(1) CALL P$FJP($160) LINENO = 754 CALL P$LDO(1,16) CALL P$LOD(0,5) CALL P$MPI CALL P$LAO(6350) CALL P$LDA(0,8) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$ADI CALL P$SRO(1,16) CALL P$LOD(0,6) CALL P$INC(1,INTL(1)) CALL P$STR(0,6) GOTO 159 160 CONTINUE LINENO = 755 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,13) 158 CONTINUE 154 CONTINUE GOTO 120 161 CONTINUE LINENO = 761 LINENO = 763 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,17) CALL P$LDC(1,INTL(3)) CALL P$SRO(1,13) CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) LINENO = 764 162 CONTINUE LINENO = 765 163 CONTINUE LINENO = 766 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 CALL P$LDO(1,17) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,17) LINENO = 767 CALL P$LDO(1,17) CALL P$LDC(1,INTL(128)) CALL P$LEQ(1,1) CALL P$FJP($164) CALL P$LDA(0,12) CALL P$LDO(1,17) CALL P$CHK(INTL(1),INTL(128)) CALL P$DEC(1,INTL(1)) CALL P$LDO(6,20) CALL P$SPC 164 CONTINUE LINENO = 768 CALL P$LDO(3,21) CALL P$LDO(6,20) CALL P$LDC(6,INTL(167)) CALL P$EQU(6,1) CALL P$IOR CALL P$FJP($163) LINENO = 769 CALL P$LDO(3,21) CALL P$FJP($165) CALL P$MST(1) CALL P$LDC(1,INTL(202)) CALL P$CUP(1) CALL P30 GOTO 166 165 CONTINUE CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 166 CONTINUE LINENO = 770 CALL P$LDO(6,20) CALL P$LDC(6,INTL(167)) CALL P$NEQ(6,1) CALL P$FJP($162) LINENO = 771 CALL P$LDO(1,17) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,17) LINENO = 772 CALL P$LDO(1,17) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($167) CALL P$MST(1) CALL P$LDC(1,INTL(205)) CALL P$CUP(1) CALL P30 GOTO 168 167 CONTINUE LINENO = 773 CALL P$LDO(1,17) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($169) LINENO = 774 CALL P$LDA(0,12) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(128)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$SRO(1,16) GOTO 170 169 CONTINUE LINENO = 775 LINENO = 776 CALL P$LDA(0,44) CALL P$LDC(1,INTL(3)) CALL P$NEW CALL P$LODA(0,44) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 777 CALL P$LDO(1,17) CALL P$LDC(1,INTL(128)) CALL P$GRT(1,1) CALL P$FJP($171) LINENO = 778 CALL P$MST(1) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 CALL P$LDC(1,INTL(128)) CALL P$SRO(1,17) 171 CONTINUE LINENO = 779 CALL P$LODA(0,44) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,47) LINENO = 780 CALL P$LODA(0,47) CALL P$INC(0,INTL(1)) CALL P$LDO(1,17) CALL P$CHK(INTL(0),INTL(128)) CALL P$STO(1) LINENO = 781 CALL P$LODA(0,47) CALL P$INC(0,INTL(2)) CALL P$LDO(1,13027) CALL P$CHK(INTL(0),INTL(24575)) CALL P$STO(1) LINENO = 782 CALL P$LDO(1,13027) CALL P$LODA(0,47) CALL P$IND(1,1) CALL P$ADI CALL P$LDC(1,INTL(24575)) CALL P$LDC(1,INTL(3)) CALL P$SBI CALL P$LEQ(1,1) CALL P$FJP($172) LINENO = 783 CALL P$LDC(1,INTL(1)) CALL P$STR(0,6) CALL P$LODA(0,47) CALL P$IND(1,1) CALL P$STR(0,48) 173 CONTINUE CALL P$LOD(0,6) CALL P$LOD(0,48) CALL P$LEQ(1) CALL P$FJP($174) LINENO = 784 CALL P$LAO(6480) CALL P$LDO(1,13027) CALL P$CHK(INTL(0),INTL(24575)) CALL P$LDA(0,12) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(128)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$SPC LINENO = 785 CALL P$LDO(1,13027) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,13027) CALL P$LOD(0,6) CALL P$INC(1,INTL(1)) CALL P$STR(0,6) GOTO 173 174 CONTINUE LINENO = 787 175 CONTINUE LINENO = 787 CALL P$LDO(1,13027) CALL P$LDC(1,INTL(4)) CALL P$MOD CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($176) LINENO = 788 CALL P$LAO(6480) CALL P$LDO(1,13027) CALL P$CHK(INTL(0),INTL(24575)) CALL P$LDC(6,INTL(160)) CALL P$SPC LINENO = 789 CALL P$LDO(1,13027) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,13027) GOTO 175 176 CONTINUE GOTO 177 172 CONTINUE LINENO = 792 CALL P$MST(1) CALL P$LDC(1,INTL(351)) CALL P$CUP(1) CALL P30 177 CONTINUE LINENO = 794 CALL P$LODA(0,44) CALL P$SRO(0,16) 170 CONTINUE 168 CONTINUE GOTO 120 178 CONTINUE LINENO = 799 LINENO = 801 CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 802 CALL P$LDO(6,20) CALL P$LDC(6,INTL(189)) CALL P$EQU(6,1) CALL P$FJP($179) LINENO = 803 CALL P$LDC(1,INTL(17)) CALL P$SRO(1,13) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 180 179 CONTINUE LINENO = 804 CALL P$LDC(1,INTL(16)) CALL P$SRO(1,13) 180 CONTINUE GOTO 120 181 CONTINUE LINENO = 808 LINENO = 810 CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 811 CALL P$LDO(6,20) CALL P$LDC(6,INTL(174)) CALL P$EQU(6,1) CALL P$FJP($182) LINENO = 812 CALL P$LDC(1,INTL(16)) CALL P$SRO(1,13) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 183 182 CONTINUE LINENO = 813 CALL P$LDC(1,INTL(14)) CALL P$SRO(1,13) 183 CONTINUE GOTO 120 184 CONTINUE LINENO = 817 LINENO = 819 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 CALL P$LDC(1,INTL(7)) CALL P$SRO(1,13) LINENO = 820 CALL P$LDO(6,20) CALL P$LDC(6,INTL(189)) CALL P$EQU(6,1) CALL P$FJP($185) LINENO = 821 CALL P$LDC(1,INTL(9)) CALL P$SRO(1,14) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 186 185 CONTINUE LINENO = 822 CALL P$LDO(6,20) CALL P$LDC(6,INTL(190)) CALL P$EQU(6,1) CALL P$FJP($187) LINENO = 823 CALL P$LDC(1,INTL(12)) CALL P$SRO(1,14) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 188 187 CONTINUE LINENO = 824 CALL P$LDC(1,INTL(8)) CALL P$SRO(1,14) 188 CONTINUE 186 CONTINUE GOTO 120 189 CONTINUE LINENO = 828 LINENO = 830 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 CALL P$LDC(1,INTL(7)) CALL P$SRO(1,13) LINENO = 831 CALL P$LDO(6,20) CALL P$LDC(6,INTL(189)) CALL P$EQU(6,1) CALL P$FJP($190) LINENO = 832 CALL P$LDC(1,INTL(10)) CALL P$SRO(1,14) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 191 190 CONTINUE LINENO = 833 CALL P$LDC(1,INTL(11)) CALL P$SRO(1,14) 191 CONTINUE GOTO 120 192 CONTINUE LINENO = 837 LINENO = 838 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 839 CALL P$LDO(6,20) CALL P$LDC(6,INTL(170)) CALL P$EQU(6,1) CALL P$FJP($193) LINENO = 840 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 841 CALL P$LDO(6,20) CALL P$LDC(6,INTL(164)) CALL P$EQU(6,1) CALL P$FJP($194) CALL P$MST(0) CALL P$CUP(0) CALL P71 194 CONTINUE LINENO = 842 195 CONTINUE LINENO = 843 196 CONTINUE LINENO = 843 CALL P$LDO(6,20) CALL P$LDC(6,INTL(170)) CALL P$NEQ(6,1) CALL P$LAO(5) CALL P$EOF CALL P$NOT CALL P$AND CALL P$FJP($197) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 196 197 CONTINUE LINENO = 844 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 845 CALL P$LDO(6,20) CALL P$LDC(6,INTL(169)) CALL P$EQU(6,1) CALL P$LAO(5) CALL P$EOF CALL P$IOR CALL P$FJP($195) LINENO = 846 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 63 198 CONTINUE 193 CONTINUE LINENO = 848 CALL P$LDC(1,INTL(8)) CALL P$SRO(1,13) CALL P$LDC(1,INTL(15)) CALL P$SRO(1,14) GOTO 120 199 CONTINUE LINENO = 852 LINENO = 854 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 855 CALL P$LDO(6,20) CALL P$LDC(6,INTL(164)) CALL P$EQU(6,1) CALL P$FJP($200) CALL P$MST(0) CALL P$CUP(0) CALL P71 200 CONTINUE LINENO = 856 201 CONTINUE LINENO = 856 CALL P$LDO(6,20) CALL P$LDC(6,INTL(253)) CALL P$NEQ(6,1) CALL P$LAO(5) CALL P$EOF CALL P$NOT CALL P$AND CALL P$FJP($202) CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 201 202 CONTINUE LINENO = 857 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 63 203 CONTINUE GOTO 120 204 CONTINUE LINENO = 861 LINENO = 863 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 864 CALL P$LDC(1,INTL(1)) CALL P$STR(0,7) LINENO = 865 205 CONTINUE LINENO = 866 206 CONTINUE LINENO = 867 CALL P$LAO(248) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32369)) CALL P$INN CALL P$FJP($207) LINENO = 868 CALL P$LAO(6360) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(101)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$MST(0) CALL P$LDO(6,20) CALL P$CUP(1) CALL P66 CALL P$STO(6) GOTO 208 207 CONTINUE LINENO = 869 CALL P$LAO(6360) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(101)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDO(6,20) CALL P$STO(6) 208 CONTINUE LINENO = 870 CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,7) LINENO = 871 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 872 CALL P$LDO(6,20) CALL P$LDC(6,INTL(162)) CALL P$EQU(6,1) CALL P$LOD(0,7) CALL P$LDC(1,INTL(100)) CALL P$GRT(1,1) CALL P$IOR CALL P$FJP($206) LINENO = 873 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 LINENO = 874 CALL P$LDO(6,20) CALL P$LDC(6,INTL(162)) CALL P$NEQ(6,1) CALL P$LOD(0,7) CALL P$LDC(1,INTL(100)) CALL P$GRT(1,1) CALL P$IOR CALL P$FJP($205) LINENO = 875 CALL P$LOD(0,7) CALL P$LDC(1,INTL(100)) CALL P$GRT(1,1) CALL P$FJP($209) CALL P$MST(1) CALL P$LDC(1,INTL(261)) CALL P$CUP(1) CALL P30 209 CONTINUE CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13) GOTO 120 210 CONTINUE LINENO = 880 LINENO = 882 CALL P$LAO(496) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$SRO(1,13) CALL P$LAO(661) CALL P$LDO(6,20) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$SRO(1,14) LINENO = 883 CALL P$MST(1) CALL P$LDA(0,45) CALL P$CUP(1) CALL P54 GOTO 120 211 CONTINUE LINENO = 887 CALL P$LDC(1,INTL(52)) CALL P$SRO(1,13) GOTO 120 119 CONTINUE CALL P$CHK(INTL(160),INTL(253)) CALL P$LDC(1,INTL(160)) CALL P$SBI CALL P$XJP($212) 212 CONTINUE 213 GOTO 211 214 GOTO 99998 215 GOTO 204 216 GOTO 99998 217 GOTO 210 218 GOTO 99998 219 GOTO 99998 220 GOTO 161 221 GOTO 192 222 GOTO 210 223 GOTO 210 224 GOTO 210 225 GOTO 210 226 GOTO 210 227 GOTO 181 228 GOTO 210 229 GOTO 128 230 GOTO 128 231 GOTO 128 232 GOTO 128 233 GOTO 128 234 GOTO 128 235 GOTO 128 236 GOTO 128 237 GOTO 128 238 GOTO 128 239 GOTO 178 240 GOTO 210 241 GOTO 184 242 GOTO 210 243 GOTO 189 244 GOTO 99998 245 GOTO 99998 246 GOTO 121 247 GOTO 121 248 GOTO 121 249 GOTO 121 250 GOTO 121 251 GOTO 121 252 GOTO 121 253 GOTO 121 254 GOTO 121 255 GOTO 121 256 GOTO 121 257 GOTO 121 258 GOTO 121 259 GOTO 121 260 GOTO 121 261 GOTO 121 262 GOTO 121 263 GOTO 121 264 GOTO 121 265 GOTO 121 266 GOTO 121 267 GOTO 121 268 GOTO 121 269 GOTO 121 270 GOTO 121 271 GOTO 121 272 GOTO 210 273 GOTO 99998 274 GOTO 210 275 GOTO 210 276 GOTO 99998 277 GOTO 99998 278 GOTO 121 279 GOTO 121 280 GOTO 121 281 GOTO 121 282 GOTO 121 283 GOTO 121 284 GOTO 121 285 GOTO 121 286 GOTO 121 287 GOTO 121 288 GOTO 121 289 GOTO 121 290 GOTO 121 291 GOTO 121 292 GOTO 121 293 GOTO 121 294 GOTO 121 295 GOTO 121 296 GOTO 121 297 GOTO 121 298 GOTO 121 299 GOTO 121 300 GOTO 121 301 GOTO 121 302 GOTO 121 303 GOTO 121 304 GOTO 199 305 GOTO 99998 306 GOTO 210 120 CONTINUE 118 CONTINUE CALL P$RET(0) RETURN 111 CONTINUE SG1SIZ = 49 SG2SIZ = 105 GOTO 112 END SUBROUTINE P307 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 308 99998 CALL P$UJC 309 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 898 CALL P$LAO(5) CALL P$EOF CALL P$NOT CALL P$FJP($310) LINENO = 899 311 CONTINUE LINENO = 899 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$INN CALL P$NOT CALL P$LAO(5) CALL P$EOF CALL P$NOT CALL P$AND CALL P$FJP($312) CALL P$MST(1) CALL P$CUP(0) CALL P62 GOTO 311 312 CONTINUE LINENO = 900 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$INN CALL P$NOT CALL P$FJP($313) CALL P$MST(1) CALL P$CUP(0) CALL P62 313 CONTINUE 310 CONTINUE CALL P$RET(0) RETURN 308 CONTINUE SG1SIZ = 13 SG2SIZ = 23 GOTO 309 END SUBROUTINE P314 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 315 99998 CALL P$UJC 316 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 918 CALL P$LDA(0,6) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$MOV(2) LINENO = 919 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(0,0) CALL P$STRA(0,9) LINENO = 920 CALL P$LODA(0,9) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($317) LINENO = 921 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$LODA(0,5) CALL P$STO(0) GOTO 318 317 CONTINUE LINENO = 922 LINENO = 923 319 CONTINUE LINENO = 924 CALL P$LODA(0,9) CALL P$STRA(0,8) LINENO = 925 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDA(0,6) CALL P$EQU(5,8) CALL P$FJP($320) LINENO = 926 CALL P$MST(1) CALL P$LDC(1,INTL(101)) CALL P$CUP(1) CALL P30 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$STRA(0,9) CALL P$LDC(3,INTL(0)) CALL P$STR(0,10) GOTO 321 320 CONTINUE LINENO = 928 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDA(0,6) CALL P$LES(5,8) CALL P$FJP($322) LINENO = 929 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$STRA(0,9) CALL P$LDC(3,INTL(0)) CALL P$STR(0,10) GOTO 323 322 CONTINUE LINENO = 930 LINENO = 931 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,3) CALL P$STRA(0,9) CALL P$LDC(3,INTL(1)) CALL P$STR(0,10) 323 CONTINUE 321 CONTINUE LINENO = 932 CALL P$LODA(0,9) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($319) LINENO = 933 CALL P$LOD(0,10) CALL P$FJP($324) CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(3)) CALL P$LODA(0,5) CALL P$STO(0) GOTO 325 324 CONTINUE LINENO = 934 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LODA(0,5) CALL P$STO(0) 325 CONTINUE 318 CONTINUE LINENO = 936 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(3)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$RET(0) RETURN 315 CONTINUE SG1SIZ = 11 SG2SIZ = 11 GOTO 316 END SUBROUTINE P326 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 328 99998 CALL P$UJC 329 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 950 330 CONTINUE LINENO = 950 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($331) LINENO = 951 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LAO(18) CALL P$EQU(5,8) CALL P$FJP($332) GOTO 327 333 CONTINUE GOTO 334 332 CONTINUE LINENO = 952 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LAO(18) CALL P$LES(5,8) CALL P$FJP($335) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$STRA(0,5) GOTO 336 335 CONTINUE LINENO = 953 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,3) CALL P$STRA(0,5) 336 CONTINUE 334 CONTINUE GOTO 330 331 CONTINUE 327 CONTINUE LINENO = 954 CALL P$LODA(0,6) CALL P$LODA(0,5) CALL P$STO(0) CALL P$RET(0) RETURN 328 CONTINUE SG1SIZ = 7 SG2SIZ = 9 GOTO 329 END SUBROUTINE P337 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 339 99998 CALL P$UJC 340 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 968 CALL P$LDO(1,64) CALL P$SRO(1,63) CALL P$LDC(1,INTL(0)) CALL P$STR(0,15) 341 CONTINUE CALL P$LDO(1,63) CALL P$LOD(0,15) CALL P$GEQ(1) CALL P$FJP($342) LINENO = 969 CALL P$LAO(65) CALL P$LDO(1,63) CALL P$IXA(6) CALL P$IND(0,0) CALL P$STRA(0,14) LINENO = 970 343 CONTINUE LINENO = 970 CALL P$LODA(0,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($344) LINENO = 971 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LAO(18) CALL P$EQU(5,8) CALL P$FJP($345) LINENO = 972 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($346) GOTO 338 347 CONTINUE GOTO 348 346 CONTINUE LINENO = 974 CALL P$LDO(3,31) CALL P$FJP($349) CALL P$MST(1) CALL P$LDC(1,INTL(103)) CALL P$CUP(1) CALL P30 349 CONTINUE LINENO = 975 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$STRA(0,14) 348 CONTINUE GOTO 350 345 CONTINUE LINENO = 978 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LAO(18) CALL P$LES(5,8) CALL P$FJP($351) LINENO = 979 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$STRA(0,14) GOTO 352 351 CONTINUE LINENO = 980 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,3) CALL P$STRA(0,14) 352 CONTINUE 350 CONTINUE GOTO 343 344 CONTINUE CALL P$LDO(1,63) CALL P$DEC(1,INTL(1)) CALL P$SRO(1,63) GOTO 341 342 CONTINUE LINENO = 985 CALL P$LDO(3,31) CALL P$FJP($353) LINENO = 986 CALL P$MST(1) CALL P$LDC(1,INTL(104)) CALL P$CUP(1) CALL P30 LINENO = 990 CALL P$LDC(1,INTL(0)) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($354) CALL P$LDO(0,51) CALL P$STRA(0,14) GOTO 355 354 CONTINUE LINENO = 992 CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($356) CALL P$LDO(0,53) CALL P$STRA(0,14) GOTO 357 356 CONTINUE LINENO = 994 CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($358) CALL P$LDO(0,54) CALL P$STRA(0,14) GOTO 359 358 CONTINUE LINENO = 996 CALL P$LDC(1,INTL(1)) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($360) CALL P$LDO(0,52) CALL P$STRA(0,14) GOTO 361 360 CONTINUE LINENO = 998 CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($362) CALL P$LDO(0,55) CALL P$STRA(0,14) GOTO 363 362 CONTINUE LINENO = 999 CALL P$LDO(0,56) CALL P$STRA(0,14) 363 CONTINUE 361 CONTINUE 359 CONTINUE 357 CONTINUE 355 CONTINUE 353 CONTINUE 338 CONTINUE LINENO = 1001 CALL P$LODA(0,13) CALL P$LODA(0,14) CALL P$STO(0) CALL P$RET(0) RETURN 339 CONTINUE SG1SIZ = 16 SG2SIZ = 27 GOTO 340 END SUBROUTINE P364 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 365 99998 CALL P$UJC 366 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1012 CALL P$LODA(0,6) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,7) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 1013 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($367) LINENO = 1014 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 1015 CALL P$LODA(0,8) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($368) LINENO = 1016 CALL P$LODA(0,6) CALL P$LODA(0,8) CALL P$IND(1,8) CALL P$STO(1) CALL P$LODA(0,7) CALL P$LODA(0,8) CALL P$IND(1,6) CALL P$STO(1) GOTO 369 368 CONTINUE LINENO = 1018 CALL P$LODA(0,5) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$FJP($370) LINENO = 1019 CALL P$LODA(0,6) CALL P$LDC(1,INTL(128)) CALL P$STO(1) CALL P$LODA(0,7) CALL P$LDC(1,INTL(255)) CALL P$STO(1) GOTO 371 370 CONTINUE LINENO = 1021 CALL P$LODA(0,5) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($372) LINENO = 1022 CALL P$LODA(0,7) CALL P$LDC(1,INTL(2147483647)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$LDC(1,INTL(2147483647)) CALL P$NGI CALL P$STO(1) GOTO 373 372 CONTINUE LINENO = 1024 CALL P$LODA(0,8) CALL P$IND(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($374) LINENO = 1025 CALL P$LODA(0,7) CALL P$LODA(0,8) CALL P$IND(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$STO(1) 374 CONTINUE 373 CONTINUE 371 CONTINUE 369 CONTINUE 367 CONTINUE CALL P$RET(0) RETURN 365 CONTINUE SG1SIZ = 9 SG2SIZ = 9 GOTO 366 END SUBROUTINE P375 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 376 99998 CALL P$UJC 377 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1033 CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) LINENO = 1034 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($378) LINENO = 1035 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 1036 CALL P$LODA(0,6) CALL P$IND(1,3) GOTO 379 381 CONTINUE LINENO = 1037 CALL P$LODA(0,5) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($382) CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 383 382 CONTINUE LINENO = 1038 CALL P$LODA(0,5) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$FJP($384) CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 385 384 CONTINUE LINENO = 1039 CALL P$LODA(0,6) CALL P$IND(1,4) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($386) CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 387 386 CONTINUE LINENO = 1040 CALL P$LODA(0,5) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$FJP($388) CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 389 388 CONTINUE LINENO = 1041 CALL P$LODA(0,5) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($390) CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 391 390 CONTINUE LINENO = 1042 CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) 391 CONTINUE 389 CONTINUE 387 CONTINUE 385 CONTINUE 383 CONTINUE GOTO 380 392 CONTINUE LINENO = 1043 CALL P$MST(1) CALL P$LODA(0,6) CALL P$IND(0,4) CALL P$CUP(1) CALL P375 CALL P$STR(0,0) GOTO 380 393 CONTINUE LINENO = 1044 CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 380 394 CONTINUE LINENO = 1045 CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 380 395 CONTINUE LINENO = 1046 CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 380 396 CONTINUE LINENO = 1047 CALL P$MST(1) CALL P$LODA(0,6) CALL P$IND(0,5) CALL P$CUP(1) CALL P375 CALL P$STR(0,0) GOTO 380 397 CONTINUE LINENO = 1048 CALL P$LDC(1,INTL(1)) CALL P$STR(0,0) GOTO 380 398 CONTINUE LINENO = 1049 CALL P$MST(1) CALL P$LDC(1,INTL(301)) CALL P$CUP(1) CALL P30 GOTO 380 379 CONTINUE CALL P$CHK(INTL(0),INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($399) 399 CONTINUE 400 GOTO 381 401 GOTO 392 402 GOTO 393 403 GOTO 394 404 GOTO 396 405 GOTO 397 406 GOTO 395 407 GOTO 398 408 GOTO 398 380 CONTINUE 378 CONTINUE CALL P$RET(1) RETURN 376 CONTINUE SG1SIZ = 7 SG2SIZ = 11 GOTO 377 END SUBROUTINE P409 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 410 99998 CALL P$UJC 411 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1060 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CUP(1) CALL P375 CALL P$STR(0,8) LINENO = 1061 CALL P$LODA(0,6) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STR(0,7) LINENO = 1062 CALL P$LODA(0,6) CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$ADI CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$MOD CALL P$SBI CALL P$STO(1) CALL P$RET(0) RETURN 410 CONTINUE SG1SIZ = 9 SG2SIZ = 13 GOTO 411 END SUBROUTINE P412 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 413 99998 CALL P$UJC 414 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1073 CALL P$LDO(1,6478) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,6478) LINENO = 1074 CALL P$LODA(0,5) CALL P$LDO(1,6478) CALL P$STO(1) CALL P$RET(0) RETURN 413 CONTINUE SG1SIZ = 6 SG2SIZ = 9 GOTO 414 END SUBROUTINE P415 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 416 99998 CALL P$UJC 417 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1084 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26268) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$LCA(26272) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$WLN LINENO = 1085 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26276) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$LCA(26280) CALL P$LDC(1,INTL(17)) CALL P$LDC(1,INTL(17)) CALL P$WRS CALL P$WLN LINENO = 1086 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26285) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1087 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26289) CALL P$LDC(1,INTL(22)) CALL P$LDC(1,INTL(22)) CALL P$WRS CALL P$WLN LINENO = 1088 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26295) CALL P$LDC(1,INTL(41)) CALL P$LDC(1,INTL(41)) CALL P$WRS CALL P$WLN LINENO = 1089 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26306) CALL P$LDC(1,INTL(22)) CALL P$LDC(1,INTL(22)) CALL P$WRS CALL P$WLN LINENO = 1090 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26312) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1091 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26316) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1092 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26320) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1093 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26324) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1094 CALL P$LDO(1,24) CALL P$LDC(1,INTL(10)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$RET(0) RETURN 416 CONTINUE SG1SIZ = 5 SG2SIZ = 13 GOTO 417 END SUBROUTINE P418 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 419 99998 CALL P$UJC 420 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1101 CALL P$LDO(3,33) CALL P$FJP($421) LINENO = 1102 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26328) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$LCA(26332) CALL P$LDC(1,INTL(10)) CALL P$LDC(1,INTL(10)) CALL P$WRS CALL P$LDC(1,INTL(24575)) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$LDC(1,INTL(4)) CALL P$WRI CALL P$LCA(26335) CALL P$LDC(1,INTL(15)) CALL P$LDC(1,INTL(15)) CALL P$WRS CALL P$WLN LINENO = 1104 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26339) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$LCA(26343) CALL P$LDC(1,INTL(17)) CALL P$LDC(1,INTL(17)) CALL P$WRS CALL P$WLN LINENO = 1105 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26348) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1106 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26352) CALL P$LDC(1,INTL(24)) CALL P$LDC(1,INTL(24)) CALL P$WRS CALL P$WLN LINENO = 1107 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26358) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1108 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26362) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1109 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26366) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1110 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26370) CALL P$LDC(1,INTL(14)) CALL P$LDC(1,INTL(14)) CALL P$WRS CALL P$WLN LINENO = 1111 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26374) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$LCA(26378) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$WLN LINENO = 1112 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26380) CALL P$LDC(1,INTL(41)) CALL P$LDC(1,INTL(41)) CALL P$WRS CALL P$WLN LINENO = 1113 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26391) CALL P$LDC(1,INTL(19)) CALL P$LDC(1,INTL(19)) CALL P$WRS CALL P$LDC(1,INTL(26223)) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(5)) CALL P$WRI CALL P$LCA(26396) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$LCA(26397) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS CALL P$WLN LINENO = 1115 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26400) CALL P$LDC(1,INTL(19)) CALL P$LDC(1,INTL(19)) CALL P$WRS CALL P$LDC(1,INTL(32367)) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(5)) CALL P$WRI CALL P$LCA(26405) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$LCA(26406) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS CALL P$WLN LINENO = 1117 CALL P$LAO(11) CALL P$WLN LINENO = 1118 CALL P$LDO(1,24) CALL P$LDC(1,INTL(5)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 421 CONTINUE CALL P$RET(0) RETURN 419 CONTINUE SG1SIZ = 5 SG2SIZ = 13 GOTO 420 END SUBROUTINE P423 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 424 99998 CALL P$UJC 425 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1134 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) CALL P$LODA(0,14) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 1135 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,232) CALL P$INN CALL P$NOT CALL P$FJP($426) LINENO = 1136 CALL P$MST(2) CALL P$LDC(1,INTL(50)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,232) CALL P$UNI CALL P$CUP(8) CALL P307 426 CONTINUE LINENO = 1137 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,232) CALL P$INN CALL P$FJP($427) LINENO = 1138 LINENO = 1139 CALL P$LDO(1,13) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($428) LINENO = 1140 LINENO = 1141 CALL P$LDO(1,17) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($429) CALL P$LDO(0,47) CALL P$STRA(0,15) GOTO 430 429 CONTINUE LINENO = 1143 LINENO = 1144 CALL P$LDA(0,15) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 1145 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,20) LINENO = 1146 CALL P$LODA(0,20) CALL P$INC(0,INTL(5)) CALL P$LDO(0,47) CALL P$STO(0) LINENO = 1147 CALL P$LODA(0,20) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 1148 CALL P$LODA(0,20) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,21) LINENO = 1149 CALL P$LODA(0,21) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1150 CALL P$LODA(0,21) CALL P$INC(0,INTL(4)) CALL P$LDO(0,45) CALL P$STO(0) LINENO = 1151 CALL P$LODA(0,21) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1152 CALL P$LODA(0,21) CALL P$INC(0,INTL(6)) CALL P$LDO(1,17) CALL P$STO(1) LINENO = 1154 CALL P$LODA(0,20) CALL P$INC(0,INTL(2)) CALL P$LDO(1,17) CALL P$LDC(1,INTL(3)) CALL P$ADI CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,20) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) LINENO = 1155 CALL P$LODA(0,20) CALL P$INC(0,INTL(1)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) 430 CONTINUE LINENO = 1158 CALL P$LODA(0,14) CALL P$LAO(15) CALL P$MOV(2) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 431 428 CONTINUE LINENO = 1161 LINENO = 1162 CALL P$LDC(1,INTL(0)) CALL P$STR(0,17) LINENO = 1163 CALL P$LDO(1,13) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$LDO(1,14) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32370)) CALL P$INN CALL P$AND CALL P$FJP($432) LINENO = 1164 CALL P$LDO(1,14) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($433) CALL P$LDC(1,INTL(1)) CALL P$STR(0,17) GOTO 434 433 CONTINUE CALL P$LDC(1,INTL(2)) CALL P$STR(0,17) 434 CONTINUE LINENO = 1165 CALL P$MST(2) CALL P$CUP(0) CALL P62 432 CONTINUE LINENO = 1167 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($435) LINENO = 1168 CALL P$MST(2) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32371)) CALL P$LDA(0,16) CALL P$CUP(9) CALL P337 LINENO = 1169 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,20) LINENO = 1170 CALL P$LODA(0,20) CALL P$IND(0,4) CALL P$STRA(0,15) CALL P$LODA(0,14) CALL P$LODA(0,20) CALL P$INC(0,INTL(7)) CALL P$MOV(2) LINENO = 1171 CALL P$LOD(0,17) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($436) LINENO = 1172 CALL P$LODA(0,15) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($437) LINENO = 1173 CALL P$LOD(0,17) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($438) CALL P$LODA(0,14) CALL P$INC(0,INTL(1)) CALL P$LODA(0,14) CALL P$IND(1,1) CALL P$NGI CALL P$STO(1) 438 CONTINUE GOTO 439 437 CONTINUE LINENO = 1175 CALL P$LODA(0,15) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($440) LINENO = 1176 LINENO = 1177 CALL P$LOD(0,17) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($441) LINENO = 1178 CALL P$LDA(0,18) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 1179 CALL P$LODA(0,14) CALL P$IND(0,1) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$LDC(6,INTL(173)) CALL P$EQU(6,1) CALL P$FJP($442) LINENO = 1180 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(171)) CALL P$SPC GOTO 443 442 CONTINUE LINENO = 1181 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(173)) CALL P$SPC 443 CONTINUE LINENO = 1182 CALL P$LDC(1,INTL(2)) CALL P$STR(0,19) CALL P$LDC(1,INTL(128)) CALL P$STR(0,20) 444 CONTINUE CALL P$LOD(0,19) CALL P$LOD(0,20) CALL P$LEQ(1) CALL P$FJP($445) LINENO = 1183 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LOD(0,19) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LODA(0,14) CALL P$IND(0,1) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LOD(0,19) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$SPC CALL P$LOD(0,19) CALL P$INC(1,INTL(1)) CALL P$STR(0,19) GOTO 444 445 CONTINUE LINENO = 1184 CALL P$LODA(0,14) CALL P$INC(0,INTL(1)) CALL P$LODA(0,18) CALL P$STO(0) 441 CONTINUE GOTO 446 440 CONTINUE LINENO = 1187 CALL P$MST(2) CALL P$LDC(1,INTL(105)) CALL P$CUP(1) CALL P30 446 CONTINUE 439 CONTINUE 436 CONTINUE LINENO = 1188 CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 447 435 CONTINUE LINENO = 1191 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($448) LINENO = 1192 CALL P$LOD(0,17) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($449) CALL P$LDO(1,16) CALL P$NGI CALL P$SRO(1,16) 449 CONTINUE LINENO = 1193 CALL P$LDO(0,45) CALL P$STRA(0,15) CALL P$LODA(0,14) CALL P$LAO(15) CALL P$MOV(2) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 450 448 CONTINUE LINENO = 1196 CALL P$LDO(1,13) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($451) LINENO = 1197 CALL P$LOD(0,17) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($452) CALL P$LDO(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(173)) CALL P$SPC 452 CONTINUE LINENO = 1198 CALL P$LDO(0,46) CALL P$STRA(0,15) CALL P$LODA(0,14) CALL P$LAO(15) CALL P$MOV(2) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 453 451 CONTINUE LINENO = 1201 CALL P$MST(2) CALL P$LDC(1,INTL(106)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 453 CONTINUE 450 CONTINUE 447 CONTINUE 431 CONTINUE LINENO = 1203 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$INN CALL P$NOT CALL P$FJP($454) LINENO = 1204 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 454 CONTINUE 427 CONTINUE LINENO = 1206 CALL P$LODA(0,13) CALL P$LODA(0,15) CALL P$STO(0) CALL P$RET(0) RETURN 424 CONTINUE SG1SIZ = 22 SG2SIZ = 83 GOTO 425 END SUBROUTINE P455 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 456 99998 CALL P$UJC 457 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1215 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$IOR CALL P$FJP($458) CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) GOTO 459 458 CONTINUE LINENO = 1217 LINENO = 1218 CALL P$MST(2) CALL P$LODA(0,5) CALL P$LDA(0,10) CALL P$LDA(0,8) CALL P$CUP(3) CALL P364 LINENO = 1219 CALL P$MST(2) CALL P$LODA(0,6) CALL P$LDA(0,9) CALL P$LDA(0,7) CALL P$CUP(3) CALL P364 LINENO = 1220 CALL P$LOD(0,10) CALL P$LOD(0,9) CALL P$EQU(1,1) CALL P$LOD(0,8) CALL P$LOD(0,7) CALL P$EQU(1,1) CALL P$AND CALL P$STR(0,0) 459 CONTINUE CALL P$RET(1) RETURN 456 CONTINUE SG1SIZ = 11 SG2SIZ = 23 GOTO 457 END SUBROUTINE P460 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 461 99998 CALL P$UJC 462 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1236 CALL P$LODA(0,5) CALL P$LODA(0,6) CALL P$EQU(0,1) CALL P$FJP($463) CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) GOTO 464 463 CONTINUE LINENO = 1238 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($465) LINENO = 1239 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$EQU(1,1) CALL P$FJP($466) LINENO = 1240 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) GOTO 467 469 CONTINUE LINENO = 1242 CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) GOTO 468 470 CONTINUE LINENO = 1246 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$STR(0,0) GOTO 468 471 CONTINUE LINENO = 1248 LINENO = 1249 CALL P$LDC(3,INTL(0)) CALL P$STR(0,9) CALL P$LDO(0,61) CALL P$STRA(0,11) LINENO = 1250 CALL P$LDO(0,61) CALL P$STRA(0,10) LINENO = 1251 472 CONTINUE LINENO = 1251 CALL P$LODA(0,11) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($473) LINENO = 1252 CALL P$LODA(0,11) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,12) LINENO = 1253 LINENO = 1254 CALL P$LODA(0,12) CALL P$IND(0,1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$EQU(0,1) CALL P$LODA(0,12) CALL P$IND(0,0) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($474) LINENO = 1255 CALL P$LDC(3,INTL(1)) CALL P$STR(0,9) 474 CONTINUE LINENO = 1256 CALL P$LODA(0,12) CALL P$IND(0,2) CALL P$STRA(0,11) GOTO 472 473 CONTINUE LINENO = 1258 CALL P$LOD(0,9) CALL P$NOT CALL P$FJP($475) LINENO = 1259 CALL P$LDA(0,11) CALL P$LDC(1,INTL(3)) CALL P$NEW LINENO = 1260 CALL P$LODA(0,11) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,12) LINENO = 1261 CALL P$LODA(0,12) CALL P$INC(0,INTL(1)) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STO(0) LINENO = 1262 CALL P$LODA(0,12) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STO(0) LINENO = 1263 CALL P$LODA(0,12) CALL P$INC(0,INTL(2)) CALL P$LDO(0,61) CALL P$STO(0) LINENO = 1265 CALL P$LODA(0,11) CALL P$SRO(0,61) LINENO = 1266 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$STR(0,9) 475 CONTINUE LINENO = 1268 CALL P$LOD(0,9) CALL P$STR(0,0) CALL P$LODA(0,10) CALL P$SRO(0,61) GOTO 468 476 CONTINUE LINENO = 1271 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$STR(0,0) GOTO 468 477 CONTINUE LINENO = 1273 LINENO = 1274 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$CUP(2) CALL P460 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$STR(0,9) LINENO = 1276 CALL P$LOD(0,9) CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P455 CALL P$AND CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(3,1) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(3,1) CALL P$EQU(3,1) CALL P$AND CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$EQU(1,1) CALL P$AND CALL P$STR(0,0) GOTO 468 478 CONTINUE LINENO = 1282 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,8) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,7) CALL P$LDC(3,INTL(1)) CALL P$STR(0,9) LINENO = 1283 479 CONTINUE LINENO = 1283 CALL P$LODA(0,8) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LODA(0,7) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($480) LINENO = 1284 CALL P$LOD(0,9) CALL P$MST(1) CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$STR(0,9) LINENO = 1285 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,8) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,7) GOTO 479 480 CONTINUE LINENO = 1287 CALL P$LOD(0,9) CALL P$LODA(0,8) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$AND CALL P$LODA(0,7) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$AND CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$AND CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$AND CALL P$STR(0,0) GOTO 468 481 CONTINUE LINENO = 1293 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$STR(0,0) GOTO 468 467 CONTINUE CALL P$CHK(INTL(0),INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($482) 482 CONTINUE 483 GOTO 469 484 GOTO 470 485 GOTO 471 486 GOTO 476 487 GOTO 477 488 GOTO 478 489 GOTO 481 468 CONTINUE GOTO 490 466 CONTINUE LINENO = 1296 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($491) LINENO = 1297 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CUP(2) CALL P460 CALL P$STR(0,0) GOTO 492 491 CONTINUE LINENO = 1299 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($493) LINENO = 1300 CALL P$MST(1) CALL P$LODA(0,5) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$STR(0,0) GOTO 494 493 CONTINUE LINENO = 1301 CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) 494 CONTINUE 492 CONTINUE 490 CONTINUE GOTO 495 465 CONTINUE LINENO = 1302 CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) 495 CONTINUE 464 CONTINUE CALL P$RET(1) RETURN 461 CONTINUE SG1SIZ = 13 SG2SIZ = 27 GOTO 462 END SUBROUTINE P496 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 497 99998 CALL P$UJC 498 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1308 CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) LINENO = 1309 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($499) LINENO = 1310 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($500) LINENO = 1311 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$LDO(0,47) CALL P$CUP(2) CALL P460 CALL P$FJP($501) CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) 501 CONTINUE 500 CONTINUE 499 CONTINUE CALL P$RET(1) RETURN 497 CONTINUE SG1SIZ = 6 SG2SIZ = 9 GOTO 498 END SUBROUTINE P502 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 503 99998 CALL P$UJC 504 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1322 CALL P$LDO(0,60) CALL P$STRA(0,6) LINENO = 1323 505 CONTINUE LINENO = 1323 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$NEQ(5,8) CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($506) LINENO = 1324 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$STRA(0,6) GOTO 505 506 CONTINUE LINENO = 1325 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($507) LINENO = 1326 CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) GOTO 508 507 CONTINUE LINENO = 1327 CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) 508 CONTINUE CALL P$RET(1) RETURN 503 CONTINUE SG1SIZ = 7 SG2SIZ = 11 GOTO 504 END SUBROUTINE P510 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 511 99998 CALL P$UJC 512 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1346 CALL P$LODA(0,14) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 1347 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,234) CALL P$INN CALL P$NOT CALL P$FJP($513) LINENO = 1348 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,234) CALL P$UNI CALL P$CUP(8) CALL P307 513 CONTINUE LINENO = 1349 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,234) CALL P$INN CALL P$FJP($514) LINENO = 1350 LINENO = 1351 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($515) LINENO = 1352 CALL P$LDO(1,64) CALL P$STR(0,19) LINENO = 1353 516 CONTINUE LINENO = 1353 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($517) CALL P$LDO(1,64) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) GOTO 516 517 CONTINUE LINENO = 1354 CALL P$LDA(0,16) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 1355 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,23) LINENO = 1356 CALL P$LODA(0,23) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,23) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 1357 CALL P$LODA(0,23) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1359 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,17) CALL P$LDC(1,INTL(0)) CALL P$STR(0,20) LINENO = 1360 518 CONTINUE CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1361 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($519) LINENO = 1362 CALL P$LDA(0,18) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 1363 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,23) LINENO = 1364 CALL P$LODA(0,23) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,23) CALL P$INC(0,INTL(4)) CALL P$LODA(0,16) CALL P$STO(0) CALL P$LODA(0,23) CALL P$INC(0,INTL(5)) CALL P$LODA(0,17) CALL P$STO(0) LINENO = 1365 CALL P$LODA(0,23) CALL P$INC(0,INTL(8)) CALL P$LOD(0,20) CALL P$STO(1) CALL P$LODA(0,23) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1367 CALL P$MST(3) CALL P$LODA(0,18) CALL P$CUP(1) CALL P314 LINENO = 1368 CALL P$LOD(0,20) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,20) LINENO = 1369 CALL P$LODA(0,18) CALL P$STRA(0,17) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 520 519 CONTINUE LINENO = 1371 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 520 CONTINUE LINENO = 1372 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32372)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($521) LINENO = 1373 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32373)) CALL P$UNI CALL P$CUP(8) CALL P307 521 CONTINUE LINENO = 1374 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($518) LINENO = 1375 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,17) CALL P$STO(0) CALL P$LOD(0,19) CALL P$SRO(1,64) LINENO = 1376 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($522) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 523 522 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 523 CONTINUE GOTO 524 515 CONTINUE LINENO = 1379 LINENO = 1380 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($525) LINENO = 1381 CALL P$MST(3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32374)) CALL P$LDA(0,18) CALL P$CUP(9) CALL P337 LINENO = 1382 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1383 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($526) LINENO = 1384 CALL P$LDA(0,16) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 1385 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,23) CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,24) LINENO = 1386 CALL P$LODA(0,23) CALL P$INC(0,INTL(4)) CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$STO(0) CALL P$LODA(0,23) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1387 CALL P$MST(2) CALL P$LODA(0,23) CALL P$IND(0,4) CALL P$CUP(1) CALL P496 CALL P$FJP($527) LINENO = 1388 CALL P$MST(3) CALL P$LDC(1,INTL(148)) CALL P$CUP(1) CALL P30 CALL P$LODA(0,23) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 527 CONTINUE LINENO = 1389 CALL P$LODA(0,23) CALL P$INC(0,INTL(7)) CALL P$LODA(0,24) CALL P$INC(0,INTL(7)) CALL P$MOV(2) CALL P$LODA(0,23) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 1391 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($528) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 529 528 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 529 CONTINUE LINENO = 1392 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDA(0,15) CALL P$LDA(0,21) CALL P$CUP(10) CALL P423 LINENO = 1393 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LDA(0,21) CALL P$MOV(2) LINENO = 1394 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,15) CALL P$NEQ(0,1) CALL P$FJP($530) CALL P$MST(3) CALL P$LDC(1,INTL(107)) CALL P$CUP(1) CALL P30 530 CONTINUE GOTO 531 526 CONTINUE LINENO = 1397 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,16) LINENO = 1398 CALL P$LODA(0,16) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($532) CALL P$LODA(0,14) CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STO(1) 532 CONTINUE 531 CONTINUE GOTO 533 525 CONTINUE LINENO = 1402 CALL P$LDA(0,16) CALL P$LDC(1,INTL(9)) CALL P$NEW CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1403 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32375)) CALL P$UNI CALL P$LDA(0,15) CALL P$LDA(0,21) CALL P$CUP(10) CALL P423 LINENO = 1404 CALL P$MST(2) CALL P$LODA(0,15) CALL P$CUP(1) CALL P496 CALL P$FJP($534) LINENO = 1405 CALL P$MST(3) CALL P$LDC(1,INTL(148)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) 534 CONTINUE LINENO = 1406 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,23) LINENO = 1407 CALL P$LODA(0,23) CALL P$INC(0,INTL(4)) CALL P$LODA(0,15) CALL P$STO(0) CALL P$LODA(0,23) CALL P$INC(0,INTL(7)) CALL P$LDA(0,21) CALL P$MOV(2) CALL P$LODA(0,23) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 1408 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($535) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 536 535 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 536 CONTINUE LINENO = 1409 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDA(0,15) CALL P$LDA(0,21) CALL P$CUP(10) CALL P423 LINENO = 1410 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LDA(0,21) CALL P$MOV(2) LINENO = 1411 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,15) CALL P$NEQ(0,1) CALL P$FJP($537) CALL P$MST(3) CALL P$LDC(1,INTL(107)) CALL P$CUP(1) CALL P30 537 CONTINUE 533 CONTINUE LINENO = 1413 CALL P$LODA(0,16) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($538) LINENO = 1414 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,23) LINENO = 1415 CALL P$LODA(0,23) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($539) LINENO = 1416 CALL P$LODA(0,23) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($540) LINENO = 1417 CALL P$LODA(0,23) CALL P$IND(0,4) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($541) CALL P$MST(3) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 GOTO 542 541 CONTINUE LINENO = 1419 CALL P$LODA(0,23) CALL P$IND(1,8) CALL P$LODA(0,23) CALL P$IND(1,6) CALL P$GRT(1,1) CALL P$FJP($543) CALL P$MST(3) CALL P$LDC(1,INTL(102)) CALL P$CUP(1) CALL P30 543 CONTINUE 542 CONTINUE 540 CONTINUE 539 CONTINUE 538 CONTINUE 524 CONTINUE LINENO = 1421 CALL P$LODA(0,13) CALL P$LODA(0,16) CALL P$STO(0) LINENO = 1422 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$INN CALL P$NOT CALL P$FJP($544) LINENO = 1423 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 544 CONTINUE GOTO 545 514 CONTINUE LINENO = 1425 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 545 CONTINUE CALL P$RET(0) RETURN 511 CONTINUE SG1SIZ = 25 SG2SIZ = 163 GOTO 512 END SUBROUTINE P546 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 547 99998 CALL P$UJC 548 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1431 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,14) CALL P$LDC(0,INTL(0)) CALL P$STRA(0,22) LINENO = 1432 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32376)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($549) LINENO = 1433 CALL P$MST(3) CALL P$LDC(1,INTL(19)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32378)) CALL P$UNI CALL P$CUP(8) CALL P307 549 CONTINUE LINENO = 1434 550 CONTINUE LINENO = 1434 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($551) LINENO = 1435 CALL P$LODA(0,14) CALL P$STRA(0,15) LINENO = 1436 552 CONTINUE LINENO = 1437 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($553) LINENO = 1438 CALL P$LDA(0,17) CALL P$LDC(1,INTL(8)) CALL P$NEW LINENO = 1439 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1440 CALL P$LODA(0,28) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,28) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(5)) CALL P$LODA(0,15) CALL P$STO(0) LINENO = 1441 CALL P$LODA(0,28) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(3)) CALL P$STO(1) LINENO = 1443 CALL P$LODA(0,17) CALL P$STRA(0,15) LINENO = 1444 CALL P$MST(3) CALL P$LODA(0,17) CALL P$CUP(1) CALL P314 LINENO = 1445 CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 554 553 CONTINUE LINENO = 1447 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 554 CONTINUE LINENO = 1448 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32380)) CALL P$INN CALL P$NOT CALL P$FJP($555) LINENO = 1449 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32381)) CALL P$UNI CALL P$CUP(8) CALL P307 555 CONTINUE LINENO = 1451 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(2,16) LINENO = 1452 CALL P$LOD(2,16) CALL P$NOT CALL P$FJP($556) CALL P$MST(3) CALL P$CUP(0) CALL P62 556 CONTINUE LINENO = 1453 CALL P$LOD(2,16) CALL P$FJP($552) LINENO = 1454 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($557) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 558 557 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 558 CONTINUE LINENO = 1455 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32383)) CALL P$UNI CALL P$LDA(0,22) CALL P$LDA(0,23) CALL P$CUP(10) CALL P509 LINENO = 1456 559 CONTINUE LINENO = 1456 CALL P$LODA(0,15) CALL P$LODA(0,14) CALL P$NEQ(0,1) CALL P$FJP($560) LINENO = 1457 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1458 CALL P$MST(3) CALL P$LODA(0,22) CALL P$LDA(1,20) CALL P$CUP(2) CALL P409 LINENO = 1459 CALL P$LODA(0,28) CALL P$INC(0,INTL(4)) CALL P$LODA(0,22) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(7)) CALL P$LOD(1,20) CALL P$STO(1) LINENO = 1460 CALL P$LODA(0,28) CALL P$IND(0,5) CALL P$STRA(0,15) CALL P$LOD(1,20) CALL P$LOD(0,23) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(1,20) GOTO 559 560 CONTINUE LINENO = 1462 CALL P$LODA(0,17) CALL P$STRA(0,14) LINENO = 1463 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($561) LINENO = 1464 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1465 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32385)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($562) LINENO = 1466 CALL P$MST(3) CALL P$LDC(1,INTL(19)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32387)) CALL P$UNI CALL P$CUP(8) CALL P307 562 CONTINUE 561 CONTINUE GOTO 550 551 CONTINUE LINENO = 1469 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) LINENO = 1470 563 CONTINUE LINENO = 1470 CALL P$LODA(0,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($564) LINENO = 1471 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1472 CALL P$LODA(0,28) CALL P$IND(0,5) CALL P$STRA(0,17) CALL P$LODA(0,28) CALL P$INC(0,INTL(5)) CALL P$LODA(0,15) CALL P$STO(0) CALL P$LODA(0,14) CALL P$STRA(0,15) CALL P$LODA(0,17) CALL P$STRA(0,14) GOTO 563 564 CONTINUE LINENO = 1473 CALL P$LDO(1,13) CALL P$LDC(1,INTL(33)) CALL P$EQU(1,1) CALL P$FJP($565) LINENO = 1474 CALL P$LDA(0,22) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 1475 CALL P$LODA(0,22) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1476 CALL P$LODA(0,28) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(7)) CALL P$STO(1) LINENO = 1477 CALL P$LODA(0,13) CALL P$LODA(0,22) CALL P$STO(0) LINENO = 1478 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1479 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($566) LINENO = 1480 CALL P$LDA(0,17) CALL P$LDC(1,INTL(8)) CALL P$NEW LINENO = 1481 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1482 CALL P$LODA(0,28) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,28) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(3)) CALL P$STO(1) LINENO = 1483 CALL P$LODA(0,28) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(7)) CALL P$LOD(1,20) CALL P$STO(1) LINENO = 1485 CALL P$MST(3) CALL P$LODA(0,17) CALL P$CUP(1) CALL P314 LINENO = 1486 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1487 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($567) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 568 567 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 568 CONTINUE LINENO = 1488 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($569) LINENO = 1489 CALL P$MST(3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32389)) CALL P$LDA(0,16) CALL P$CUP(9) CALL P337 LINENO = 1490 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,21) LINENO = 1491 CALL P$LODA(0,21) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($570) LINENO = 1492 CALL P$MST(3) CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(1,20) CALL P$CUP(2) CALL P409 LINENO = 1493 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(7)) CALL P$LOD(1,20) CALL P$STO(1) LINENO = 1494 CALL P$LOD(1,20) CALL P$LODA(0,21) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(1,20) LINENO = 1495 CALL P$LODA(0,21) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$MST(2) CALL P$LODA(0,21) CALL P$CUP(1) CALL P496 CALL P$IOR CALL P$FJP($571) LINENO = 1496 CALL P$MST(2) CALL P$LDO(0,46) CALL P$LODA(0,21) CALL P$CUP(2) CALL P460 CALL P$FJP($572) CALL P$MST(3) CALL P$LDC(1,INTL(109)) CALL P$CUP(1) CALL P30 GOTO 573 572 CONTINUE LINENO = 1497 CALL P$MST(2) CALL P$LODA(0,21) CALL P$CUP(1) CALL P496 CALL P$FJP($574) CALL P$MST(3) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 574 CONTINUE 573 CONTINUE LINENO = 1498 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,21) CALL P$STO(0) CALL P$LODA(0,22) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,17) CALL P$STO(0) GOTO 575 571 CONTINUE LINENO = 1500 CALL P$MST(3) CALL P$LDC(1,INTL(110)) CALL P$CUP(1) CALL P30 575 CONTINUE 570 CONTINUE LINENO = 1502 CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 576 569 CONTINUE LINENO = 1504 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32390)) CALL P$UNI CALL P$CUP(8) CALL P307 576 CONTINUE GOTO 577 566 CONTINUE LINENO = 1506 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32392)) CALL P$UNI CALL P$CUP(8) CALL P307 577 CONTINUE LINENO = 1507 CALL P$LODA(0,22) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LOD(1,20) CALL P$STO(1) LINENO = 1508 CALL P$LDO(1,13) CALL P$LDC(1,INTL(47)) CALL P$EQU(1,1) CALL P$FJP($578) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 579 578 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(8)) CALL P$CUP(1) CALL P30 579 CONTINUE LINENO = 1509 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,21) CALL P$LOD(1,20) CALL P$STR(0,25) CALL P$LOD(1,20) CALL P$STR(0,24) LINENO = 1510 580 CONTINUE CALL P$LDC(0,INTL(0)) CALL P$STRA(0,20) LINENO = 1511 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32394)) CALL P$INN CALL P$NOT CALL P$FJP($581) LINENO = 1512 LINENO = 1513 582 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32396)) CALL P$UNI CALL P$LDA(0,19) CALL P$LDA(0,26) CALL P$CUP(10) CALL P423 LINENO = 1514 CALL P$LODA(0,22) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($583) LINENO = 1515 CALL P$MST(2) CALL P$LODA(0,22) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,19) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$FJP($584) CALL P$MST(3) CALL P$LDC(1,INTL(111)) CALL P$CUP(1) CALL P30 584 CONTINUE 583 CONTINUE LINENO = 1516 CALL P$LDA(0,19) CALL P$LDC(1,INTL(8)) CALL P$NEW LINENO = 1517 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1518 CALL P$LODA(0,28) CALL P$INC(0,INTL(5)) CALL P$LODA(0,21) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(4)) CALL P$LODA(0,20) CALL P$STO(0) CALL P$LODA(0,28) CALL P$INC(0,INTL(6)) CALL P$LDA(0,26) CALL P$MOV(2) LINENO = 1519 CALL P$LODA(0,28) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(8)) CALL P$STO(1) LINENO = 1521 CALL P$LODA(0,21) CALL P$STRA(0,18) LINENO = 1522 585 CONTINUE LINENO = 1522 CALL P$LODA(0,18) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($586) LINENO = 1523 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,28) LINENO = 1524 LINENO = 1525 CALL P$LODA(0,28) CALL P$IND(1,7) CALL P$LOD(0,27) CALL P$EQU(1,1) CALL P$FJP($587) CALL P$MST(3) CALL P$LDC(1,INTL(178)) CALL P$CUP(1) CALL P30 587 CONTINUE LINENO = 1526 CALL P$LODA(0,28) CALL P$IND(0,5) CALL P$STRA(0,18) GOTO 585 586 CONTINUE LINENO = 1528 CALL P$LODA(0,19) CALL P$STRA(0,21) CALL P$LODA(0,19) CALL P$STRA(0,20) LINENO = 1529 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(2,16) LINENO = 1530 CALL P$LOD(2,16) CALL P$NOT CALL P$FJP($588) CALL P$MST(3) CALL P$CUP(0) CALL P62 588 CONTINUE LINENO = 1531 CALL P$LOD(2,16) CALL P$FJP($582) LINENO = 1532 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($589) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 590 589 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 590 CONTINUE LINENO = 1533 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($591) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 592 591 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(9)) CALL P$CUP(1) CALL P30 592 CONTINUE LINENO = 1534 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32397)) CALL P$UNI CALL P$LDA(0,20) CALL P$CUP(9) CALL P546 LINENO = 1535 CALL P$LOD(1,20) CALL P$LOD(0,24) CALL P$GRT(1,1) CALL P$FJP($593) CALL P$LOD(1,20) CALL P$STR(0,24) 593 CONTINUE LINENO = 1536 594 CONTINUE LINENO = 1536 CALL P$LODA(0,19) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($595) LINENO = 1537 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,18) CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,20) CALL P$STO(0) LINENO = 1538 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LOD(1,20) CALL P$STO(1) LINENO = 1539 CALL P$LODA(0,18) CALL P$STRA(0,19) GOTO 594 595 CONTINUE LINENO = 1541 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($596) LINENO = 1542 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1543 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32398)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($597) LINENO = 1544 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32399)) CALL P$UNI CALL P$CUP(8) CALL P307 597 CONTINUE GOTO 598 596 CONTINUE LINENO = 1546 CALL P$MST(3) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 598 CONTINUE 581 CONTINUE LINENO = 1548 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$STR(2,16) LINENO = 1549 CALL P$LOD(2,16) CALL P$NOT CALL P$FJP($599) LINENO = 1550 CALL P$LOD(0,25) CALL P$STR(1,20) LINENO = 1551 CALL P$MST(3) CALL P$CUP(0) CALL P62 599 CONTINUE LINENO = 1553 CALL P$LOD(2,16) CALL P$FJP($580) LINENO = 1554 CALL P$LOD(0,24) CALL P$STR(1,20) LINENO = 1555 CALL P$LODA(0,22) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,21) CALL P$STO(0) GOTO 600 565 CONTINUE LINENO = 1557 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 600 CONTINUE CALL P$RET(0) RETURN 547 CONTINUE SG1SIZ = 29 SG2SIZ = 243 GOTO 548 END SUBROUTINE P509 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 601 99998 CALL P$UJC 602 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1561 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,236) CALL P$INN CALL P$NOT CALL P$FJP($603) LINENO = 1562 CALL P$MST(2) CALL P$LDC(1,INTL(10)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,236) CALL P$UNI CALL P$CUP(8) CALL P307 603 CONTINUE LINENO = 1563 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,236) CALL P$INN CALL P$FJP($604) LINENO = 1564 LINENO = 1565 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,234) CALL P$INN CALL P$FJP($605) CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LODA(0,13) CALL P$LODA(0,14) CALL P$CUP(10) CALL P510 GOTO 606 605 CONTINUE LINENO = 1567 CALL P$LDO(1,13) CALL P$LDC(1,INTL(15)) CALL P$EQU(1,1) CALL P$FJP($607) LINENO = 1568 CALL P$LDA(0,17) CALL P$LDC(1,INTL(5)) CALL P$NEW CALL P$LODA(0,13) CALL P$LODA(0,17) CALL P$STO(0) LINENO = 1569 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1570 CALL P$LODA(0,25) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,25) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,25) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 1571 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1572 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($608) LINENO = 1573 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,31) LINENO = 1574 CALL P$MST(2) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32400)) CALL P$LDA(0,19) CALL P$CUP(9) CALL P337 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,31) LINENO = 1575 CALL P$LODA(0,19) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($609) LINENO = 1576 CALL P$LDA(0,19) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 1577 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1578 CALL P$LODA(0,25) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,25) CALL P$INC(0,INTL(4)) CALL P$LODA(0,17) CALL P$STO(0) LINENO = 1579 CALL P$LODA(0,25) CALL P$INC(0,INTL(5)) CALL P$LDO(0,57) CALL P$STO(0) CALL P$LODA(0,25) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 1581 CALL P$LODA(0,19) CALL P$SRO(0,57) GOTO 610 609 CONTINUE LINENO = 1584 LINENO = 1585 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($611) LINENO = 1586 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($612) CALL P$MST(2) CALL P$LDC(1,INTL(108)) CALL P$CUP(1) CALL P30 GOTO 613 612 CONTINUE LINENO = 1587 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STO(0) 613 CONTINUE 611 CONTINUE 610 CONTINUE LINENO = 1589 CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 614 608 CONTINUE LINENO = 1591 CALL P$MST(2) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 614 CONTINUE GOTO 615 607 CONTINUE LINENO = 1594 CALL P$LDC(3,INTL(0)) CALL P$STR(0,24) LINENO = 1595 CALL P$LDO(1,13) CALL P$LDC(1,INTL(26)) CALL P$EQU(1,1) CALL P$FJP($616) LINENO = 1596 CALL P$MST(2) CALL P$CUP(0) CALL P62 CALL P$LDC(3,INTL(1)) CALL P$STR(0,24) LINENO = 1597 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$INN CALL P$NOT CALL P$FJP($617) LINENO = 1598 LINENO = 1599 CALL P$MST(2) CALL P$LDC(1,INTL(10)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$UNI CALL P$CUP(8) CALL P307 617 CONTINUE 616 CONTINUE LINENO = 1602 CALL P$LDO(1,13) CALL P$LDC(1,INTL(27)) CALL P$EQU(1,1) CALL P$FJP($618) LINENO = 1603 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1604 CALL P$LDO(1,13) CALL P$LDC(1,INTL(10)) CALL P$EQU(1,1) CALL P$FJP($619) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 620 619 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(11)) CALL P$CUP(1) CALL P30 620 CONTINUE LINENO = 1605 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,16) LINENO = 1606 621 CONTINUE CALL P$LDA(0,17) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 1607 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1608 CALL P$LODA(0,25) CALL P$INC(0,INTL(5)) CALL P$LODA(0,16) CALL P$STO(0) CALL P$LODA(0,25) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,25) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) LINENO = 1609 CALL P$LODA(0,17) CALL P$STRA(0,16) LINENO = 1610 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32401)) CALL P$UNI CALL P$LDA(0,15) CALL P$LDA(0,21) CALL P$CUP(10) CALL P510 LINENO = 1611 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LOD(0,21) CALL P$STO(1) LINENO = 1612 CALL P$LODA(0,15) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($622) LINENO = 1613 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($623) LINENO = 1614 LINENO = 1615 CALL P$LODA(0,15) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($624) LINENO = 1616 CALL P$MST(2) CALL P$LDC(1,INTL(109)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) GOTO 625 624 CONTINUE LINENO = 1618 CALL P$LODA(0,15) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($626) LINENO = 1619 CALL P$MST(2) CALL P$LDC(1,INTL(149)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) 626 CONTINUE 625 CONTINUE LINENO = 1620 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,15) CALL P$STO(0) GOTO 627 623 CONTINUE LINENO = 1622 CALL P$MST(2) CALL P$LDC(1,INTL(113)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) 627 CONTINUE 622 CONTINUE LINENO = 1623 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(1,16) LINENO = 1624 CALL P$LOD(1,16) CALL P$NOT CALL P$FJP($628) CALL P$MST(2) CALL P$CUP(0) CALL P62 628 CONTINUE LINENO = 1625 CALL P$LOD(1,16) CALL P$FJP($621) LINENO = 1626 CALL P$LDO(1,13) CALL P$LDC(1,INTL(11)) CALL P$EQU(1,1) CALL P$FJP($629) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 630 629 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(12)) CALL P$CUP(1) CALL P30 630 CONTINUE LINENO = 1627 CALL P$LDO(1,13) CALL P$LDC(1,INTL(47)) CALL P$EQU(1,1) CALL P$FJP($631) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 632 631 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(8)) CALL P$CUP(1) CALL P30 632 CONTINUE LINENO = 1628 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDA(0,17) CALL P$LDA(0,21) CALL P$CUP(10) CALL P509 LINENO = 1629 633 CONTINUE LINENO = 1630 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1631 CALL P$LODA(0,25) CALL P$IND(0,5) CALL P$STRA(0,15) CALL P$LODA(0,25) CALL P$INC(0,INTL(5)) CALL P$LODA(0,17) CALL P$STO(0) LINENO = 1632 CALL P$LODA(0,25) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($634) LINENO = 1633 CALL P$MST(2) CALL P$LODA(0,25) CALL P$IND(0,4) CALL P$LDA(0,23) CALL P$LDA(0,22) CALL P$CUP(3) CALL P364 LINENO = 1634 CALL P$MST(2) CALL P$LODA(0,17) CALL P$LDA(0,21) CALL P$CUP(2) CALL P409 LINENO = 1635 CALL P$LOD(0,24) CALL P$LODA(0,25) CALL P$IND(0,5) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($635) LINENO = 1636 CALL P$LOD(0,22) CALL P$LOD(0,23) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(3)) CALL P$ADI CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,21) GOTO 636 635 CONTINUE LINENO = 1638 CALL P$LOD(0,21) CALL P$LOD(0,22) CALL P$LOD(0,23) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$MPI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,21) 636 CONTINUE LINENO = 1639 CALL P$LODA(0,25) CALL P$INC(0,INTL(2)) CALL P$LOD(0,21) CALL P$STO(1) 634 CONTINUE LINENO = 1640 CALL P$LODA(0,25) CALL P$INC(0,INTL(1)) CALL P$LOD(0,24) CALL P$STO(3) LINENO = 1642 CALL P$LODA(0,16) CALL P$STRA(0,17) CALL P$LODA(0,15) CALL P$STRA(0,16) LINENO = 1643 CALL P$LODA(0,16) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($633) GOTO 637 618 CONTINUE LINENO = 1646 CALL P$LDO(1,13) CALL P$LDC(1,INTL(28)) CALL P$EQU(1,1) CALL P$FJP($638) LINENO = 1647 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1648 CALL P$LDO(1,64) CALL P$STR(0,18) LINENO = 1649 CALL P$LDO(1,64) CALL P$LDC(1,INTL(20)) CALL P$LES(1,1) CALL P$FJP($639) LINENO = 1650 CALL P$LDO(1,64) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) LINENO = 1651 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,25) LINENO = 1652 CALL P$LODA(0,25) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 1653 CALL P$LODA(0,25) CALL P$INC(0,INTL(1)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 1654 CALL P$LODA(0,25) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$STO(1) GOTO 640 639 CONTINUE LINENO = 1657 CALL P$MST(2) CALL P$LDC(1,INTL(250)) CALL P$CUP(1) CALL P30 640 CONTINUE LINENO = 1658 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,20) LINENO = 1659 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32403)) CALL P$DIF CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32404)) CALL P$UNI CALL P$LDA(0,16) CALL P$CUP(9) CALL P546 LINENO = 1660 CALL P$LDA(0,17) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 1661 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1662 CALL P$LODA(0,25) CALL P$INC(0,INTL(4)) CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(0,0) CALL P$STO(0) LINENO = 1663 CALL P$LODA(0,25) CALL P$INC(0,INTL(5)) CALL P$LODA(0,16) CALL P$STO(0) CALL P$LODA(0,25) CALL P$INC(0,INTL(2)) CALL P$LOD(0,20) CALL P$STO(1) CALL P$LODA(0,25) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(5)) CALL P$STO(1) LINENO = 1665 CALL P$LOD(0,18) CALL P$SRO(1,64) LINENO = 1666 CALL P$LDO(1,13) CALL P$LDC(1,INTL(39)) CALL P$EQU(1,1) CALL P$FJP($641) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 642 641 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(13)) CALL P$CUP(1) CALL P30 642 CONTINUE GOTO 643 638 CONTINUE LINENO = 1669 CALL P$LDO(1,13) CALL P$LDC(1,INTL(25)) CALL P$EQU(1,1) CALL P$FJP($644) LINENO = 1670 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1671 CALL P$LDO(1,13) CALL P$LDC(1,INTL(47)) CALL P$EQU(1,1) CALL P$FJP($645) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 646 645 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(8)) CALL P$CUP(1) CALL P30 646 CONTINUE LINENO = 1672 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDA(0,16) CALL P$LDA(0,21) CALL P$CUP(10) CALL P510 LINENO = 1674 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,17) LINENO = 1675 CALL P$LODA(0,16) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($647) LINENO = 1676 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($648) CALL P$MST(2) CALL P$LDC(1,INTL(115)) CALL P$CUP(1) CALL P30 GOTO 649 648 CONTINUE LINENO = 1677 CALL P$LODA(0,16) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($650) CALL P$MST(2) CALL P$LDC(1,INTL(114)) CALL P$CUP(1) CALL P30 GOTO 651 650 CONTINUE LINENO = 1678 CALL P$LODA(0,16) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($652) CALL P$MST(2) CALL P$LDC(1,INTL(169)) CALL P$CUP(1) CALL P30 GOTO 653 652 CONTINUE LINENO = 1679 LINENO = 1680 CALL P$MST(2) CALL P$LODA(0,16) CALL P$LDA(0,23) CALL P$LDA(0,22) CALL P$CUP(3) CALL P364 LINENO = 1681 CALL P$LOD(0,23) CALL P$LDC(1,INTL(0)) CALL P$LES(1,1) CALL P$LOD(0,22) CALL P$LDC(1,INTL(255)) CALL P$GRT(1,1) CALL P$IOR CALL P$FJP($654) LINENO = 1682 CALL P$MST(2) CALL P$LDC(1,INTL(169)) CALL P$CUP(1) CALL P30 GOTO 655 654 CONTINUE LINENO = 1683 LINENO = 1684 CALL P$LDA(0,17) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 1685 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1686 CALL P$LODA(0,25) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$STO(1) CALL P$LODA(0,25) CALL P$INC(0,INTL(4)) CALL P$LODA(0,16) CALL P$STO(0) LINENO = 1687 CALL P$LODA(0,25) CALL P$INC(0,INTL(2)) CALL P$LOD(0,22) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$LOD(0,23) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) 655 CONTINUE 653 CONTINUE 651 CONTINUE 649 CONTINUE 647 CONTINUE GOTO 656 644 CONTINUE LINENO = 1694 CALL P$LDO(1,13) CALL P$LDC(1,INTL(29)) CALL P$EQU(1,1) CALL P$FJP($657) LINENO = 1695 CALL P$MST(2) CALL P$CUP(0) CALL P62 CALL P$LDA(0,17) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 1696 CALL P$LDO(1,13) CALL P$LDC(1,INTL(47)) CALL P$EQU(1,1) CALL P$FJP($658) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 659 658 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(8)) CALL P$CUP(1) CALL P30 659 CONTINUE LINENO = 1697 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,234) CALL P$INN CALL P$FJP($660) LINENO = 1698 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDA(0,16) CALL P$LDA(0,21) CALL P$CUP(10) CALL P510 GOTO 661 660 CONTINUE LINENO = 1699 LINENO = 1700 CALL P$LDO(1,13) CALL P$LDC(1,INTL(26)) CALL P$EQU(1,1) CALL P$FJP($662) LINENO = 1701 CALL P$MST(2) CALL P$CUP(0) CALL P62 CALL P$LDC(3,INTL(1)) CALL P$STR(0,24) LINENO = 1702 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$INN CALL P$NOT CALL P$FJP($663) LINENO = 1703 CALL P$MST(2) CALL P$LDC(1,INTL(10)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$UNI CALL P$CUP(8) CALL P307 663 CONTINUE 662 CONTINUE LINENO = 1705 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDA(0,16) CALL P$LDA(0,21) CALL P$CUP(10) CALL P509 661 CONTINUE LINENO = 1707 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(6)) CALL P$STO(1) CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LOD(0,21) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 1710 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$NEQ(1,1) CALL P$FJP($664) LINENO = 1711 LINENO = 1712 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,25) LINENO = 1713 CALL P$LODA(0,25) CALL P$INC(0,INTL(4)) CALL P$LODA(0,16) CALL P$STO(0) LINENO = 1714 CALL P$LODA(0,25) CALL P$INC(0,INTL(1)) CALL P$LOD(0,24) CALL P$STO(3) GOTO 665 664 CONTINUE LINENO = 1717 LINENO = 1718 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$MST(2) CALL P$LDC(1,INTL(398)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(108)) CALL P$CUP(1) CALL P30 665 CONTINUE 657 CONTINUE 656 CONTINUE 643 CONTINUE 637 CONTINUE LINENO = 1721 CALL P$LODA(0,13) CALL P$LODA(0,17) CALL P$STO(0) 615 CONTINUE 606 CONTINUE LINENO = 1723 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$INN CALL P$NOT CALL P$FJP($666) LINENO = 1724 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 666 CONTINUE GOTO 667 604 CONTINUE LINENO = 1726 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 667 CONTINUE LINENO = 1727 CALL P$LODA(0,13) CALL P$IND(0,0) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($668) CALL P$LODA(0,14) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) GOTO 669 668 CONTINUE CALL P$LODA(0,14) CALL P$LODA(0,13) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STO(1) 669 CONTINUE CALL P$RET(0) RETURN 601 CONTINUE SG1SIZ = 26 SG2SIZ = 289 GOTO 602 END SUBROUTINE P670 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 671 99998 CALL P$UJC 672 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1735 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,8) LINENO = 1736 CALL P$LDA(0,7) CALL P$LDC(1,INTL(7)) CALL P$NEW CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$MOV(2) LINENO = 1737 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(3)) CALL P$LOD(0,6) CALL P$STO(1) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$STO(1) LINENO = 1738 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$MST(1) CALL P$LODA(0,5) CALL P$CUP(1) CALL P502 CALL P$STO(3) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(6)) CALL P$LODA(0,8) CALL P$IND(0,2) CALL P$STO(0) LINENO = 1739 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($673) LINENO = 1740 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$STO(1) GOTO 674 673 CONTINUE LINENO = 1741 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(1)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) 674 CONTINUE LINENO = 1742 CALL P$LODA(0,8) CALL P$INC(0,INTL(2)) CALL P$LODA(0,7) CALL P$STO(0) CALL P$RET(0) RETURN 671 CONTINUE SG1SIZ = 9 SG2SIZ = 9 GOTO 672 END SUBROUTINE P675 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 676 99998 CALL P$UJC 677 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1749 CALL P$LDC(1,INTL(10)) CALL P$STR(0,5) CALL P$RET(0) RETURN 676 CONTINUE SG1SIZ = 6 SG2SIZ = 7 GOTO 677 END SUBROUTINE P678 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 679 99998 CALL P$UJC 680 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1755 681 CONTINUE LINENO = 1756 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($682) LINENO = 1757 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,8) LINENO = 1758 CALL P$LODA(0,8) CALL P$IND(0,1) CALL P$STRA(0,5) CALL P$LDC(3,INTL(0)) CALL P$STR(0,6) LINENO = 1759 683 CONTINUE LINENO = 1759 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LOD(0,6) CALL P$NOT CALL P$AND CALL P$FJP($684) LINENO = 1760 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDO(1,16) CALL P$NEQ(1,1) CALL P$FJP($685) LINENO = 1761 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,0) CALL P$STRA(0,5) GOTO 686 685 CONTINUE LINENO = 1762 CALL P$LDC(3,INTL(1)) CALL P$STR(0,6) CALL P$MST(2) CALL P$LDC(1,INTL(166)) CALL P$CUP(1) CALL P30 686 CONTINUE GOTO 683 684 CONTINUE LINENO = 1763 CALL P$LOD(0,6) CALL P$NOT CALL P$FJP($687) LINENO = 1764 CALL P$LDA(0,5) CALL P$LDC(1,INTL(4)) CALL P$NEW LINENO = 1765 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 1766 CALL P$LODA(0,9) CALL P$INC(0,INTL(3)) CALL P$LDO(1,16) CALL P$STO(1) CALL P$MST(2) CALL P$LDA(0,7) CALL P$CUP(1) CALL P412 LINENO = 1767 CALL P$LODA(0,9) CALL P$INC(0,INTL(1)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LODA(0,9) CALL P$LODA(0,8) CALL P$IND(0,1) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(2)) CALL P$LOD(0,7) CALL P$STO(1) LINENO = 1769 CALL P$LODA(0,8) CALL P$INC(0,INTL(1)) CALL P$LODA(0,5) CALL P$STO(0) 687 CONTINUE LINENO = 1771 CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 688 682 CONTINUE LINENO = 1773 CALL P$MST(2) CALL P$LDC(1,INTL(15)) CALL P$CUP(1) CALL P30 688 CONTINUE LINENO = 1774 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32405)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($689) LINENO = 1775 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32406)) CALL P$UNI CALL P$CUP(8) CALL P307 689 CONTINUE LINENO = 1776 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(1,16) LINENO = 1777 CALL P$LOD(1,16) CALL P$NOT CALL P$FJP($690) CALL P$MST(2) CALL P$CUP(0) CALL P62 690 CONTINUE LINENO = 1778 CALL P$LOD(1,16) CALL P$FJP($681) LINENO = 1779 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($691) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 692 691 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 692 CONTINUE CALL P$RET(0) RETURN 679 CONTINUE SG1SIZ = 10 SG2SIZ = 45 GOTO 680 END SUBROUTINE P693 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 694 99998 CALL P$UJC 695 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1785 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($696) LINENO = 1786 CALL P$MST(2) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32407)) CALL P$UNI CALL P$CUP(8) CALL P307 696 CONTINUE LINENO = 1787 697 CONTINUE LINENO = 1787 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($698) LINENO = 1788 CALL P$LDA(0,5) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 1789 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 1790 CALL P$LODA(0,9) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1791 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1792 CALL P$LDO(1,13) CALL P$LDC(1,INTL(7)) CALL P$EQU(1,1) CALL P$LDO(1,14) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($699) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 700 699 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(16)) CALL P$CUP(1) CALL P30 700 CONTINUE LINENO = 1793 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32408)) CALL P$UNI CALL P$LDA(0,6) CALL P$LDA(0,7) CALL P$CUP(10) CALL P423 LINENO = 1794 CALL P$MST(2) CALL P$LODA(0,5) CALL P$CUP(1) CALL P314 LINENO = 1795 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,6) CALL P$STO(0) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(7)) CALL P$LDA(0,7) CALL P$MOV(2) LINENO = 1796 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($701) LINENO = 1797 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1798 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32409)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($702) LINENO = 1799 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32410)) CALL P$UNI CALL P$CUP(8) CALL P307 702 CONTINUE GOTO 703 701 CONTINUE LINENO = 1801 CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 703 CONTINUE GOTO 697 698 CONTINUE CALL P$RET(0) RETURN 694 CONTINUE SG1SIZ = 10 SG2SIZ = 81 GOTO 695 END SUBROUTINE P704 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 705 99998 CALL P$UJC 706 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1808 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($707) LINENO = 1809 CALL P$MST(2) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32411)) CALL P$UNI CALL P$CUP(8) CALL P307 707 CONTINUE LINENO = 1810 708 CONTINUE LINENO = 1810 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($709) LINENO = 1811 CALL P$LDA(0,7) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 1812 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,10) LINENO = 1813 CALL P$LODA(0,10) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,10) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,10) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 1814 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1815 CALL P$LDO(1,13) CALL P$LDC(1,INTL(7)) CALL P$EQU(1,1) CALL P$LDO(1,14) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($710) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 711 710 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(16)) CALL P$CUP(1) CALL P30 711 CONTINUE LINENO = 1816 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32412)) CALL P$UNI CALL P$LDA(0,8) CALL P$LDA(0,9) CALL P$CUP(10) CALL P509 LINENO = 1817 CALL P$MST(2) CALL P$LODA(0,7) CALL P$CUP(1) CALL P314 LINENO = 1818 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,8) CALL P$STO(0) LINENO = 1820 CALL P$LDO(0,57) CALL P$STRA(0,6) LINENO = 1821 712 CONTINUE LINENO = 1821 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($713) LINENO = 1822 LINENO = 1823 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$EQU(5,8) CALL P$FJP($714) LINENO = 1824 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STO(0) LINENO = 1825 CALL P$LODA(0,6) CALL P$LDO(0,57) CALL P$NEQ(0,1) CALL P$FJP($715) LINENO = 1826 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STO(0) GOTO 716 715 CONTINUE LINENO = 1827 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$SRO(0,57) 716 CONTINUE GOTO 717 714 CONTINUE LINENO = 1829 CALL P$LODA(0,6) CALL P$STRA(0,5) 717 CONTINUE CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,6) GOTO 712 713 CONTINUE LINENO = 1831 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($718) LINENO = 1832 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1833 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32413)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($719) LINENO = 1834 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32414)) CALL P$UNI CALL P$CUP(8) CALL P307 719 CONTINUE GOTO 720 718 CONTINUE LINENO = 1836 CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 720 CONTINUE GOTO 708 709 CONTINUE LINENO = 1838 CALL P$LDO(0,57) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($721) LINENO = 1839 CALL P$MST(2) CALL P$LDC(1,INTL(117)) CALL P$CUP(1) CALL P30 CALL P$LAO(7) CALL P$WLN LINENO = 1840 722 CONTINUE CALL P$LAO(7) CALL P$LCA(26409) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LDO(0,57) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(8)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$WLN LINENO = 1841 CALL P$LDO(0,57) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$SRO(0,57) LINENO = 1842 CALL P$LDO(0,57) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($722) LINENO = 1843 CALL P$LDO(3,21) CALL P$NOT CALL P$FJP($723) CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDO(1,22) CALL P$LDC(1,INTL(20)) CALL P$ADI CALL P$WRC SP=SP-1 723 CONTINUE 721 CONTINUE CALL P$RET(0) RETURN 705 CONTINUE SG1SIZ = 11 SG2SIZ = 81 GOTO 706 END SUBROUTINE P724 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 725 99998 CALL P$UJC 726 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1852 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) LINENO = 1853 727 CONTINUE LINENO = 1854 728 CONTINUE LINENO = 1855 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($729) LINENO = 1856 CALL P$LDA(0,6) CALL P$LDC(1,INTL(10)) CALL P$NEW LINENO = 1857 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,15) LINENO = 1858 CALL P$LODA(0,15) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,15) CALL P$INC(0,INTL(5)) CALL P$LODA(0,5) CALL P$STO(0) CALL P$LODA(0,15) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 1859 CALL P$LODA(0,15) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,15) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,15) CALL P$INC(0,INTL(8)) CALL P$LDO(1,62) CALL P$STO(1) LINENO = 1861 CALL P$MST(2) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 1862 CALL P$LODA(0,6) CALL P$STRA(0,5) LINENO = 1863 CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 730 729 CONTINUE LINENO = 1865 CALL P$MST(2) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 730 CONTINUE LINENO = 1866 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32415)) CALL P$UNI CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($731) LINENO = 1867 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32416)) CALL P$UNI CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$UNI CALL P$CUP(8) CALL P307 731 CONTINUE LINENO = 1868 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(1,16) LINENO = 1869 CALL P$LOD(1,16) CALL P$NOT CALL P$FJP($732) CALL P$MST(2) CALL P$CUP(0) CALL P62 732 CONTINUE LINENO = 1870 CALL P$LOD(1,16) CALL P$FJP($728) LINENO = 1871 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($733) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 734 733 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 734 CONTINUE LINENO = 1872 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32417)) CALL P$UNI CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$UNI CALL P$LDA(0,8) CALL P$LDA(0,9) CALL P$CUP(10) CALL P509 LINENO = 1873 CALL P$LDC(1,INTL(1)) CALL P$STR(0,14) CALL P$LODA(0,8) CALL P$STRA(0,7) LINENO = 1874 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32418)) CALL P$INN CALL P$FJP($735) LINENO = 1875 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) GOTO 736 738 CONTINUE LINENO = 1876 739 CONTINUE LINENO = 1876 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($740) LINENO = 1877 CALL P$MST(2) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,13) CALL P$LDA(0,12) CALL P$CUP(3) CALL P364 LINENO = 1878 CALL P$LOD(0,12) CALL P$LOD(0,13) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LOD(0,14) CALL P$MPI CALL P$STR(0,14) LINENO = 1879 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,7) GOTO 739 740 CONTINUE GOTO 737 741 CONTINUE LINENO = 1881 CALL P$MST(1) CALL P$CUP(0) CALL P675 GOTO 737 736 CONTINUE CALL P$CHK(INTL(4),INTL(5)) CALL P$LDC(1,INTL(4)) CALL P$SBI CALL P$XJP($742) 742 CONTINUE 743 GOTO 738 744 GOTO 741 737 CONTINUE 735 CONTINUE LINENO = 1883 745 CONTINUE LINENO = 1883 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($746) LINENO = 1884 CALL P$MST(2) CALL P$LODA(0,8) CALL P$LAO(23) CALL P$CUP(2) CALL P409 LINENO = 1885 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,8) CALL P$STO(0) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(9)) CALL P$LDO(1,23) CALL P$STO(1) CALL P$LDO(1,23) CALL P$STR(0,11) LINENO = 1886 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($747) LINENO = 1887 CALL P$LDC(1,INTL(1)) CALL P$STR(0,10) CALL P$LOD(0,14) CALL P$STR(0,15) 748 CONTINUE CALL P$LOD(0,10) CALL P$LOD(0,15) CALL P$LEQ(1) CALL P$FJP($749) LINENO = 1888 CALL P$MST(1) CALL P$LODA(0,5) CALL P$LOD(0,11) CALL P$CUP(2) CALL P670 LINENO = 1889 CALL P$LOD(0,11) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$STR(0,11) CALL P$LOD(0,10) CALL P$INC(1,INTL(1)) CALL P$STR(0,10) GOTO 748 749 CONTINUE 747 CONTINUE LINENO = 1891 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($750) CALL P$MST(1) CALL P$LODA(0,5) CALL P$LOD(0,11) CALL P$CUP(2) CALL P670 750 CONTINUE LINENO = 1892 CALL P$LDO(1,23) CALL P$LOD(0,9) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,5) GOTO 745 746 CONTINUE LINENO = 1894 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($751) LINENO = 1895 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 1896 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32419)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($752) LINENO = 1897 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32420)) CALL P$UNI CALL P$CUP(8) CALL P307 752 CONTINUE GOTO 753 751 CONTINUE LINENO = 1899 CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 753 CONTINUE LINENO = 1900 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,246) CALL P$INN CALL P$NOT CALL P$AND CALL P$FJP($727) LINENO = 1901 CALL P$LDO(0,57) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($754) LINENO = 1902 CALL P$MST(2) CALL P$LDC(1,INTL(117)) CALL P$CUP(1) CALL P30 CALL P$LAO(7) CALL P$WLN LINENO = 1903 755 CONTINUE CALL P$LAO(7) CALL P$LCA(26412) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LDO(0,57) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(8)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$WLN LINENO = 1904 CALL P$LDO(0,57) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$SRO(0,57) LINENO = 1905 CALL P$LDO(0,57) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($755) LINENO = 1906 CALL P$LDO(3,21) CALL P$NOT CALL P$FJP($756) CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDO(1,22) CALL P$LDC(1,INTL(20)) CALL P$ADI CALL P$WRC SP=SP-1 756 CONTINUE 754 CONTINUE CALL P$RET(0) RETURN 725 CONTINUE SG1SIZ = 16 SG2SIZ = 107 GOTO 726 END SUBROUTINE P758 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 759 99998 CALL P$UJC 760 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 1918 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,16) LINENO = 1919 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32421)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($761) LINENO = 1920 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$UNI CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32422)) CALL P$UNI CALL P$CUP(8) CALL P307 761 CONTINUE LINENO = 1921 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($762) LINENO = 1922 CALL P$LOD(1,11) CALL P$FJP($763) CALL P$MST(3) CALL P$LDC(1,INTL(119)) CALL P$CUP(1) CALL P30 763 CONTINUE LINENO = 1923 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1924 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32423)) CALL P$INN CALL P$NOT CALL P$FJP($764) LINENO = 1925 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32424)) CALL P$UNI CALL P$CUP(8) CALL P307 764 CONTINUE LINENO = 1926 765 CONTINUE LINENO = 1926 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32425)) CALL P$INN CALL P$FJP($766) LINENO = 1927 LINENO = 1928 CALL P$LDO(1,13) CALL P$LDC(1,INTL(24)) CALL P$EQU(1,1) CALL P$FJP($767) LINENO = 1929 CALL P$MST(3) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 LINENO = 1930 768 CONTINUE CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1931 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($769) LINENO = 1932 CALL P$LDA(0,17) CALL P$LDC(1,INTL(11)) CALL P$NEW LINENO = 1933 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,26) LINENO = 1934 CALL P$LODA(0,26) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,26) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,26) CALL P$INC(0,INTL(5)) CALL P$LODA(0,16) CALL P$STO(0) LINENO = 1935 CALL P$LODA(0,26) CALL P$INC(0,INTL(8)) CALL P$LDO(1,62) CALL P$STO(1) LINENO = 1936 CALL P$LODA(0,26) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) CALL P$LODA(0,26) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,26) CALL P$INC(0,INTL(10)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1938 CALL P$MST(3) CALL P$LODA(0,17) CALL P$CUP(1) CALL P314 LINENO = 1939 CALL P$LODA(0,17) CALL P$STRA(0,16) LINENO = 1940 CALL P$MST(3) CALL P$LDO(0,44) CALL P$LAO(23) CALL P$CUP(2) CALL P409 LINENO = 1942 CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 770 769 CONTINUE LINENO = 1944 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 770 CONTINUE LINENO = 1945 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32426)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($771) LINENO = 1946 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32427)) CALL P$UNI CALL P$CUP(8) CALL P307 771 CONTINUE LINENO = 1947 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($768) GOTO 772 767 CONTINUE LINENO = 1950 LINENO = 1951 CALL P$LDO(1,13) CALL P$LDC(1,INTL(22)) CALL P$EQU(1,1) CALL P$FJP($773) LINENO = 1952 CALL P$MST(3) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) LINENO = 1953 774 CONTINUE CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1954 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($775) LINENO = 1955 CALL P$LDA(0,17) CALL P$LDC(1,INTL(11)) CALL P$NEW LINENO = 1956 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,26) LINENO = 1957 CALL P$LODA(0,26) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,26) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,26) CALL P$INC(0,INTL(5)) CALL P$LODA(0,15) CALL P$STO(0) LINENO = 1958 CALL P$LODA(0,26) CALL P$INC(0,INTL(8)) CALL P$LDO(1,62) CALL P$STO(1) LINENO = 1959 CALL P$LODA(0,26) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LODA(0,26) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1960 CALL P$LODA(0,26) CALL P$INC(0,INTL(10)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 1962 CALL P$MST(3) CALL P$LODA(0,17) CALL P$CUP(1) CALL P314 LINENO = 1963 CALL P$LODA(0,17) CALL P$STRA(0,15) LINENO = 1964 CALL P$MST(3) CALL P$LDO(0,44) CALL P$LAO(23) CALL P$CUP(2) CALL P409 LINENO = 1966 CALL P$MST(3) CALL P$CUP(0) CALL P62 775 CONTINUE LINENO = 1968 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32428)) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($776) LINENO = 1969 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32429)) CALL P$UNI CALL P$CUP(8) CALL P307 776 CONTINUE LINENO = 1971 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($774) LINENO = 1972 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($777) LINENO = 1973 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 1974 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($778) LINENO = 1975 CALL P$MST(3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32430)) CALL P$LDA(0,17) CALL P$CUP(9) CALL P337 LINENO = 1976 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,18) LINENO = 1977 CALL P$LODA(0,18) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($779) LINENO = 1978 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32431)) CALL P$INN CALL P$NOT CALL P$FJP($780) LINENO = 1979 CALL P$MST(3) CALL P$LDC(1,INTL(120)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,18) 780 CONTINUE 779 CONTINUE LINENO = 1980 CALL P$LODA(0,15) CALL P$STRA(0,14) LINENO = 1981 781 CONTINUE LINENO = 1981 CALL P$LODA(0,15) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($782) LINENO = 1982 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,18) CALL P$STO(0) CALL P$LODA(0,15) CALL P$STRA(0,17) LINENO = 1983 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,15) GOTO 781 782 CONTINUE LINENO = 1985 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,16) CALL P$STO(0) CALL P$LODA(0,14) CALL P$STRA(0,16) LINENO = 1986 CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 783 778 CONTINUE LINENO = 1988 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 783 CONTINUE LINENO = 1989 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32432)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($784) LINENO = 1990 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32433)) CALL P$UNI CALL P$CUP(8) CALL P307 784 CONTINUE GOTO 785 777 CONTINUE LINENO = 1992 CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 785 CONTINUE GOTO 786 773 CONTINUE LINENO = 1995 LINENO = 1996 CALL P$LDO(1,13) CALL P$LDC(1,INTL(21)) CALL P$EQU(1,1) CALL P$FJP($787) LINENO = 1998 CALL P$LDC(1,INTL(1)) CALL P$STR(0,19) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 788 787 CONTINUE LINENO = 1999 CALL P$LDC(1,INTL(0)) CALL P$STR(0,19) 788 CONTINUE LINENO = 2000 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,15) LINENO = 2001 CALL P$LDC(1,INTL(0)) CALL P$STR(0,25) LINENO = 2002 789 CONTINUE LINENO = 2003 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($790) LINENO = 2004 CALL P$LDA(0,17) CALL P$LDC(1,INTL(10)) CALL P$NEW LINENO = 2005 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,26) LINENO = 2006 CALL P$LODA(0,26) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,26) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,26) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 2007 CALL P$LODA(0,26) CALL P$INC(0,INTL(7)) CALL P$LOD(0,19) CALL P$STO(1) CALL P$LODA(0,26) CALL P$INC(0,INTL(5)) CALL P$LODA(0,15) CALL P$STO(0) CALL P$LODA(0,26) CALL P$INC(0,INTL(8)) CALL P$LDO(1,62) CALL P$STO(1) LINENO = 2009 CALL P$MST(3) CALL P$LODA(0,17) CALL P$CUP(1) CALL P314 LINENO = 2010 CALL P$LODA(0,17) CALL P$STRA(0,15) CALL P$LOD(0,25) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,25) LINENO = 2011 CALL P$MST(3) CALL P$CUP(0) CALL P62 790 CONTINUE LINENO = 2013 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32434)) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($791) LINENO = 2014 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32435)) CALL P$UNI CALL P$CUP(8) CALL P307 791 CONTINUE LINENO = 2016 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(2,16) LINENO = 2017 CALL P$LOD(2,16) CALL P$NOT CALL P$FJP($792) CALL P$MST(3) CALL P$CUP(0) CALL P62 792 CONTINUE LINENO = 2018 CALL P$LOD(2,16) CALL P$FJP($789) LINENO = 2019 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($793) LINENO = 2020 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 2021 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($794) LINENO = 2022 CALL P$MST(3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32436)) CALL P$LDA(0,17) CALL P$CUP(9) CALL P337 LINENO = 2023 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,18) LINENO = 2024 CALL P$LDC(1,INTL(1)) CALL P$STR(0,24) LINENO = 2025 CALL P$LDC(1,INTL(0)) CALL P$STR(0,23) LINENO = 2026 CALL P$LODA(0,18) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($795) LINENO = 2027 CALL P$LOD(0,19) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($796) LINENO = 2028 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$LES(1,1) CALL P$FJP($797) CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,24) GOTO 798 797 CONTINUE LINENO = 2029 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($799) LINENO = 2030 CALL P$LDC(1,INTL(255)) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,24) LINENO = 2031 CALL P$MST(3) CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,21) CALL P$LDA(0,22) CALL P$CUP(3) CALL P364 LINENO = 2032 CALL P$LOD(0,21) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$STR(0,23) GOTO 800 799 CONTINUE LINENO = 2034 CALL P$LODA(0,18) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($801) CALL P$MST(3) CALL P$LDC(1,INTL(121)) CALL P$CUP(1) CALL P30 801 CONTINUE 800 CONTINUE 798 CONTINUE 796 CONTINUE 795 CONTINUE LINENO = 2035 CALL P$MST(3) CALL P$LDO(0,44) CALL P$LDA(0,24) CALL P$CUP(2) CALL P409 LINENO = 2036 CALL P$LODA(0,15) CALL P$STRA(0,14) LINENO = 2037 CALL P$MST(3) CALL P$LDO(0,44) CALL P$LAO(23) CALL P$CUP(2) CALL P409 LINENO = 2038 CALL P$LDO(1,23) CALL P$LOD(0,25) CALL P$LOD(0,24) CALL P$MPI CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) LINENO = 2039 CALL P$LDO(1,23) CALL P$STR(0,20) LINENO = 2040 802 CONTINUE LINENO = 2040 CALL P$LODA(0,15) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($803) LINENO = 2041 CALL P$LODA(0,15) CALL P$STRA(0,17) LINENO = 2042 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,26) LINENO = 2043 CALL P$LODA(0,26) CALL P$INC(0,INTL(4)) CALL P$LODA(0,18) CALL P$STO(0) LINENO = 2044 CALL P$LOD(0,20) CALL P$LOD(0,24) CALL P$SBI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,20) LINENO = 2045 CALL P$LODA(0,26) CALL P$INC(0,INTL(9)) CALL P$LOD(0,20) CALL P$LOD(0,23) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 2047 CALL P$LODA(0,15) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,15) GOTO 802 803 CONTINUE LINENO = 2049 CALL P$LODA(0,17) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,16) CALL P$STO(0) CALL P$LODA(0,14) CALL P$STRA(0,16) LINENO = 2050 CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 804 794 CONTINUE LINENO = 2052 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 804 CONTINUE LINENO = 2053 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32437)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($805) LINENO = 2054 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32438)) CALL P$UNI CALL P$CUP(8) CALL P307 805 CONTINUE GOTO 806 793 CONTINUE LINENO = 2056 CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 806 CONTINUE 786 CONTINUE 772 CONTINUE LINENO = 2059 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($807) LINENO = 2060 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 2061 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32439)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($808) LINENO = 2062 CALL P$MST(3) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32440)) CALL P$UNI CALL P$CUP(8) CALL P307 808 CONTINUE 807 CONTINUE GOTO 765 766 CONTINUE LINENO = 2065 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($809) LINENO = 2066 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 2067 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($810) LINENO = 2068 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LODS(2,5) CALL P$UNI CALL P$CUP(8) CALL P307 810 CONTINUE GOTO 811 809 CONTINUE LINENO = 2070 CALL P$MST(3) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 811 CONTINUE LINENO = 2071 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,14) LINENO = 2074 812 CONTINUE LINENO = 2074 CALL P$LODA(0,16) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($813) LINENO = 2075 CALL P$LODA(0,16) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,26) LINENO = 2076 CALL P$LODA(0,26) CALL P$IND(0,5) CALL P$STRA(0,15) CALL P$LODA(0,26) CALL P$INC(0,INTL(5)) CALL P$LODA(0,14) CALL P$STO(0) LINENO = 2077 CALL P$LODA(0,26) CALL P$IND(1,6) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($814) LINENO = 2078 CALL P$LODA(0,26) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($815) LINENO = 2079 CALL P$LODA(0,26) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$LODA(0,26) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$GRT(1,1) CALL P$AND CALL P$FJP($816) LINENO = 2080 CALL P$MST(3) CALL P$LODA(0,26) CALL P$IND(0,4) CALL P$LAO(23) CALL P$CUP(2) CALL P409 LINENO = 2081 CALL P$LODA(0,26) CALL P$INC(0,INTL(9)) CALL P$LDO(1,23) CALL P$STO(1) LINENO = 2082 CALL P$LDO(1,23) CALL P$LODA(0,26) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) 816 CONTINUE 815 CONTINUE 814 CONTINUE LINENO = 2084 CALL P$LODA(0,16) CALL P$STRA(0,14) CALL P$LODA(0,15) CALL P$STRA(0,16) GOTO 812 813 CONTINUE LINENO = 2086 CALL P$LODA(0,13) CALL P$LODA(0,14) CALL P$STO(0) GOTO 817 762 CONTINUE LINENO = 2088 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 817 CONTINUE CALL P$RET(0) RETURN 759 CONTINUE SG1SIZ = 27 SG2SIZ = 267 GOTO 760 END SUBROUTINE P757 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 818 99998 CALL P$UJC 819 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2092 CALL P$LDO(1,23) CALL P$STR(0,15) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) CALL P$LDC(3,INTL(0)) CALL P$STR(0,11) LINENO = 2093 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($820) LINENO = 2094 CALL P$MST(2) CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(0,0) CALL P$LDA(0,9) CALL P$CUP(2) CALL P326 LINENO = 2095 CALL P$LODA(0,9) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($821) LINENO = 2096 LINENO = 2097 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($822) LINENO = 2098 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(3,11) CALL P$LOD(0,5) CALL P$LDC(1,INTL(24)) CALL P$EQU(1,1) CALL P$AND CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,10) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$AND CALL P$STR(0,11) GOTO 823 822 CONTINUE LINENO = 2100 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($824) LINENO = 2101 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(3,11) CALL P$LOD(0,5) CALL P$LDC(1,INTL(22)) CALL P$EQU(1,1) CALL P$AND CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,10) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$AND CALL P$STR(0,11) GOTO 825 824 CONTINUE LINENO = 2102 CALL P$LDC(3,INTL(0)) CALL P$STR(0,11) 825 CONTINUE 823 CONTINUE LINENO = 2103 CALL P$LOD(0,11) CALL P$NOT CALL P$FJP($826) CALL P$MST(2) CALL P$LDC(1,INTL(160)) CALL P$CUP(1) CALL P30 826 CONTINUE 821 CONTINUE LINENO = 2105 CALL P$LOD(0,11) CALL P$NOT CALL P$FJP($827) LINENO = 2106 LINENO = 2107 CALL P$LOD(0,5) CALL P$LDC(1,INTL(24)) CALL P$EQU(1,1) CALL P$FJP($828) CALL P$LDA(0,9) CALL P$LDC(1,INTL(15)) CALL P$NEW GOTO 829 828 CONTINUE LINENO = 2108 CALL P$LDA(0,9) CALL P$LDC(1,INTL(15)) CALL P$NEW 829 CONTINUE LINENO = 2109 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,18) LINENO = 2110 CALL P$LODA(0,18) CALL P$LAO(18) CALL P$MOV(2) CALL P$LODA(0,18) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,18) CALL P$INC(0,INTL(13)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) LINENO = 2111 CALL P$LODA(0,18) CALL P$INC(0,INTL(12)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LODA(0,18) CALL P$INC(0,INTL(8)) CALL P$LDO(1,62) CALL P$STO(1) LINENO = 2112 CALL P$MST(2) CALL P$LDA(0,16) CALL P$CUP(1) CALL P412 LINENO = 2114 CALL P$LODA(0,18) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,18) CALL P$INC(0,INTL(10)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,18) CALL P$INC(0,INTL(9)) CALL P$LOD(0,16) CALL P$STO(1) LINENO = 2115 CALL P$LOD(0,5) CALL P$LDC(1,INTL(24)) CALL P$EQU(1,1) CALL P$FJP($830) CALL P$LODA(0,18) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) GOTO 831 830 CONTINUE LINENO = 2116 CALL P$LODA(0,18) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(5)) CALL P$STO(1) 831 CONTINUE LINENO = 2118 CALL P$MST(2) CALL P$LODA(0,9) CALL P$CUP(1) CALL P314 GOTO 832 827 CONTINUE LINENO = 2121 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,8) LINENO = 2122 833 CONTINUE LINENO = 2122 CALL P$LODA(0,8) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($834) LINENO = 2123 LINENO = 2124 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,18) LINENO = 2125 CALL P$LODA(0,18) CALL P$IND(1,6) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($835) LINENO = 2126 CALL P$LODA(0,18) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($836) LINENO = 2127 CALL P$LODA(0,18) CALL P$IND(1,9) CALL P$LODA(0,18) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,14) LINENO = 2128 CALL P$LOD(0,14) CALL P$LDO(1,23) CALL P$GRT(1,1) CALL P$FJP($837) CALL P$LOD(0,14) CALL P$SRO(1,23) 837 CONTINUE 836 CONTINUE 835 CONTINUE LINENO = 2130 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,8) GOTO 833 834 CONTINUE 832 CONTINUE LINENO = 2133 CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 838 820 CONTINUE LINENO = 2136 CALL P$MST(2) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$LDO(0,56) CALL P$STRA(0,9) 838 CONTINUE LINENO = 2138 CALL P$LDO(1,62) CALL P$STR(0,6) CALL P$LDO(1,64) CALL P$STR(0,12) LINENO = 2139 CALL P$LDO(1,62) CALL P$LDC(1,INTL(10)) CALL P$LES(1,1) CALL P$FJP($839) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,62) GOTO 840 839 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(251)) CALL P$CUP(1) CALL P30 840 CONTINUE LINENO = 2140 CALL P$LDO(1,64) CALL P$LDC(1,INTL(20)) CALL P$LES(1,1) CALL P$FJP($841) LINENO = 2141 CALL P$LDO(1,64) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) LINENO = 2142 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,18) LINENO = 2143 LINENO = 2144 CALL P$LOD(0,11) CALL P$FJP($842) CALL P$LODA(0,18) CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STO(0) GOTO 843 842 CONTINUE LINENO = 2145 CALL P$LODA(0,18) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 843 CONTINUE LINENO = 2146 CALL P$LODA(0,18) CALL P$INC(0,INTL(1)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 2147 CALL P$LODA(0,18) CALL P$INC(0,INTL(2)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 2148 CALL P$LODA(0,18) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) GOTO 844 841 CONTINUE LINENO = 2151 CALL P$MST(2) CALL P$LDC(1,INTL(250)) CALL P$CUP(1) CALL P30 844 CONTINUE LINENO = 2152 CALL P$LOD(0,5) CALL P$LDC(1,INTL(24)) CALL P$EQU(1,1) CALL P$FJP($845) LINENO = 2153 CALL P$MST(0) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32441)) CALL P$LDA(0,8) CALL P$CUP(9) CALL P758 LINENO = 2155 CALL P$LOD(0,11) CALL P$NOT CALL P$FJP($846) CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,8) CALL P$STO(0) 846 CONTINUE GOTO 847 845 CONTINUE LINENO = 2159 CALL P$MST(0) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32442)) CALL P$LDA(0,8) CALL P$CUP(9) CALL P758 LINENO = 2160 CALL P$LOD(0,11) CALL P$NOT CALL P$FJP($848) CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,8) CALL P$STO(0) 848 CONTINUE LINENO = 2162 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($849) LINENO = 2163 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 2164 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($850) LINENO = 2165 CALL P$LOD(0,11) CALL P$FJP($851) CALL P$MST(2) CALL P$LDC(1,INTL(122)) CALL P$CUP(1) CALL P30 851 CONTINUE LINENO = 2166 CALL P$MST(2) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32443)) CALL P$LDA(0,8) CALL P$CUP(9) CALL P337 LINENO = 2167 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,10) LINENO = 2168 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LODA(0,10) CALL P$STO(0) LINENO = 2169 CALL P$LODA(0,10) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($852) LINENO = 2170 CALL P$LODA(0,10) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32444)) CALL P$INN CALL P$NOT CALL P$FJP($853) LINENO = 2171 CALL P$MST(2) CALL P$LDC(1,INTL(120)) CALL P$CUP(1) CALL P30 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 853 CONTINUE 852 CONTINUE LINENO = 2172 CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 854 850 CONTINUE LINENO = 2174 CALL P$MST(2) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32445)) CALL P$UNI CALL P$CUP(8) CALL P307 854 CONTINUE GOTO 855 849 CONTINUE LINENO = 2177 CALL P$LOD(0,11) CALL P$NOT CALL P$FJP($856) CALL P$MST(2) CALL P$LDC(1,INTL(123)) CALL P$CUP(1) CALL P30 856 CONTINUE 855 CONTINUE 847 CONTINUE LINENO = 2179 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($857) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 858 857 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 858 CONTINUE LINENO = 2180 CALL P$LDO(1,13) CALL P$LDC(1,INTL(30)) CALL P$EQU(1,1) CALL P$FJP($859) LINENO = 2181 LINENO = 2182 CALL P$LOD(0,11) CALL P$FJP($860) CALL P$MST(2) CALL P$LDC(1,INTL(161)) CALL P$CUP(1) CALL P30 GOTO 861 860 CONTINUE LINENO = 2183 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(11)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) 861 CONTINUE LINENO = 2184 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 2185 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($862) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 863 862 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 863 CONTINUE LINENO = 2186 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$INN CALL P$NOT CALL P$FJP($864) LINENO = 2187 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P307 864 CONTINUE GOTO 865 859 CONTINUE LINENO = 2189 CALL P$LDO(1,13) CALL P$LDC(1,INTL(41)) CALL P$EQU(1,1) CALL P$FJP($866) LINENO = 2190 LINENO = 2191 CALL P$MST(2) CALL P$LDC(1,INTL(400)) CALL P$CUP(1) CALL P30 LINENO = 2192 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(12)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) LINENO = 2193 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 2194 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$FJP($867) CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 GOTO 868 867 CONTINUE LINENO = 2195 CALL P$MST(2) CALL P$CUP(0) CALL P62 868 CONTINUE LINENO = 2196 CALL P$MST(2) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32446)) CALL P$CUP(8) CALL P307 GOTO 869 866 CONTINUE LINENO = 2198 CALL P$LDO(1,13) CALL P$LDC(1,INTL(42)) CALL P$EQU(1,1) CALL P$FJP($870) LINENO = 2199 LINENO = 2200 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(13)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) LINENO = 2203 CALL P$LDO(0,58) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($871) LINENO = 2204 LINENO = 2205 CALL P$LODA(0,9) CALL P$SRO(0,58) LINENO = 2206 CALL P$LODA(0,9) CALL P$SRO(0,59) LINENO = 2207 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(14)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) GOTO 872 871 CONTINUE LINENO = 2210 LINENO = 2211 CALL P$LDO(0,59) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(14)) CALL P$LODA(0,9) CALL P$STO(0) LINENO = 2212 CALL P$LODA(0,9) CALL P$SRO(0,59) LINENO = 2213 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(14)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) 872 CONTINUE LINENO = 2215 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($873) LINENO = 2216 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$IOR CALL P$NOT CALL P$FJP($874) LINENO = 2217 CALL P$MST(2) CALL P$LDC(1,INTL(397)) CALL P$CUP(1) CALL P30 874 CONTINUE 873 CONTINUE LINENO = 2218 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 2219 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$FJP($875) CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 GOTO 876 875 CONTINUE LINENO = 2220 CALL P$MST(2) CALL P$CUP(0) CALL P62 876 CONTINUE LINENO = 2221 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32447)) CALL P$INN CALL P$NOT CALL P$FJP($877) LINENO = 2222 LINENO = 2223 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 LINENO = 2224 CALL P$MST(2) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32448)) CALL P$CUP(8) CALL P307 877 CONTINUE GOTO 878 870 CONTINUE LINENO = 2228 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(11)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LDA(0,17) CALL P$SAV LINENO = 2229 879 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(13)) CALL P$LODA(0,9) CALL P$CUP(10) CALL P422 LINENO = 2230 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($880) LINENO = 2231 CALL P$MST(2) CALL P$CUP(0) CALL P62 LINENO = 2232 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32449)) CALL P$INN CALL P$NOT CALL P$FJP($881) LINENO = 2233 CALL P$MST(2) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P307 881 CONTINUE GOTO 882 880 CONTINUE LINENO = 2235 CALL P$MST(2) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 882 CONTINUE LINENO = 2236 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32450)) CALL P$INN CALL P$LAO(5) CALL P$EOF CALL P$IOR CALL P$FJP($879) LINENO = 2237 CALL P$LODA(0,17) CALL P$RST 878 CONTINUE 869 CONTINUE 865 CONTINUE LINENO = 2239 CALL P$LOD(0,6) CALL P$SRO(1,62) CALL P$LOD(0,12) CALL P$SRO(1,64) CALL P$LOD(0,15) CALL P$SRO(1,23) CALL P$RET(0) RETURN 818 CONTINUE SG1SIZ = 19 SG2SIZ = 223 GOTO 819 END SUBROUTINE P884 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 885 99998 CALL P$UJC 886 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2263 CALL P$LOD(1,20) CALL P$LAO(6255) CALL P$LOD(0,5) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$STR(1,20) LINENO = 2264 CALL P$LOD(1,20) CALL P$LOD(1,19) CALL P$GRT(1,1) CALL P$FJP($887) CALL P$LOD(1,20) CALL P$STR(1,19) 887 CONTINUE CALL P$RET(0) RETURN 885 CONTINUE SG1SIZ = 6 SG2SIZ = 11 GOTO 886 END SUBROUTINE P888 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 889 99998 CALL P$UJC 890 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2275 CALL P$LOD(1,20) CALL P$LOD(0,5) CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$STR(1,20) LINENO = 2276 CALL P$LOD(1,20) CALL P$LOD(1,19) CALL P$GRT(1,1) CALL P$FJP($891) CALL P$LOD(1,20) CALL P$STR(1,19) 891 CONTINUE CALL P$RET(0) RETURN 889 CONTINUE SG1SIZ = 6 SG2SIZ = 11 GOTO 890 END SUBROUTINE P892 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 893 99998 CALL P$UJC 894 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2287 CALL P$LDO(3,33) CALL P$FJP($895) LINENO = 2288 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26415) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$WLN LINENO = 2289 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 895 CONTINUE CALL P$RET(0) RETURN 893 CONTINUE SG1SIZ = 6 SG2SIZ = 13 GOTO 894 END SUBROUTINE P896 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 897 99998 CALL P$UJC 898 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2305 CALL P$LDO(3,33) CALL P$FJP($899) LINENO = 2306 CALL P$LOD(0,5) CALL P$LDC(1,INTL(30)) CALL P$EQU(1,1) CALL P$FJP($900) LINENO = 2307 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26416) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6197) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$WLN LINENO = 2308 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 2309 CALL P$LOD(1,20) CALL P$LAO(6321) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$STR(1,20) LINENO = 2310 CALL P$LOD(1,20) CALL P$LOD(1,19) CALL P$GRT(1,1) CALL P$FJP($901) CALL P$LOD(1,20) CALL P$STR(1,19) 901 CONTINUE GOTO 902 900 CONTINUE LINENO = 2312 LINENO = 2313 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26417) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2314 CALL P$LAO(11) CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI SP=SP-1 LINENO = 2315 CALL P$LAO(11) CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2316 CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 LINENO = 2317 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 902 CONTINUE 899 CONTINUE CALL P$RET(0) RETURN 897 CONTINUE SG1SIZ = 8 SG2SIZ = 15 GOTO 898 END SUBROUTINE P903 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 904 99998 CALL P$UJC 905 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2332 CALL P$LDO(3,33) CALL P$FJP($906) LINENO = 2333 CALL P$LOD(0,5) CALL P$LDC(1,INTL(30)) CALL P$EQU(1,1) CALL P$FJP($907) LINENO = 2334 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26418) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6197) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2335 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 2336 CALL P$LOD(1,20) CALL P$LAO(6321) CALL P$LOD(0,6) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$STR(1,20) LINENO = 2337 CALL P$LOD(1,20) CALL P$LOD(1,19) CALL P$GRT(1,1) CALL P$FJP($908) CALL P$LOD(1,20) CALL P$STR(1,19) 908 CONTINUE GOTO 909 907 CONTINUE LINENO = 2339 LINENO = 2340 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26419) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2341 CALL P$LOD(0,5) CALL P$LDC(1,INTL(45)) CALL P$EQU(1,1) CALL P$FJP($910) LINENO = 2342 CALL P$LAO(11) CALL P$LCA(26420) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26422) CALL P$LDC(1,INTL(8)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 911 910 CONTINUE LINENO = 2343 CALL P$LAO(11) CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$WRI SP=SP-1 911 CONTINUE LINENO = 2344 CALL P$LAO(11) CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2345 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 2346 CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 909 CONTINUE 906 CONTINUE CALL P$RET(0) RETURN 904 CONTINUE SG1SIZ = 10 SG2SIZ = 17 GOTO 905 END SUBROUTINE P912 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 913 99998 CALL P$UJC 914 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2359 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($915) LINENO = 2360 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 2361 CALL P$LODA(0,6) CALL P$IND(1,3) GOTO 916 918 CONTINUE LINENO = 2363 CALL P$LODA(0,5) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($919) CALL P$LAO(11) CALL P$LDC(6,INTL(177)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 920 919 CONTINUE LINENO = 2364 CALL P$LODA(0,5) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$FJP($921) CALL P$LAO(11) CALL P$LDC(6,INTL(179)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 922 921 CONTINUE LINENO = 2365 CALL P$LODA(0,5) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$FJP($923) CALL P$LAO(11) CALL P$LDC(6,INTL(182)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 924 923 CONTINUE LINENO = 2366 CALL P$LODA(0,6) CALL P$IND(1,4) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($925) CALL P$LAO(11) CALL P$LDC(6,INTL(177)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 926 925 CONTINUE LINENO = 2367 CALL P$LAO(11) CALL P$LDC(6,INTL(178)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 926 CONTINUE 924 CONTINUE 922 CONTINUE 920 CONTINUE GOTO 917 927 CONTINUE LINENO = 2368 CALL P$MST(1) CALL P$LODA(0,6) CALL P$IND(0,4) CALL P$CUP(1) CALL P912 GOTO 917 928 CONTINUE LINENO = 2369 CALL P$LAO(11) CALL P$LDC(6,INTL(176)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 917 929 CONTINUE LINENO = 2370 CALL P$LAO(11) CALL P$LDC(6,INTL(180)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 917 930 CONTINUE LINENO = 2372 CALL P$LAO(11) CALL P$LDC(6,INTL(181)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 917 931 CONTINUE LINENO = 2375 CALL P$MST(3) CALL P$LDC(1,INTL(352)) CALL P$CUP(1) CALL P30 GOTO 917 916 CONTINUE CALL P$CHK(INTL(0),INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($932) 932 CONTINUE 933 GOTO 918 934 GOTO 927 935 GOTO 928 936 GOTO 929 937 GOTO 930 938 GOTO 930 939 GOTO 931 940 GOTO 931 941 GOTO 931 917 CONTINUE 915 CONTINUE CALL P$RET(0) RETURN 913 CONTINUE SG1SIZ = 7 SG2SIZ = 29 GOTO 914 END SUBROUTINE P942 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 943 99998 CALL P$UJC 944 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2384 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($945) LINENO = 2385 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($946) LINENO = 2386 CALL P$LAO(11) CALL P$LDC(6,INTL(211)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 947 946 CONTINUE LINENO = 2387 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($948) LINENO = 2388 CALL P$LAO(11) CALL P$LDC(6,INTL(193)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 948 CONTINUE 947 CONTINUE 945 CONTINUE CALL P$RET(0) RETURN 943 CONTINUE SG1SIZ = 6 SG2SIZ = 13 GOTO 944 END SUBROUTINE P949 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 950 99998 CALL P$UJC 951 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2396 CALL P$LDO(3,33) CALL P$FJP($952) LINENO = 2397 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26424) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2398 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P912 CALL P$LAO(11) CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2399 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 952 CONTINUE CALL P$RET(0) RETURN 950 CONTINUE SG1SIZ = 7 SG2SIZ = 15 GOTO 951 END SUBROUTINE P953 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 954 99998 CALL P$UJC 955 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2412 CALL P$LDO(3,33) CALL P$FJP($956) LINENO = 2413 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26425) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2414 CALL P$MST(1) CALL P$LODA(0,7) CALL P$CUP(1) CALL P912 LINENO = 2415 CALL P$LOD(0,5) CALL P$LDC(1,INTL(31)) CALL P$NEQ(1,1) CALL P$LOD(0,5) CALL P$LDC(1,INTL(34)) CALL P$NEQ(1,1) CALL P$AND CALL P$LOD(0,5) CALL P$LDC(1,INTL(51)) CALL P$NEQ(1,1) CALL P$AND CALL P$FJP($957) LINENO = 2416 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN GOTO 958 957 CONTINUE LINENO = 2418 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LCA(26426) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26428) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$WLN 958 CONTINUE LINENO = 2419 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 956 CONTINUE CALL P$RET(0) RETURN 954 CONTINUE SG1SIZ = 8 SG2SIZ = 17 GOTO 955 END SUBROUTINE P959 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 960 99998 CALL P$UJC 961 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2428 CALL P$LDO(3,33) CALL P$FJP($962) LINENO = 2429 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26429) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS SP=SP-1 LINENO = 2430 CALL P$MST(1) CALL P$LODA(0,8) CALL P$CUP(1) CALL P942 LINENO = 2431 CALL P$LOD(0,5) CALL P$LDC(1,INTL(45)) CALL P$EQU(1,1) CALL P$FJP($963) LINENO = 2432 CALL P$LAO(11) CALL P$LCA(26430) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26432) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26434) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$WLN GOTO 964 963 CONTINUE LINENO = 2434 CALL P$LAO(11) CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN 964 CONTINUE LINENO = 2435 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 962 CONTINUE CALL P$RET(0) RETURN 960 CONTINUE SG1SIZ = 9 SG2SIZ = 17 GOTO 961 END SUBROUTINE P965 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 966 99998 CALL P$UJC 967 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2445 CALL P$LDO(3,33) CALL P$FJP($968) LINENO = 2446 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26435) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS SP=SP-1 LINENO = 2447 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($969) LINENO = 2449 CALL P$MST(1) CALL P$LDO(0,45) CALL P$CUP(1) CALL P912 LINENO = 2450 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2451 CALL P$LAO(11) CALL P$LCA(26438) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS SP=SP-1 LINENO = 2452 CALL P$LODA(0,6) CALL P$IND(0,1) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,7) LINENO = 2453 CALL P$LAO(11) CALL P$LODA(0,7) CALL P$IND(1,3) CALL P$LDC(1,INTL(256)) CALL P$MPI CALL P$LODA(0,7) CALL P$IND(1,2) CALL P$ADI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26440) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$WLN LINENO = 2454 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 2455 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26441) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS SP=SP-1 LINENO = 2456 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CUP(1) CALL P912 LINENO = 2457 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2458 CALL P$LAO(11) CALL P$LCA(26444) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LDC(1,INTL(32367)) CALL P$LODA(0,7) CALL P$IND(1,1) CALL P$ADI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2459 CALL P$MST(1) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P888 GOTO 970 969 CONTINUE LINENO = 2462 LINENO = 2463 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CUP(1) CALL P912 LINENO = 2464 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2465 CALL P$LODA(0,5) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($971) LINENO = 2466 CALL P$LODA(0,6) CALL P$IND(0,1) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,7) LINENO = 2467 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,13026) CALL P$LDC(1,INTL(16)) CALL P$STR(0,8) 972 CONTINUE CALL P$LDO(1,13026) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($973) LINENO = 2468 CALL P$LAO(11) CALL P$LODA(0,7) CALL P$INC(0,INTL(1)) CALL P$LDO(1,13026) CALL P$CHK(INTL(1),INTL(16)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LDO(1,13026) CALL P$INC(1,INTL(1)) CALL P$SRO(1,13026) GOTO 972 973 CONTINUE GOTO 974 971 CONTINUE LINENO = 2470 CALL P$LAO(11) CALL P$LCA(26446) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LODA(0,6) CALL P$IND(1,1) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 974 CONTINUE 970 CONTINUE LINENO = 2472 CALL P$LAO(11) CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2473 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LDC(1,INTL(51)) CALL P$CUP(1) CALL P884 968 CONTINUE CALL P$RET(0) RETURN 966 CONTINUE SG1SIZ = 9 SG2SIZ = 37 GOTO 967 END SUBROUTINE P975 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 976 99998 CALL P$UJC 977 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2484 CALL P$LDO(3,33) CALL P$FJP($978) LINENO = 2485 CALL P$MST(3) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,7) CALL P$LDA(0,6) CALL P$CUP(3) CALL P364 LINENO = 2486 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26448) CALL P$LDC(1,INTL(13)) CALL P$LDC(1,INTL(13)) CALL P$WRS CALL P$LCA(26452) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,7) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$LDC(1,INTL(256)) CALL P$MPI CALL P$LOD(0,6) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$ADI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26454) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$WLN LINENO = 2488 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 978 CONTINUE CALL P$RET(0) RETURN 976 CONTINUE SG1SIZ = 8 SG2SIZ = 19 GOTO 977 END SUBROUTINE P979 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 980 99998 CALL P$UJC 981 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2497 LINENO = 2498 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($982) LINENO = 2499 CALL P$LDO(1,228) GOTO 983 985 CONTINUE LINENO = 2501 CALL P$MST(1) CALL P$LDO(0,227) CALL P$LAO(229) CALL P$CUP(2) CALL P965 GOTO 984 986 CONTINUE LINENO = 2503 LINENO = 2504 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($987) LINENO = 2505 CALL P$MST(1) CALL P$LDO(0,227) CALL P$CUP(1) CALL P975 LINENO = 2506 CALL P$MST(1) CALL P$LDC(1,INTL(7)) CALL P$CUP(1) CALL P888 987 CONTINUE LINENO = 2507 CALL P$LDO(1,229) GOTO 988 990 CONTINUE LINENO = 2509 CALL P$LDO(1,230) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($991) LINENO = 2510 CALL P$MST(1) CALL P$LDC(1,INTL(39)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,231) CALL P$LDO(0,227) CALL P$CUP(3) CALL P953 GOTO 992 991 CONTINUE LINENO = 2512 CALL P$MST(1) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDO(1,230) CALL P$SBI CALL P$LDO(1,231) CALL P$LDO(0,227) CALL P$CUP(4) CALL P959 992 CONTINUE GOTO 989 993 CONTINUE LINENO = 2513 CALL P$MST(1) CALL P$LDC(1,INTL(35)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,230) CALL P$LDO(0,227) CALL P$CUP(3) CALL P953 GOTO 989 994 CONTINUE LINENO = 2514 CALL P$MST(1) CALL P$LDC(1,INTL(61)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 989 988 CONTINUE CALL P$CHK(INTL(0),INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($995) 995 CONTINUE 996 GOTO 990 997 GOTO 993 998 GOTO 994 989 CONTINUE GOTO 984 999 CONTINUE GOTO 984 983 CONTINUE CALL P$CHK(INTL(0),INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1000) 1000 CONTINUE 1001 GOTO 985 1002 GOTO 986 1003 GOTO 999 984 CONTINUE LINENO = 2519 CALL P$LDC(1,INTL(2)) CALL P$SRO(1,228) 982 CONTINUE CALL P$RET(0) RETURN 980 CONTINUE SG1SIZ = 5 SG2SIZ = 41 GOTO 981 END SUBROUTINE P1004 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1005 99998 CALL P$UJC 1006 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2528 CALL P$LODA(0,5) CALL P$STRA(0,6) LINENO = 2529 CALL P$LODA(0,6) CALL P$IND(0,0) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1007) LINENO = 2530 LINENO = 2531 CALL P$LODA(0,6) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($1008) LINENO = 2532 CALL P$MST(1) CALL P$LODA(0,6) CALL P$IND(0,0) CALL P$CUP(1) CALL P975 LINENO = 2533 CALL P$MST(1) CALL P$LDC(1,INTL(7)) CALL P$NGI CALL P$CUP(1) CALL P888 1008 CONTINUE LINENO = 2534 CALL P$LODA(0,6) CALL P$IND(1,2) GOTO 1009 1011 CONTINUE LINENO = 2535 CALL P$LODA(0,6) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($1012) CALL P$MST(1) CALL P$LDC(1,INTL(43)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,6) CALL P$IND(1,4) CALL P$LODA(0,6) CALL P$IND(0,0) CALL P$CUP(3) CALL P953 GOTO 1013 1012 CONTINUE LINENO = 2536 CALL P$MST(1) CALL P$LDC(1,INTL(56)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LODA(0,6) CALL P$IND(1,3) CALL P$SBI CALL P$LODA(0,6) CALL P$IND(1,4) CALL P$LODA(0,6) CALL P$IND(0,0) CALL P$CUP(4) CALL P959 1013 CONTINUE GOTO 1010 1014 CONTINUE LINENO = 2537 CALL P$LODA(0,6) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($1015) CALL P$MST(3) CALL P$LDC(1,INTL(353)) CALL P$CUP(1) CALL P30 GOTO 1016 1015 CONTINUE LINENO = 2538 CALL P$MST(1) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,6) CALL P$IND(0,0) CALL P$CUP(2) CALL P949 1016 CONTINUE GOTO 1010 1017 CONTINUE LINENO = 2539 CALL P$MST(1) CALL P$LDC(1,INTL(62)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1010 1009 CONTINUE CALL P$CHK(INTL(0),INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1018) 1018 CONTINUE 1019 GOTO 1011 1020 GOTO 1014 1021 GOTO 1017 1010 CONTINUE 1007 CONTINUE CALL P$RET(0) RETURN 1005 CONTINUE SG1SIZ = 7 SG2SIZ = 35 GOTO 1006 END SUBROUTINE P1022 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1023 99998 CALL P$UJC 1024 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2546 LINENO = 2547 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1025) LINENO = 2548 LINENO = 2549 CALL P$LDO(1,228) GOTO 1026 1028 CONTINUE LINENO = 2550 CALL P$MST(2) CALL P$LDO(0,227) CALL P$CUP(1) CALL P496 CALL P$FJP($1029) LINENO = 2551 CALL P$LDO(0,230) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 2552 CALL P$MST(1) CALL P$LDC(1,INTL(38)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,5) CALL P$IND(1,2) CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$LDC(1,INTL(26223)) CALL P$ADI CALL P$CUP(2) CALL P896 GOTO 1030 1029 CONTINUE LINENO = 2553 CALL P$MST(3) CALL P$LDC(1,INTL(356)) CALL P$CUP(1) CALL P30 1030 CONTINUE GOTO 1027 1031 CONTINUE LINENO = 2554 LINENO = 2555 CALL P$LDO(1,229) GOTO 1032 1034 CONTINUE LINENO = 2556 CALL P$LDO(1,230) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($1035) CALL P$MST(1) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,231) CALL P$CUP(2) CALL P896 GOTO 1036 1035 CONTINUE LINENO = 2557 CALL P$MST(1) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDO(1,230) CALL P$SBI CALL P$LDO(1,231) CALL P$CUP(3) CALL P903 1036 CONTINUE GOTO 1033 1037 CONTINUE LINENO = 2558 CALL P$LDO(1,230) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($1038) LINENO = 2559 CALL P$MST(1) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,230) CALL P$LDO(0,49) CALL P$CUP(3) CALL P953 1038 CONTINUE GOTO 1033 1039 CONTINUE LINENO = 2560 CALL P$MST(3) CALL P$LDC(1,INTL(354)) CALL P$CUP(1) CALL P30 GOTO 1033 1032 CONTINUE CALL P$CHK(INTL(0),INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1040) 1040 CONTINUE 1041 GOTO 1034 1042 GOTO 1037 1043 GOTO 1039 1033 CONTINUE GOTO 1027 1044 CONTINUE LINENO = 2563 CALL P$MST(3) CALL P$LDC(1,INTL(355)) CALL P$CUP(1) CALL P30 GOTO 1027 1026 CONTINUE CALL P$CHK(INTL(0),INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1045) 1045 CONTINUE 1046 GOTO 1028 1047 GOTO 1031 1048 GOTO 1044 1027 CONTINUE LINENO = 2565 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,228) CALL P$LDC(1,INTL(1)) CALL P$SRO(1,229) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,230) 1025 CONTINUE CALL P$RET(0) RETURN 1023 CONTINUE SG1SIZ = 6 SG2SIZ = 35 GOTO 1024 END SUBROUTINE P1049 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1050 99998 CALL P$UJC 1051 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2571 CALL P$MST(1) CALL P$CUP(0) CALL P979 LINENO = 2572 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1052) LINENO = 2573 CALL P$LDO(0,227) CALL P$LDO(0,48) CALL P$NEQ(0,1) CALL P$FJP($1053) CALL P$MST(3) CALL P$LDC(1,INTL(144)) CALL P$CUP(1) CALL P30 1053 CONTINUE 1052 CONTINUE LINENO = 2574 CALL P$LDO(3,33) CALL P$FJP($1054) CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26455) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LCA(26456) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$LOD(0,5) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN 1054 CONTINUE LINENO = 2575 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LDC(1,INTL(33)) CALL P$CUP(1) CALL P884 CALL P$RET(0) RETURN 1050 CONTINUE SG1SIZ = 6 SG2SIZ = 15 GOTO 1051 END SUBROUTINE P1055 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1056 99998 CALL P$UJC 1057 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2580 CALL P$LDO(3,33) CALL P$FJP($1058) LINENO = 2581 CALL P$LOD(0,5) CALL P$LDC(1,INTL(57)) CALL P$EQU(1,1) CALL P$FJP($1059) CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26457) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN GOTO 1060 1059 CONTINUE LINENO = 2582 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26459) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LCA(26460) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN 1060 CONTINUE 1058 CONTINUE LINENO = 2583 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 CALL P$RET(0) RETURN 1056 CONTINUE SG1SIZ = 7 SG2SIZ = 13 GOTO 1057 END SUBROUTINE P1061 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1062 99998 CALL P$UJC 1063 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2595 CALL P$LDO(3,33) CALL P$FJP($1064) LINENO = 2596 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26461) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2597 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26462) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN 1064 CONTINUE LINENO = 2598 CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 CALL P$RET(0) RETURN 1062 CONTINUE SG1SIZ = 8 SG2SIZ = 13 GOTO 1063 END SUBROUTINE P1065 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1066 99998 CALL P$UJC 1067 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) CALL P$LDA(0,9) CALL P$LODA(0,7) CALL P$MOV(2) LINENO = 2612 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,13) LINENO = 2613 CALL P$LDC(1,INTL(1)) CALL P$STR(0,11) CALL P$LDC(3,INTL(1)) CALL P$STR(0,12) LINENO = 2614 CALL P$LDA(0,9) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(160)) CALL P$SPC LINENO = 2615 CALL P$LDA(0,9) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$LDC(6,INTL(160)) CALL P$SPC LINENO = 2616 CALL P$LDO(3,33) CALL P$FJP($1068) LINENO = 2617 LINENO = 2619 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26464) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LOD(0,5) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2621 CALL P$MST(1) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LOD(0,6) CALL P$LDC(1,INTL(4)) CALL P$ADI CALL P$CUP(3) CALL P903 LINENO = 2623 CALL P$MST(1) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$CUP(3) CALL P903 LINENO = 2626 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1069) LINENO = 2627 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26465) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS SP=SP-1 GOTO 1070 1069 CONTINUE LINENO = 2629 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1071) LINENO = 2630 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26467) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(4)) CALL P$ADI CALL P$LDC(1,INTL(10)) CALL P$WRI CALL P$LCA(26470) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS SP=SP-1 GOTO 1072 1071 CONTINUE LINENO = 2632 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26471) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$LOD(0,6) CALL P$LDC(1,INTL(4)) CALL P$ADI CALL P$LDC(1,INTL(10)) CALL P$WRI CALL P$LCA(26474) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS SP=SP-1 1072 CONTINUE 1070 CONTINUE LINENO = 2633 CALL P$LAO(11) CALL P$LDA(0,9) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(8)) CALL P$WRS SP=SP-1 LINENO = 2634 1073 CONTINUE LINENO = 2634 CALL P$LOD(0,11) CALL P$LOD(0,6) CALL P$LEQ(1,1) CALL P$FJP($1074) LINENO = 2635 LINENO = 2636 CALL P$LOD(0,12) CALL P$FJP($1075) LINENO = 2637 LINENO = 2638 CALL P$LDC(3,INTL(0)) CALL P$STR(0,12) LINENO = 2639 CALL P$LAO(11) CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 1076 1075 CONTINUE LINENO = 2642 CALL P$LAO(11) CALL P$LCA(26475) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS SP=SP-1 1076 CONTINUE LINENO = 2643 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1077) LINENO = 2644 CALL P$LAO(11) CALL P$LCA(26476) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LOD(0,6) CALL P$LOD(0,11) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 GOTO 1078 1077 CONTINUE LINENO = 2646 CALL P$LAO(11) CALL P$LCA(26479) CALL P$LDC(1,INTL(15)) CALL P$LDC(1,INTL(15)) CALL P$WRS CALL P$LOD(0,6) CALL P$LOD(0,11) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26483) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS SP=SP-1 1078 CONTINUE LINENO = 2647 CALL P$LOD(0,11) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,11) LINENO = 2648 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,13) GOTO 1073 1074 CONTINUE LINENO = 2650 CALL P$LAO(11) CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 2651 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1079) LINENO = 2652 CALL P$MST(1) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$CUP(2) CALL P896 GOTO 1080 1079 CONTINUE LINENO = 2654 CALL P$MST(1) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$CUP(2) CALL P896 1080 CONTINUE LINENO = 2655 CALL P$LDO(1,24) CALL P$LDC(1,INTL(3)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 2656 CALL P$MST(1) CALL P$LOD(0,5) CALL P$CUP(1) CALL P884 CALL P$MST(1) CALL P$LDC(1,INTL(42)) CALL P$CUP(1) CALL P884 1068 CONTINUE CALL P$RET(0) RETURN 1066 CONTINUE SG1SIZ = 14 SG2SIZ = 45 GOTO 1067 END SUBROUTINE P1081 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1082 99998 CALL P$UJC 1083 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2666 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1084) LINENO = 2667 CALL P$LODA(0,5) CALL P$LDO(0,45) CALL P$NEQ(0,1) CALL P$FJP($1085) LINENO = 2668 CALL P$LODA(0,5) CALL P$LDO(0,46) CALL P$NEQ(0,1) CALL P$FJP($1086) LINENO = 2669 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($1087) LINENO = 2670 LINENO = 2671 CALL P$MST(3) CALL P$LODA(0,5) CALL P$LDA(0,7) CALL P$LDA(0,6) CALL P$CUP(3) CALL P364 LINENO = 2672 CALL P$MST(1) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,7) CALL P$LOD(0,6) CALL P$LODA(0,5) CALL P$CUP(4) CALL P959 1087 CONTINUE 1086 CONTINUE 1085 CONTINUE 1084 CONTINUE CALL P$RET(0) RETURN 1082 CONTINUE SG1SIZ = 8 SG2SIZ = 19 GOTO 1083 END SUBROUTINE P1088 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1089 99998 CALL P$UJC 1090 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2682 CALL P$LDO(3,37) CALL P$FJP($1091) CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) GOTO 1092 1091 CONTINUE LINENO = 2683 CALL P$LDO(3,36) CALL P$NOT CALL P$FJP($1093) CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) GOTO 1094 1093 CONTINUE LINENO = 2684 CALL P$LODA(0,5) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1095) CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) GOTO 1096 1095 CONTINUE LINENO = 2685 LINENO = 2686 CALL P$MST(3) CALL P$LODA(0,5) CALL P$LDA(0,10) CALL P$LDA(0,8) CALL P$CUP(3) CALL P364 LINENO = 2687 CALL P$MST(3) CALL P$LODA(0,6) CALL P$LDA(0,9) CALL P$LDA(0,7) CALL P$CUP(3) CALL P364 LINENO = 2688 CALL P$LOD(0,9) CALL P$LOD(0,10) CALL P$LES(1,1) CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$GRT(1,1) CALL P$IOR CALL P$STR(0,0) 1096 CONTINUE 1094 CONTINUE 1092 CONTINUE CALL P$RET(1) RETURN 1089 CONTINUE SG1SIZ = 11 SG2SIZ = 23 GOTO 1090 END SUBROUTINE P1097 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1098 99998 CALL P$UJC 1099 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2695 CALL P$LDO(3,33) CALL P$FJP($1100) LINENO = 2696 CALL P$LAO(11) CALL P$LOD(0,5) CALL P$LDC(1,INTL(5)) CALL P$WRI CALL P$LCA(26484) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$WLN LINENO = 2697 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 1100 CONTINUE CALL P$RET(0) RETURN 1098 CONTINUE SG1SIZ = 6 SG2SIZ = 13 GOTO 1099 END SUBROUTINE P1104 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1105 99998 CALL P$UJC 1106 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2713 CALL P$LODA(0,5) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 2714 CALL P$LODA(0,6) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1107) LINENO = 2715 CALL P$LODA(0,5) CALL P$LODA(0,6) CALL P$IND(0,4) CALL P$STO(0) 1107 CONTINUE CALL P$RET(0) RETURN 1105 CONTINUE SG1SIZ = 7 SG2SIZ = 9 GOTO 1106 END SUBROUTINE P1108 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1109 99998 CALL P$UJC 1110 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2723 CALL P$LODA(0,5) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$LDO(1,13) CALL P$LDC(1,INTL(15)) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($1111) CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) GOTO 1112 1111 CONTINUE LINENO = 2725 LINENO = 2726 CALL P$LODA(0,5) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1113) LINENO = 2727 1114 CONTINUE LINENO = 2727 CALL P$LODA(0,5) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1115) LINENO = 2728 CALL P$LODA(0,5) CALL P$LODA(0,5) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STO(0) GOTO 1114 1115 CONTINUE 1113 CONTINUE LINENO = 2729 CALL P$LODA(0,5) CALL P$IND(0,0) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$STR(0,0) 1112 CONTINUE CALL P$RET(1) RETURN 1109 CONTINUE SG1SIZ = 6 SG2SIZ = 11 GOTO 1110 END SUBROUTINE P1116 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1117 99998 CALL P$UJC 1118 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2746 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,24) LINENO = 2747 CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$SRO(0,227) CALL P$LDC(1,INTL(1)) CALL P$SRO(1,228) LINENO = 2748 CALL P$LODA(0,24) CALL P$IND(1,6) GOTO 1119 1121 CONTINUE LINENO = 2750 CALL P$LODA(0,24) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1122) LINENO = 2751 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,229) CALL P$LODA(0,24) CALL P$IND(1,8) CALL P$SRO(1,230) LINENO = 2752 CALL P$LODA(0,24) CALL P$IND(1,8) CALL P$STR(1,15) CALL P$LODA(0,24) CALL P$IND(1,9) CALL P$SRO(1,231) GOTO 1123 1122 CONTINUE LINENO = 2755 CALL P$MST(2) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LODA(0,24) CALL P$IND(1,8) CALL P$SBI CALL P$LODA(0,24) CALL P$IND(1,9) CALL P$LDO(0,49) CALL P$CUP(4) CALL P959 LINENO = 2756 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,229) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,230) 1123 CONTINUE GOTO 1120 1124 CONTINUE LINENO = 2759 CALL P$LAO(65) CALL P$LDO(1,63) CALL P$IXA(6) CALL P$STRA(0,25) LINENO = 2760 CALL P$LODA(0,25) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1125) LINENO = 2761 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,229) CALL P$LODA(0,25) CALL P$IND(1,4) CALL P$SRO(1,230) LINENO = 2762 CALL P$LODA(0,25) CALL P$IND(1,5) CALL P$LODA(0,24) CALL P$IND(1,7) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,231) GOTO 1126 1125 CONTINUE LINENO = 2765 LINENO = 2766 CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1127) CALL P$MST(2) CALL P$LDC(1,INTL(39)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,25) CALL P$IND(1,4) CALL P$LDO(0,49) CALL P$CUP(3) CALL P953 GOTO 1128 1127 CONTINUE LINENO = 2767 CALL P$MST(2) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LODA(0,25) CALL P$IND(1,4) CALL P$LDO(0,49) CALL P$CUP(4) CALL P959 1128 CONTINUE LINENO = 2768 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,229) CALL P$LODA(0,24) CALL P$IND(1,7) CALL P$SRO(1,230) 1126 CONTINUE GOTO 1120 1129 CONTINUE LINENO = 2771 CALL P$LODA(0,24) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1130) LINENO = 2772 CALL P$MST(4) CALL P$LDC(1,INTL(150)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) GOTO 1131 1130 CONTINUE LINENO = 2774 LINENO = 2775 CALL P$LODA(0,24) CALL P$IND(1,10) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1132) CALL P$MST(4) CALL P$LDC(1,INTL(151)) CALL P$CUP(1) CALL P30 GOTO 1133 1132 CONTINUE LINENO = 2777 CALL P$LODA(0,24) CALL P$IND(1,8) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDO(1,62) CALL P$NEQ(1,1) CALL P$LODA(3,14) CALL P$LODA(0,13) CALL P$NEQ(0,1) CALL P$IOR CALL P$FJP($1134) CALL P$MST(4) CALL P$LDC(1,INTL(177)) CALL P$CUP(1) CALL P30 1134 CONTINUE 1133 CONTINUE LINENO = 2778 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,229) CALL P$LODA(0,24) CALL P$IND(1,8) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,230) LINENO = 2779 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,231) 1131 CONTINUE GOTO 1120 1119 CONTINUE CALL P$CHK(INTL(2),INTL(5)) CALL P$LDC(1,INTL(2)) CALL P$SBI CALL P$XJP($1135) 1135 CONTINUE 1136 GOTO 1121 1137 GOTO 1124 1138 GOTO 99998 1139 GOTO 1129 1120 CONTINUE LINENO = 2784 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,240) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($1140) LINENO = 2785 CALL P$MST(4) CALL P$LDC(1,INTL(59)) CALL P$CUP(1) CALL P30 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,240) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$UNI CALL P$CUP(8) CALL P307 1140 CONTINUE LINENO = 2786 CALL P$LOD(1,17) CALL P$NOT CALL P$FJP($1141) LINENO = 2787 CALL P$LDO(0,227) CALL P$STRA(0,20) CALL P$LDC(3,INTL(1)) CALL P$STR(1,17) LINENO = 2788 CALL P$MST(1) CALL P$LDA(0,20) CALL P$CUP(1) CALL P1108 CALL P$NOT CALL P$FJP($1142) LINENO = 2789 CALL P$LOD(1,16) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32451)) CALL P$INN CALL P$FJP($1143) LINENO = 2790 CALL P$LDO(3,42) CALL P$NOT CALL P$FJP($1144) CALL P$MST(4) CALL P$LDC(1,INTL(176)) CALL P$CUP(1) CALL P30 1144 CONTINUE LINENO = 2791 CALL P$MST(2) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LDC(1,INTL(7)) CALL P$CUP(3) CALL P903 GOTO 1145 1143 CONTINUE LINENO = 2793 LINENO = 2794 CALL P$LDO(3,43) CALL P$NOT CALL P$FJP($1146) CALL P$MST(4) CALL P$LDC(1,INTL(175)) CALL P$CUP(1) CALL P30 1146 CONTINUE LINENO = 2795 CALL P$MST(2) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LDC(1,INTL(5)) CALL P$CUP(3) CALL P903 1145 CONTINUE GOTO 1147 1142 CONTINUE LINENO = 2798 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$NEQ(1,1) CALL P$FJP($1148) CALL P$MST(2) CALL P$CUP(0) CALL P1022 1148 CONTINUE 1147 CONTINUE 1141 CONTINUE LINENO = 2801 1149 CONTINUE LINENO = 2801 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,240) CALL P$INN CALL P$FJP($1150) LINENO = 2802 LINENO = 2803 CALL P$LDO(1,13) CALL P$LDC(1,INTL(10)) CALL P$EQU(1,1) CALL P$FJP($1151) LINENO = 2804 LINENO = 2805 1152 CONTINUE CALL P$LDA(0,14) CALL P$LAO(227) CALL P$MOV(5) LINENO = 2806 LINENO = 2807 CALL P$LODA(0,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1153) LINENO = 2808 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$NEQ(1,1) CALL P$FJP($1154) LINENO = 2809 CALL P$MST(4) CALL P$LDC(1,INTL(138)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,14) 1154 CONTINUE 1153 CONTINUE LINENO = 2810 CALL P$MST(2) CALL P$CUP(0) CALL P1022 LINENO = 2811 CALL P$MST(4) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32452)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 2812 CALL P$MST(2) CALL P$CUP(0) CALL P979 LINENO = 2813 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1155) LINENO = 2814 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($1156) CALL P$MST(4) CALL P$LDC(1,INTL(113)) CALL P$CUP(1) CALL P30 1156 CONTINUE 1155 CONTINUE LINENO = 2815 CALL P$LODA(0,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1157) LINENO = 2816 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,24) LINENO = 2817 LINENO = 2818 CALL P$MST(3) CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$FJP($1158) LINENO = 2819 LINENO = 2820 CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1159) LINENO = 2821 CALL P$MST(4) CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$LDA(0,22) CALL P$LDA(0,21) CALL P$CUP(3) CALL P364 LINENO = 2822 CALL P$MST(2) CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$LDO(0,227) CALL P$CUP(2) CALL P1088 CALL P$FJP($1160) LINENO = 2823 CALL P$MST(2) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,22) CALL P$LOD(0,21) CALL P$LDO(0,45) CALL P$CUP(4) CALL P959 1160 CONTINUE LINENO = 2824 CALL P$LOD(0,22) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($1161) CALL P$MST(2) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,22) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 GOTO 1162 1161 CONTINUE LINENO = 2825 CALL P$LOD(0,22) CALL P$LDC(1,INTL(0)) CALL P$LES(1,1) CALL P$FJP($1163) LINENO = 2826 CALL P$MST(2) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,22) CALL P$NGI CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 1163 CONTINUE 1162 CONTINUE 1159 CONTINUE GOTO 1164 1158 CONTINUE LINENO = 2830 CALL P$MST(4) CALL P$LDC(1,INTL(139)) CALL P$CUP(1) CALL P30 1164 CONTINUE LINENO = 2831 LINENO = 2832 CALL P$LODA(0,24) CALL P$IND(0,5) CALL P$SRO(0,227) CALL P$LDC(1,INTL(1)) CALL P$SRO(1,228) LINENO = 2833 CALL P$LODA(0,24) CALL P$IND(0,5) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$LODA(0,24) CALL P$IND(3,1) CALL P$AND CALL P$FJP($1165) LINENO = 2834 CALL P$LDC(1,INTL(2)) CALL P$SRO(1,229) GOTO 1166 1165 CONTINUE LINENO = 2836 LINENO = 2837 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,229) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,230) 1166 CONTINUE LINENO = 2840 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LDO(1,229) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($1167) LINENO = 2841 LINENO = 2842 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,23) LINENO = 2843 CALL P$MST(4) CALL P$LDO(0,227) CALL P$LDA(0,23) CALL P$CUP(2) CALL P409 LINENO = 2844 CALL P$MST(2) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,23) CALL P$CUP(2) CALL P896 1167 CONTINUE 1157 CONTINUE LINENO = 2847 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($1152) LINENO = 2848 CALL P$LDO(1,13) CALL P$LDC(1,INTL(11)) CALL P$EQU(1,1) CALL P$FJP($1168) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1169 1168 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(12)) CALL P$CUP(1) CALL P30 1169 CONTINUE GOTO 1170 1151 CONTINUE LINENO = 2851 CALL P$LDO(1,13) CALL P$LDC(1,INTL(14)) CALL P$EQU(1,1) CALL P$FJP($1171) LINENO = 2852 LINENO = 2853 LINENO = 2854 LINENO = 2855 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1172) LINENO = 2856 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(5)) CALL P$NEQ(1,1) CALL P$FJP($1173) LINENO = 2857 CALL P$MST(4) CALL P$LDC(1,INTL(140)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1173 CONTINUE 1172 CONTINUE LINENO = 2858 CALL P$MST(4) CALL P$CUP(0) CALL P62 LINENO = 2859 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1174) LINENO = 2860 LINENO = 2861 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1175) LINENO = 2862 CALL P$MST(4) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,19) CALL P$CUP(2) CALL P326 LINENO = 2863 CALL P$LODA(0,19) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1176) LINENO = 2864 CALL P$MST(4) CALL P$LDC(1,INTL(152)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) GOTO 1177 1176 CONTINUE LINENO = 2866 CALL P$LODA(0,19) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,24) LINENO = 2867 CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$SRO(0,227) LINENO = 2868 CALL P$LDO(1,229) GOTO 1178 1180 CONTINUE LINENO = 2869 CALL P$LDO(1,231) CALL P$LODA(0,24) CALL P$IND(1,7) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,231) GOTO 1179 1181 CONTINUE LINENO = 2870 CALL P$LDO(1,230) CALL P$LODA(0,24) CALL P$IND(1,7) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,230) GOTO 1179 1182 CONTINUE LINENO = 2871 CALL P$MST(4) CALL P$LDC(1,INTL(350)) CALL P$CUP(1) CALL P30 GOTO 1179 1178 CONTINUE CALL P$CHK(INTL(0),INTL(2)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1183) 1183 CONTINUE 1184 GOTO 1180 1185 GOTO 1181 1186 GOTO 1182 1179 CONTINUE 1177 CONTINUE 1175 CONTINUE LINENO = 2875 CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1187 1174 CONTINUE LINENO = 2877 CALL P$MST(4) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 1187 CONTINUE GOTO 1188 1171 CONTINUE LINENO = 2881 LINENO = 2882 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1189) LINENO = 2883 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,24) LINENO = 2884 CALL P$LODA(0,24) CALL P$IND(1,3) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($1190) LINENO = 2885 CALL P$MST(2) CALL P$CUP(0) CALL P979 CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$SRO(0,227) LINENO = 2886 CALL P$LDO(3,38) CALL P$FJP($1191) LINENO = 2887 CALL P$MST(2) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LDC(1,INTL(32767)) CALL P$LDO(0,49) CALL P$CUP(4) CALL P959 1191 CONTINUE LINENO = 2888 LINENO = 2889 CALL P$LDC(1,INTL(1)) CALL P$SRO(1,228) CALL P$LDC(1,INTL(1)) CALL P$SRO(1,229) LINENO = 2890 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,230) GOTO 1192 1190 CONTINUE LINENO = 2894 CALL P$LODA(0,24) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($1193) LINENO = 2895 CALL P$LODA(0,24) CALL P$IND(0,4) CALL P$SRO(0,227) LINENO = 2896 CALL P$LDO(1,231) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,231) GOTO 1194 1193 CONTINUE LINENO = 2898 CALL P$MST(4) CALL P$LDC(1,INTL(141)) CALL P$CUP(1) CALL P30 1194 CONTINUE 1192 CONTINUE 1189 CONTINUE LINENO = 2899 CALL P$MST(4) CALL P$CUP(0) CALL P62 1188 CONTINUE 1170 CONTINUE LINENO = 2901 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,240) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($1195) LINENO = 2902 CALL P$MST(4) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,240) CALL P$UNI CALL P$CUP(8) CALL P307 1195 CONTINUE GOTO 1149 1150 CONTINUE CALL P$RET(0) RETURN 1117 CONTINUE SG1SIZ = 26 SG2SIZ = 185 GOTO 1118 END SUBROUTINE P1197 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1198 99998 CALL P$UJC 1199 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2910 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1200) LINENO = 2911 CALL P$MST(5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32453)) CALL P$LODA(0,13) CALL P$CUP(9) CALL P337 CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1201 1200 CONTINUE LINENO = 2912 CALL P$MST(5) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$LODA(0,13) CALL P$LDO(0,53) CALL P$STO(0) 1201 CONTINUE LINENO = 2913 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32454)) CALL P$UNI CALL P$LODA(0,13) CALL P$IND(0,0) CALL P$CUP(9) CALL P1116 CALL P$RET(0) RETURN 1198 CONTINUE SG1SIZ = 14 SG2SIZ = 57 GOTO 1199 END SUBROUTINE P1202 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1203 99998 CALL P$UJC 1204 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2923 CALL P$LDC(3,INTL(0)) CALL P$STR(0,11) CALL P$LDC(3,INTL(0)) CALL P$STR(2,17) LINENO = 2924 CALL P$LDC(1,INTL(2)) CALL P$STR(0,8) CALL P$LDC(1,INTL(100)) CALL P$STR(0,12) 1205 CONTINUE CALL P$LOD(0,8) CALL P$LOD(0,12) CALL P$LEQ(1) CALL P$FJP($1206) CALL P$LAO(6360) CALL P$LOD(0,8) CALL P$CHK(INTL(1),INTL(101)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(6,INTL(160)) CALL P$STO(6) CALL P$LOD(0,8) CALL P$INC(1,INTL(1)) CALL P$STR(0,8) GOTO 1205 1206 CONTINUE LINENO = 2925 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32455)) CALL P$UNI CALL P$LDA(0,10) CALL P$CUP(9) CALL P1197 CALL P$LODA(0,10) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,9) LINENO = 2926 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1207) CALL P$MST(5) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 GOTO 1208 1207 CONTINUE LINENO = 2927 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32456)) CALL P$INN CALL P$NOT CALL P$FJP($1209) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 GOTO 1210 1209 CONTINUE LINENO = 2928 LINENO = 2929 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1211) LINENO = 2930 CALL P$MST(4) CALL P$LODA(0,10) CALL P$CUP(1) CALL P502 CALL P$NOT CALL P$FJP($1212) LINENO = 2931 CALL P$MST(5) CALL P$LDC(1,INTL(183)) CALL P$CUP(1) CALL P30 LINENO = 2933 CALL P$MST(5) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32457)) CALL P$UNI CALL P$CUP(8) CALL P307 GOTO 1213 1212 CONTINUE LINENO = 2935 LINENO = 2936 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$LDC(3,INTL(1)) CALL P$STR(0,11) LINENO = 2937 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($1214) CALL P$MST(5) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 1214 CONTINUE LINENO = 2938 CALL P$MST(5) CALL P$CUP(0) CALL P62 1213 CONTINUE 1211 CONTINUE LINENO = 2940 CALL P$LOD(0,11) CALL P$NOT CALL P$FJP($1215) LINENO = 2941 CALL P$LDC(1,INTL(1)) CALL P$STR(0,7) CALL P$LDC(1,INTL(8)) CALL P$STR(0,12) 1216 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,12) CALL P$LEQ(1) CALL P$FJP($1217) CALL P$LAO(6360) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(101)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LAO(18) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$STO(6) CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 1216 1217 CONTINUE 1215 CONTINUE LINENO = 2942 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) GOTO 1218 1220 CONTINUE LINENO = 2943 CALL P$MST(2) CALL P$LDA(0,9) CALL P$CUP(1) CALL P1108 CALL P$FJP($1221) LINENO = 2944 CALL P$LODA(0,10) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$STR(0,5) GOTO 1222 1221 CONTINUE LINENO = 2945 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1222 CONTINUE GOTO 1219 1223 CONTINUE LINENO = 2946 CALL P$LDC(1,INTL(0)) CALL P$STR(0,5) GOTO 1219 1224 CONTINUE LINENO = 2947 CALL P$MST(5) CALL P$LDC(1,INTL(400)) CALL P$CUP(1) CALL P30 GOTO 1219 1218 CONTINUE CALL P$CHK(INTL(4),INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$SBI CALL P$XJP($1225) 1225 CONTINUE 1226 GOTO 1220 1227 GOTO 1224 1228 GOTO 1223 1219 CONTINUE LINENO = 2949 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$LOD(1,14) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($1229) LINENO = 2950 CALL P$LDC(1,INTL(0)) CALL P$STR(0,6) GOTO 1230 1229 CONTINUE LINENO = 2951 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STR(0,6) 1230 CONTINUE LINENO = 2953 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26487) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6197) CALL P$LOD(1,14) CALL P$LDC(1,INTL(21)) CALL P$ADI CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LOD(0,5) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2954 CALL P$LOD(1,14) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($1231) CALL P$LAO(11) CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26488) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS SP=SP-1 GOTO 1232 1231 CONTINUE CALL P$LAO(11) CALL P$LDC(6,INTL(167)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 1232 CONTINUE LINENO = 2955 CALL P$LDC(1,INTL(1)) CALL P$STR(0,7) LINENO = 2956 1233 CONTINUE LINENO = 2957 CALL P$LAO(11) CALL P$LAO(6360) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(101)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(6,0) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 2958 CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,7) LINENO = 2959 CALL P$LAO(6360) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(101)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(6,0) CALL P$LDC(6,INTL(160)) CALL P$EQU(6,1) CALL P$LOD(0,7) CALL P$LDC(1,INTL(100)) CALL P$GRT(1,1) CALL P$IOR CALL P$FJP($1233) LINENO = 2960 CALL P$LAO(11) CALL P$LCA(26489) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN LINENO = 2961 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 2962 CALL P$LOD(3,20) CALL P$LAO(6321) CALL P$LOD(1,14) CALL P$LDC(1,INTL(21)) CALL P$ADI CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$IND(1,0) CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$STR(3,20) LINENO = 2963 CALL P$LOD(3,20) CALL P$LOD(3,19) CALL P$GRT(1,1) CALL P$FJP($1234) CALL P$LOD(3,20) CALL P$STR(3,19) 1234 CONTINUE 1210 CONTINUE 1208 CONTINUE CALL P$RET(0) RETURN 1203 CONTINUE SG1SIZ = 13 SG2SIZ = 67 GOTO 1204 END SUBROUTINE P1235 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1236 99998 CALL P$UJC 1237 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2969 CALL P$LDC(3,INTL(0)) CALL P$STR(2,17) CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32458)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 LINENO = 2970 CALL P$MST(2) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$CUP(1) CALL P1108 CALL P$FJP($1238) LINENO = 2971 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(1,14) CALL P$CUP(2) CALL P896 GOTO 1239 1238 CONTINUE LINENO = 2972 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1239 CONTINUE CALL P$RET(0) RETURN 1236 CONTINUE SG1SIZ = 6 SG2SIZ = 37 GOTO 1237 END SUBROUTINE P1240 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1241 99998 CALL P$UJC 1242 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2977 CALL P$LDC(3,INTL(0)) CALL P$STR(2,17) LINENO = 2978 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32459)) CALL P$UNI CALL P$LDA(0,6) CALL P$CUP(9) CALL P1197 LINENO = 2979 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1243) CALL P$MST(5) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 GOTO 1244 1243 CONTINUE LINENO = 2980 LINENO = 2981 CALL P$MST(2) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$CUP(1) CALL P1108 CALL P$FJP($1245) LINENO = 2982 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,47) CALL P$NEQ(0,1) CALL P$FJP($1246) LINENO = 2983 CALL P$MST(5) CALL P$LDC(1,INTL(182)) CALL P$CUP(1) CALL P30 CALL P$MST(5) CALL P$LDC(1,INTL(59)) CALL P$CUP(1) CALL P30 GOTO 1247 1246 CONTINUE LINENO = 2985 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(26)) CALL P$CUP(2) CALL P896 1247 CONTINUE GOTO 1248 1245 CONTINUE LINENO = 2986 CALL P$MST(5) CALL P$LDC(1,INTL(59)) CALL P$CUP(1) CALL P30 1248 CONTINUE 1244 CONTINUE CALL P$RET(0) RETURN 1241 CONTINUE SG1SIZ = 7 SG2SIZ = 37 GOTO 1242 END SUBROUTINE P1249 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1250 99998 CALL P$UJC 1251 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 2993 CALL P$LDO(0,47) CALL P$STRA(0,6) CALL P$LDC(3,INTL(0)) CALL P$STR(2,17) LINENO = 2994 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($1252) LINENO = 2995 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$LDC(3,INTL(0)) CALL P$STR(4,16) LINENO = 3001 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32460)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 LINENO = 3002 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1253) LINENO = 3003 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,7) LINENO = 3004 CALL P$MST(2) CALL P$LDA(0,7) CALL P$CUP(1) CALL P1108 CALL P$FJP($1254) LINENO = 3005 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,6) LINENO = 3006 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1255) LINENO = 3007 LINENO = 3008 CALL P$LOD(1,14) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1256) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1256 CONTINUE LINENO = 3009 CALL P$LDC(3,INTL(1)) CALL P$STR(4,16) GOTO 1257 1255 CONTINUE LINENO = 3011 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($1258) LINENO = 3012 LINENO = 3013 CALL P$MST(5) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32461)) CALL P$UNI CALL P$CUP(8) CALL P307 LINENO = 3014 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1258 CONTINUE 1257 CONTINUE LINENO = 3016 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1259) LINENO = 3017 LINENO = 3018 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3019 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32462)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 GOTO 1260 1259 CONTINUE LINENO = 3021 CALL P$LDC(3,INTL(1)) CALL P$STR(4,16) 1260 CONTINUE 1254 CONTINUE 1253 CONTINUE LINENO = 3024 CALL P$LOD(4,16) CALL P$NOT CALL P$FJP($1261) LINENO = 3025 1262 CONTINUE CALL P$MST(3) CALL P$CUP(0) CALL P1022 LINENO = 3026 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1263) LINENO = 3027 CALL P$LDO(0,227) CALL P$STRA(0,7) LINENO = 3028 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32463)) CALL P$INN CALL P$FJP($1264) LINENO = 3029 CALL P$MST(4) CALL P$LODA(0,6) CALL P$LDO(0,47) CALL P$CUP(2) CALL P460 CALL P$FJP($1265) LINENO = 3030 CALL P$MST(4) CALL P$LODA(0,7) CALL P$LDO(0,45) CALL P$CUP(2) CALL P460 CALL P$FJP($1266) LINENO = 3031 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(3)) CALL P$CUP(2) CALL P896 GOTO 1267 1266 CONTINUE LINENO = 3032 CALL P$MST(4) CALL P$LODA(0,7) CALL P$LDO(0,46) CALL P$CUP(2) CALL P460 CALL P$FJP($1268) LINENO = 3033 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(4)) CALL P$CUP(2) CALL P896 GOTO 1269 1268 CONTINUE LINENO = 3034 CALL P$MST(4) CALL P$LODA(0,7) CALL P$LDO(0,47) CALL P$CUP(2) CALL P460 CALL P$FJP($1270) LINENO = 3035 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(5)) CALL P$CUP(2) CALL P896 GOTO 1271 1270 CONTINUE LINENO = 3036 CALL P$MST(5) CALL P$LDC(1,INTL(145)) CALL P$CUP(1) CALL P30 1271 CONTINUE 1269 CONTINUE 1267 CONTINUE GOTO 1272 1265 CONTINUE LINENO = 3037 CALL P$MST(4) CALL P$LODA(0,7) CALL P$LODA(0,6) CALL P$CUP(2) CALL P460 CALL P$FJP($1273) LINENO = 3039 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,9) LINENO = 3040 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(27)) CALL P$LOD(0,9) CALL P$CUP(3) CALL P903 GOTO 1274 1273 CONTINUE LINENO = 3042 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1274 CONTINUE 1272 CONTINUE 1264 CONTINUE 1263 CONTINUE LINENO = 3044 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(4,16) LINENO = 3045 CALL P$LOD(4,16) CALL P$NOT CALL P$FJP($1275) LINENO = 3046 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32464)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 1275 CONTINUE LINENO = 3047 CALL P$LOD(4,16) CALL P$FJP($1262) 1261 CONTINUE LINENO = 3048 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1276) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1277 1276 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1277 CONTINUE GOTO 1278 1252 CONTINUE LINENO = 3050 CALL P$LOD(1,14) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1279) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 GOTO 1280 1279 CONTINUE LINENO = 3051 LINENO = 3052 CALL P$LDC(3,INTL(1)) CALL P$STR(2,17) LINENO = 3053 CALL P$LDO(3,43) CALL P$NOT CALL P$FJP($1281) CALL P$MST(5) CALL P$LDC(1,INTL(176)) CALL P$CUP(1) CALL P30 1281 CONTINUE LINENO = 3054 CALL P$MST(3) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LDC(1,INTL(5)) CALL P$CUP(3) CALL P903 1280 CONTINUE 1278 CONTINUE LINENO = 3056 CALL P$LOD(1,14) CALL P$LDC(1,INTL(11)) CALL P$EQU(1,1) CALL P$FJP($1282) LINENO = 3057 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(21)) CALL P$CUP(2) CALL P896 GOTO 1283 1282 CONTINUE LINENO = 3058 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26490) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS CALL P$WLN 1283 CONTINUE CALL P$RET(0) RETURN 1250 CONTINUE SG1SIZ = 10 SG2SIZ = 135 GOTO 1251 END SUBROUTINE P1284 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1285 99998 CALL P$UJC 1286 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3065 CALL P$LOD(1,14) CALL P$STR(0,14) LINENO = 3066 CALL P$LDO(0,47) CALL P$STRA(0,5) CALL P$LDC(3,INTL(0)) CALL P$STR(2,17) LINENO = 3067 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($1287) LINENO = 3068 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$LDC(3,INTL(0)) CALL P$STR(4,16) LINENO = 3069 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32465)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3070 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1288) LINENO = 3071 CALL P$LDO(0,227) CALL P$STRA(0,6) LINENO = 3072 CALL P$MST(2) CALL P$LDA(0,6) CALL P$CUP(1) CALL P1108 CALL P$FJP($1289) LINENO = 3073 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,5) LINENO = 3074 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1290) LINENO = 3075 LINENO = 3076 CALL P$LOD(0,14) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($1291) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1291 CONTINUE LINENO = 3077 CALL P$LDC(3,INTL(1)) CALL P$STR(4,16) GOTO 1292 1290 CONTINUE LINENO = 3079 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($1293) LINENO = 3080 LINENO = 3081 CALL P$MST(5) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32466)) CALL P$UNI CALL P$CUP(8) CALL P307 LINENO = 3082 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1293 CONTINUE 1292 CONTINUE LINENO = 3084 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1294) LINENO = 3085 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3086 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32467)) CALL P$UNI CALL P$CUP(8) CALL P1103 GOTO 1295 1294 CONTINUE LINENO = 3088 CALL P$LDC(3,INTL(1)) CALL P$STR(4,16) 1295 CONTINUE 1289 CONTINUE 1288 CONTINUE LINENO = 3091 CALL P$LOD(2,17) CALL P$NOT CALL P$FJP($1296) LINENO = 3092 LINENO = 3093 CALL P$LDC(3,INTL(1)) CALL P$STR(2,17) LINENO = 3094 CALL P$LDO(3,42) CALL P$NOT CALL P$FJP($1297) CALL P$MST(5) CALL P$LDC(1,INTL(176)) CALL P$CUP(1) CALL P30 1297 CONTINUE LINENO = 3095 CALL P$MST(3) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LDC(1,INTL(7)) CALL P$CUP(3) CALL P903 1296 CONTINUE LINENO = 3097 CALL P$LOD(4,16) CALL P$NOT CALL P$FJP($1298) LINENO = 3098 1299 CONTINUE LINENO = 3099 CALL P$MST(2) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3100 CALL P$LDO(0,227) CALL P$STRA(0,6) LINENO = 3101 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1300) LINENO = 3102 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($1301) CALL P$MST(3) CALL P$CUP(0) CALL P979 GOTO 1302 1301 CONTINUE CALL P$MST(3) CALL P$CUP(0) CALL P1022 1302 CONTINUE 1300 CONTINUE LINENO = 3103 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32468)) CALL P$INN CALL P$FJP($1303) LINENO = 3104 CALL P$MST(4) CALL P$LODA(0,5) CALL P$LDO(0,47) CALL P$CUP(2) CALL P460 CALL P$FJP($1304) LINENO = 3105 LINENO = 3106 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($1305) LINENO = 3107 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3108 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32469)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3109 CALL P$MST(2) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3110 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1306) LINENO = 3111 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$NEQ(0,1) CALL P$FJP($1307) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1307 CONTINUE 1306 CONTINUE LINENO = 3112 CALL P$MST(3) CALL P$CUP(0) CALL P979 CALL P$LDC(3,INTL(0)) CALL P$STR(0,9) GOTO 1308 1305 CONTINUE LINENO = 3114 CALL P$LDC(3,INTL(1)) CALL P$STR(0,9) 1308 CONTINUE LINENO = 3115 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($1309) LINENO = 3116 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3117 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32470)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3118 CALL P$MST(2) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3119 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1310) LINENO = 3120 CALL P$LODA(0,6) CALL P$LDO(0,46) CALL P$NEQ(0,1) CALL P$FJP($1311) CALL P$MST(5) CALL P$LDC(1,INTL(124)) CALL P$CUP(1) CALL P30 1311 CONTINUE 1310 CONTINUE LINENO = 3121 CALL P$MST(3) CALL P$CUP(0) CALL P979 CALL P$LDC(3,INTL(0)) CALL P$STR(0,8) GOTO 1312 1309 CONTINUE LINENO = 3123 CALL P$LDC(3,INTL(1)) CALL P$STR(0,8) 1312 CONTINUE LINENO = 3124 CALL P$LODA(0,6) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1313) LINENO = 3125 LINENO = 3126 CALL P$LOD(0,9) CALL P$FJP($1314) CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(10)) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 1314 CONTINUE LINENO = 3127 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(6)) CALL P$CUP(2) CALL P896 GOTO 1315 1313 CONTINUE LINENO = 3129 CALL P$LODA(0,6) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1316) LINENO = 3130 LINENO = 3131 CALL P$LOD(0,9) CALL P$FJP($1317) CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(20)) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 1317 CONTINUE LINENO = 3132 CALL P$LOD(0,8) CALL P$FJP($1318) CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(20)) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 1318 CONTINUE LINENO = 3133 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(8)) CALL P$CUP(2) CALL P896 GOTO 1319 1316 CONTINUE LINENO = 3135 CALL P$LODA(0,6) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$FJP($1320) LINENO = 3136 LINENO = 3137 CALL P$LOD(0,9) CALL P$FJP($1321) CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 1321 CONTINUE LINENO = 3138 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(9)) CALL P$CUP(2) CALL P896 GOTO 1322 1320 CONTINUE LINENO = 3140 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1323) CALL P$MST(5) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 GOTO 1324 1323 CONTINUE LINENO = 3141 CALL P$MST(4) CALL P$LODA(0,6) CALL P$CUP(1) CALL P496 CALL P$FJP($1325) LINENO = 3142 CALL P$MST(5) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,15) CALL P$LDA(0,16) CALL P$CUP(3) CALL P364 LINENO = 3143 CALL P$LOD(0,16) CALL P$LOD(0,15) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) LINENO = 3144 CALL P$LOD(0,9) CALL P$FJP($1326) LINENO = 3145 CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,11) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 1326 CONTINUE LINENO = 3146 CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,11) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 LINENO = 3147 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(10)) CALL P$CUP(2) CALL P896 GOTO 1327 1325 CONTINUE LINENO = 3149 CALL P$MST(5) CALL P$LDC(1,INTL(145)) CALL P$CUP(1) CALL P30 1327 CONTINUE 1324 CONTINUE 1322 CONTINUE 1319 CONTINUE 1315 CONTINUE GOTO 1328 1304 CONTINUE LINENO = 3151 CALL P$MST(4) CALL P$LODA(0,6) CALL P$LODA(0,5) CALL P$CUP(2) CALL P460 CALL P$FJP($1329) LINENO = 3152 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,12) LINENO = 3153 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(28)) CALL P$LOD(0,12) CALL P$CUP(3) CALL P903 GOTO 1330 1329 CONTINUE LINENO = 3155 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1330 CONTINUE 1328 CONTINUE 1303 CONTINUE LINENO = 3156 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(4,16) LINENO = 3157 CALL P$LOD(4,16) CALL P$NOT CALL P$FJP($1331) LINENO = 3158 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3159 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32471)) CALL P$UNI CALL P$CUP(8) CALL P1103 1331 CONTINUE LINENO = 3161 CALL P$LOD(4,16) CALL P$FJP($1299) 1298 CONTINUE LINENO = 3162 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1332) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1333 1332 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1333 CONTINUE GOTO 1334 1287 CONTINUE LINENO = 3164 CALL P$LOD(1,14) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($1335) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 GOTO 1336 1335 CONTINUE LINENO = 3165 LINENO = 3166 CALL P$LDC(3,INTL(1)) CALL P$STR(2,17) LINENO = 3167 CALL P$LDO(3,42) CALL P$NOT CALL P$FJP($1337) CALL P$MST(5) CALL P$LDC(1,INTL(176)) CALL P$CUP(1) CALL P30 1337 CONTINUE LINENO = 3168 CALL P$MST(3) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LDC(1,INTL(7)) CALL P$CUP(3) CALL P903 1336 CONTINUE 1334 CONTINUE LINENO = 3170 CALL P$LOD(0,14) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1338) LINENO = 3171 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(22)) CALL P$CUP(2) CALL P896 GOTO 1339 1338 CONTINUE LINENO = 3173 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26492) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS CALL P$WLN 1339 CONTINUE CALL P$RET(0) RETURN 1285 CONTINUE SG1SIZ = 17 SG2SIZ = 221 GOTO 1286 END SUBROUTINE P1340 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1341 99998 CALL P$UJC 1342 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3178 CALL P$MST(5) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32472)) CALL P$UNI CALL P$LDA(0,7) CALL P$CUP(9) CALL P1197 LINENO = 3179 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,6) CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) LINENO = 3180 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1343) LINENO = 3181 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 3182 CALL P$LODA(0,8) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1344) LINENO = 3183 CALL P$LODA(0,8) CALL P$IND(0,4) CALL P$STRA(0,6) CALL P$LODA(0,8) CALL P$IND(0,5) CALL P$STRA(0,5) GOTO 1345 1344 CONTINUE LINENO = 3184 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1345 CONTINUE 1343 CONTINUE LINENO = 3185 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1346) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1347 1346 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(20)) CALL P$CUP(1) CALL P30 1347 CONTINUE LINENO = 3186 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32473)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3187 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1348) LINENO = 3188 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($1349) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 GOTO 1350 1349 CONTINUE LINENO = 3190 CALL P$MST(4) CALL P$LODA(0,6) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$FJP($1351) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1351 CONTINUE 1350 CONTINUE 1348 CONTINUE LINENO = 3191 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1352) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1353 1352 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(20)) CALL P$CUP(1) CALL P30 1353 CONTINUE LINENO = 3192 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32474)) CALL P$UNI CALL P$LDA(0,7) CALL P$CUP(9) CALL P1197 LINENO = 3193 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1354) LINENO = 3194 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 3195 CALL P$LODA(0,8) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1355) LINENO = 3196 LINENO = 3197 CALL P$MST(4) CALL P$LODA(0,8) CALL P$IND(0,5) CALL P$LODA(0,5) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$MST(4) CALL P$LODA(0,8) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$IOR CALL P$FJP($1356) LINENO = 3199 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1356 CONTINUE GOTO 1357 1355 CONTINUE LINENO = 3201 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1357 CONTINUE 1354 CONTINUE CALL P$RET(0) RETURN 1341 CONTINUE SG1SIZ = 9 SG2SIZ = 85 GOTO 1342 END SUBROUTINE P1358 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1359 99998 CALL P$UJC 1360 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3206 CALL P$MST(5) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32475)) CALL P$UNI CALL P$LDA(0,7) CALL P$CUP(9) CALL P1197 LINENO = 3207 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,6) CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) LINENO = 3208 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1361) LINENO = 3209 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 3210 CALL P$LODA(0,8) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1362) LINENO = 3211 CALL P$LODA(0,8) CALL P$IND(0,4) CALL P$STRA(0,6) CALL P$LODA(0,8) CALL P$IND(0,5) CALL P$STRA(0,5) GOTO 1363 1362 CONTINUE LINENO = 3212 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1363 CONTINUE 1361 CONTINUE LINENO = 3213 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1364) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1365 1364 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(20)) CALL P$CUP(1) CALL P30 1365 CONTINUE LINENO = 3214 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32476)) CALL P$UNI CALL P$LDA(0,7) CALL P$CUP(9) CALL P1197 LINENO = 3215 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1366) LINENO = 3216 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 3217 CALL P$LODA(0,8) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1367) LINENO = 3218 LINENO = 3219 CALL P$MST(4) CALL P$LODA(0,8) CALL P$IND(0,5) CALL P$LODA(0,5) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$MST(4) CALL P$LODA(0,8) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$IOR CALL P$FJP($1368) LINENO = 3221 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1368 CONTINUE GOTO 1369 1367 CONTINUE LINENO = 3223 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1369 CONTINUE 1366 CONTINUE LINENO = 3224 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1370) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1371 1370 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(20)) CALL P$CUP(1) CALL P30 1371 CONTINUE LINENO = 3225 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32477)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3226 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1372) LINENO = 3227 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($1373) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 GOTO 1374 1373 CONTINUE LINENO = 3229 CALL P$MST(4) CALL P$LODA(0,6) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$FJP($1375) CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1375 CONTINUE 1374 CONTINUE 1372 CONTINUE CALL P$RET(0) RETURN 1359 CONTINUE SG1SIZ = 9 SG2SIZ = 89 GOTO 1360 END SUBROUTINE P1376 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1378 99998 CALL P$UJC 1379 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3236 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32478)) CALL P$UNI CALL P$LDA(0,14) CALL P$CUP(9) CALL P1197 CALL P$MST(3) CALL P$CUP(0) CALL P1022 LINENO = 3237 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,6) CALL P$LDC(1,INTL(0)) CALL P$STR(0,9) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) LINENO = 3238 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1380) LINENO = 3239 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,15) LINENO = 3240 CALL P$LODA(0,15) CALL P$IND(1,3) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($1381) LINENO = 3241 LINENO = 3242 CALL P$LODA(0,15) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1382) LINENO = 3243 CALL P$LODA(0,15) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,11) LINENO = 3244 CALL P$LODA(0,15) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1383) CALL P$LODA(0,15) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,6) 1383 CONTINUE 1382 CONTINUE GOTO 1384 1381 CONTINUE LINENO = 3247 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1384 CONTINUE 1380 CONTINUE LINENO = 3248 1385 CONTINUE LINENO = 3248 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$EQU(1,1) CALL P$FJP($1386) LINENO = 3249 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32479)) CALL P$UNI CALL P$LDA(0,5) CALL P$LDA(0,12) CALL P$CUP(10) CALL P423 LINENO = 3250 CALL P$LOD(0,9) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,9) LINENO = 3252 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1387) CALL P$MST(5) CALL P$LDC(1,INTL(158)) CALL P$CUP(1) CALL P30 GOTO 1388 1387 CONTINUE LINENO = 3254 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(7)) CALL P$NEQ(1,1) CALL P$FJP($1389) CALL P$MST(5) CALL P$LDC(1,INTL(162)) CALL P$CUP(1) CALL P30 GOTO 1390 1389 CONTINUE LINENO = 3256 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1391) LINENO = 3257 CALL P$MST(4) CALL P$LODA(0,5) CALL P$CUP(1) CALL P496 CALL P$LODA(0,5) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$IOR CALL P$FJP($1392) CALL P$MST(5) CALL P$LDC(1,INTL(159)) CALL P$CUP(1) CALL P30 GOTO 1393 1392 CONTINUE LINENO = 3259 CALL P$MST(4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,5) CALL P$CUP(2) CALL P460 CALL P$FJP($1394) LINENO = 3260 LINENO = 3261 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,5) LINENO = 3262 1395 CONTINUE LINENO = 3262 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1396) LINENO = 3263 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,15) LINENO = 3264 CALL P$LODA(0,15) CALL P$IND(1,7) CALL P$LOD(0,13) CALL P$EQU(1,1) CALL P$FJP($1397) LINENO = 3265 CALL P$LODA(0,15) CALL P$IND(1,2) CALL P$STR(0,11) CALL P$LODA(0,15) CALL P$IND(0,4) CALL P$STRA(0,6) LINENO = 3266 GOTO 1377 1398 CONTINUE GOTO 1399 1397 CONTINUE LINENO = 3268 CALL P$LODA(0,15) CALL P$IND(0,5) CALL P$STRA(0,5) 1399 CONTINUE GOTO 1395 1396 CONTINUE LINENO = 3269 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,11) CALL P$LDC(0,INTL(0)) CALL P$STRA(0,6) GOTO 1400 1394 CONTINUE LINENO = 3271 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1400 CONTINUE 1393 CONTINUE 1391 CONTINUE 1390 CONTINUE 1388 CONTINUE 1377 CONTINUE GOTO 1385 1386 CONTINUE LINENO = 3273 CALL P$MST(3) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,11) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 LINENO = 3274 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(12)) CALL P$CUP(2) CALL P896 CALL P$RET(0) RETURN 1378 CONTINUE SG1SIZ = 16 SG2SIZ = 65 GOTO 1379 END SUBROUTINE P1401 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1402 99998 CALL P$UJC 1403 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3279 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32480)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 LINENO = 3280 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1404) LINENO = 3281 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($1405) LINENO = 3282 CALL P$MST(3) CALL P$CUP(0) CALL P1022 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(23)) CALL P$CUP(2) CALL P896 GOTO 1406 1405 CONTINUE LINENO = 3283 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1406 CONTINUE 1404 CONTINUE CALL P$RET(0) RETURN 1402 CONTINUE SG1SIZ = 6 SG2SIZ = 37 GOTO 1403 END SUBROUTINE P1407 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1408 99998 CALL P$UJC 1409 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3288 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32481)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 LINENO = 3289 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1410) LINENO = 3290 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($1411) LINENO = 3291 CALL P$MST(3) CALL P$CUP(0) CALL P979 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(13)) CALL P$CUP(2) CALL P896 GOTO 1412 1411 CONTINUE LINENO = 3292 CALL P$MST(5) CALL P$LDC(1,INTL(116)) CALL P$CUP(1) CALL P30 1412 CONTINUE 1410 CONTINUE CALL P$RET(0) RETURN 1408 CONTINUE SG1SIZ = 6 SG2SIZ = 37 GOTO 1409 END SUBROUTINE P1413 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1414 99998 CALL P$UJC 1415 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3297 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32482)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 LINENO = 3298 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1416) LINENO = 3299 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(4)) CALL P$NEQ(1,1) CALL P$FJP($1417) CALL P$MST(5) CALL P$LDC(1,INTL(103)) CALL P$CUP(1) CALL P30 GOTO 1418 1417 CONTINUE LINENO = 3300 LINENO = 3301 CALL P$MST(3) CALL P$CUP(0) CALL P1022 LINENO = 3302 CALL P$LOD(1,14) CALL P$LDC(1,INTL(15)) CALL P$EQU(1,1) CALL P$FJP($1419) LINENO = 3303 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(29)) CALL P$LDC(1,INTL(2)) CALL P$CUP(3) CALL P903 GOTO 1420 1419 CONTINUE LINENO = 3304 CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(29)) CALL P$LDC(1,INTL(1)) CALL P$CUP(3) CALL P903 1420 CONTINUE 1418 CONTINUE GOTO 1421 1416 CONTINUE LINENO = 3306 CALL P$MST(5) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 1421 CONTINUE CALL P$RET(0) RETURN 1414 CONTINUE SG1SIZ = 6 SG2SIZ = 39 GOTO 1415 END SUBROUTINE P1422 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1423 99998 CALL P$UJC 1424 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3311 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1425) LINENO = 3312 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1426) CALL P$MST(3) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1427 1426 CONTINUE LINENO = 3314 CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1428) CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1429 1428 CONTINUE LINENO = 3315 CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 CALL P$LDO(0,45) CALL P$SRO(0,227) 1429 CONTINUE 1427 CONTINUE 1425 CONTINUE CALL P$RET(0) RETURN 1423 CONTINUE SG1SIZ = 5 SG2SIZ = 13 GOTO 1424 END SUBROUTINE P1430 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1431 99998 CALL P$UJC 1432 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3320 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1433) LINENO = 3321 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1434) CALL P$MST(3) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1435 1434 CONTINUE LINENO = 3323 CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1436) CALL P$MST(3) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1437 1436 CONTINUE LINENO = 3324 CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 CALL P$LDO(0,45) CALL P$SRO(0,227) 1437 CONTINUE 1435 CONTINUE 1433 CONTINUE CALL P$RET(0) RETURN 1431 CONTINUE SG1SIZ = 5 SG2SIZ = 13 GOTO 1432 END SUBROUTINE P1438 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1439 99998 CALL P$UJC 1440 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3329 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1441) LINENO = 3330 CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$NEQ(0,1) CALL P$FJP($1442) CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 1442 CONTINUE 1441 CONTINUE LINENO = 3331 CALL P$MST(3) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3332 CALL P$LDO(0,45) CALL P$SRO(0,227) CALL P$RET(0) RETURN 1439 CONTINUE SG1SIZ = 5 SG2SIZ = 11 GOTO 1440 END SUBROUTINE P1443 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1444 99998 CALL P$UJC 1445 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3337 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1446) LINENO = 3338 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$NEQ(0,1) CALL P$FJP($1447) CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 1447 CONTINUE 1446 CONTINUE LINENO = 3339 CALL P$MST(3) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3340 CALL P$LDO(0,48) CALL P$SRO(0,227) CALL P$RET(0) RETURN 1444 CONTINUE SG1SIZ = 5 SG2SIZ = 11 GOTO 1445 END SUBROUTINE P1448 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1449 99998 CALL P$UJC 1450 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3345 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1451) LINENO = 3346 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$GEQ(1,1) CALL P$FJP($1452) CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 1452 CONTINUE 1451 CONTINUE LINENO = 3348 CALL P$LDO(0,45) CALL P$SRO(0,227) CALL P$RET(0) RETURN 1449 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 1450 END SUBROUTINE P1453 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1454 99998 CALL P$UJC 1455 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3353 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1456) LINENO = 3354 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$NEQ(0,1) CALL P$FJP($1457) CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 GOTO 1458 1457 CONTINUE LINENO = 3355 CALL P$LDO(3,36) CALL P$FJP($1459) LINENO = 3356 CALL P$MST(3) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(128)) CALL P$LDC(1,INTL(255)) CALL P$LDO(0,45) CALL P$CUP(4) CALL P959 1459 CONTINUE 1458 CONTINUE 1456 CONTINUE LINENO = 3357 CALL P$LDO(0,47) CALL P$SRO(0,227) CALL P$RET(0) RETURN 1454 CONTINUE SG1SIZ = 5 SG2SIZ = 17 GOTO 1455 END SUBROUTINE P1460 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1461 99998 CALL P$UJC 1462 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3362 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1463) LINENO = 3363 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($1464) CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 1464 CONTINUE 1463 CONTINUE LINENO = 3364 CALL P$LOD(1,14) CALL P$LDC(1,INTL(7)) CALL P$EQU(1,1) CALL P$FJP($1465) CALL P$MST(3) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LDO(0,227) CALL P$CUP(3) CALL P953 GOTO 1466 1465 CONTINUE LINENO = 3365 CALL P$MST(3) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LDO(0,227) CALL P$CUP(3) CALL P953 1466 CONTINUE CALL P$RET(0) RETURN 1461 CONTINUE SG1SIZ = 5 SG2SIZ = 19 GOTO 1462 END SUBROUTINE P1467 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1468 99998 CALL P$UJC 1469 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3383 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($1470) LINENO = 3384 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32483)) CALL P$UNI CALL P$LDA(0,5) CALL P$CUP(9) CALL P1197 LINENO = 3385 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1471) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1472 1471 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1472 CONTINUE GOTO 1473 1470 CONTINUE LINENO = 3388 LINENO = 3389 CALL P$LDO(0,50) CALL P$SRO(0,227) CALL P$LDC(1,INTL(1)) CALL P$SRO(1,228) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,229) LINENO = 3390 CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,230) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,231) 1473 CONTINUE LINENO = 3392 CALL P$MST(3) CALL P$CUP(0) CALL P1022 LINENO = 3393 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1474) LINENO = 3394 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$NEQ(1,1) CALL P$FJP($1475) CALL P$MST(5) CALL P$LDC(1,INTL(125)) CALL P$CUP(1) CALL P30 1475 CONTINUE 1474 CONTINUE LINENO = 3395 CALL P$LOD(1,14) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1476) CALL P$MST(3) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1477 1476 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(14)) CALL P$CUP(2) CALL P896 1477 CONTINUE LINENO = 3396 CALL P$LDO(0,48) CALL P$SRO(0,227) CALL P$RET(0) RETURN 1468 CONTINUE SG1SIZ = 6 SG2SIZ = 37 GOTO 1469 END SUBROUTINE P1478 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1479 99998 CALL P$UJC 1480 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3404 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) LINENO = 3405 CALL P$LODA(1,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,12) LINENO = 3406 CALL P$LODA(0,12) CALL P$IND(0,5) CALL P$STRA(0,6) CALL P$LODA(0,12) CALL P$IND(1,10) CALL P$STR(0,8) LINENO = 3407 CALL P$LODA(0,12) CALL P$IND(3,12) CALL P$NOT CALL P$FJP($1481) CALL P$MST(3) CALL P$LDC(1,INTL(41)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LODA(0,12) CALL P$IND(1,8) CALL P$SBI CALL P$CUP(2) CALL P896 1481 CONTINUE LINENO = 3411 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($1482) LINENO = 3412 CALL P$LDO(1,23) CALL P$STR(0,10) LINENO = 3413 1483 CONTINUE CALL P$LDC(3,INTL(0)) CALL P$STR(0,9) LINENO = 3414 CALL P$LOD(0,8) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1484) LINENO = 3415 LINENO = 3416 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1485) CALL P$MST(5) CALL P$LDC(1,INTL(126)) CALL P$CUP(1) CALL P30 GOTO 1486 1485 CONTINUE LINENO = 3417 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32484)) CALL P$INN CALL P$STR(0,9) 1486 CONTINUE GOTO 1487 1484 CONTINUE LINENO = 3418 CALL P$MST(5) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 1487 CONTINUE LINENO = 3425 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3426 CALL P$LOD(0,9) CALL P$FJP($1488) LINENO = 3427 CALL P$MST(5) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 LINENO = 3428 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($1489) LINENO = 3429 CALL P$MST(5) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(5) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32485)) CALL P$UNI CALL P$CUP(8) CALL P307 GOTO 1490 1489 CONTINUE LINENO = 3431 LINENO = 3432 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1491) CALL P$MST(5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32486)) CALL P$LDA(0,5) CALL P$CUP(9) CALL P337 GOTO 1492 1491 CONTINUE LINENO = 3434 CALL P$MST(5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32487)) CALL P$LDA(0,5) CALL P$CUP(9) CALL P337 LINENO = 3435 CALL P$MST(4) CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$FJP($1493) LINENO = 3436 CALL P$MST(5) CALL P$LDC(1,INTL(128)) CALL P$CUP(1) CALL P30 1493 CONTINUE 1492 CONTINUE LINENO = 3438 CALL P$MST(5) CALL P$CUP(0) CALL P62 LINENO = 3439 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32488)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($1494) LINENO = 3440 CALL P$MST(5) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(5) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32489)) CALL P$UNI CALL P$CUP(8) CALL P307 1494 CONTINUE 1490 CONTINUE GOTO 1495 1488 CONTINUE LINENO = 3445 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32490)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3446 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1496) LINENO = 3447 CALL P$LOD(0,8) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1497) LINENO = 3448 LINENO = 3449 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1498) LINENO = 3450 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STRA(0,7) LINENO = 3451 CALL P$LODA(0,7) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1499) LINENO = 3452 LINENO = 3453 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1500) LINENO = 3454 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$LEQ(1,1) CALL P$FJP($1501) LINENO = 3455 CALL P$MST(3) CALL P$CUP(0) CALL P979 LINENO = 3456 CALL P$MST(4) CALL P$LDO(0,46) CALL P$LODA(0,7) CALL P$CUP(2) CALL P460 CALL P$MST(4) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$FJP($1502) LINENO = 3458 CALL P$MST(3) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3459 CALL P$LDO(0,46) CALL P$SRO(0,227) 1502 CONTINUE LINENO = 3461 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($1503) LINENO = 3462 CALL P$MST(3) CALL P$LODA(0,7) CALL P$LDO(0,227) CALL P$CUP(2) CALL P1088 CALL P$FJP($1504) LINENO = 3463 CALL P$MST(3) CALL P$LODA(0,7) CALL P$CUP(1) CALL P1081 1504 CONTINUE 1503 CONTINUE LINENO = 3464 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($1505) LINENO = 3465 CALL P$LOD(0,11) CALL P$LDC(1,INTL(255)) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$ADI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) GOTO 1506 1505 CONTINUE LINENO = 3466 CALL P$LOD(0,11) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) 1506 CONTINUE LINENO = 3467 CALL P$MST(5) CALL P$LDO(0,44) CALL P$LDA(0,11) CALL P$CUP(2) CALL P409 GOTO 1507 1501 CONTINUE LINENO = 3470 LINENO = 3471 CALL P$MST(3) CALL P$CUP(0) CALL P1022 LINENO = 3472 CALL P$LOD(0,11) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) LINENO = 3473 CALL P$MST(5) CALL P$LDO(0,44) CALL P$LDA(0,11) CALL P$CUP(2) CALL P409 1507 CONTINUE GOTO 1508 1500 CONTINUE LINENO = 3476 CALL P$LDO(1,228) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1509) LINENO = 3477 CALL P$MST(3) CALL P$CUP(0) CALL P1022 LINENO = 3478 CALL P$LOD(0,11) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,11) GOTO 1510 1509 CONTINUE LINENO = 3480 CALL P$MST(5) CALL P$LDC(1,INTL(154)) CALL P$CUP(1) CALL P30 1510 CONTINUE 1508 CONTINUE LINENO = 3481 CALL P$MST(4) CALL P$LODA(0,7) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$NOT CALL P$FJP($1511) LINENO = 3482 CALL P$MST(5) CALL P$LDC(1,INTL(142)) CALL P$CUP(1) CALL P30 1511 CONTINUE 1499 CONTINUE 1498 CONTINUE GOTO 1512 1497 CONTINUE LINENO = 3487 1512 CONTINUE 1496 CONTINUE 1495 CONTINUE LINENO = 3490 CALL P$LOD(0,8) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($1513) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,6) 1513 CONTINUE LINENO = 3491 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($1483) LINENO = 3492 CALL P$LOD(0,10) CALL P$SRO(1,23) LINENO = 3493 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1514) CALL P$MST(5) CALL P$CUP(0) CALL P62 GOTO 1515 1514 CONTINUE CALL P$MST(5) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1515 CONTINUE 1482 CONTINUE LINENO = 3495 CALL P$LOD(0,8) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1516) LINENO = 3496 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1517) CALL P$MST(5) CALL P$LDC(1,INTL(126)) CALL P$CUP(1) CALL P30 1517 CONTINUE LINENO = 3497 CALL P$LODA(1,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,12) LINENO = 3498 LINENO = 3499 CALL P$LODA(0,12) CALL P$IND(3,12) CALL P$FJP($1518) CALL P$MST(3) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,12) CALL P$IND(1,9) CALL P$CUP(2) CALL P896 GOTO 1519 1518 CONTINUE LINENO = 3500 CALL P$LODA(0,12) CALL P$IND(3,13) CALL P$FJP($1520) LINENO = 3501 CALL P$MST(3) CALL P$LDC(1,INTL(46)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,11) CALL P$LODA(0,12) CALL P$LODA(1,13) CALL P$CUP(4) CALL P1065 GOTO 1521 1520 CONTINUE LINENO = 3505 CALL P$MST(3) CALL P$LDC(1,INTL(46)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,11) CALL P$LODA(0,12) CALL P$IND(1,9) CALL P$CUP(3) CALL P1061 1521 CONTINUE 1519 CONTINUE 1516 CONTINUE LINENO = 3508 CALL P$LODA(1,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$SRO(0,227) CALL P$RET(0) RETURN 1479 CONTINUE SG1SIZ = 13 SG2SIZ = 155 GOTO 1480 END SUBROUTINE P1196 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1522 99998 CALL P$UJC 1523 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3512 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1524) LINENO = 3513 LINENO = 3514 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$STR(0,14) LINENO = 3515 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($1525) LINENO = 3516 LINENO = 3517 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$STR(1,16) LINENO = 3518 CALL P$LOD(0,14) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32491)) CALL P$INN CALL P$NOT CALL P$FJP($1526) LINENO = 3519 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($1527) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1528 1527 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(9)) CALL P$CUP(1) CALL P30 1528 CONTINUE 1526 CONTINUE LINENO = 3520 CALL P$LOD(0,14) GOTO 1529 1531 CONTINUE LINENO = 3521 CALL P$MST(0) CALL P$CUP(0) CALL P1235 GOTO 1530 1532 CONTINUE LINENO = 3522 CALL P$MST(0) CALL P$CUP(0) CALL P1202 GOTO 1530 1533 CONTINUE LINENO = 3523 CALL P$MST(0) CALL P$CUP(0) CALL P1249 GOTO 1530 1534 CONTINUE LINENO = 3524 CALL P$MST(0) CALL P$CUP(0) CALL P1284 GOTO 1530 1535 CONTINUE LINENO = 3525 CALL P$MST(0) CALL P$CUP(0) CALL P1340 GOTO 1530 1536 CONTINUE LINENO = 3526 CALL P$MST(0) CALL P$CUP(0) CALL P1358 GOTO 1530 1537 CONTINUE LINENO = 3527 CALL P$MST(0) CALL P$CUP(0) CALL P1376 GOTO 1530 1538 CONTINUE LINENO = 3528 CALL P$MST(0) CALL P$CUP(0) CALL P1407 GOTO 1530 1539 CONTINUE LINENO = 3529 CALL P$MST(0) CALL P$CUP(0) CALL P1240 GOTO 1530 1540 CONTINUE LINENO = 3530 CALL P$MST(0) CALL P$CUP(0) CALL P1401 GOTO 1530 1541 CONTINUE LINENO = 3531 CALL P$MST(0) CALL P$CUP(0) CALL P1413 GOTO 1530 1529 CONTINUE CALL P$CHK(INTL(1),INTL(16)) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$XJP($1542) 1542 CONTINUE 1543 GOTO 1531 1544 GOTO 1531 1545 GOTO 1532 1546 GOTO 1532 1547 GOTO 1533 1548 GOTO 1534 1549 GOTO 1535 1550 GOTO 1536 1551 GOTO 1537 1552 GOTO 1538 1553 GOTO 1533 1554 GOTO 1534 1555 GOTO 1539 1556 GOTO 1540 1557 GOTO 1541 1558 GOTO 1541 1530 CONTINUE LINENO = 3533 CALL P$LOD(0,14) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32492)) CALL P$INN CALL P$NOT CALL P$FJP($1559) LINENO = 3534 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1560) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1561 1560 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1561 CONTINUE 1559 CONTINUE GOTO 1562 1525 CONTINUE LINENO = 3537 LINENO = 3538 CALL P$LOD(0,14) CALL P$LDC(1,INTL(8)) CALL P$LEQ(1,1) CALL P$FJP($1563) LINENO = 3539 LINENO = 3540 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($1564) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1565 1564 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(9)) CALL P$CUP(1) CALL P30 1565 CONTINUE LINENO = 3541 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32493)) CALL P$UNI CALL P$CUP(8) CALL P1103 CALL P$MST(2) CALL P$CUP(0) CALL P979 CALL P$MST(1) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 1563 CONTINUE LINENO = 3543 CALL P$LOD(0,14) GOTO 1566 1568 CONTINUE LINENO = 3544 CALL P$MST(0) CALL P$CUP(0) CALL P1422 GOTO 1567 1569 CONTINUE LINENO = 3545 CALL P$MST(0) CALL P$CUP(0) CALL P1430 GOTO 1567 1570 CONTINUE LINENO = 3546 CALL P$MST(0) CALL P$CUP(0) CALL P1438 GOTO 1567 1571 CONTINUE LINENO = 3547 CALL P$MST(0) CALL P$CUP(0) CALL P1443 GOTO 1567 1572 CONTINUE LINENO = 3548 CALL P$MST(0) CALL P$CUP(0) CALL P1448 GOTO 1567 1573 CONTINUE LINENO = 3549 CALL P$MST(0) CALL P$CUP(0) CALL P1453 GOTO 1567 1574 CONTINUE LINENO = 3550 CALL P$MST(0) CALL P$CUP(0) CALL P1460 GOTO 1567 1575 CONTINUE LINENO = 3551 CALL P$MST(0) CALL P$CUP(0) CALL P1467 GOTO 1567 1566 CONTINUE CALL P$CHK(INTL(1),INTL(10)) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$XJP($1576) 1576 CONTINUE 1577 GOTO 1568 1578 GOTO 1569 1579 GOTO 1570 1580 GOTO 1571 1581 GOTO 1572 1582 GOTO 1573 1583 GOTO 1574 1584 GOTO 1574 1585 GOTO 1575 1586 GOTO 1575 1567 CONTINUE LINENO = 3553 CALL P$LOD(0,14) CALL P$LDC(1,INTL(8)) CALL P$LEQ(1,1) CALL P$FJP($1587) LINENO = 3554 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1588) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1589 1588 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1589 CONTINUE 1587 CONTINUE 1562 CONTINUE GOTO 1590 1524 CONTINUE LINENO = 3557 CALL P$MST(0) CALL P$CUP(0) CALL P1478 1590 CONTINUE CALL P$RET(0) RETURN 1522 CONTINUE SG1SIZ = 15 SG2SIZ = 43 GOTO 1523 END SUBROUTINE P1595 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1596 99998 CALL P$UJC 1597 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3582 CALL P$LDO(1,13028) CALL P$LDC(1,INTL(399)) CALL P$LEQ(1,1) CALL P$FJP($1598) LINENO = 3583 CALL P$LAO(12624) CALL P$LDO(1,13028) CALL P$CHK(INTL(0),INTL(399)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$STO(4) LINENO = 3584 CALL P$LDO(1,13028) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,13028) GOTO 1599 1598 CONTINUE LINENO = 3586 CALL P$MST(9) CALL P$LDC(1,INTL(254)) CALL P$CUP(1) CALL P30 1599 CONTINUE CALL P$RET(0) RETURN 1596 CONTINUE SG1SIZ = 13 SG2SIZ = 23 GOTO 1597 END SUBROUTINE P1594 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1600 99998 CALL P$UJC 1601 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3590 CALL P$LDC(1,INTL(7)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32494)) CALL P$EQU(4,8) CALL P$FJP($1602) LINENO = 3591 CALL P$LODA(0,13) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,14) CALL P$LDC(1,INTL(0)) CALL P$STO(1) GOTO 1603 1602 CONTINUE LINENO = 3593 LINENO = 3594 CALL P$LODA(0,13) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LODA(0,14) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$STO(1) LINENO = 3595 CALL P$LDC(1,INTL(0)) CALL P$STR(0,16) CALL P$LDC(1,INTL(255)) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$STR(0,19) 1604 CONTINUE CALL P$LOD(0,16) CALL P$LOD(0,19) CALL P$LEQ(1) CALL P$FJP($1605) LINENO = 3596 CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32494)) CALL P$LDC(1,INTL(0)) CALL P$STRS(0,18) CALL P$LOD(0,16) CALL P$LDC(1,INTL(31)) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$MPI CALL P$STR(0,17) LINENO = 3597 CALL P$LDC(1,INTL(0)) CALL P$STR(0,15) CALL P$LDC(1,INTL(31)) CALL P$STR(0,20) 1606 CONTINUE CALL P$LOD(0,15) CALL P$LOD(0,20) CALL P$LEQ(1) CALL P$FJP($1607) LINENO = 3598 CALL P$LOD(0,15) CALL P$LOD(0,17) CALL P$ADI CALL P$LDC(1,INTL(7)) CALL P$LODS(0,5) CALL P$INN CALL P$FJP($1608) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,18) CALL P$LOD(0,15) CALL P$SGS CALL P$UNI CALL P$LDC(1,INTL(0)) CALL P$STRS(0,18) 1608 CONTINUE CALL P$LOD(0,15) CALL P$INC(1,INTL(1)) CALL P$STR(0,15) GOTO 1606 1607 CONTINUE LINENO = 3599 CALL P$LDC(1,INTL(0)) CALL P$LODS(0,18) CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32494)) CALL P$NEQ(4,1) CALL P$FJP($1609) LINENO = 3600 CALL P$LODA(0,13) CALL P$IND(1,0) CALL P$LODA(0,14) CALL P$IND(1,0) CALL P$LEQ(1,1) CALL P$LODA(0,14) CALL P$IND(1,0) CALL P$LOD(0,16) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LES(1,1) CALL P$AND CALL P$FJP($1610) LINENO = 3601 CALL P$LODA(0,14) CALL P$IND(1,0) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,15) CALL P$LOD(0,16) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STR(0,20) 1611 CONTINUE CALL P$LOD(0,15) CALL P$LOD(0,20) CALL P$LEQ(1) CALL P$FJP($1612) CALL P$MST(0) CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32494)) CALL P$CUP(8) CALL P1595 CALL P$LOD(0,15) CALL P$INC(1,INTL(1)) CALL P$STR(0,15) GOTO 1611 1612 CONTINUE 1610 CONTINUE LINENO = 3602 CALL P$MST(0) CALL P$LDC(1,INTL(0)) CALL P$LODS(0,18) CALL P$CUP(8) CALL P1595 LINENO = 3603 CALL P$LODA(0,14) CALL P$LOD(0,16) CALL P$STO(1) LINENO = 3604 CALL P$LOD(0,16) CALL P$LODA(0,13) CALL P$IND(1,0) CALL P$LES(1,1) CALL P$FJP($1613) CALL P$LODA(0,13) CALL P$LOD(0,16) CALL P$STO(1) 1613 CONTINUE 1609 CONTINUE CALL P$LOD(0,16) CALL P$INC(1,INTL(1)) CALL P$STR(0,16) GOTO 1604 1605 CONTINUE 1603 CONTINUE CALL P$RET(0) RETURN 1600 CONTINUE SG1SIZ = 21 SG2SIZ = 37 GOTO 1601 END SUBROUTINE P1614 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1615 99998 CALL P$UJC 1616 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3613 CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) LINENO = 3614 CALL P$LDO(1,228) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1617) LINENO = 3615 CALL P$LDO(1,230) CALL P$LDC(1,INTL(0)) CALL P$LES(1,1) CALL P$LDO(1,230) CALL P$LDC(1,INTL(255)) CALL P$GRT(1,1) CALL P$IOR CALL P$FJP($1618) LINENO = 3617 CALL P$MST(8) CALL P$LDC(1,INTL(304)) CALL P$CUP(1) CALL P30 LINENO = 3618 CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) 1618 CONTINUE 1617 CONTINUE CALL P$RET(1) RETURN 1615 CONTINUE SG1SIZ = 5 SG2SIZ = 11 GOTO 1616 END SUBROUTINE P1619 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1620 99998 CALL P$UJC 1621 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3626 CALL P$LDC(3,INTL(0)) CALL P$STR(0,0) LINENO = 3627 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1622) LINENO = 3628 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($1623) CALL P$MST(8) CALL P$LDC(1,INTL(136)) CALL P$CUP(1) CALL P30 GOTO 1624 1623 CONTINUE LINENO = 3629 CALL P$MST(7) CALL P$LODA(1,25) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$FJP($1625) LINENO = 3630 CALL P$LDC(3,INTL(1)) CALL P$STR(0,0) GOTO 1626 1625 CONTINUE LINENO = 3631 CALL P$MST(8) CALL P$LDC(1,INTL(137)) CALL P$CUP(1) CALL P30 1626 CONTINUE 1624 CONTINUE 1622 CONTINUE CALL P$RET(1) RETURN 1620 CONTINUE SG1SIZ = 5 SG2SIZ = 11 GOTO 1621 END SUBROUTINE P1593 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1627 99998 CALL P$UJC 1628 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3636 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,242) CALL P$INN CALL P$NOT CALL P$FJP($1629) LINENO = 3637 CALL P$MST(7) CALL P$LDC(1,INTL(58)) CALL P$CUP(1) CALL P30 CALL P$MST(7) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,242) CALL P$UNI CALL P$CUP(8) CALL P307 LINENO = 3638 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1629 CONTINUE LINENO = 3640 1630 CONTINUE LINENO = 3640 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,242) CALL P$INN CALL P$FJP($1631) LINENO = 3641 LINENO = 3642 CALL P$LDO(1,13) GOTO 1632 1634 CONTINUE LINENO = 3644 CALL P$MST(7) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32494)) CALL P$LDA(0,13) CALL P$CUP(9) CALL P337 LINENO = 3645 CALL P$MST(7) CALL P$CUP(0) CALL P62 LINENO = 3646 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1635) LINENO = 3647 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LODA(0,13) CALL P$CUP(9) CALL P1196 LINENO = 3648 CALL P$LDC(1,INTL(2)) CALL P$SRO(1,228) GOTO 1636 1635 CONTINUE LINENO = 3651 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1637) LINENO = 3652 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,33) LINENO = 3653 CALL P$LODA(0,33) CALL P$IND(0,4) CALL P$SRO(0,227) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,228) LINENO = 3654 CALL P$LAO(229) CALL P$LODA(0,33) CALL P$INC(0,INTL(7)) CALL P$MOV(2) GOTO 1638 1637 CONTINUE LINENO = 3657 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LODA(0,13) CALL P$CUP(9) CALL P1116 1638 CONTINUE 1636 CONTINUE GOTO 1633 1639 CONTINUE LINENO = 3660 LINENO = 3661 LINENO = 3662 CALL P$LDO(0,45) CALL P$SRO(0,227) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,228) LINENO = 3663 CALL P$LAO(229) CALL P$LAO(15) CALL P$MOV(2) LINENO = 3665 CALL P$MST(7) CALL P$CUP(0) CALL P62 GOTO 1633 1640 CONTINUE LINENO = 3668 LINENO = 3669 LINENO = 3670 CALL P$LDO(0,46) CALL P$SRO(0,227) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,228) LINENO = 3671 CALL P$LAO(229) CALL P$LAO(15) CALL P$MOV(2) LINENO = 3673 CALL P$MST(7) CALL P$CUP(0) CALL P62 GOTO 1633 1641 CONTINUE LINENO = 3676 LINENO = 3677 LINENO = 3678 LINENO = 3679 CALL P$LDO(1,17) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1642) CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) GOTO 1643 1642 CONTINUE LINENO = 3680 CALL P$LDO(1,17) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1644) CALL P$LDO(0,47) CALL P$SRO(0,227) GOTO 1645 1644 CONTINUE LINENO = 3682 CALL P$LDA(0,25) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 3683 CALL P$LODA(0,25) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,33) LINENO = 3684 CALL P$LODA(0,33) CALL P$INC(0,INTL(5)) CALL P$LDO(0,47) CALL P$STO(0) CALL P$LODA(0,33) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) LINENO = 3685 CALL P$LODA(0,33) CALL P$INC(0,INTL(1)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) LINENO = 3686 CALL P$LDA(0,24) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 3687 CALL P$LODA(0,33) CALL P$INC(0,INTL(4)) CALL P$LODA(0,24) CALL P$STO(0) LINENO = 3688 CALL P$LODA(0,33) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,34) LINENO = 3689 CALL P$LODA(0,34) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 3690 CALL P$LODA(0,34) CALL P$INC(0,INTL(4)) CALL P$LDO(0,45) CALL P$STO(0) LINENO = 3691 CALL P$LODA(0,34) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 3692 CALL P$LODA(0,34) CALL P$INC(0,INTL(6)) CALL P$LDO(1,17) CALL P$STO(1) LINENO = 3694 CALL P$LODA(0,33) CALL P$INC(0,INTL(2)) CALL P$LDO(1,17) CALL P$LDC(1,INTL(3)) CALL P$ADI CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 3696 CALL P$LODA(0,25) CALL P$SRO(0,227) 1645 CONTINUE 1643 CONTINUE LINENO = 3698 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,228) CALL P$LAO(229) CALL P$LAO(15) CALL P$MOV(2) LINENO = 3700 CALL P$MST(7) CALL P$CUP(0) CALL P62 GOTO 1633 1646 CONTINUE LINENO = 3703 CALL P$MST(7) CALL P$CUP(0) CALL P62 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32495)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3704 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$EQU(1,1) CALL P$FJP($1647) CALL P$MST(7) CALL P$CUP(0) CALL P62 GOTO 1648 1647 CONTINUE CALL P$MST(7) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 1648 CONTINUE GOTO 1633 1649 CONTINUE LINENO = 3707 CALL P$MST(7) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P1593 LINENO = 3708 CALL P$MST(5) CALL P$CUP(0) CALL P979 CALL P$MST(5) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3709 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1650) LINENO = 3710 CALL P$LDO(0,227) CALL P$LDO(0,48) CALL P$NEQ(0,1) CALL P$FJP($1651) LINENO = 3711 CALL P$MST(7) CALL P$LDC(1,INTL(135)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1651 CONTINUE 1650 CONTINUE GOTO 1633 1652 CONTINUE LINENO = 3714 CALL P$MST(7) CALL P$CUP(0) CALL P62 CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32496)) CALL P$LDC(1,INTL(7)) CALL P$STRS(0,16) CALL P$LDC(3,INTL(0)) CALL P$STR(0,15) LINENO = 3715 CALL P$LDA(0,25) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 3716 CALL P$LODA(0,25) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,33) LINENO = 3717 CALL P$LODA(0,33) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,33) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,33) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$STO(1) LINENO = 3718 CALL P$LDO(1,13) CALL P$LDC(1,INTL(11)) CALL P$EQU(1,1) CALL P$FJP($1653) LINENO = 3719 LINENO = 3720 LINENO = 3721 CALL P$LODA(0,25) CALL P$SRO(0,227) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,228) LINENO = 3722 CALL P$MST(7) CALL P$CUP(0) CALL P62 GOTO 1654 1653 CONTINUE LINENO = 3725 LINENO = 3726 1655 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32496)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3727 CALL P$MST(0) CALL P$CUP(0) CALL P1619 CALL P$FJP($1656) LINENO = 3728 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$NEQ(1,1) CALL P$FJP($1657) LINENO = 3729 LINENO = 3730 CALL P$LDO(1,228) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1658) LINENO = 3731 CALL P$MST(0) CALL P$CUP(0) CALL P1614 CALL P$NOT CALL P$FJP($1659) LINENO = 3732 CALL P$LDC(1,INTL(7)) CALL P$LODS(0,16) CALL P$LDO(1,230) CALL P$SGS CALL P$UNI CALL P$LDC(1,INTL(7)) CALL P$STRS(0,16) 1659 CONTINUE GOTO 1660 1658 CONTINUE LINENO = 3735 CALL P$MST(5) CALL P$CUP(0) CALL P979 LINENO = 3736 CALL P$MST(5) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3737 CALL P$LOD(0,15) CALL P$FJP($1661) CALL P$MST(5) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1662 1661 CONTINUE LINENO = 3738 CALL P$LDC(3,INTL(1)) CALL P$STR(0,15) 1662 CONTINUE 1660 CONTINUE LINENO = 3740 CALL P$LODA(0,25) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LDO(0,227) CALL P$STO(0) GOTO 1663 1657 CONTINUE LINENO = 3742 LINENO = 3743 CALL P$MST(0) CALL P$CUP(0) CALL P1614 CALL P$FJP($1664) CALL P$LDC(1,INTL(255)) CALL P$SRO(1,230) 1664 CONTINUE LINENO = 3744 CALL P$MST(5) CALL P$CUP(0) CALL P979 LINENO = 3745 CALL P$LODA(0,25) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LDO(0,227) CALL P$STO(0) LINENO = 3746 CALL P$MST(7) CALL P$CUP(0) CALL P62 LINENO = 3747 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32497)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 3748 CALL P$MST(0) CALL P$CUP(0) CALL P1619 CALL P$FJP($1665) LINENO = 3749 CALL P$MST(0) CALL P$CUP(0) CALL P1614 CALL P$FJP($1666) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,230) 1666 CONTINUE LINENO = 3750 CALL P$MST(5) CALL P$CUP(0) CALL P979 LINENO = 3751 CALL P$MST(5) CALL P$LDC(1,INTL(59)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1667 1665 CONTINUE LINENO = 3754 CALL P$MST(5) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 1667 CONTINUE LINENO = 3755 CALL P$LOD(0,15) CALL P$FJP($1668) CALL P$MST(5) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1669 1668 CONTINUE LINENO = 3756 CALL P$LDC(3,INTL(1)) CALL P$STR(0,15) 1669 CONTINUE 1663 CONTINUE LINENO = 3758 CALL P$LODA(0,25) CALL P$SRO(0,227) GOTO 1670 1656 CONTINUE LINENO = 3760 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1670 CONTINUE LINENO = 3761 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(6,16) LINENO = 3762 CALL P$LOD(6,16) CALL P$NOT CALL P$FJP($1671) CALL P$MST(7) CALL P$CUP(0) CALL P62 1671 CONTINUE LINENO = 3763 CALL P$LOD(6,16) CALL P$FJP($1655) LINENO = 3764 CALL P$LDO(1,13) CALL P$LDC(1,INTL(11)) CALL P$EQU(1,1) CALL P$FJP($1672) CALL P$MST(7) CALL P$CUP(0) CALL P62 GOTO 1673 1672 CONTINUE CALL P$MST(7) CALL P$LDC(1,INTL(12)) CALL P$CUP(1) CALL P30 1673 CONTINUE 1654 CONTINUE LINENO = 3766 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1674) LINENO = 3767 CALL P$MST(7) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,28) CALL P$LDA(0,29) CALL P$CUP(3) CALL P364 LINENO = 3768 CALL P$LOD(0,29) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$LOD(0,28) CALL P$LDC(1,INTL(32)) CALL P$DVI CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,30) LINENO = 3769 CALL P$LOD(0,30) CALL P$LDC(1,INTL(8)) CALL P$GRT(1,1) CALL P$FJP($1675) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) GOTO 1676 1675 CONTINUE LINENO = 3770 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LOD(0,30) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) 1676 CONTINUE LINENO = 3771 CALL P$LDO(1,13028) CALL P$STR(0,30) LINENO = 3772 CALL P$MST(0) CALL P$LDC(1,INTL(7)) CALL P$LODS(0,16) CALL P$LDA(0,27) CALL P$LDA(0,26) CALL P$CUP(10) CALL P1594 LINENO = 3773 CALL P$LDA(0,14) CALL P$LDC(1,INTL(4)) CALL P$NEW LINENO = 3774 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,33) LINENO = 3775 CALL P$LODA(0,33) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,33) CALL P$INC(0,INTL(1)) CALL P$LOD(0,30) CALL P$CHK(INTL(0),INTL(399)) CALL P$STO(1) LINENO = 3776 CALL P$LODA(0,33) CALL P$INC(0,INTL(3)) CALL P$LOD(0,27) CALL P$CHK(INTL(0),INTL(7)) CALL P$STO(1) CALL P$LODA(0,33) CALL P$INC(0,INTL(2)) CALL P$LOD(0,26) CALL P$CHK(INTL(0),INTL(7)) CALL P$STO(1) LINENO = 3778 CALL P$LOD(0,15) CALL P$FJP($1677) LINENO = 3779 CALL P$LDC(1,INTL(7)) CALL P$LODS(0,16) CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32498)) CALL P$NEQ(4,8) CALL P$FJP($1678) LINENO = 3780 LINENO = 3781 CALL P$LODA(0,14) CALL P$STRA(0,32) LINENO = 3782 CALL P$MST(5) CALL P$LODA(0,25) CALL P$LDA(0,31) CALL P$CUP(2) CALL P965 LINENO = 3783 CALL P$MST(5) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 CALL P$LDC(1,INTL(2)) CALL P$SRO(1,228) 1678 CONTINUE GOTO 1679 1677 CONTINUE LINENO = 3787 CALL P$LODA(0,14) CALL P$SRO(0,230) 1679 CONTINUE 1674 CONTINUE GOTO 1633 1632 CONTINUE CALL P$CHK(INTL(0),INTL(10)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1680) 1680 CONTINUE 1681 GOTO 1634 1682 GOTO 1639 1683 GOTO 1640 1684 GOTO 1641 1685 GOTO 1649 1686 GOTO 99998 1687 GOTO 99998 1688 GOTO 99998 1689 GOTO 1646 1690 GOTO 99998 1691 GOTO 1652 1633 CONTINUE LINENO = 3791 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$INN CALL P$NOT CALL P$FJP($1692) LINENO = 3792 CALL P$MST(7) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(7) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,242) CALL P$UNI CALL P$CUP(8) CALL P307 1692 CONTINUE GOTO 1630 1631 CONTINUE CALL P$RET(0) RETURN 1627 CONTINUE SG1SIZ = 35 SG2SIZ = 213 GOTO 1628 END SUBROUTINE P1592 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1693 99998 CALL P$UJC 1694 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3797 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32498)) CALL P$UNI CALL P$CUP(8) CALL P1593 LINENO = 3798 CALL P$LDO(1,13) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1695) CALL P$MST(3) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 1695 CONTINUE LINENO = 3799 1696 CONTINUE LINENO = 3799 CALL P$LDO(1,13) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1697) LINENO = 3800 CALL P$MST(4) CALL P$CUP(0) CALL P979 CALL P$LDA(0,13) CALL P$LAO(227) CALL P$MOV(5) CALL P$LDO(1,14) CALL P$STR(0,18) LINENO = 3801 CALL P$MST(6) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32499)) CALL P$UNI CALL P$CUP(8) CALL P1593 CALL P$MST(4) CALL P$CUP(0) CALL P979 CALL P$MST(3) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3802 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($1698) LINENO = 3803 CALL P$LOD(0,18) GOTO 1699 1701 CONTINUE LINENO = 3804 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1702) LINENO = 3805 CALL P$MST(4) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1703 1702 CONTINUE LINENO = 3807 LINENO = 3808 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1704) LINENO = 3809 CALL P$MST(4) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3810 CALL P$LDO(0,46) CALL P$STRA(0,13) GOTO 1705 1704 CONTINUE LINENO = 3813 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1706) LINENO = 3814 CALL P$MST(4) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3815 CALL P$LDO(0,46) CALL P$SRO(0,227) 1706 CONTINUE 1705 CONTINUE LINENO = 3817 CALL P$LODA(0,13) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1707) LINENO = 3818 CALL P$MST(4) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1708 1707 CONTINUE LINENO = 3820 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$MST(5) CALL P$LODA(0,13) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$FJP($1709) LINENO = 3822 CALL P$MST(4) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1710 1709 CONTINUE LINENO = 3823 CALL P$MST(6) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1710 CONTINUE 1708 CONTINUE 1703 CONTINUE GOTO 1700 1711 CONTINUE LINENO = 3825 LINENO = 3826 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1712) LINENO = 3827 CALL P$MST(4) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3828 CALL P$LDO(0,46) CALL P$SRO(0,227) 1712 CONTINUE LINENO = 3830 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1713) LINENO = 3831 CALL P$MST(4) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3832 CALL P$LDO(0,46) CALL P$STRA(0,13) 1713 CONTINUE LINENO = 3834 CALL P$LODA(0,13) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1714) LINENO = 3835 CALL P$MST(4) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1715 1714 CONTINUE LINENO = 3836 CALL P$MST(6) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1715 CONTINUE GOTO 1700 1716 CONTINUE LINENO = 3838 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1717) LINENO = 3839 CALL P$MST(4) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1718 1717 CONTINUE LINENO = 3840 CALL P$MST(6) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1718 CONTINUE GOTO 1700 1719 CONTINUE LINENO = 3841 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1720) LINENO = 3842 CALL P$MST(4) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1721 1720 CONTINUE LINENO = 3843 CALL P$MST(6) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1721 CONTINUE GOTO 1700 1722 CONTINUE LINENO = 3844 CALL P$LODA(0,13) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1723) LINENO = 3845 CALL P$MST(4) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1724 1723 CONTINUE LINENO = 3846 CALL P$MST(6) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1724 CONTINUE GOTO 1700 1699 CONTINUE CALL P$CHK(INTL(0),INTL(4)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1725) 1725 CONTINUE 1726 GOTO 1701 1727 GOTO 1711 1728 GOTO 1722 1729 GOTO 1716 1730 GOTO 1719 1700 CONTINUE GOTO 1731 1698 CONTINUE LINENO = 3848 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1731 CONTINUE GOTO 1696 1697 CONTINUE CALL P$RET(0) RETURN 1693 CONTINUE SG1SIZ = 19 SG2SIZ = 79 GOTO 1694 END SUBROUTINE P1591 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1732 99998 CALL P$UJC 1733 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3853 CALL P$LDC(3,INTL(0)) CALL P$STR(0,19) LINENO = 3854 CALL P$LDO(1,13) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$LDO(1,14) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32500)) CALL P$INN CALL P$AND CALL P$FJP($1734) LINENO = 3855 CALL P$LDO(1,14) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$STR(0,19) CALL P$MST(5) CALL P$CUP(0) CALL P62 1734 CONTINUE LINENO = 3856 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32501)) CALL P$UNI CALL P$CUP(8) CALL P1592 LINENO = 3857 CALL P$LOD(0,19) CALL P$FJP($1735) LINENO = 3858 CALL P$MST(3) CALL P$CUP(0) CALL P979 CALL P$MST(2) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3859 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1736) CALL P$MST(3) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1737 1736 CONTINUE LINENO = 3861 CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1738) CALL P$MST(3) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1739 1738 CONTINUE LINENO = 3862 CALL P$MST(5) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1739 CONTINUE 1737 CONTINUE 1735 CONTINUE LINENO = 3864 CALL P$LDO(1,13) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($1740) CALL P$MST(2) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 1740 CONTINUE LINENO = 3865 1741 CONTINUE LINENO = 3865 CALL P$LDO(1,13) CALL P$LDC(1,INTL(6)) CALL P$EQU(1,1) CALL P$FJP($1742) LINENO = 3866 CALL P$MST(3) CALL P$CUP(0) CALL P979 CALL P$LDA(0,13) CALL P$LAO(227) CALL P$MOV(5) CALL P$LDO(1,14) CALL P$STR(0,18) LINENO = 3867 CALL P$MST(5) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32502)) CALL P$UNI CALL P$CUP(8) CALL P1592 CALL P$MST(3) CALL P$CUP(0) CALL P979 CALL P$MST(2) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3868 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($1743) LINENO = 3869 CALL P$LOD(0,18) GOTO 1744 1746 CONTINUE LINENO = 3871 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1747) LINENO = 3872 CALL P$MST(3) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1748 1747 CONTINUE LINENO = 3874 LINENO = 3875 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1749) LINENO = 3876 CALL P$MST(3) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3877 CALL P$LDO(0,46) CALL P$STRA(0,13) GOTO 1750 1749 CONTINUE LINENO = 3880 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1751) LINENO = 3881 CALL P$MST(3) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3882 CALL P$LDO(0,46) CALL P$SRO(0,227) 1751 CONTINUE 1750 CONTINUE LINENO = 3884 CALL P$LODA(0,13) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1752) LINENO = 3885 CALL P$MST(3) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1753 1752 CONTINUE LINENO = 3886 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$MST(4) CALL P$LODA(0,13) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$FJP($1754) LINENO = 3888 CALL P$MST(3) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1755 1754 CONTINUE LINENO = 3889 CALL P$MST(5) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1755 CONTINUE 1753 CONTINUE 1748 CONTINUE GOTO 1745 1756 CONTINUE LINENO = 3892 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1757) LINENO = 3893 CALL P$MST(3) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1758 1757 CONTINUE LINENO = 3895 LINENO = 3896 CALL P$LODA(0,13) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1759) LINENO = 3897 CALL P$MST(3) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3898 CALL P$LDO(0,46) CALL P$STRA(0,13) GOTO 1760 1759 CONTINUE LINENO = 3901 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1761) LINENO = 3902 CALL P$MST(3) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3903 CALL P$LDO(0,46) CALL P$SRO(0,227) 1761 CONTINUE 1760 CONTINUE LINENO = 3905 CALL P$LODA(0,13) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1762) LINENO = 3906 CALL P$MST(3) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1763 1762 CONTINUE LINENO = 3908 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$MST(4) CALL P$LODA(0,13) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$FJP($1764) LINENO = 3910 CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1765 1764 CONTINUE LINENO = 3911 CALL P$MST(5) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1765 CONTINUE 1763 CONTINUE 1758 CONTINUE GOTO 1745 1766 CONTINUE LINENO = 3914 CALL P$LODA(0,13) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$LDO(0,227) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$AND CALL P$FJP($1767) LINENO = 3915 CALL P$MST(3) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1768 1767 CONTINUE LINENO = 3916 CALL P$MST(5) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1768 CONTINUE GOTO 1745 1744 CONTINUE CALL P$CHK(INTL(5),INTL(7)) CALL P$LDC(1,INTL(5)) CALL P$SBI CALL P$XJP($1769) 1769 CONTINUE 1770 GOTO 1746 1771 GOTO 1756 1772 GOTO 1766 1745 CONTINUE GOTO 1773 1743 CONTINUE LINENO = 3918 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1773 CONTINUE GOTO 1741 1742 CONTINUE CALL P$RET(0) RETURN 1732 CONTINUE SG1SIZ = 20 SG2SIZ = 85 GOTO 1733 END SUBROUTINE P1103 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1774 99998 CALL P$UJC 1775 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 3923 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32503)) CALL P$UNI CALL P$CUP(8) CALL P1591 LINENO = 3924 CALL P$LDO(1,13) CALL P$LDC(1,INTL(7)) CALL P$EQU(1,1) CALL P$FJP($1776) LINENO = 3925 LINENO = 3926 CALL P$MST(1) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3927 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1777) LINENO = 3928 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$LEQ(1,1) CALL P$FJP($1778) CALL P$MST(2) CALL P$CUP(0) CALL P979 GOTO 1779 1778 CONTINUE LINENO = 3929 CALL P$MST(2) CALL P$CUP(0) CALL P1022 1779 CONTINUE 1777 CONTINUE LINENO = 3930 CALL P$LDA(0,7) CALL P$LAO(227) CALL P$MOV(5) CALL P$LDO(1,14) CALL P$STR(0,12) LINENO = 3934 CALL P$MST(4) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P1591 LINENO = 3935 CALL P$MST(1) CALL P$LAO(227) CALL P$CUP(1) CALL P1104 LINENO = 3936 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1780) LINENO = 3937 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$LEQ(1,1) CALL P$FJP($1781) CALL P$MST(2) CALL P$CUP(0) CALL P979 GOTO 1782 1781 CONTINUE LINENO = 3938 CALL P$MST(2) CALL P$CUP(0) CALL P1022 1782 CONTINUE 1780 CONTINUE LINENO = 3939 CALL P$LODA(0,7) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($1783) LINENO = 3940 CALL P$LOD(0,12) CALL P$LDC(1,INTL(14)) CALL P$EQU(1,1) CALL P$FJP($1784) LINENO = 3941 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$EQU(1,1) CALL P$FJP($1785) LINENO = 3942 CALL P$MST(3) CALL P$LODA(0,7) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CUP(2) CALL P460 CALL P$FJP($1786) LINENO = 3943 CALL P$MST(2) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 1787 1786 CONTINUE LINENO = 3944 CALL P$MST(4) CALL P$LDC(1,INTL(129)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1787 CONTINUE GOTO 1788 1785 CONTINUE LINENO = 3945 CALL P$MST(4) CALL P$LDC(1,INTL(130)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,227) 1788 CONTINUE GOTO 1789 1784 CONTINUE LINENO = 3947 LINENO = 3948 CALL P$LODA(0,7) CALL P$LDO(0,227) CALL P$NEQ(0,1) CALL P$FJP($1790) LINENO = 3949 CALL P$LODA(0,7) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1791) LINENO = 3950 CALL P$MST(2) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3951 CALL P$LDO(0,46) CALL P$STRA(0,7) GOTO 1792 1791 CONTINUE LINENO = 3954 CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($1793) LINENO = 3955 CALL P$MST(2) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 3956 CALL P$LDO(0,46) CALL P$SRO(0,227) 1793 CONTINUE 1792 CONTINUE 1790 CONTINUE LINENO = 3958 CALL P$MST(3) CALL P$LODA(0,7) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$FJP($1794) LINENO = 3959 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,14) LINENO = 3960 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) GOTO 1795 1797 CONTINUE LINENO = 3962 CALL P$LODA(0,7) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($1798) CALL P$LDC(1,INTL(2)) CALL P$STR(0,13) GOTO 1799 1798 CONTINUE LINENO = 3964 CALL P$LODA(0,7) CALL P$LDO(0,48) CALL P$EQU(0,1) CALL P$FJP($1800) CALL P$LDC(1,INTL(3)) CALL P$STR(0,13) GOTO 1801 1800 CONTINUE LINENO = 3966 CALL P$LODA(0,7) CALL P$LDO(0,47) CALL P$EQU(0,1) CALL P$FJP($1802) CALL P$LDC(1,INTL(6)) CALL P$STR(0,13) GOTO 1803 1802 CONTINUE LINENO = 3967 CALL P$LDC(1,INTL(1)) CALL P$STR(0,13) 1803 CONTINUE 1801 CONTINUE 1799 CONTINUE GOTO 1796 1804 CONTINUE LINENO = 3969 LINENO = 3970 CALL P$LOD(0,12) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32504)) CALL P$INN CALL P$FJP($1805) CALL P$MST(4) CALL P$LDC(1,INTL(131)) CALL P$CUP(1) CALL P30 1805 CONTINUE LINENO = 3971 CALL P$LDC(1,INTL(0)) CALL P$STR(0,13) GOTO 1796 1806 CONTINUE LINENO = 3974 CALL P$LOD(0,12) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32505)) CALL P$INN CALL P$FJP($1807) CALL P$MST(4) CALL P$LDC(1,INTL(132)) CALL P$CUP(1) CALL P30 1807 CONTINUE LINENO = 3975 CALL P$LDC(1,INTL(4)) CALL P$STR(0,13) CALL P$MST(2) CALL P$LDC(1,INTL(15)) CALL P$NGI CALL P$CUP(1) CALL P888 GOTO 1796 1808 CONTINUE LINENO = 3978 LINENO = 3979 CALL P$MST(3) CALL P$LODA(0,7) CALL P$CUP(1) CALL P496 CALL P$NOT CALL P$FJP($1809) CALL P$MST(4) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 1809 CONTINUE LINENO = 3980 CALL P$MST(4) CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDA(0,15) CALL P$LDA(0,16) CALL P$CUP(3) CALL P364 LINENO = 3981 CALL P$LOD(0,16) CALL P$LOD(0,15) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,14) LINENO = 3982 CALL P$LDC(1,INTL(5)) CALL P$STR(0,13) GOTO 1796 1810 CONTINUE LINENO = 3985 LINENO = 3986 CALL P$MST(4) CALL P$LDC(1,INTL(134)) CALL P$CUP(1) CALL P30 LINENO = 3987 CALL P$LDC(1,INTL(5)) CALL P$STR(0,13) GOTO 1796 1811 CONTINUE LINENO = 3990 CALL P$MST(4) CALL P$LDC(1,INTL(133)) CALL P$CUP(1) CALL P30 CALL P$LDC(1,INTL(1)) CALL P$STR(0,13) GOTO 1796 1795 CONTINUE CALL P$CHK(INTL(0),INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1812) 1812 CONTINUE 1813 GOTO 1797 1814 GOTO 99998 1815 GOTO 1804 1816 GOTO 1806 1817 GOTO 1808 1818 GOTO 1810 1819 GOTO 1811 1796 CONTINUE LINENO = 3992 CALL P$LOD(0,12) GOTO 1820 1822 CONTINUE LINENO = 3993 CALL P$MST(2) CALL P$LDC(1,INTL(53)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$CUP(3) CALL P903 GOTO 1821 1823 CONTINUE LINENO = 3994 CALL P$MST(2) CALL P$LDC(1,INTL(52)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$CUP(3) CALL P903 GOTO 1821 1824 CONTINUE LINENO = 3995 CALL P$MST(2) CALL P$LDC(1,INTL(49)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$CUP(3) CALL P903 GOTO 1821 1825 CONTINUE LINENO = 3996 CALL P$MST(2) CALL P$LDC(1,INTL(48)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$CUP(3) CALL P903 GOTO 1821 1826 CONTINUE LINENO = 3997 CALL P$MST(2) CALL P$LDC(1,INTL(55)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$CUP(3) CALL P903 GOTO 1821 1827 CONTINUE LINENO = 3998 CALL P$MST(2) CALL P$LDC(1,INTL(47)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$CUP(3) CALL P903 GOTO 1821 1820 CONTINUE CALL P$CHK(INTL(8),INTL(13)) CALL P$LDC(1,INTL(8)) CALL P$SBI CALL P$XJP($1828) 1828 CONTINUE 1829 GOTO 1822 1830 GOTO 1823 1831 GOTO 1825 1832 GOTO 1824 1833 GOTO 1826 1834 GOTO 1827 1821 CONTINUE GOTO 1835 1794 CONTINUE LINENO = 4001 CALL P$MST(4) CALL P$LDC(1,INTL(129)) CALL P$CUP(1) CALL P30 1835 CONTINUE 1789 CONTINUE 1783 CONTINUE LINENO = 4003 CALL P$LDO(0,48) CALL P$SRO(0,227) CALL P$LDC(1,INTL(2)) CALL P$SRO(1,228) 1776 CONTINUE CALL P$RET(0) RETURN 1774 CONTINUE SG1SIZ = 17 SG2SIZ = 113 GOTO 1775 END SUBROUTINE P1836 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1837 99998 CALL P$UJC 1838 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4011 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32506)) CALL P$UNI CALL P$LODA(0,5) CALL P$CUP(9) CALL P1116 LINENO = 4012 CALL P$LDO(1,13) CALL P$LDC(1,INTL(17)) CALL P$EQU(1,1) CALL P$FJP($1839) LINENO = 4013 LINENO = 4014 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1840) LINENO = 4015 CALL P$LDO(1,229) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$GRT(1,1) CALL P$IOR CALL P$FJP($1841) LINENO = 4016 CALL P$MST(2) CALL P$CUP(0) CALL P1022 1841 CONTINUE 1840 CONTINUE LINENO = 4017 CALL P$LDA(0,6) CALL P$LAO(227) CALL P$MOV(5) LINENO = 4018 CALL P$MST(4) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P1103 LINENO = 4019 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1842) LINENO = 4020 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$LEQ(1,1) CALL P$FJP($1843) CALL P$MST(2) CALL P$CUP(0) CALL P979 GOTO 1844 1843 CONTINUE LINENO = 4021 CALL P$MST(2) CALL P$CUP(0) CALL P1022 1844 CONTINUE 1842 CONTINUE LINENO = 4022 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$AND CALL P$FJP($1845) LINENO = 4023 LINENO = 4024 CALL P$MST(3) CALL P$LDO(0,46) CALL P$LODA(0,6) CALL P$CUP(2) CALL P460 CALL P$MST(3) CALL P$LDO(0,227) CALL P$LDO(0,45) CALL P$CUP(2) CALL P460 CALL P$AND CALL P$FJP($1846) LINENO = 4026 CALL P$MST(2) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 4027 CALL P$LDO(0,46) CALL P$SRO(0,227) 1846 CONTINUE LINENO = 4029 CALL P$MST(3) CALL P$LODA(0,6) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$FJP($1847) LINENO = 4030 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) GOTO 1848 1850 CONTINUE LINENO = 4032 LINENO = 4033 CALL P$MST(2) CALL P$LODA(0,6) CALL P$LDO(0,227) CALL P$CUP(2) CALL P1088 CALL P$FJP($1851) LINENO = 4034 CALL P$MST(2) CALL P$LODA(0,6) CALL P$CUP(1) CALL P1081 1851 CONTINUE LINENO = 4035 CALL P$MST(2) CALL P$LDA(0,6) CALL P$CUP(1) CALL P1004 GOTO 1849 1852 CONTINUE LINENO = 4037 LINENO = 4038 CALL P$LDO(3,38) CALL P$LDO(3,37) CALL P$AND CALL P$FJP($1853) LINENO = 4039 CALL P$MST(2) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LDC(1,INTL(32767)) CALL P$LDO(0,49) CALL P$CUP(4) CALL P959 1853 CONTINUE LINENO = 4040 CALL P$MST(2) CALL P$LDA(0,6) CALL P$CUP(1) CALL P1004 GOTO 1849 1854 CONTINUE LINENO = 4042 CALL P$MST(2) CALL P$LDA(0,6) CALL P$CUP(1) CALL P1004 GOTO 1849 1855 CONTINUE LINENO = 4044 CALL P$MST(2) CALL P$LDC(1,INTL(40)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$CUP(2) CALL P896 GOTO 1849 1856 CONTINUE LINENO = 4045 CALL P$MST(4) CALL P$LDC(1,INTL(146)) CALL P$CUP(1) CALL P30 GOTO 1849 1848 CONTINUE CALL P$CHK(INTL(0),INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($1857) 1857 CONTINUE 1858 GOTO 1850 1859 GOTO 1850 1860 GOTO 1852 1861 GOTO 1854 1862 GOTO 1855 1863 GOTO 1855 1864 GOTO 1856 1849 CONTINUE GOTO 1865 1847 CONTINUE LINENO = 4047 CALL P$MST(4) CALL P$LDC(1,INTL(129)) CALL P$CUP(1) CALL P30 1865 CONTINUE 1845 CONTINUE GOTO 1866 1839 CONTINUE LINENO = 4050 CALL P$MST(4) CALL P$LDC(1,INTL(51)) CALL P$CUP(1) CALL P30 1866 CONTINUE CALL P$RET(0) RETURN 1837 CONTINUE SG1SIZ = 11 SG2SIZ = 75 GOTO 1838 END SUBROUTINE P1867 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1868 99998 CALL P$UJC 1869 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4056 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($1870) LINENO = 4057 LINENO = 4058 CALL P$LDC(3,INTL(0)) CALL P$STR(0,6) LINENO = 4059 CALL P$LDO(1,64) CALL P$STR(0,8) LINENO = 4060 1871 CONTINUE LINENO = 4060 CALL P$LAO(65) CALL P$LOD(0,8) CALL P$IXA(6) CALL P$IND(1,3) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($1872) CALL P$LOD(0,8) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$CHK(INTL(0),INTL(20)) CALL P$STR(0,8) GOTO 1871 1872 CONTINUE LINENO = 4061 CALL P$LOD(0,8) CALL P$STR(0,7) LINENO = 4062 1873 CONTINUE LINENO = 4063 CALL P$LAO(65) CALL P$LOD(0,8) CALL P$IXA(6) CALL P$IND(0,1) CALL P$STRA(0,5) LINENO = 4064 1874 CONTINUE LINENO = 4064 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LOD(0,6) CALL P$NOT CALL P$AND CALL P$FJP($1875) LINENO = 4065 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,10) LINENO = 4066 CALL P$LODA(0,10) CALL P$IND(1,3) CALL P$LDO(1,16) CALL P$EQU(1,1) CALL P$FJP($1876) LINENO = 4067 CALL P$LDC(3,INTL(1)) CALL P$STR(0,6) LINENO = 4068 CALL P$LOD(0,8) CALL P$LOD(0,7) CALL P$EQU(1,1) CALL P$FJP($1877) LINENO = 4069 CALL P$MST(2) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,10) CALL P$IND(1,2) CALL P$CUP(2) CALL P1055 CALL P$MST(4) CALL P$LDA(0,9) CALL P$CUP(1) CALL P412 LINENO = 4070 CALL P$MST(2) CALL P$LOD(0,9) CALL P$CUP(1) CALL P1097 GOTO 1878 1877 CONTINUE LINENO = 4071 CALL P$MST(4) CALL P$LDC(1,INTL(399)) CALL P$CUP(1) CALL P30 1878 CONTINUE GOTO 1879 1876 CONTINUE LINENO = 4073 CALL P$LODA(0,10) CALL P$IND(0,0) CALL P$STRA(0,5) 1879 CONTINUE GOTO 1874 1875 CONTINUE LINENO = 4074 CALL P$LOD(0,8) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$CHK(INTL(0),INTL(20)) CALL P$STR(0,8) LINENO = 4075 CALL P$LOD(0,6) CALL P$LOD(0,8) CALL P$LDC(1,INTL(0)) CALL P$LEQ(1,1) CALL P$IOR CALL P$FJP($1873) LINENO = 4076 CALL P$LOD(0,6) CALL P$NOT CALL P$FJP($1880) CALL P$MST(4) CALL P$LDC(1,INTL(167)) CALL P$CUP(1) CALL P30 1880 CONTINUE LINENO = 4077 CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1881 1870 CONTINUE LINENO = 4079 CALL P$MST(4) CALL P$LDC(1,INTL(15)) CALL P$CUP(1) CALL P30 1881 CONTINUE CALL P$RET(0) RETURN 1868 CONTINUE SG1SIZ = 11 SG2SIZ = 21 GOTO 1869 END SUBROUTINE P1882 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1883 99998 CALL P$UJC 1884 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4084 1885 CONTINUE LINENO = 4085 1886 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32507)) CALL P$UNI CALL P$CUP(8) CALL P1101 LINENO = 4086 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$NOT CALL P$FJP($1886) LINENO = 4087 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$STR(3,16) LINENO = 4088 CALL P$LOD(3,16) CALL P$NOT CALL P$FJP($1887) CALL P$MST(4) CALL P$CUP(0) CALL P62 1887 CONTINUE LINENO = 4089 CALL P$LOD(3,16) CALL P$FJP($1885) LINENO = 4090 CALL P$LDO(1,13) CALL P$LDC(1,INTL(39)) CALL P$EQU(1,1) CALL P$FJP($1888) LINENO = 4091 CALL P$LDO(1,28) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,28) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1889 1888 CONTINUE LINENO = 4092 CALL P$MST(4) CALL P$LDC(1,INTL(13)) CALL P$CUP(1) CALL P30 1889 CONTINUE CALL P$RET(0) RETURN 1883 CONTINUE SG1SIZ = 5 SG2SIZ = 39 GOTO 1884 END SUBROUTINE P1890 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1891 99998 CALL P$UJC 1892 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4097 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32509)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 4098 CALL P$MST(4) CALL P$LDA(0,6) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LOD(0,6) CALL P$CUP(1) CALL P1049 LINENO = 4099 CALL P$LDO(1,13) CALL P$LDC(1,INTL(51)) CALL P$EQU(1,1) CALL P$FJP($1893) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1894 1893 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(52)) CALL P$CUP(1) CALL P30 1894 CONTINUE LINENO = 4100 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32510)) CALL P$UNI CALL P$CUP(8) CALL P1101 LINENO = 4101 CALL P$LDO(1,13) CALL P$LDC(1,INTL(40)) CALL P$EQU(1,1) CALL P$FJP($1895) LINENO = 4102 CALL P$MST(4) CALL P$LDA(0,5) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,5) CALL P$CUP(2) CALL P1055 LINENO = 4103 CALL P$MST(2) CALL P$LOD(0,6) CALL P$CUP(1) CALL P1097 LINENO = 4104 CALL P$MST(4) CALL P$CUP(0) CALL P62 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P1101 LINENO = 4105 CALL P$MST(2) CALL P$LOD(0,5) CALL P$CUP(1) CALL P1097 GOTO 1896 1895 CONTINUE LINENO = 4107 CALL P$MST(2) CALL P$LOD(0,6) CALL P$CUP(1) CALL P1097 1896 CONTINUE CALL P$RET(0) RETURN 1891 CONTINUE SG1SIZ = 7 SG2SIZ = 71 GOTO 1892 END SUBROUTINE P1897 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1899 99998 CALL P$UJC 1900 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4120 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32511)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 4121 CALL P$MST(2) CALL P$CUP(0) CALL P979 LINENO = 4122 CALL P$LDO(0,227) CALL P$STRA(0,6) LINENO = 4123 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1901) LINENO = 4124 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$LODA(0,6) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$IOR CALL P$FJP($1902) LINENO = 4125 CALL P$MST(4) CALL P$LDC(1,INTL(144)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,6) 1902 CONTINUE 1901 CONTINUE LINENO = 4126 CALL P$MST(4) CALL P$LDA(0,16) CALL P$CUP(1) CALL P412 LINENO = 4127 CALL P$MST(2) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,16) CALL P$CUP(2) CALL P1055 LINENO = 4128 CALL P$LDO(1,13) CALL P$LDC(1,INTL(47)) CALL P$EQU(1,1) CALL P$FJP($1903) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1904 1903 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(8)) CALL P$CUP(1) CALL P30 1904 CONTINUE LINENO = 4129 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,10) CALL P$MST(4) CALL P$LDA(0,17) CALL P$CUP(1) CALL P412 LINENO = 4130 1905 CONTINUE LINENO = 4131 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,7) CALL P$MST(4) CALL P$LDA(0,15) CALL P$CUP(1) CALL P412 LINENO = 4132 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32513)) CALL P$INN CALL P$NOT CALL P$FJP($1906) LINENO = 4133 LINENO = 4134 1907 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32515)) CALL P$UNI CALL P$LDA(0,5) CALL P$LDA(0,11) CALL P$CUP(10) CALL P423 LINENO = 4135 CALL P$LODA(0,6) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1908) LINENO = 4136 CALL P$MST(3) CALL P$LODA(0,6) CALL P$LODA(0,5) CALL P$CUP(2) CALL P460 CALL P$FJP($1909) LINENO = 4137 CALL P$LODA(0,10) CALL P$STRA(0,9) CALL P$LDC(0,INTL(0)) CALL P$STRA(0,8) LINENO = 4138 1910 CONTINUE LINENO = 4138 CALL P$LODA(0,9) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1911) LINENO = 4139 CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,18) LINENO = 4140 LINENO = 4141 CALL P$LODA(0,18) CALL P$IND(1,2) CALL P$LOD(0,12) CALL P$LEQ(1,1) CALL P$FJP($1912) LINENO = 4142 CALL P$LODA(0,18) CALL P$IND(1,2) CALL P$LOD(0,12) CALL P$EQU(1,1) CALL P$FJP($1913) CALL P$MST(4) CALL P$LDC(1,INTL(156)) CALL P$CUP(1) CALL P30 1913 CONTINUE LINENO = 4143 GOTO 1898 1914 CONTINUE 1912 CONTINUE LINENO = 4145 CALL P$LODA(0,9) CALL P$STRA(0,8) CALL P$LODA(0,18) CALL P$IND(0,0) CALL P$STRA(0,9) GOTO 1910 1911 CONTINUE 1898 CONTINUE LINENO = 4147 CALL P$LDA(0,7) CALL P$LDC(1,INTL(3)) CALL P$NEW LINENO = 4148 CALL P$LODA(0,7) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,18) LINENO = 4149 CALL P$LODA(0,18) CALL P$LODA(0,9) CALL P$STO(0) CALL P$LODA(0,18) CALL P$INC(0,INTL(2)) CALL P$LOD(0,12) CALL P$STO(1) LINENO = 4150 CALL P$LODA(0,18) CALL P$INC(0,INTL(1)) CALL P$LOD(0,15) CALL P$STO(1) LINENO = 4152 CALL P$LODA(0,8) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1915) CALL P$LODA(0,7) CALL P$STRA(0,10) GOTO 1916 1915 CONTINUE LINENO = 4153 CALL P$LODA(0,8) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LODA(0,7) CALL P$STO(0) 1916 CONTINUE GOTO 1917 1909 CONTINUE LINENO = 4155 CALL P$MST(4) CALL P$LDC(1,INTL(147)) CALL P$CUP(1) CALL P30 1917 CONTINUE 1908 CONTINUE LINENO = 4156 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(3,16) LINENO = 4157 CALL P$LOD(3,16) CALL P$NOT CALL P$FJP($1918) CALL P$MST(4) CALL P$CUP(0) CALL P62 1918 CONTINUE LINENO = 4158 CALL P$LOD(3,16) CALL P$FJP($1907) LINENO = 4159 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($1919) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1920 1919 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 1920 CONTINUE LINENO = 4160 CALL P$MST(2) CALL P$LOD(0,15) CALL P$CUP(1) CALL P1097 LINENO = 4161 1921 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32516)) CALL P$UNI CALL P$CUP(8) CALL P1101 LINENO = 4162 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$NOT CALL P$FJP($1921) LINENO = 4163 CALL P$LODA(0,7) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1922) LINENO = 4164 CALL P$MST(2) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,17) CALL P$CUP(2) CALL P1055 1922 CONTINUE 1906 CONTINUE LINENO = 4166 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$STR(3,16) LINENO = 4167 CALL P$LOD(3,16) CALL P$NOT CALL P$FJP($1923) CALL P$MST(4) CALL P$CUP(0) CALL P62 1923 CONTINUE LINENO = 4168 CALL P$LOD(3,16) CALL P$FJP($1905) LINENO = 4169 CALL P$MST(2) CALL P$LOD(0,16) CALL P$CUP(1) CALL P1097 LINENO = 4170 CALL P$LODA(0,10) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1924) LINENO = 4171 CALL P$LODA(0,10) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,13) LINENO = 4173 CALL P$LODA(0,10) CALL P$STRA(0,9) CALL P$LDC(0,INTL(0)) CALL P$STRA(0,10) LINENO = 4174 1925 CONTINUE CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,0) CALL P$STRA(0,8) CALL P$LODA(0,9) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LODA(0,10) CALL P$STO(0) LINENO = 4175 CALL P$LODA(0,9) CALL P$STRA(0,10) CALL P$LODA(0,8) CALL P$STRA(0,9) LINENO = 4176 CALL P$LODA(0,9) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1925) LINENO = 4177 CALL P$LODA(0,10) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$STR(0,14) LINENO = 4178 CALL P$LOD(0,13) CALL P$LOD(0,14) CALL P$SBI CALL P$LDC(1,INTL(1000)) CALL P$LES(1,1) CALL P$FJP($1926) LINENO = 4179 LINENO = 4180 CALL P$MST(2) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,14) CALL P$LOD(0,13) CALL P$LDO(0,45) CALL P$CUP(4) CALL P959 LINENO = 4181 CALL P$MST(2) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,14) CALL P$LDO(0,45) CALL P$CUP(3) CALL P953 CALL P$MST(2) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 CALL P$MST(4) CALL P$LDA(0,16) CALL P$CUP(1) CALL P412 LINENO = 4182 CALL P$MST(2) CALL P$LDC(1,INTL(44)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,16) CALL P$CUP(2) CALL P1055 CALL P$MST(2) CALL P$LOD(0,16) CALL P$CUP(1) CALL P1097 LINENO = 4183 1927 CONTINUE LINENO = 4184 CALL P$LODA(0,10) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,18) LINENO = 4185 LINENO = 4186 CALL P$LDO(3,33) CALL P$FJP($1928) LINENO = 4187 1929 CONTINUE LINENO = 4187 CALL P$LODA(0,18) CALL P$IND(1,2) CALL P$LOD(0,14) CALL P$GRT(1,1) CALL P$FJP($1930) LINENO = 4188 CALL P$MST(4) CALL P$LDA(0,16) CALL P$CUP(1) CALL P412 LINENO = 4189 CALL P$LAO(11) CALL P$LOD(0,16) CALL P$LDC(1,INTL(5)) CALL P$WRI CALL P$LCA(26494) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$WLN LINENO = 4190 CALL P$LOD(0,14) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,14) CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) GOTO 1929 1930 CONTINUE LINENO = 4192 CALL P$MST(4) CALL P$LDA(0,16) CALL P$CUP(1) CALL P412 LINENO = 4193 CALL P$LAO(11) CALL P$LOD(0,16) CALL P$LDC(1,INTL(5)) CALL P$WRI CALL P$LCA(26497) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LODA(0,18) CALL P$IND(1,1) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4194 CALL P$LOD(0,14) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$STR(0,14) CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 1928 CONTINUE LINENO = 4195 CALL P$LODA(0,18) CALL P$IND(0,0) CALL P$STRA(0,10) LINENO = 4197 CALL P$LODA(0,10) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($1927) LINENO = 4198 CALL P$MST(2) CALL P$LOD(0,17) CALL P$CUP(1) CALL P1097 GOTO 1931 1926 CONTINUE LINENO = 4200 CALL P$MST(4) CALL P$LDC(1,INTL(157)) CALL P$CUP(1) CALL P30 1931 CONTINUE 1924 CONTINUE LINENO = 4202 CALL P$LDO(1,13) CALL P$LDC(1,INTL(39)) CALL P$EQU(1,1) CALL P$FJP($1932) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1933 1932 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(13)) CALL P$CUP(1) CALL P30 1933 CONTINUE CALL P$RET(0) RETURN 1899 CONTINUE SG1SIZ = 19 SG2SIZ = 123 GOTO 1900 END SUBROUTINE P1934 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1935 99998 CALL P$UJC 1936 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4211 CALL P$LDO(1,29) CALL P$LDO(1,25) CALL P$NEQ(1,1) CALL P$FJP($1937) LINENO = 4212 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26499) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LDO(1,25) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4213 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 4214 CALL P$LDO(1,25) CALL P$SRO(1,29) 1937 CONTINUE CALL P$RET(0) RETURN 1935 CONTINUE SG1SIZ = 5 SG2SIZ = 13 GOTO 1936 END SUBROUTINE P1938 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1939 99998 CALL P$UJC 1940 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4220 CALL P$MST(4) CALL P$LDA(0,5) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LOD(0,5) CALL P$CUP(1) CALL P1097 LINENO = 4221 1941 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32517)) CALL P$UNI CALL P$CUP(8) CALL P1101 LINENO = 4222 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$FJP($1942) CALL P$MST(4) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 1942 CONTINUE LINENO = 4223 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$NOT CALL P$FJP($1941) LINENO = 4224 1943 CONTINUE LINENO = 4224 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$EQU(1,1) CALL P$FJP($1944) LINENO = 4225 CALL P$MST(4) CALL P$CUP(0) CALL P62 LINENO = 4226 1945 CONTINUE CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32519)) CALL P$UNI CALL P$CUP(8) CALL P1101 LINENO = 4227 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$FJP($1946) CALL P$MST(4) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 1946 CONTINUE LINENO = 4228 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$NOT CALL P$FJP($1945) GOTO 1943 1944 CONTINUE LINENO = 4230 CALL P$LDO(1,13) CALL P$LDC(1,INTL(46)) CALL P$EQU(1,1) CALL P$FJP($1947) LINENO = 4231 CALL P$MST(4) CALL P$CUP(0) CALL P62 LINENO = 4232 CALL P$MST(1) CALL P$CUP(0) CALL P1934 LINENO = 4233 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P1103 CALL P$MST(2) CALL P$LOD(0,5) CALL P$CUP(1) CALL P1049 GOTO 1948 1947 CONTINUE LINENO = 4235 CALL P$MST(4) CALL P$LDC(1,INTL(53)) CALL P$CUP(1) CALL P30 1948 CONTINUE CALL P$RET(0) RETURN 1939 CONTINUE SG1SIZ = 6 SG2SIZ = 65 GOTO 1940 END SUBROUTINE P1949 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1950 99998 CALL P$UJC 1951 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4240 CALL P$MST(4) CALL P$LDA(0,6) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LOD(0,6) CALL P$CUP(1) CALL P1097 LINENO = 4241 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26502) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LDO(1,25) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 4242 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32521)) CALL P$UNI CALL P$CUP(8) CALL P1103 CALL P$MST(4) CALL P$LDA(0,5) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LOD(0,5) CALL P$CUP(1) CALL P1049 LINENO = 4243 CALL P$LDO(1,13) CALL P$LDC(1,INTL(48)) CALL P$EQU(1,1) CALL P$FJP($1952) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1953 1952 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(54)) CALL P$CUP(1) CALL P30 1953 CONTINUE LINENO = 4244 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P1101 CALL P$MST(2) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,6) CALL P$CUP(2) CALL P1055 CALL P$MST(2) CALL P$LOD(0,5) CALL P$CUP(1) CALL P1097 CALL P$RET(0) RETURN 1950 CONTINUE SG1SIZ = 7 SG2SIZ = 53 GOTO 1951 END SUBROUTINE P1954 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1955 99998 CALL P$UJC 1956 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4251 CALL P$LDO(1,23) CALL P$STR(0,14) LINENO = 4252 LINENO = 4253 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) CALL P$LDC(1,INTL(1)) CALL P$STR(0,6) LINENO = 4254 CALL P$LDC(1,INTL(0)) CALL P$STR(0,7) CALL P$LDO(1,62) CALL P$STR(0,8) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,9) LINENO = 4256 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1957) LINENO = 4257 CALL P$MST(4) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32522)) CALL P$LDA(1,13) CALL P$CUP(9) CALL P337 LINENO = 4258 CALL P$LODA(1,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,15) LINENO = 4259 CALL P$LODA(0,15) CALL P$IND(0,4) CALL P$STRA(0,5) CALL P$LDC(1,INTL(1)) CALL P$STR(0,6) LINENO = 4260 CALL P$LODA(0,15) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1958) LINENO = 4261 CALL P$LDC(1,INTL(0)) CALL P$STR(0,7) CALL P$LODA(0,15) CALL P$IND(1,8) CALL P$STR(0,8) LINENO = 4262 CALL P$LODA(0,15) CALL P$IND(1,9) CALL P$STR(0,9) GOTO 1959 1958 CONTINUE LINENO = 4264 CALL P$MST(4) CALL P$LDC(1,INTL(155)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) 1959 CONTINUE LINENO = 4266 CALL P$LODA(0,5) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1960) LINENO = 4267 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$MST(3) CALL P$LDO(0,46) CALL P$LODA(0,5) CALL P$CUP(2) CALL P460 CALL P$IOR CALL P$FJP($1961) LINENO = 4269 CALL P$MST(4) CALL P$LDC(1,INTL(143)) CALL P$CUP(1) CALL P30 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) 1961 CONTINUE 1960 CONTINUE LINENO = 4270 CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1962 1957 CONTINUE LINENO = 4273 CALL P$MST(4) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32523)) CALL P$UNI CALL P$CUP(8) CALL P307 1962 CONTINUE LINENO = 4274 CALL P$LDO(1,13) CALL P$LDC(1,INTL(17)) CALL P$EQU(1,1) CALL P$FJP($1963) LINENO = 4275 CALL P$MST(4) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32525)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 4276 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1964) LINENO = 4277 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($1965) CALL P$MST(4) CALL P$LDC(1,INTL(144)) CALL P$CUP(1) CALL P30 GOTO 1966 1965 CONTINUE LINENO = 4279 CALL P$MST(3) CALL P$LODA(0,5) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$FJP($1967) LINENO = 4280 CALL P$MST(2) CALL P$CUP(0) CALL P979 CALL P$MST(2) CALL P$LDA(0,5) CALL P$CUP(1) CALL P1004 GOTO 1968 1967 CONTINUE LINENO = 4281 CALL P$MST(4) CALL P$LDC(1,INTL(145)) CALL P$CUP(1) CALL P30 1968 CONTINUE 1966 CONTINUE 1964 CONTINUE GOTO 1969 1963 CONTINUE LINENO = 4284 CALL P$MST(4) CALL P$LDC(1,INTL(51)) CALL P$CUP(1) CALL P30 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32526)) CALL P$UNI CALL P$CUP(8) CALL P307 1969 CONTINUE LINENO = 4285 CALL P$LDO(1,13) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32527)) CALL P$INN CALL P$FJP($1970) LINENO = 4286 CALL P$LDO(1,13) CALL P$STR(0,11) CALL P$MST(4) CALL P$CUP(0) CALL P62 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32528)) CALL P$UNI CALL P$CUP(8) CALL P1103 LINENO = 4287 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1971) LINENO = 4288 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(1)) CALL P$GRT(1,1) CALL P$FJP($1972) CALL P$MST(4) CALL P$LDC(1,INTL(144)) CALL P$CUP(1) CALL P30 GOTO 1973 1972 CONTINUE LINENO = 4290 CALL P$MST(3) CALL P$LODA(0,5) CALL P$LDO(0,227) CALL P$CUP(2) CALL P460 CALL P$FJP($1974) LINENO = 4291 CALL P$MST(2) CALL P$CUP(0) CALL P979 LINENO = 4292 CALL P$MST(2) CALL P$LDC(1,INTL(56)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LDO(1,23) CALL P$LDO(0,227) CALL P$CUP(4) CALL P959 LINENO = 4293 CALL P$MST(4) CALL P$LDA(0,12) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LOD(0,12) CALL P$CUP(1) CALL P1097 LINENO = 4294 CALL P$LAO(227) CALL P$LDA(0,5) CALL P$MOV(5) CALL P$MST(2) CALL P$CUP(0) CALL P979 LINENO = 4295 CALL P$MST(2) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LDO(1,23) CALL P$LDO(0,227) CALL P$CUP(4) CALL P959 LINENO = 4296 CALL P$LDO(1,23) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) LINENO = 4297 CALL P$LDO(1,23) CALL P$LOD(2,23) CALL P$GRT(1,1) CALL P$FJP($1975) CALL P$LDO(1,23) CALL P$STR(2,23) 1975 CONTINUE LINENO = 4298 CALL P$LOD(0,11) CALL P$LDC(1,INTL(49)) CALL P$EQU(1,1) CALL P$FJP($1976) CALL P$MST(2) CALL P$LDC(1,INTL(52)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$CUP(2) CALL P896 GOTO 1977 1976 CONTINUE LINENO = 4299 CALL P$MST(2) CALL P$LDC(1,INTL(48)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$CUP(2) CALL P896 1977 CONTINUE GOTO 1978 1974 CONTINUE LINENO = 4301 CALL P$MST(4) CALL P$LDC(1,INTL(145)) CALL P$CUP(1) CALL P30 1978 CONTINUE 1973 CONTINUE 1971 CONTINUE GOTO 1979 1970 CONTINUE LINENO = 4303 CALL P$MST(4) CALL P$LDC(1,INTL(55)) CALL P$CUP(1) CALL P30 CALL P$MST(4) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32529)) CALL P$UNI CALL P$CUP(8) CALL P307 1979 CONTINUE LINENO = 4304 CALL P$MST(4) CALL P$LDA(0,13) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,13) CALL P$CUP(2) CALL P1055 LINENO = 4305 CALL P$LDO(1,13) CALL P$LDC(1,INTL(48)) CALL P$EQU(1,1) CALL P$FJP($1980) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1981 1980 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(54)) CALL P$CUP(1) CALL P30 1981 CONTINUE LINENO = 4306 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P1101 LINENO = 4307 CALL P$LAO(227) CALL P$LDA(0,5) CALL P$MOV(5) CALL P$MST(2) CALL P$CUP(0) CALL P979 LINENO = 4308 CALL P$LOD(0,11) CALL P$LDC(1,INTL(49)) CALL P$EQU(1,1) CALL P$FJP($1982) CALL P$MST(2) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LDO(0,227) CALL P$CUP(3) CALL P953 GOTO 1983 1982 CONTINUE LINENO = 4309 CALL P$MST(2) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$LDO(0,227) CALL P$CUP(3) CALL P953 1983 CONTINUE LINENO = 4310 CALL P$MST(2) CALL P$LDA(0,5) CALL P$CUP(1) CALL P1004 CALL P$MST(2) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LOD(0,12) CALL P$CUP(2) CALL P1055 CALL P$MST(2) CALL P$LOD(0,13) CALL P$CUP(1) CALL P1097 LINENO = 4311 CALL P$LOD(0,14) CALL P$SRO(1,23) CALL P$RET(0) RETURN 1955 CONTINUE SG1SIZ = 16 SG2SIZ = 203 GOTO 1956 END SUBROUTINE P1984 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 1985 99998 CALL P$UJC 1986 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4317 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(20)) CALL P$STR(0,6) CALL P$LDO(1,23) CALL P$STR(0,7) LINENO = 4318 1987 CONTINUE LINENO = 4319 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1988) LINENO = 4320 CALL P$MST(4) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32530)) CALL P$LDA(0,5) CALL P$CUP(9) CALL P337 CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 1989 1988 CONTINUE LINENO = 4321 CALL P$MST(4) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 CALL P$LDO(0,53) CALL P$STRA(0,5) 1989 CONTINUE LINENO = 4322 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32531)) CALL P$UNI CALL P$LODA(0,5) CALL P$CUP(9) CALL P1116 LINENO = 4323 CALL P$LDO(0,227) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($1990) LINENO = 4324 CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(5)) CALL P$EQU(1,1) CALL P$FJP($1991) LINENO = 4325 CALL P$LDO(1,64) CALL P$LDC(1,INTL(20)) CALL P$LES(1,1) CALL P$FJP($1992) LINENO = 4326 CALL P$LDO(1,64) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) CALL P$LOD(0,6) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(20)) CALL P$STR(0,6) LINENO = 4327 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,8) LINENO = 4328 CALL P$LODA(0,8) CALL P$LDO(0,227) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$STO(0) LINENO = 4329 CALL P$LODA(0,8) CALL P$INC(0,INTL(1)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4331 CALL P$LDO(1,229) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($1993) LINENO = 4332 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,8) LINENO = 4333 CALL P$LODA(0,8) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(1,230) CALL P$STO(1) LINENO = 4334 CALL P$LODA(0,8) CALL P$INC(0,INTL(5)) CALL P$LDO(1,231) CALL P$STO(1) GOTO 1994 1993 CONTINUE LINENO = 4337 CALL P$MST(2) CALL P$CUP(0) CALL P1022 LINENO = 4338 CALL P$MST(4) CALL P$LDO(0,49) CALL P$LAO(23) CALL P$CUP(2) CALL P409 LINENO = 4339 CALL P$MST(2) CALL P$LDC(1,INTL(56)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LDO(1,23) CALL P$LDO(0,49) CALL P$CUP(4) CALL P959 LINENO = 4340 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$STRA(0,8) LINENO = 4341 CALL P$LODA(0,8) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(1,23) CALL P$STO(1) LINENO = 4342 CALL P$LDO(1,23) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) LINENO = 4343 CALL P$LDO(1,23) CALL P$LOD(2,23) CALL P$GRT(1,1) CALL P$FJP($1995) CALL P$LDO(1,23) CALL P$STR(2,23) 1995 CONTINUE 1994 CONTINUE GOTO 1996 1992 CONTINUE LINENO = 4346 CALL P$MST(4) CALL P$LDC(1,INTL(250)) CALL P$CUP(1) CALL P30 1996 CONTINUE GOTO 1997 1991 CONTINUE LINENO = 4347 CALL P$MST(4) CALL P$LDC(1,INTL(140)) CALL P$CUP(1) CALL P30 1997 CONTINUE 1990 CONTINUE LINENO = 4348 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$STR(3,16) LINENO = 4349 CALL P$LOD(3,16) CALL P$NOT CALL P$FJP($1998) CALL P$MST(4) CALL P$CUP(0) CALL P62 1998 CONTINUE LINENO = 4350 CALL P$LOD(3,16) CALL P$FJP($1987) LINENO = 4351 CALL P$LDO(1,13) CALL P$LDC(1,INTL(48)) CALL P$EQU(1,1) CALL P$FJP($1999) CALL P$MST(4) CALL P$CUP(0) CALL P62 GOTO 2000 1999 CONTINUE CALL P$MST(4) CALL P$LDC(1,INTL(54)) CALL P$CUP(1) CALL P30 2000 CONTINUE LINENO = 4352 CALL P$MST(2) CALL P$LDC(1,INTL(1)) CALL P$LODS(1,5) CALL P$CUP(8) CALL P1101 LINENO = 4353 CALL P$LDO(1,64) CALL P$LOD(0,6) CALL P$SBI CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) CALL P$LOD(0,7) CALL P$SRO(1,23) CALL P$RET(0) RETURN 1985 CONTINUE SG1SIZ = 9 SG2SIZ = 81 GOTO 1986 END SUBROUTINE P1101 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2001 99998 CALL P$UJC 2002 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4357 CALL P$LDC(3,INTL(1)) CALL P$STR(0,17) LINENO = 4362 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$EQU(1,1) CALL P$FJP($2003) LINENO = 4363 CALL P$LAO(65) CALL P$LDO(1,62) CALL P$IXA(6) CALL P$IND(0,1) CALL P$STRA(0,14) LINENO = 4364 2004 CONTINUE LINENO = 4364 CALL P$LODA(0,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2005) LINENO = 4365 CALL P$LODA(0,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,18) LINENO = 4366 CALL P$LODA(0,18) CALL P$IND(1,3) CALL P$LDO(1,16) CALL P$EQU(1,1) CALL P$FJP($2006) LINENO = 4367 CALL P$LODA(0,18) CALL P$IND(3,1) CALL P$FJP($2007) CALL P$MST(3) CALL P$LDC(1,INTL(165)) CALL P$CUP(1) CALL P30 2007 CONTINUE LINENO = 4368 CALL P$MST(1) CALL P$LODA(0,18) CALL P$IND(1,2) CALL P$CUP(1) CALL P1097 CALL P$LODA(0,18) CALL P$INC(0,INTL(1)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) LINENO = 4369 GOTO 1102 2008 CONTINUE GOTO 2009 2006 CONTINUE LINENO = 4371 CALL P$LODA(0,18) CALL P$IND(0,0) CALL P$STRA(0,14) 2009 CONTINUE GOTO 2004 2005 CONTINUE LINENO = 4372 CALL P$MST(3) CALL P$LDC(1,INTL(167)) CALL P$CUP(1) CALL P30 1102 CONTINUE LINENO = 4373 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 4374 CALL P$LDO(1,13) CALL P$LDC(1,INTL(16)) CALL P$EQU(1,1) CALL P$FJP($2010) CALL P$MST(3) CALL P$CUP(0) CALL P62 GOTO 2011 2010 CONTINUE CALL P$MST(3) CALL P$LDC(1,INTL(5)) CALL P$CUP(1) CALL P30 2011 CONTINUE 2003 CONTINUE LINENO = 4376 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32533)) CALL P$UNI CALL P$INN CALL P$NOT CALL P$FJP($2012) LINENO = 4377 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 2012 CONTINUE LINENO = 4378 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32534)) CALL P$UNI CALL P$INN CALL P$FJP($2013) LINENO = 4379 LINENO = 4380 CALL P$MST(0) CALL P$CUP(0) CALL P1934 LINENO = 4381 CALL P$LDO(1,13) GOTO 2014 2016 CONTINUE LINENO = 4382 CALL P$MST(3) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32535)) CALL P$LDA(0,13) CALL P$CUP(9) CALL P337 CALL P$MST(3) CALL P$CUP(0) CALL P62 LINENO = 4383 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,6) CALL P$LDC(1,INTL(4)) CALL P$EQU(1,1) CALL P$FJP($2017) CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LODA(0,13) CALL P$CUP(9) CALL P1196 GOTO 2018 2017 CONTINUE LINENO = 4384 CALL P$MST(0) CALL P$LODA(0,13) CALL P$CUP(1) CALL P1836 2018 CONTINUE GOTO 2015 2019 CONTINUE LINENO = 4386 CALL P$LDO(1,28) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,28) LINENO = 4387 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1882 GOTO 2015 2020 CONTINUE LINENO = 4388 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1867 GOTO 2015 2021 CONTINUE LINENO = 4389 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1890 GOTO 2015 2022 CONTINUE LINENO = 4390 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1897 GOTO 2015 2023 CONTINUE LINENO = 4391 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1949 GOTO 2015 2024 CONTINUE LINENO = 4392 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1938 GOTO 2015 2025 CONTINUE LINENO = 4393 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1954 GOTO 2015 2026 CONTINUE LINENO = 4394 CALL P$MST(3) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P1984 GOTO 2015 2014 CONTINUE CALL P$CHK(INTL(0),INTL(38)) CALL P$LDC(1,INTL(0)) CALL P$SBI CALL P$XJP($2027) 2027 CONTINUE 2028 GOTO 2016 2029 GOTO 99998 2030 GOTO 99998 2031 GOTO 99998 2032 GOTO 99998 2033 GOTO 99998 2034 GOTO 99998 2035 GOTO 99998 2036 GOTO 99998 2037 GOTO 99998 2038 GOTO 99998 2039 GOTO 99998 2040 GOTO 99998 2041 GOTO 99998 2042 GOTO 99998 2043 GOTO 99998 2044 GOTO 99998 2045 GOTO 99998 2046 GOTO 99998 2047 GOTO 99998 2048 GOTO 99998 2049 GOTO 99998 2050 GOTO 99998 2051 GOTO 99998 2052 GOTO 99998 2053 GOTO 99998 2054 GOTO 99998 2055 GOTO 99998 2056 GOTO 99998 2057 GOTO 99998 2058 GOTO 99998 2059 GOTO 2019 2060 GOTO 2021 2061 GOTO 2022 2062 GOTO 2024 2063 GOTO 2023 2064 GOTO 2025 2065 GOTO 2026 2066 GOTO 2020 2015 CONTINUE LINENO = 4396 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32536)) CALL P$INN CALL P$NOT CALL P$FJP($2067) LINENO = 4397 CALL P$MST(3) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(3) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 2067 CONTINUE 2013 CONTINUE CALL P$RET(0) RETURN 2001 CONTINUE SG1SIZ = 19 SG2SIZ = 87 GOTO 2002 END SUBROUTINE P883 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2068 99998 CALL P$UJC 2069 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4402 CALL P$LODA(1,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2070) LINENO = 4403 CALL P$LODA(1,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,9) CALL P$STR(0,17) LINENO = 4404 CALL P$LDO(3,33) CALL P$FJP($2071) LINENO = 4405 CALL P$LAO(11) CALL P$WLN LINENO = 4406 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26505) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS CALL P$LOD(0,17) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4407 CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2071 CONTINUE GOTO 2072 2070 CONTINUE LINENO = 4410 LINENO = 4411 CALL P$MST(2) CALL P$LDA(0,17) CALL P$CUP(1) CALL P412 LINENO = 4412 CALL P$LDO(3,33) CALL P$FJP($2073) LINENO = 4413 CALL P$LAO(11) CALL P$WLN LINENO = 4414 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26508) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$LDC(6,INTL(206)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 4415 CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2073 CONTINUE 2072 CONTINUE LINENO = 4418 CALL P$LDO(0,58) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2074) LINENO = 4420 2075 CONTINUE LINENO = 4420 CALL P$LDO(0,58) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$LDO(0,58) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,8) CALL P$LDO(1,62) CALL P$EQU(1,1) CALL P$AND CALL P$FJP($2076) LINENO = 4421 LINENO = 4422 CALL P$LDO(3,33) CALL P$FJP($2077) LINENO = 4423 LINENO = 4424 CALL P$LDO(0,58) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,45) CALL P$EQU(0,1) CALL P$FJP($2078) LINENO = 4425 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26512) CALL P$LDC(1,INTL(10)) CALL P$LDC(1,INTL(10)) CALL P$WRS CALL P$LDO(0,58) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$WLN GOTO 2079 2078 CONTINUE LINENO = 4426 CALL P$LDO(0,58) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDO(0,46) CALL P$EQU(0,1) CALL P$FJP($2080) LINENO = 4427 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26515) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LDO(0,58) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$WLN 2080 CONTINUE 2079 CONTINUE LINENO = 4428 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2077 CONTINUE LINENO = 4430 CALL P$LDO(0,58) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,14) CALL P$SRO(0,58) GOTO 2075 2076 CONTINUE 2074 CONTINUE LINENO = 4432 CALL P$LDO(3,33) CALL P$FJP($2081) CALL P$MST(2) CALL P$CUP(0) CALL P415 2081 CONTINUE LINENO = 4433 CALL P$LDC(1,INTL(5)) CALL P$STR(0,20) CALL P$LDC(1,INTL(5)) CALL P$STR(0,19) LINENO = 4434 CALL P$MST(2) CALL P$LDA(0,16) CALL P$CUP(1) CALL P412 CALL P$MST(2) CALL P$LDA(0,21) CALL P$CUP(1) CALL P412 LINENO = 4435 CALL P$LDO(3,33) CALL P$FJP($2082) LINENO = 4436 CALL P$LDO(3,39) CALL P$FJP($2083) LINENO = 4437 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26517) CALL P$LDC(1,INTL(15)) CALL P$LDC(1,INTL(15)) CALL P$WRS SP=SP-1 LINENO = 4438 CALL P$LODA(1,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2084) LINENO = 4439 CALL P$LAO(11) CALL P$LODA(1,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(8)) CALL P$LDC(1,INTL(8)) CALL P$WRS SP=SP-1 GOTO 2085 2084 CONTINUE LINENO = 4441 CALL P$LAO(11) CALL P$LCA(26521) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS SP=SP-1 2085 CONTINUE LINENO = 4442 CALL P$LAO(11) CALL P$LCA(26524) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2083 CONTINUE LINENO = 4444 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26525) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,16) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4445 CALL P$LAO(11) CALL P$LCA(26527) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$WLN CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2082 CONTINUE LINENO = 4446 CALL P$MST(0) CALL P$LOD(0,21) CALL P$CUP(1) CALL P1097 LINENO = 4447 CALL P$LDO(3,33) CALL P$FJP($2086) CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26531) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LCA(26532) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$WLN LINENO = 4448 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26536) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LCA(26537) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$WLN CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2086 CONTINUE LINENO = 4449 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(0,2) CALL P$STRA(0,30) LINENO = 4450 2087 CONTINUE LINENO = 4450 CALL P$LODA(0,30) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2088) LINENO = 4451 CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 4452 CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($2089) CALL P$MST(0) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$CUP(2) CALL P896 GOTO 2090 2089 CONTINUE LINENO = 4453 CALL P$MST(0) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$SBI CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$CUP(3) CALL P903 2090 CONTINUE LINENO = 4454 CALL P$MST(0) CALL P$LDC(1,INTL(65)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 LINENO = 4455 CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,6) CALL P$STRA(0,30) GOTO 2087 2088 CONTINUE LINENO = 4457 CALL P$LODA(1,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2091) LINENO = 4458 CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,22) LINENO = 4459 CALL P$LODA(1,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,24) LINENO = 4460 2092 CONTINUE LINENO = 4460 CALL P$LODA(0,24) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2093) LINENO = 4461 CALL P$LODA(0,24) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,31) LINENO = 4462 LINENO = 4463 CALL P$LODA(0,31) CALL P$IND(1,6) CALL P$LDC(1,INTL(2)) CALL P$EQU(1,1) CALL P$FJP($2094) LINENO = 4464 CALL P$LODA(0,31) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2095) LINENO = 4465 CALL P$LODA(0,31) CALL P$IND(1,7) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$LODA(0,31) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(3)) CALL P$GRT(1,1) CALL P$AND CALL P$FJP($2096) LINENO = 4466 LINENO = 4467 CALL P$MST(0) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LODA(0,31) CALL P$IND(1,9) CALL P$CUP(3) CALL P903 LINENO = 4468 CALL P$MST(0) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$LOD(0,22) CALL P$LDO(0,49) CALL P$CUP(4) CALL P959 LINENO = 4469 CALL P$MST(0) CALL P$LDC(1,INTL(40)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,31) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$CUP(2) CALL P896 LINENO = 4470 CALL P$LOD(0,22) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,22) GOTO 2097 2096 CONTINUE LINENO = 4472 CALL P$LOD(0,22) CALL P$LODA(0,31) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STR(0,22) 2097 CONTINUE 2095 CONTINUE 2094 CONTINUE LINENO = 4473 CALL P$LODA(0,24) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,5) CALL P$STRA(0,24) GOTO 2092 2093 CONTINUE 2091 CONTINUE LINENO = 4476 CALL P$LDO(1,23) CALL P$STR(0,23) LINENO = 4477 2098 CONTINUE LINENO = 4478 2099 CONTINUE CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32538)) CALL P$UNI CALL P$CUP(8) CALL P1101 LINENO = 4479 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$NOT CALL P$FJP($2099) LINENO = 4480 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$STR(1,16) LINENO = 4481 CALL P$LOD(1,16) CALL P$NOT CALL P$FJP($2100) CALL P$MST(2) CALL P$CUP(0) CALL P62 2100 CONTINUE LINENO = 4482 CALL P$LOD(1,16) CALL P$FJP($2098) LINENO = 4483 CALL P$LDO(1,13) CALL P$LDC(1,INTL(39)) CALL P$EQU(1,1) CALL P$FJP($2101) LINENO = 4484 CALL P$LDO(1,28) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$SRO(1,28) CALL P$MST(2) CALL P$CUP(0) CALL P62 GOTO 2102 2101 CONTINUE LINENO = 4485 CALL P$MST(2) CALL P$LDC(1,INTL(13)) CALL P$CUP(1) CALL P30 2102 CONTINUE LINENO = 4486 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(0,1) CALL P$STRA(0,25) LINENO = 4487 2103 CONTINUE LINENO = 4487 CALL P$LODA(0,25) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2104) LINENO = 4488 CALL P$LODA(0,25) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,31) LINENO = 4489 LINENO = 4490 CALL P$LODA(0,31) CALL P$IND(3,1) CALL P$NOT CALL P$FJP($2105) LINENO = 4491 CALL P$MST(2) CALL P$LDC(1,INTL(168)) CALL P$CUP(1) CALL P30 LINENO = 4492 CALL P$LAO(7) CALL P$WLN CALL P$LAO(7) CALL P$LCA(26541) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS CALL P$LODA(0,31) CALL P$IND(1,3) CALL P$LDC(1,INTL(10)) CALL P$WRI CALL P$WLN LINENO = 4493 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDO(1,22) CALL P$LDC(1,INTL(20)) CALL P$ADI CALL P$WRC SP=SP-1 2105 CONTINUE LINENO = 4495 CALL P$LODA(0,31) CALL P$IND(0,0) CALL P$STRA(0,25) GOTO 2103 2104 CONTINUE LINENO = 4497 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$IND(0,2) CALL P$STRA(0,30) LINENO = 4498 2106 CONTINUE LINENO = 4498 CALL P$LODA(0,30) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2107) LINENO = 4500 LINENO = 4501 CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$LDC(1,INTL(1)) CALL P$LEQ(1,1) CALL P$FJP($2108) CALL P$MST(0) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$CUP(2) CALL P896 GOTO 2109 2108 CONTINUE LINENO = 4502 CALL P$MST(0) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDO(1,62) CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,2) CALL P$SBI CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$CUP(3) CALL P903 2109 CONTINUE LINENO = 4503 CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(3,0) CALL P$FJP($2110) CALL P$MST(0) CALL P$LDC(1,INTL(63)) CALL P$CHK(INTL(0),INTL(65)) CALL P$CUP(1) CALL P892 GOTO 2111 2110 CONTINUE LINENO = 4504 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) LINENO = 4505 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26543) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LAO(6065) CALL P$LDC(1,INTL(64)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$LDC(6,INTL(168)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,1) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(26544) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS SP=SP-1 LINENO = 4506 CALL P$LDC(1,INTL(1)) CALL P$STR(0,18) CALL P$LDC(1,INTL(8)) CALL P$STR(0,31) 2112 CONTINUE CALL P$LOD(0,18) CALL P$LOD(0,31) CALL P$LEQ(1) CALL P$FJP($2113) CALL P$LAO(11) CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(4)) CALL P$LOD(0,18) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$LPC CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LOD(0,18) CALL P$INC(1,INTL(1)) CALL P$STR(0,18) GOTO 2112 2113 CONTINUE LINENO = 4507 CALL P$LAO(11) CALL P$LCA(26545) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN 2111 CONTINUE LINENO = 4509 CALL P$LODA(0,30) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,6) CALL P$STRA(0,30) GOTO 2106 2107 CONTINUE LINENO = 4511 CALL P$LAO(65) CALL P$LDO(1,64) CALL P$IXA(6) CALL P$INC(0,INTL(2)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4512 CALL P$LODA(1,14) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2114) LINENO = 4513 LINENO = 4514 CALL P$LODA(1,14) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($2115) CALL P$MST(0) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$CUP(2) CALL P896 GOTO 2116 2115 CONTINUE LINENO = 4515 CALL P$MST(0) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(1)) CALL P$CUP(2) CALL P896 2116 CONTINUE LINENO = 4516 CALL P$MST(2) CALL P$LDO(0,44) CALL P$LDA(0,23) CALL P$CUP(2) CALL P409 LINENO = 4517 CALL P$LDO(3,33) CALL P$FJP($2117) LINENO = 4518 CALL P$LDO(3,39) CALL P$FJP($2118) LINENO = 4519 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26546) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$WLN LINENO = 4520 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2118 CONTINUE LINENO = 4522 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26550) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$WLN LINENO = 4523 CALL P$MST(0) CALL P$LOD(0,16) CALL P$CUP(1) CALL P1097 LINENO = 4524 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26552) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LOD(0,23) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4525 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26555) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LOD(0,19) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4526 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26558) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,21) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4527 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26560) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN CALL P$LDO(1,24) CALL P$LDC(1,INTL(5)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2117 CONTINUE GOTO 2119 2114 CONTINUE LINENO = 4531 CALL P$MST(0) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$LDC(1,INTL(0)) CALL P$CUP(2) CALL P896 LINENO = 4532 CALL P$MST(2) CALL P$LDO(0,44) CALL P$LDA(0,23) CALL P$CUP(2) CALL P409 LINENO = 4533 CALL P$LDO(3,33) CALL P$FJP($2120) LINENO = 4534 LINENO = 4535 CALL P$LDO(3,39) CALL P$FJP($2121) LINENO = 4536 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26561) CALL P$LDC(1,INTL(16)) CALL P$LDC(1,INTL(16)) CALL P$WRS CALL P$WLN LINENO = 4537 CALL P$LDO(1,24) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2121 CONTINUE LINENO = 4539 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26565) CALL P$LDC(1,INTL(6)) CALL P$LDC(1,INTL(6)) CALL P$WRS CALL P$WLN LINENO = 4540 CALL P$MST(0) CALL P$LOD(0,16) CALL P$CUP(1) CALL P1097 LINENO = 4541 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26567) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LOD(0,23) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4542 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26570) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LOD(0,19) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4543 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26573) CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(5)) CALL P$WRS CALL P$LOD(0,21) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$WLN LINENO = 4544 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(26575) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN CALL P$LDO(1,24) CALL P$LDC(1,INTL(5)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2120 CONTINUE LINENO = 4546 CALL P$LDA(0,14) CALL P$LAO(18) CALL P$MOV(2) LINENO = 4547 2122 CONTINUE LINENO = 4547 CALL P$LDO(0,60) CALL P$LDC(0,INTL(0)) CALL P$NEQ(0,1) CALL P$FJP($2123) LINENO = 4548 CALL P$LDC(3,INTL(1)) CALL P$STR(0,26) LINENO = 4549 CALL P$LDO(0,60) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,31) LINENO = 4550 CALL P$LAO(18) CALL P$LODA(0,31) CALL P$MOV(2) CALL P$LDC(3,INTL(0)) CALL P$SRO(3,31) LINENO = 4551 CALL P$MST(2) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32540)) CALL P$LDA(0,13) CALL P$CUP(9) CALL P337 LINENO = 4552 CALL P$LODA(0,13) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($2124) CALL P$LDC(3,INTL(0)) CALL P$STR(0,26) GOTO 2125 2124 CONTINUE LINENO = 4553 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$LDC(0,INTL(0)) CALL P$EQU(0,1) CALL P$FJP($2126) CALL P$LDC(3,INTL(0)) CALL P$STR(0,26) GOTO 2127 2126 CONTINUE LINENO = 4554 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,4) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,3) CALL P$LDC(1,INTL(6)) CALL P$NEQ(1,1) CALL P$FJP($2128) CALL P$LDC(3,INTL(0)) CALL P$STR(0,26) 2128 CONTINUE 2127 CONTINUE 2125 CONTINUE LINENO = 4555 CALL P$LOD(0,26) CALL P$NOT CALL P$FJP($2129) LINENO = 4556 CALL P$LAO(7) CALL P$WLN LINENO = 4557 CALL P$LAO(7) CALL P$LCA(26576) CALL P$LDC(1,INTL(8)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$LCA(26578) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$LCA(26581) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$LCA(26584) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS CALL P$LDO(0,60) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(8)) CALL P$WRS CALL P$WLN LINENO = 4559 CALL P$LAO(7) CALL P$LDC(6,INTL(160)) CALL P$LDO(1,22) CALL P$LDC(1,INTL(20)) CALL P$ADI CALL P$WRC SP=SP-1 2129 CONTINUE LINENO = 4562 CALL P$LDO(0,60) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(0,2) CALL P$SRO(0,60) GOTO 2122 2123 CONTINUE LINENO = 4564 CALL P$LAO(18) CALL P$LDA(0,14) CALL P$MOV(2) 2119 CONTINUE CALL P$RET(0) RETURN 2068 CONTINUE SG1SIZ = 32 SG2SIZ = 137 GOTO 2069 END SUBROUTINE P422 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2130 99998 CALL P$UJC 2131 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4569 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,30) LINENO = 4570 2132 CONTINUE LINENO = 4571 CALL P$LDO(1,13) CALL P$LDC(1,INTL(18)) CALL P$EQU(1,1) CALL P$FJP($2133) LINENO = 4572 CALL P$MST(1) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P678 2133 CONTINUE LINENO = 4573 CALL P$LDO(1,13) CALL P$LDC(1,INTL(19)) CALL P$EQU(1,1) CALL P$FJP($2134) LINENO = 4574 CALL P$MST(1) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P693 2134 CONTINUE LINENO = 4575 CALL P$LDO(1,13) CALL P$LDC(1,INTL(20)) CALL P$EQU(1,1) CALL P$FJP($2135) LINENO = 4576 CALL P$MST(1) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P704 2135 CONTINUE LINENO = 4577 CALL P$LDO(1,13) CALL P$LDC(1,INTL(21)) CALL P$EQU(1,1) CALL P$FJP($2136) LINENO = 4578 CALL P$MST(1) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$CUP(0) CALL P724 2136 CONTINUE LINENO = 4579 2137 CONTINUE LINENO = 4579 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32541)) CALL P$INN CALL P$FJP($2138) LINENO = 4580 CALL P$LDO(1,13) CALL P$STR(0,15) CALL P$MST(1) CALL P$CUP(0) CALL P62 CALL P$MST(0) CALL P$LOD(0,15) CALL P$CUP(1) CALL P757 GOTO 2137 2138 CONTINUE LINENO = 4581 CALL P$LDO(1,13) CALL P$LDC(1,INTL(31)) CALL P$NEQ(1,1) CALL P$FJP($2139) LINENO = 4583 CALL P$MST(1) CALL P$LDC(1,INTL(18)) CALL P$CUP(1) CALL P30 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 2139 CONTINUE LINENO = 4584 CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$INN CALL P$LAO(5) CALL P$EOF CALL P$IOR CALL P$FJP($2132) LINENO = 4585 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,30) LINENO = 4586 CALL P$LDO(1,13) CALL P$LDC(1,INTL(31)) CALL P$EQU(1,1) CALL P$FJP($2140) LINENO = 4587 CALL P$LDO(1,28) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,28) CALL P$MST(1) CALL P$CUP(0) CALL P62 GOTO 2141 2140 CONTINUE LINENO = 4588 CALL P$MST(1) CALL P$LDC(1,INTL(17)) CALL P$CUP(1) CALL P30 2141 CONTINUE LINENO = 4589 2142 CONTINUE CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32542)) CALL P$UNI CALL P$CUP(8) CALL P883 LINENO = 4590 CALL P$LDO(1,13) CALL P$LOD(0,13) CALL P$NEQ(1,1) CALL P$FJP($2143) LINENO = 4591 CALL P$MST(1) CALL P$LDC(1,INTL(6)) CALL P$CUP(1) CALL P30 CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$CUP(8) CALL P307 2143 CONTINUE LINENO = 4592 CALL P$LDO(1,13) CALL P$LOD(0,13) CALL P$EQU(1,1) CALL P$LDO(1,13) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,238) CALL P$INN CALL P$IOR CALL P$LAO(5) CALL P$EOF CALL P$IOR CALL P$FJP($2142) CALL P$RET(0) RETURN 2130 CONTINUE SG1SIZ = 17 SG2SIZ = 81 GOTO 2131 END SUBROUTINE P2144 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2145 99998 CALL P$UJC 2146 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4599 CALL P$LDO(1,13) CALL P$LDC(1,INTL(23)) CALL P$EQU(1,1) CALL P$FJP($2147) LINENO = 4600 CALL P$MST(1) CALL P$CUP(0) CALL P62 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$NEQ(1,1) CALL P$FJP($2148) CALL P$MST(1) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 2148 CONTINUE CALL P$MST(1) CALL P$CUP(0) CALL P62 LINENO = 4601 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32543)) CALL P$INN CALL P$NOT CALL P$FJP($2149) CALL P$MST(1) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 2149 CONTINUE LINENO = 4602 CALL P$LDO(1,13) CALL P$LDC(1,INTL(8)) CALL P$EQU(1,1) CALL P$FJP($2150) LINENO = 4603 LINENO = 4604 2151 CONTINUE CALL P$MST(1) CALL P$CUP(0) CALL P62 LINENO = 4605 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$EQU(1,1) CALL P$FJP($2152) LINENO = 4606 LINENO = 4607 CALL P$LAO(18) CALL P$LCA(26585) CALL P$EQU(5,8) CALL P$FJP($2153) CALL P$LDC(3,INTL(1)) CALL P$SRO(3,43) GOTO 2154 2153 CONTINUE LINENO = 4608 CALL P$LAO(18) CALL P$LCA(26587) CALL P$EQU(5,8) CALL P$FJP($2155) CALL P$LDC(3,INTL(1)) CALL P$SRO(3,42) GOTO 2156 2155 CONTINUE LINENO = 4609 CALL P$LAO(18) CALL P$LCA(26589) CALL P$EQU(5,8) CALL P$FJP($2157) CALL P$LDC(3,INTL(1)) CALL P$SRO(3,40) GOTO 2158 2157 CONTINUE LINENO = 4610 CALL P$LAO(18) CALL P$LCA(26591) CALL P$EQU(5,8) CALL P$FJP($2159) CALL P$LDC(3,INTL(1)) CALL P$SRO(3,41) GOTO 2160 2159 CONTINUE LINENO = 4611 CALL P$LDA(0,13) CALL P$LDC(1,INTL(3)) CALL P$NEW LINENO = 4612 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$LAO(18) CALL P$MOV(2) LINENO = 4613 CALL P$LODA(0,13) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(2)) CALL P$LDO(0,60) CALL P$STO(0) LINENO = 4614 CALL P$LODA(0,13) CALL P$SRO(0,60) 2160 CONTINUE 2158 CONTINUE 2156 CONTINUE 2154 CONTINUE LINENO = 4616 CALL P$MST(1) CALL P$CUP(0) CALL P62 LINENO = 4617 CALL P$LDO(1,13) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32544)) CALL P$INN CALL P$NOT CALL P$FJP($2161) CALL P$MST(1) CALL P$LDC(1,INTL(20)) CALL P$CUP(1) CALL P30 2161 CONTINUE GOTO 2162 2152 CONTINUE LINENO = 4619 CALL P$MST(1) CALL P$LDC(1,INTL(2)) CALL P$CUP(1) CALL P30 2162 CONTINUE LINENO = 4620 CALL P$LDO(1,13) CALL P$LDC(1,INTL(12)) CALL P$NEQ(1,1) CALL P$FJP($2151) LINENO = 4621 CALL P$LDO(1,13) CALL P$LDC(1,INTL(9)) CALL P$NEQ(1,1) CALL P$FJP($2163) CALL P$MST(1) CALL P$LDC(1,INTL(4)) CALL P$CUP(1) CALL P30 2163 CONTINUE LINENO = 4622 CALL P$MST(1) CALL P$CUP(0) CALL P62 2150 CONTINUE LINENO = 4624 CALL P$LDO(1,13) CALL P$LDC(1,INTL(13)) CALL P$NEQ(1,1) CALL P$FJP($2164) CALL P$MST(1) CALL P$LDC(1,INTL(14)) CALL P$CUP(1) CALL P30 GOTO 2165 2164 CONTINUE LINENO = 4625 CALL P$MST(1) CALL P$CUP(0) CALL P62 2165 CONTINUE 2147 CONTINUE LINENO = 4627 2166 CONTINUE CALL P$MST(1) CALL P$LDC(1,INTL(1)) CALL P$LODS(0,5) CALL P$LDC(1,INTL(14)) CALL P$LDC(0,INTL(0)) CALL P$CUP(10) CALL P422 LINENO = 4628 CALL P$LDO(1,13) CALL P$LDC(1,INTL(14)) CALL P$NEQ(1,1) CALL P$FJP($2167) CALL P$MST(1) CALL P$LDC(1,INTL(21)) CALL P$CUP(1) CALL P30 2167 CONTINUE LINENO = 4629 CALL P$LDO(1,13) CALL P$LDC(1,INTL(14)) CALL P$EQU(1,1) CALL P$LAO(5) CALL P$EOF CALL P$IOR CALL P$FJP($2166) LINENO = 4630 CALL P$LDO(3,32) CALL P$FJP($2168) CALL P$LAO(7) CALL P$WLN 2168 CONTINUE LINENO = 4631 CALL P$LDO(1,191) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($2169) LINENO = 4632 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,32) CALL P$MST(1) CALL P$CUP(0) CALL P10 2169 CONTINUE CALL P$RET(0) RETURN 2145 CONTINUE SG1SIZ = 14 SG2SIZ = 43 GOTO 2146 END SUBROUTINE P2170 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2171 99998 CALL P$UJC 2172 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4638 CALL P$LAO(789) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26593) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26595) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26597) CALL P$MOV(2) LINENO = 4639 CALL P$LAO(789) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26599) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26601) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26603) CALL P$MOV(2) LINENO = 4640 CALL P$LAO(789) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26605) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26607) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26609) CALL P$MOV(2) LINENO = 4641 CALL P$LAO(789) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26611) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26613) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26615) CALL P$MOV(2) LINENO = 4642 CALL P$LAO(789) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26617) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26619) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26621) CALL P$MOV(2) LINENO = 4643 CALL P$LAO(789) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26623) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26625) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26627) CALL P$MOV(2) LINENO = 4644 CALL P$LAO(789) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26629) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26631) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26633) CALL P$MOV(2) LINENO = 4645 CALL P$LAO(789) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26635) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26637) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26639) CALL P$MOV(2) LINENO = 4646 CALL P$LAO(789) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26641) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26643) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26645) CALL P$MOV(2) LINENO = 4647 CALL P$LAO(789) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26647) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26649) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26651) CALL P$MOV(2) LINENO = 4648 CALL P$LAO(789) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26653) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26655) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26657) CALL P$MOV(2) LINENO = 4649 CALL P$LAO(789) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26659) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(35)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26661) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26663) CALL P$MOV(2) LINENO = 4650 CALL P$LAO(789) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26665) CALL P$MOV(2) CALL P$LAO(789) CALL P$LDC(1,INTL(38)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26667) CALL P$MOV(2) CALL P$RET(0) RETURN 2171 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 2172 END SUBROUTINE P2173 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2174 99998 CALL P$UJC 2175 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4660 CALL P$LAO(45) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 4661 CALL P$LDO(0,45) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4662 CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4663 CALL P$LAO(46) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 4664 CALL P$LDO(0,46) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4665 CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4666 CALL P$LAO(47) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 4667 CALL P$LDO(0,47) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4668 CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4669 CALL P$LAO(48) CALL P$LDC(1,INTL(6)) CALL P$NEW LINENO = 4670 CALL P$LDO(0,48) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4671 CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 4672 CALL P$LAO(49) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 4673 CALL P$LDO(0,49) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4674 CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 4675 CALL P$LAO(44) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 4676 CALL P$LDO(0,44) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4677 CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4678 CALL P$LAO(50) CALL P$LDC(1,INTL(5)) CALL P$NEW LINENO = 4679 CALL P$LDO(0,50) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,6) LINENO = 4680 CALL P$LODA(0,6) CALL P$INC(0,INTL(4)) CALL P$LDO(0,47) CALL P$STO(0) CALL P$LODA(0,6) CALL P$INC(0,INTL(2)) CALL P$LDC(1,INTL(1)) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,6) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(6)) CALL P$STO(1) CALL P$RET(0) RETURN 2174 CONTINUE SG1SIZ = 7 SG2SIZ = 11 GOTO 2175 END SUBROUTINE P2176 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2177 99998 CALL P$UJC 2178 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4688 CALL P$LDA(0,6) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 4689 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4690 CALL P$LODA(0,8) CALL P$LCA(26669) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,45) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4691 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4692 CALL P$LDA(0,6) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 4693 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4694 CALL P$LODA(0,8) CALL P$LCA(26671) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,46) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4695 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4696 CALL P$LDA(0,6) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 4697 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4698 CALL P$LODA(0,8) CALL P$LCA(26673) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,47) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4699 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4700 CALL P$LDA(0,6) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 4701 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4702 CALL P$LODA(0,8) CALL P$LCA(26675) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,48) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4703 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4704 CALL P$LDA(0,6) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 4705 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4706 CALL P$LODA(0,8) CALL P$LCA(26677) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,50) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4707 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4708 CALL P$LDC(0,INTL(0)) CALL P$STRA(0,5) LINENO = 4709 CALL P$LDC(1,INTL(1)) CALL P$STR(0,7) CALL P$LDC(1,INTL(2)) CALL P$STR(0,8) 2179 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2180) LINENO = 4710 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4711 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4712 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDO(0,48) CALL P$STO(0) LINENO = 4713 CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LODA(0,5) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 4715 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 CALL P$LODA(0,6) CALL P$STRA(0,5) CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2179 2180 CONTINUE LINENO = 4717 CALL P$LDO(0,48) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$INC(0,INTL(5)) CALL P$LODA(0,6) CALL P$STO(0) LINENO = 4718 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4719 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4720 CALL P$LODA(0,8) CALL P$LCA(26679) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,49) CALL P$STO(0) LINENO = 4721 CALL P$LODA(0,8) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 4723 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4724 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4725 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4726 CALL P$LODA(0,8) CALL P$LCA(26681) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,45) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 4727 CALL P$LODA(0,8) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(2147483647)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4729 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4730 CALL P$LDC(1,INTL(3)) CALL P$STR(0,7) CALL P$LDC(1,INTL(4)) CALL P$STR(0,8) 2181 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2182) LINENO = 4731 CALL P$LDA(0,6) CALL P$LDC(1,INTL(10)) CALL P$NEW LINENO = 4732 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4733 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDO(0,50) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 4734 CALL P$LODA(0,9) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) LINENO = 4735 CALL P$LODA(0,9) CALL P$INC(0,INTL(9)) CALL P$LDC(1,INTL(5)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(3)) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$MPI CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 4738 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2181 2182 CONTINUE LINENO = 4740 CALL P$LDC(1,INTL(34)) CALL P$STR(0,7) CALL P$LDC(1,INTL(35)) CALL P$STR(0,8) 2183 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2184) LINENO = 4741 CALL P$LDA(0,6) CALL P$LDC(1,INTL(10)) CALL P$NEW LINENO = 4742 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4743 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDO(0,50) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 4744 CALL P$LODA(0,9) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) LINENO = 4745 CALL P$LODA(0,9) CALL P$INC(0,INTL(9)) CALL P$LDC(1,INTL(5)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(32)) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$MPI CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 4747 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2183 2184 CONTINUE LINENO = 4749 CALL P$LDC(1,INTL(37)) CALL P$STR(0,7) CALL P$LDC(1,INTL(38)) CALL P$STR(0,8) 2185 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2186) LINENO = 4750 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4751 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4752 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4753 CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(22)) CALL P$SBI CALL P$CHK(INTL(1),INTL(16)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) LINENO = 4754 CALL P$LODA(0,9) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4756 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2185 2186 CONTINUE LINENO = 4758 CALL P$LDC(1,INTL(5)) CALL P$STR(0,7) CALL P$LDC(1,INTL(17)) CALL P$STR(0,8) 2187 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2188) LINENO = 4759 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4760 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4761 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4762 CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(4)) CALL P$SBI CALL P$CHK(INTL(1),INTL(16)) CALL P$STO(1) LINENO = 4763 CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4765 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2187 2188 CONTINUE LINENO = 4767 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4768 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4769 CALL P$LODA(0,8) CALL P$LAO(789) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4770 CALL P$LODA(0,8) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(16)) CALL P$STO(1) LINENO = 4771 CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4772 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 LINENO = 4773 CALL P$LDC(1,INTL(18)) CALL P$STR(0,7) CALL P$LDC(1,INTL(27)) CALL P$STR(0,8) 2189 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2190) LINENO = 4774 CALL P$LDA(0,6) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4775 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4776 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4777 CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(17)) CALL P$SBI CALL P$CHK(INTL(1),INTL(16)) CALL P$STO(1) LINENO = 4778 CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4780 CALL P$MST(1) CALL P$LODA(0,6) CALL P$CUP(1) CALL P314 CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2189 2190 CONTINUE LINENO = 4782 CALL P$LDA(0,6) CALL P$LDC(1,INTL(10)) CALL P$NEW LINENO = 4783 CALL P$LODA(0,6) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,8) LINENO = 4784 CALL P$LODA(0,8) CALL P$LCA(26683) CALL P$MOV(2) CALL P$LODA(0,8) CALL P$INC(0,INTL(4)) CALL P$LDO(0,46) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 4785 CALL P$LODA(0,8) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,8) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) CALL P$LODA(0,8) CALL P$INC(0,INTL(9)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 4787 CALL P$LDC(1,INTL(28)) CALL P$STR(0,7) CALL P$LDC(1,INTL(33)) CALL P$STR(0,8) 2191 CONTINUE CALL P$LOD(0,7) CALL P$LOD(0,8) CALL P$LEQ(1) CALL P$FJP($2192) LINENO = 4788 CALL P$LDA(0,5) CALL P$LDC(1,INTL(15)) CALL P$NEW LINENO = 4789 CALL P$LODA(0,5) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,9) LINENO = 4790 CALL P$LODA(0,9) CALL P$LAO(789) CALL P$LOD(0,7) CALL P$CHK(INTL(1),INTL(38)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$MOV(2) CALL P$LODA(0,9) CALL P$INC(0,INTL(4)) CALL P$LDO(0,46) CALL P$STO(0) CALL P$LODA(0,9) CALL P$INC(0,INTL(5)) CALL P$LODA(0,6) CALL P$STO(0) LINENO = 4791 CALL P$LODA(0,9) CALL P$INC(0,INTL(11)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LODA(0,9) CALL P$INC(0,INTL(12)) CALL P$LDC(3,INTL(1)) CALL P$STO(3) CALL P$LODA(0,9) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(9)) CALL P$LOD(0,7) CALL P$LDC(1,INTL(13)) CALL P$SBI CALL P$STO(1) LINENO = 4792 CALL P$LODA(0,9) CALL P$INC(0,INTL(13)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) LINENO = 4793 CALL P$LODA(0,9) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,9) CALL P$INC(0,INTL(10)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4795 CALL P$MST(1) CALL P$LODA(0,5) CALL P$CUP(1) CALL P314 CALL P$LOD(0,7) CALL P$INC(1,INTL(1)) CALL P$STR(0,7) GOTO 2191 2192 CONTINUE CALL P$RET(0) RETURN 2177 CONTINUE SG1SIZ = 10 SG2SIZ = 39 GOTO 2178 END SUBROUTINE P2193 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2194 99998 CALL P$UJC 2195 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4801 CALL P$LAO(51) CALL P$LDC(1,INTL(7)) CALL P$NEW LINENO = 4802 CALL P$LDO(0,51) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 4803 CALL P$LODA(0,5) CALL P$LCA(26685) CALL P$MOV(2) CALL P$LODA(0,5) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4804 CALL P$LAO(52) CALL P$LDC(1,INTL(9)) CALL P$NEW LINENO = 4805 CALL P$LDO(0,52) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 4806 CALL P$LODA(0,5) CALL P$LCA(26687) CALL P$MOV(2) CALL P$LODA(0,5) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4807 CALL P$LODA(0,5) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 4809 CALL P$LAO(53) CALL P$LDC(1,INTL(10)) CALL P$NEW LINENO = 4810 CALL P$LDO(0,53) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 4811 CALL P$LODA(0,5) CALL P$LCA(26689) CALL P$MOV(2) CALL P$LODA(0,5) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4812 CALL P$LODA(0,5) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(9)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 4814 CALL P$LAO(54) CALL P$LDC(1,INTL(8)) CALL P$NEW LINENO = 4815 CALL P$LDO(0,54) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 4816 CALL P$LODA(0,5) CALL P$LCA(26691) CALL P$MOV(2) CALL P$LODA(0,5) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$STO(1) LINENO = 4817 CALL P$LODA(0,5) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(3)) CALL P$STO(1) LINENO = 4819 CALL P$LAO(55) CALL P$LDC(1,INTL(15)) CALL P$NEW LINENO = 4820 CALL P$LDO(0,55) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 4821 CALL P$LODA(0,5) CALL P$LCA(26693) CALL P$MOV(2) CALL P$LODA(0,5) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(11)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) LINENO = 4822 CALL P$LODA(0,5) CALL P$INC(0,INTL(13)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) LINENO = 4823 CALL P$LODA(0,5) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(12)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LODA(0,5) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) CALL P$MST(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(9)) CALL P$CUP(1) CALL P412 LINENO = 4824 CALL P$LODA(0,5) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(4)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(10)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 4826 CALL P$LAO(56) CALL P$LDC(1,INTL(15)) CALL P$NEW LINENO = 4827 CALL P$LDO(0,56) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$STRA(0,5) LINENO = 4828 CALL P$LODA(0,5) CALL P$LCA(26695) CALL P$MOV(2) CALL P$LODA(0,5) CALL P$INC(0,INTL(4)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LODA(0,5) CALL P$INC(0,INTL(5)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) LINENO = 4829 CALL P$LODA(0,5) CALL P$INC(0,INTL(13)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) LINENO = 4830 CALL P$LODA(0,5) CALL P$INC(0,INTL(11)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LODA(0,5) CALL P$INC(0,INTL(12)) CALL P$LDC(3,INTL(0)) CALL P$STO(3) CALL P$LODA(0,5) CALL P$INC(0,INTL(8)) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$STO(1) CALL P$MST(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(9)) CALL P$CUP(1) CALL P412 LINENO = 4831 CALL P$LODA(0,5) CALL P$INC(0,INTL(6)) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(7)) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LODA(0,5) CALL P$INC(0,INTL(10)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$RET(0) RETURN 2194 CONTINUE SG1SIZ = 6 SG2SIZ = 13 GOTO 2195 END SUBROUTINE P2196 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2197 99998 CALL P$UJC 2198 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4838 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,39) LINENO = 4839 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,34) LINENO = 4840 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,32) LINENO = 4841 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,33) LINENO = 4842 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,35) LINENO = 4843 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,36) LINENO = 4844 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,37) LINENO = 4845 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,38) LINENO = 4846 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,43) CALL P$LDC(3,INTL(0)) CALL P$SRO(3,42) LINENO = 4847 CALL P$LDC(3,INTL(0)) CALL P$SRO(3,41) CALL P$LDC(3,INTL(0)) CALL P$SRO(3,40) LINENO = 4848 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13027) LINENO = 4849 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13028) LINENO = 4850 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,28) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,26) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,27) LINENO = 4851 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,29) LINENO = 4852 CALL P$LDC(3,INTL(1)) CALL P$SRO(3,30) CALL P$LDC(3,INTL(1)) CALL P$SRO(3,31) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,191) LINENO = 4853 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,57) LINENO = 4854 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,6478) CALL P$LDC(0,INTL(0)) CALL P$SRO(0,60) LINENO = 4855 CALL P$LDC(1,INTL(5)) CALL P$LDC(1,INTL(8)) CALL P$LDC(1,INTL(1)) CALL P$MPI CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,23) LINENO = 4857 CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) CALL P$LDC(3,INTL(1)) CALL P$SRO(3,21) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,25) LINENO = 4858 CALL P$LDC(6,INTL(160)) CALL P$SRO(6,20) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,22) LINENO = 4859 CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32545)) CALL P$LDC(1,INTL(7)) CALL P$SRO(4,213) LINENO = 4860 CALL P$LDC(1,INTL(256)) CALL P$LDC(4,INTL(32545)) CALL P$LDC(1,INTL(4)) CALL P$SRO(4,221) LINENO = 4861 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,226) LINENO = 4862 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,61) LINENO = 4863 CALL P$LDC(0,INTL(0)) CALL P$SRO(0,58) CALL P$LDC(0,INTL(0)) CALL P$SRO(0,59) LINENO = 4864 CALL P$LDC(1,INTL(1)) CALL P$STR(0,5) CALL P$LDC(1,INTL(8)) CALL P$STR(0,6) 2199 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($2200) LINENO = 4865 CALL P$LAO(6461) CALL P$LOD(0,5) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(6,INTL(160)) CALL P$STO(6) CALL P$LAO(6469) CALL P$LOD(0,5) CALL P$CHK(INTL(1),INTL(8)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(6,INTL(160)) CALL P$STO(6) CALL P$LOD(0,5) CALL P$INC(1,INTL(1)) CALL P$STR(0,5) GOTO 2199 2200 CONTINUE LINENO = 4866 CALL P$LAO(6461) CALL P$DAT(1) CALL P$LAO(6469) CALL P$DAT(2) CALL P$RET(0) RETURN 2197 CONTINUE SG1SIZ = 7 SG2SIZ = 21 GOTO 2198 END SUBROUTINE P2201 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2202 99998 CALL P$UJC 2203 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4872 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32545)) CALL P$LDC(1,INTL(1)) CALL P$SRO(4,232) LINENO = 4873 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32546)) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,232) CALL P$UNI CALL P$LDC(1,INTL(1)) CALL P$SRO(4,234) LINENO = 4874 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32547)) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,234) CALL P$UNI CALL P$LDC(1,INTL(1)) CALL P$SRO(4,236) LINENO = 4875 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32548)) CALL P$LDC(1,INTL(1)) CALL P$SRO(4,246) LINENO = 4876 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32549)) CALL P$LDC(1,INTL(1)) CALL P$SRO(4,238) LINENO = 4878 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32550)) CALL P$LDC(1,INTL(1)) CALL P$SRO(4,240) LINENO = 4879 CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32551)) CALL P$LDC(1,INTL(1)) CALL P$SRO(4,242) LINENO = 4880 CALL P$LDC(1,INTL(1)) CALL P$LDC(4,INTL(32552)) CALL P$LDC(1,INTL(1)) CALL P$SRO(4,244) CALL P$RET(0) RETURN 2202 CONTINUE SG1SIZ = 5 SG2SIZ = 37 GOTO 2203 END SUBROUTINE P2205 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2206 99998 CALL P$UJC 2207 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4888 CALL P$LAO(376) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26697) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26699) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26701) CALL P$MOV(2) LINENO = 4889 CALL P$LAO(376) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26703) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26705) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26707) CALL P$MOV(2) LINENO = 4890 CALL P$LAO(376) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26709) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26711) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26713) CALL P$MOV(2) LINENO = 4891 CALL P$LAO(376) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26715) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26717) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26719) CALL P$MOV(2) LINENO = 4892 CALL P$LAO(376) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26721) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26723) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26725) CALL P$MOV(2) LINENO = 4893 CALL P$LAO(376) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26727) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26729) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26731) CALL P$MOV(2) LINENO = 4894 CALL P$LAO(376) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26733) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26735) CALL P$MOV(2) LINENO = 4895 CALL P$LAO(376) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26737) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26739) CALL P$MOV(2) LINENO = 4896 CALL P$LAO(376) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26741) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26743) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26745) CALL P$MOV(2) LINENO = 4897 CALL P$LAO(376) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26747) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26749) CALL P$MOV(2) LINENO = 4898 CALL P$LAO(376) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26751) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26753) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26755) CALL P$MOV(2) LINENO = 4899 CALL P$LAO(376) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26757) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26759) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26761) CALL P$MOV(2) LINENO = 4900 CALL P$LAO(376) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26763) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(35)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26765) CALL P$MOV(2) LINENO = 4901 CALL P$LAO(376) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26767) CALL P$MOV(2) CALL P$LAO(376) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(26769) CALL P$MOV(2) LINENO = 4902 CALL P$LAO(450) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) LINENO = 4903 CALL P$LAO(450) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$LAO(450) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(9)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(38)) CALL P$CHK(INTL(1),INTL(38)) CALL P$STO(1) CALL P$RET(0) RETURN 2206 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 2207 END SUBROUTINE P2208 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2209 99998 CALL P$UJC 2210 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 4910 CALL P$LDC(1,INTL(1)) CALL P$STR(0,5) CALL P$LDC(1,INTL(400)) CALL P$STR(0,6) 2211 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($2212) LINENO = 4911 CALL P$LAO(865) CALL P$LOD(0,5) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26771) CALL P$MOV(13) CALL P$LOD(0,5) CALL P$INC(1,INTL(1)) CALL P$STR(0,5) GOTO 2211 2212 CONTINUE LINENO = 4912 CALL P$LAO(865) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26784) CALL P$MOV(13) LINENO = 4913 CALL P$LAO(865) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26797) CALL P$MOV(13) LINENO = 4914 CALL P$LAO(865) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26810) CALL P$MOV(13) LINENO = 4915 CALL P$LAO(865) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26823) CALL P$MOV(13) LINENO = 4916 CALL P$LAO(865) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26836) CALL P$MOV(13) LINENO = 4917 CALL P$LAO(865) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26849) CALL P$MOV(13) LINENO = 4918 CALL P$LAO(865) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26862) CALL P$MOV(13) LINENO = 4919 CALL P$LAO(865) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26875) CALL P$MOV(13) LINENO = 4920 CALL P$LAO(865) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26888) CALL P$MOV(13) LINENO = 4921 CALL P$LAO(865) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26901) CALL P$MOV(13) LINENO = 4922 CALL P$LAO(865) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26914) CALL P$MOV(13) LINENO = 4923 CALL P$LAO(865) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26927) CALL P$MOV(13) LINENO = 4924 CALL P$LAO(865) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26940) CALL P$MOV(13) LINENO = 4925 CALL P$LAO(865) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26953) CALL P$MOV(13) LINENO = 4926 CALL P$LAO(865) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26966) CALL P$MOV(13) LINENO = 4927 CALL P$LAO(865) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26979) CALL P$MOV(13) LINENO = 4928 CALL P$LAO(865) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(26992) CALL P$MOV(13) LINENO = 4929 CALL P$LAO(865) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27005) CALL P$MOV(13) LINENO = 4930 CALL P$LAO(865) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27018) CALL P$MOV(13) LINENO = 4931 CALL P$LAO(865) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27031) CALL P$MOV(13) LINENO = 4932 CALL P$LAO(865) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27044) CALL P$MOV(13) LINENO = 4933 CALL P$LAO(865) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27057) CALL P$MOV(13) LINENO = 4934 CALL P$LAO(865) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27070) CALL P$MOV(13) LINENO = 4935 CALL P$LAO(865) CALL P$LDC(1,INTL(52)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27083) CALL P$MOV(13) LINENO = 4936 CALL P$LAO(865) CALL P$LDC(1,INTL(53)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27096) CALL P$MOV(13) LINENO = 4937 CALL P$LAO(865) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27109) CALL P$MOV(13) LINENO = 4938 CALL P$LAO(865) CALL P$LDC(1,INTL(55)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27122) CALL P$MOV(13) LINENO = 4939 CALL P$LAO(865) CALL P$LDC(1,INTL(56)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27135) CALL P$MOV(13) LINENO = 4940 CALL P$LAO(865) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27148) CALL P$MOV(13) LINENO = 4941 CALL P$LAO(865) CALL P$LDC(1,INTL(58)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27161) CALL P$MOV(13) LINENO = 4942 CALL P$LAO(865) CALL P$LDC(1,INTL(59)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27174) CALL P$MOV(13) LINENO = 4943 CALL P$LAO(865) CALL P$LDC(1,INTL(60)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27187) CALL P$MOV(13) LINENO = 4944 CALL P$LAO(865) CALL P$LDC(1,INTL(101)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27200) CALL P$MOV(13) LINENO = 4945 CALL P$LAO(865) CALL P$LDC(1,INTL(102)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27213) CALL P$MOV(13) LINENO = 4946 CALL P$LAO(865) CALL P$LDC(1,INTL(103)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27226) CALL P$MOV(13) LINENO = 4947 CALL P$LAO(865) CALL P$LDC(1,INTL(104)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27239) CALL P$MOV(13) LINENO = 4948 CALL P$LAO(865) CALL P$LDC(1,INTL(105)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27252) CALL P$MOV(13) LINENO = 4949 CALL P$LAO(865) CALL P$LDC(1,INTL(106)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27265) CALL P$MOV(13) LINENO = 4950 CALL P$LAO(865) CALL P$LDC(1,INTL(107)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27278) CALL P$MOV(13) LINENO = 4951 CALL P$LAO(865) CALL P$LDC(1,INTL(108)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27291) CALL P$MOV(13) LINENO = 4952 CALL P$LAO(865) CALL P$LDC(1,INTL(109)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27304) CALL P$MOV(13) LINENO = 4953 CALL P$LAO(865) CALL P$LDC(1,INTL(110)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27317) CALL P$MOV(13) LINENO = 4954 CALL P$LAO(865) CALL P$LDC(1,INTL(111)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27330) CALL P$MOV(13) LINENO = 4955 CALL P$LAO(865) CALL P$LDC(1,INTL(112)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27343) CALL P$MOV(13) LINENO = 4956 CALL P$LAO(865) CALL P$LDC(1,INTL(113)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27356) CALL P$MOV(13) LINENO = 4957 CALL P$LAO(865) CALL P$LDC(1,INTL(114)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27369) CALL P$MOV(13) LINENO = 4958 CALL P$LAO(865) CALL P$LDC(1,INTL(115)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27382) CALL P$MOV(13) LINENO = 4959 CALL P$LAO(865) CALL P$LDC(1,INTL(116)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27395) CALL P$MOV(13) LINENO = 4960 CALL P$LAO(865) CALL P$LDC(1,INTL(117)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27408) CALL P$MOV(13) LINENO = 4961 CALL P$LAO(865) CALL P$LDC(1,INTL(118)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27421) CALL P$MOV(13) LINENO = 4962 CALL P$LAO(865) CALL P$LDC(1,INTL(119)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27434) CALL P$MOV(13) LINENO = 4963 CALL P$LAO(865) CALL P$LDC(1,INTL(120)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27447) CALL P$MOV(13) LINENO = 4964 CALL P$LAO(865) CALL P$LDC(1,INTL(121)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27460) CALL P$MOV(13) LINENO = 4965 CALL P$LAO(865) CALL P$LDC(1,INTL(122)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27473) CALL P$MOV(13) LINENO = 4966 CALL P$LAO(865) CALL P$LDC(1,INTL(123)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27486) CALL P$MOV(13) LINENO = 4967 CALL P$LAO(865) CALL P$LDC(1,INTL(124)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27499) CALL P$MOV(13) LINENO = 4968 CALL P$LAO(865) CALL P$LDC(1,INTL(125)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27512) CALL P$MOV(13) LINENO = 4969 CALL P$LAO(865) CALL P$LDC(1,INTL(126)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27525) CALL P$MOV(13) LINENO = 4970 CALL P$LAO(865) CALL P$LDC(1,INTL(127)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27538) CALL P$MOV(13) LINENO = 4971 CALL P$LAO(865) CALL P$LDC(1,INTL(128)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27551) CALL P$MOV(13) LINENO = 4972 CALL P$LAO(865) CALL P$LDC(1,INTL(129)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27564) CALL P$MOV(13) LINENO = 4973 CALL P$LAO(865) CALL P$LDC(1,INTL(130)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27577) CALL P$MOV(13) LINENO = 4974 CALL P$LAO(865) CALL P$LDC(1,INTL(131)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27590) CALL P$MOV(13) LINENO = 4975 CALL P$LAO(865) CALL P$LDC(1,INTL(132)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27603) CALL P$MOV(13) LINENO = 4976 CALL P$LAO(865) CALL P$LDC(1,INTL(133)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27616) CALL P$MOV(13) LINENO = 4977 CALL P$LAO(865) CALL P$LDC(1,INTL(134)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27629) CALL P$MOV(13) LINENO = 4978 CALL P$LAO(865) CALL P$LDC(1,INTL(135)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27642) CALL P$MOV(13) LINENO = 4979 CALL P$LAO(865) CALL P$LDC(1,INTL(136)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27655) CALL P$MOV(13) LINENO = 4980 CALL P$LAO(865) CALL P$LDC(1,INTL(137)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27668) CALL P$MOV(13) LINENO = 4981 CALL P$LAO(865) CALL P$LDC(1,INTL(138)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27681) CALL P$MOV(13) LINENO = 4982 CALL P$LAO(865) CALL P$LDC(1,INTL(139)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27694) CALL P$MOV(13) LINENO = 4983 CALL P$LAO(865) CALL P$LDC(1,INTL(140)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27707) CALL P$MOV(13) LINENO = 4984 CALL P$LAO(865) CALL P$LDC(1,INTL(141)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27720) CALL P$MOV(13) LINENO = 4985 CALL P$LAO(865) CALL P$LDC(1,INTL(142)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27733) CALL P$MOV(13) LINENO = 4986 CALL P$LAO(865) CALL P$LDC(1,INTL(143)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27746) CALL P$MOV(13) LINENO = 4987 CALL P$LAO(865) CALL P$LDC(1,INTL(144)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27759) CALL P$MOV(13) LINENO = 4988 CALL P$LAO(865) CALL P$LDC(1,INTL(145)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27772) CALL P$MOV(13) LINENO = 4989 CALL P$LAO(865) CALL P$LDC(1,INTL(146)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27785) CALL P$MOV(13) LINENO = 4990 CALL P$LAO(865) CALL P$LDC(1,INTL(147)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27798) CALL P$MOV(13) LINENO = 4991 CALL P$LAO(865) CALL P$LDC(1,INTL(148)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27811) CALL P$MOV(13) LINENO = 4992 CALL P$LAO(865) CALL P$LDC(1,INTL(149)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27824) CALL P$MOV(13) LINENO = 4993 CALL P$LAO(865) CALL P$LDC(1,INTL(150)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27837) CALL P$MOV(13) LINENO = 4994 CALL P$LAO(865) CALL P$LDC(1,INTL(151)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27850) CALL P$MOV(13) LINENO = 4995 CALL P$LAO(865) CALL P$LDC(1,INTL(152)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27863) CALL P$MOV(13) LINENO = 4996 CALL P$LAO(865) CALL P$LDC(1,INTL(153)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27876) CALL P$MOV(13) LINENO = 4997 CALL P$LAO(865) CALL P$LDC(1,INTL(154)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27889) CALL P$MOV(13) LINENO = 4998 CALL P$LAO(865) CALL P$LDC(1,INTL(155)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27902) CALL P$MOV(13) LINENO = 4999 CALL P$LAO(865) CALL P$LDC(1,INTL(156)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27915) CALL P$MOV(13) LINENO = 5000 CALL P$LAO(865) CALL P$LDC(1,INTL(157)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27928) CALL P$MOV(13) LINENO = 5001 CALL P$LAO(865) CALL P$LDC(1,INTL(158)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27941) CALL P$MOV(13) LINENO = 5002 CALL P$LAO(865) CALL P$LDC(1,INTL(159)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27954) CALL P$MOV(13) LINENO = 5003 CALL P$LAO(865) CALL P$LDC(1,INTL(160)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27967) CALL P$MOV(13) LINENO = 5004 CALL P$LAO(865) CALL P$LDC(1,INTL(161)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27980) CALL P$MOV(13) LINENO = 5005 CALL P$LAO(865) CALL P$LDC(1,INTL(162)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(27993) CALL P$MOV(13) LINENO = 5006 CALL P$LAO(865) CALL P$LDC(1,INTL(163)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28006) CALL P$MOV(13) LINENO = 5007 CALL P$LAO(865) CALL P$LDC(1,INTL(164)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28019) CALL P$MOV(13) LINENO = 5008 CALL P$LAO(865) CALL P$LDC(1,INTL(165)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28032) CALL P$MOV(13) LINENO = 5009 CALL P$LAO(865) CALL P$LDC(1,INTL(166)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28045) CALL P$MOV(13) LINENO = 5010 CALL P$LAO(865) CALL P$LDC(1,INTL(167)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28058) CALL P$MOV(13) LINENO = 5011 CALL P$LAO(865) CALL P$LDC(1,INTL(168)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28071) CALL P$MOV(13) LINENO = 5012 CALL P$LAO(865) CALL P$LDC(1,INTL(169)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28084) CALL P$MOV(13) LINENO = 5013 CALL P$LAO(865) CALL P$LDC(1,INTL(170)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28097) CALL P$MOV(13) LINENO = 5014 CALL P$LAO(865) CALL P$LDC(1,INTL(171)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28110) CALL P$MOV(13) LINENO = 5015 CALL P$LAO(865) CALL P$LDC(1,INTL(172)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28123) CALL P$MOV(13) LINENO = 5016 CALL P$LAO(865) CALL P$LDC(1,INTL(173)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28136) CALL P$MOV(13) LINENO = 5017 CALL P$LAO(865) CALL P$LDC(1,INTL(174)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28149) CALL P$MOV(13) LINENO = 5018 CALL P$LAO(865) CALL P$LDC(1,INTL(175)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28162) CALL P$MOV(13) LINENO = 5019 CALL P$LAO(865) CALL P$LDC(1,INTL(176)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28175) CALL P$MOV(13) LINENO = 5020 CALL P$LAO(865) CALL P$LDC(1,INTL(177)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28188) CALL P$MOV(13) LINENO = 5021 CALL P$LAO(865) CALL P$LDC(1,INTL(178)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28201) CALL P$MOV(13) LINENO = 5022 CALL P$LAO(865) CALL P$LDC(1,INTL(179)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28214) CALL P$MOV(13) LINENO = 5023 CALL P$LAO(865) CALL P$LDC(1,INTL(180)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28227) CALL P$MOV(13) LINENO = 5024 CALL P$LAO(865) CALL P$LDC(1,INTL(181)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28240) CALL P$MOV(13) LINENO = 5025 CALL P$LAO(865) CALL P$LDC(1,INTL(182)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28253) CALL P$MOV(13) LINENO = 5026 CALL P$LAO(865) CALL P$LDC(1,INTL(183)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28266) CALL P$MOV(13) LINENO = 5027 CALL P$LAO(865) CALL P$LDC(1,INTL(201)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28279) CALL P$MOV(13) LINENO = 5028 CALL P$LAO(865) CALL P$LDC(1,INTL(202)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28292) CALL P$MOV(13) LINENO = 5029 CALL P$LAO(865) CALL P$LDC(1,INTL(203)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28305) CALL P$MOV(13) LINENO = 5030 CALL P$LAO(865) CALL P$LDC(1,INTL(204)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28318) CALL P$MOV(13) LINENO = 5031 CALL P$LAO(865) CALL P$LDC(1,INTL(205)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28331) CALL P$MOV(13) LINENO = 5032 CALL P$LAO(865) CALL P$LDC(1,INTL(206)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28344) CALL P$MOV(13) LINENO = 5033 CALL P$LAO(865) CALL P$LDC(1,INTL(250)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28357) CALL P$MOV(13) LINENO = 5034 CALL P$LAO(865) CALL P$LDC(1,INTL(251)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28370) CALL P$MOV(13) LINENO = 5035 CALL P$LAO(865) CALL P$LDC(1,INTL(252)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28383) CALL P$MOV(13) LINENO = 5036 CALL P$LAO(865) CALL P$LDC(1,INTL(253)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28396) CALL P$MOV(13) LINENO = 5037 CALL P$LAO(865) CALL P$LDC(1,INTL(254)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28409) CALL P$MOV(13) LINENO = 5038 CALL P$LAO(865) CALL P$LDC(1,INTL(255)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28422) CALL P$MOV(13) LINENO = 5039 CALL P$LAO(865) CALL P$LDC(1,INTL(256)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28435) CALL P$MOV(13) LINENO = 5040 CALL P$LAO(865) CALL P$LDC(1,INTL(257)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28448) CALL P$MOV(13) LINENO = 5041 CALL P$LAO(865) CALL P$LDC(1,INTL(258)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28461) CALL P$MOV(13) LINENO = 5042 CALL P$LAO(865) CALL P$LDC(1,INTL(259)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28474) CALL P$MOV(13) LINENO = 5043 CALL P$LAO(865) CALL P$LDC(1,INTL(260)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28487) CALL P$MOV(13) LINENO = 5044 CALL P$LAO(865) CALL P$LDC(1,INTL(261)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28500) CALL P$MOV(13) LINENO = 5045 CALL P$LAO(865) CALL P$LDC(1,INTL(300)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28513) CALL P$MOV(13) LINENO = 5046 CALL P$LAO(865) CALL P$LDC(1,INTL(301)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28526) CALL P$MOV(13) LINENO = 5047 CALL P$LAO(865) CALL P$LDC(1,INTL(302)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28539) CALL P$MOV(13) LINENO = 5048 CALL P$LAO(865) CALL P$LDC(1,INTL(303)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28552) CALL P$MOV(13) LINENO = 5049 CALL P$LAO(865) CALL P$LDC(1,INTL(304)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28565) CALL P$MOV(13) LINENO = 5050 CALL P$LAO(865) CALL P$LDC(1,INTL(350)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28578) CALL P$MOV(13) LINENO = 5051 CALL P$LAO(865) CALL P$LDC(1,INTL(351)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28591) CALL P$MOV(13) LINENO = 5052 CALL P$LAO(865) CALL P$LDC(1,INTL(352)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28604) CALL P$MOV(13) LINENO = 5053 CALL P$LAO(865) CALL P$LDC(1,INTL(353)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28617) CALL P$MOV(13) LINENO = 5054 CALL P$LAO(865) CALL P$LDC(1,INTL(354)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28630) CALL P$MOV(13) LINENO = 5055 CALL P$LAO(865) CALL P$LDC(1,INTL(355)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28643) CALL P$MOV(13) LINENO = 5056 CALL P$LAO(865) CALL P$LDC(1,INTL(356)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28656) CALL P$MOV(13) LINENO = 5057 CALL P$LAO(865) CALL P$LDC(1,INTL(397)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28669) CALL P$MOV(13) LINENO = 5058 CALL P$LAO(865) CALL P$LDC(1,INTL(398)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28682) CALL P$MOV(13) LINENO = 5059 CALL P$LAO(865) CALL P$LDC(1,INTL(399)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28695) CALL P$MOV(13) LINENO = 5060 CALL P$LAO(865) CALL P$LDC(1,INTL(400)) CALL P$CHK(INTL(1),INTL(400)) CALL P$DEC(1,INTL(1)) CALL P$IXA(13) CALL P$LCA(28708) CALL P$MOV(13) CALL P$RET(0) RETURN 2209 CONTINUE SG1SIZ = 7 SG2SIZ = 9 GOTO 2210 END SUBROUTINE P2213 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2214 99998 CALL P$UJC 2215 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5065 CALL P$LAO(459) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(32)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(48)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(47)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(49)) CALL P$STO(1) LINENO = 5066 CALL P$LAO(459) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(6)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(39)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(36)) CALL P$STO(1) LINENO = 5067 CALL P$LAO(459) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(21)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(25)) CALL P$STO(1) LINENO = 5068 CALL P$LAO(459) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(4)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(51)) CALL P$STO(1) LINENO = 5069 CALL P$LAO(459) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(40)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(37)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(38)) CALL P$STO(1) LINENO = 5070 CALL P$LAO(459) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(33)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(20)) CALL P$STO(1) LINENO = 5071 CALL P$LAO(459) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(29)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(31)) CALL P$STO(1) LINENO = 5072 CALL P$LAO(459) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(46)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(35)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(27)) CALL P$STO(1) LINENO = 5073 CALL P$LAO(459) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(19)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(18)) CALL P$STO(1) LINENO = 5074 CALL P$LAO(459) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(34)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(28)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(50)) CALL P$STO(1) LINENO = 5075 CALL P$LAO(459) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(26)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(41)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(30)) CALL P$STO(1) LINENO = 5076 CALL P$LAO(459) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(23)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(35)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(42)) CALL P$STO(1) LINENO = 5077 CALL P$LAO(459) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(22)) CALL P$STO(1) CALL P$LAO(459) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(24)) CALL P$STO(1) LINENO = 5078 CALL P$LAO(496) CALL P$LDC(6,INTL(171)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(6)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(173)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(6)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(170)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) LINENO = 5079 CALL P$LAO(496) CALL P$LDC(6,INTL(175)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(168)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(169)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(9)) CALL P$STO(1) LINENO = 5080 CALL P$LAO(496) CALL P$LDC(6,INTL(164)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(52)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(189)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(160)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(52)) CALL P$STO(1) LINENO = 5081 CALL P$LAO(496) CALL P$LDC(6,INTL(172)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(12)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(174)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(14)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(167)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(52)) CALL P$STO(1) LINENO = 5082 CALL P$LAO(496) CALL P$LDC(6,INTL(219)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(10)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(221)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(11)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(186)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(16)) CALL P$STO(1) LINENO = 5083 CALL P$LAO(496) CALL P$LDC(6,INTL(222)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(15)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(251)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(43)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(253)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(44)) CALL P$STO(1) LINENO = 5084 CALL P$LAO(496) CALL P$LDC(6,INTL(188)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(190)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LAO(496) CALL P$LDC(6,INTL(162)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(45)) CALL P$STO(1) LINENO = 5085 CALL P$LAO(496) CALL P$LDC(6,INTL(187)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(13)) CALL P$STO(1) CALL P$RET(0) RETURN 2214 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 2215 END SUBROUTINE P2216 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2217 99998 CALL P$UJC 2218 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5091 CALL P$LDC(1,INTL(1)) CALL P$STR(0,5) CALL P$LDC(1,INTL(37)) CALL P$STR(0,7) 2219 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,7) CALL P$LEQ(1) CALL P$FJP($2220) CALL P$LAO(624) CALL P$LOD(0,5) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(15)) CALL P$STO(1) CALL P$LOD(0,5) CALL P$INC(1,INTL(1)) CALL P$STR(0,5) GOTO 2219 2220 CONTINUE LINENO = 5092 CALL P$LAO(624) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(14)) CALL P$STO(1) CALL P$LAO(624) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$STO(1) CALL P$LAO(624) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(4)) CALL P$STO(1) LINENO = 5093 CALL P$LAO(624) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LAO(624) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(37)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5094 CALL P$LDC(1,INTL(128)) CALL P$CHK(INTL(128),INTL(255)) CALL P$STR(0,6) CALL P$LDC(1,INTL(255)) CALL P$CHK(INTL(128),INTL(255)) CALL P$STR(0,7) 2221 CONTINUE CALL P$LOD(0,6) CALL P$LOD(0,7) CALL P$LEQ(1) CALL P$FJP($2222) CALL P$LAO(661) CALL P$LOD(0,6) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(15)) CALL P$STO(1) CALL P$LOD(0,6) CALL P$INC(6,INTL(1)) CALL P$STR(0,6) GOTO 2221 2222 CONTINUE LINENO = 5095 CALL P$LAO(661) CALL P$LDC(6,INTL(171)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LAO(661) CALL P$LDC(6,INTL(173)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(6)) CALL P$STO(1) CALL P$LAO(661) CALL P$LDC(6,INTL(170)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LAO(661) CALL P$LDC(6,INTL(175)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$STO(1) LINENO = 5096 CALL P$LAO(661) CALL P$LDC(6,INTL(189)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(13)) CALL P$STO(1) LINENO = 5097 CALL P$LAO(661) CALL P$LDC(6,INTL(188)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$STO(1) CALL P$LAO(661) CALL P$LDC(6,INTL(190)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(11)) CALL P$STO(1) CALL P$RET(0) RETURN 2217 CONTINUE SG1SIZ = 8 SG2SIZ = 9 GOTO 2218 END SUBROUTINE P2223 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2224 99998 CALL P$UJC 2225 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5105 CALL P$LAO(6197) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28721) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28723) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28725) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28727) CALL P$MOV(2) LINENO = 5106 CALL P$LAO(6197) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28729) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28731) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28733) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28735) CALL P$MOV(2) LINENO = 5107 CALL P$LAO(6197) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28737) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28739) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28741) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28743) CALL P$MOV(2) LINENO = 5108 CALL P$LAO(6197) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28745) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28747) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28749) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28751) CALL P$MOV(2) LINENO = 5109 CALL P$LAO(6197) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28753) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28755) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28757) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28759) CALL P$MOV(2) LINENO = 5110 CALL P$LAO(6197) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28761) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28763) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28765) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28767) CALL P$MOV(2) LINENO = 5111 CALL P$LAO(6197) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28769) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28771) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28773) CALL P$MOV(2) CALL P$LAO(6197) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28775) CALL P$MOV(2) LINENO = 5112 CALL P$LAO(6197) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(2) CALL P$LCA(28777) CALL P$MOV(2) CALL P$RET(0) RETURN 2224 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 2225 END SUBROUTINE P2226 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2227 99998 CALL P$UJC 2228 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5120 CALL P$LAO(6065) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28779) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28781) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28783) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28785) CALL P$MOV(2) LINENO = 5121 CALL P$LAO(6065) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28787) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28789) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28791) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28793) CALL P$MOV(2) LINENO = 5122 CALL P$LAO(6065) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28795) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28797) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28799) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28801) CALL P$MOV(2) LINENO = 5123 CALL P$LAO(6065) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28803) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28805) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28807) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28809) CALL P$MOV(2) LINENO = 5124 CALL P$LAO(6065) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28811) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28813) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28815) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28817) CALL P$MOV(2) LINENO = 5125 CALL P$LAO(6065) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28819) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28821) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28823) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28825) CALL P$MOV(2) LINENO = 5126 CALL P$LAO(6065) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28827) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28829) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28831) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28833) CALL P$MOV(2) LINENO = 5127 CALL P$LAO(6065) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28835) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28837) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28839) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28841) CALL P$MOV(2) LINENO = 5128 CALL P$LAO(6065) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28843) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28845) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28847) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(35)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28849) CALL P$MOV(2) LINENO = 5129 CALL P$LAO(6065) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28851) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28853) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(38)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28855) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(39)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28857) CALL P$MOV(2) LINENO = 5130 CALL P$LAO(6065) CALL P$LDC(1,INTL(40)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28859) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(41)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28861) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28863) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(43)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28865) CALL P$MOV(2) LINENO = 5131 CALL P$LAO(6065) CALL P$LDC(1,INTL(44)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28867) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28869) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(46)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28871) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(47)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28873) CALL P$MOV(2) LINENO = 5132 CALL P$LAO(6065) CALL P$LDC(1,INTL(48)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28875) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(49)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28877) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28879) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28881) CALL P$MOV(2) LINENO = 5133 CALL P$LAO(6065) CALL P$LDC(1,INTL(52)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28883) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(53)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28885) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28887) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(55)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28889) CALL P$MOV(2) LINENO = 5134 CALL P$LAO(6065) CALL P$LDC(1,INTL(56)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28891) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28893) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(58)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28895) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(59)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28897) CALL P$MOV(2) LINENO = 5135 CALL P$LAO(6065) CALL P$LDC(1,INTL(60)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28899) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(61)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28901) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(62)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28903) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(63)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28905) CALL P$MOV(2) LINENO = 5136 CALL P$LAO(6065) CALL P$LDC(1,INTL(64)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28907) CALL P$MOV(2) CALL P$LAO(6065) CALL P$LDC(1,INTL(65)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(2) CALL P$LCA(28909) CALL P$MOV(2) CALL P$RET(0) RETURN 2227 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 2228 END SUBROUTINE P2229 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2230 99998 CALL P$UJC 2231 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5143 CALL P$LDC(1,INTL(128)) CALL P$CHK(INTL(128),INTL(255)) CALL P$STR(0,5) CALL P$LDC(1,INTL(255)) CALL P$CHK(INTL(128),INTL(255)) CALL P$STR(0,6) 2232 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($2233) CALL P$LAO(248) CALL P$LOD(0,5) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$STO(1) CALL P$LOD(0,5) CALL P$INC(6,INTL(1)) CALL P$STR(0,5) GOTO 2232 2233 CONTINUE LINENO = 5144 CALL P$LDC(6,INTL(193)) CALL P$STR(0,5) CALL P$LDC(6,INTL(218)) CALL P$STR(0,6) 2234 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($2235) CALL P$LAO(248) CALL P$LOD(0,5) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LOD(0,5) CALL P$INC(6,INTL(1)) CALL P$STR(0,5) GOTO 2234 2235 CONTINUE LINENO = 5145 CALL P$LDC(6,INTL(225)) CALL P$STR(0,5) CALL P$LDC(6,INTL(250)) CALL P$STR(0,6) 2236 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($2237) CALL P$LAO(248) CALL P$LOD(0,5) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LOD(0,5) CALL P$INC(6,INTL(1)) CALL P$STR(0,5) GOTO 2236 2237 CONTINUE LINENO = 5146 CALL P$LDC(6,INTL(176)) CALL P$STR(0,5) CALL P$LDC(6,INTL(185)) CALL P$STR(0,6) 2238 CONTINUE CALL P$LOD(0,5) CALL P$LOD(0,6) CALL P$LEQ(1) CALL P$FJP($2239) CALL P$LAO(248) CALL P$LOD(0,5) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LOD(0,5) CALL P$INC(6,INTL(1)) CALL P$STR(0,5) GOTO 2238 2239 CONTINUE LINENO = 5147 CALL P$LAO(248) CALL P$LDC(6,INTL(223)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(171)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5148 CALL P$LAO(248) CALL P$LDC(6,INTL(173)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(170)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5149 CALL P$LAO(248) CALL P$LDC(6,INTL(175)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(168)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5150 CALL P$LAO(248) CALL P$LDC(6,INTL(169)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(164)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5151 CALL P$LAO(248) CALL P$LDC(6,INTL(189)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(160)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5152 CALL P$LAO(248) CALL P$LDC(6,INTL(172)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(174)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5153 CALL P$LAO(248) CALL P$LDC(6,INTL(167)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(219)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5154 CALL P$LAO(248) CALL P$LDC(6,INTL(221)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(186)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5155 CALL P$LAO(248) CALL P$LDC(6,INTL(222)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(187)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5156 CALL P$LAO(248) CALL P$LDC(6,INTL(188)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(190)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5157 CALL P$LAO(248) CALL P$LDC(6,INTL(251)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) CALL P$LAO(248) CALL P$LDC(6,INTL(253)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5158 CALL P$LAO(248) CALL P$LDC(6,INTL(162)) CALL P$DEC(1,INTL(128)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5160 CALL P$LAO(6350) CALL P$LDC(6,INTL(176)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$STO(1) CALL P$LAO(6350) CALL P$LDC(6,INTL(177)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$STO(1) CALL P$LAO(6350) CALL P$LDC(6,INTL(178)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$STO(1) LINENO = 5161 CALL P$LAO(6350) CALL P$LDC(6,INTL(179)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$STO(1) LINENO = 5162 CALL P$LAO(6350) CALL P$LDC(6,INTL(180)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(4)) CALL P$STO(1) CALL P$LAO(6350) CALL P$LDC(6,INTL(181)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(5)) CALL P$STO(1) CALL P$LAO(6350) CALL P$LDC(6,INTL(182)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(6)) CALL P$STO(1) LINENO = 5163 CALL P$LAO(6350) CALL P$LDC(6,INTL(183)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$STO(1) CALL P$LAO(6350) CALL P$LDC(6,INTL(184)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$STO(1) CALL P$LAO(6350) CALL P$LDC(6,INTL(185)) CALL P$CHK(INTL(176),INTL(185)) CALL P$DEC(1,INTL(176)) CALL P$IXA(1) CALL P$LDC(1,INTL(9)) CALL P$STO(1) CALL P$RET(0) RETURN 2230 CONTINUE SG1SIZ = 7 SG2SIZ = 9 GOTO 2231 END SUBROUTINE P2240 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2241 99998 CALL P$UJC 2242 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5169 CALL P$LAO(6255) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5170 CALL P$LAO(6255) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5171 CALL P$LAO(6255) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5172 CALL P$LAO(6255) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5173 CALL P$LAO(6255) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5174 CALL P$LAO(6255) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5175 CALL P$LAO(6255) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5176 CALL P$LAO(6255) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(8)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(30)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(31)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5177 CALL P$LAO(6255) CALL P$LDC(1,INTL(32)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(33)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(34)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(35)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5178 CALL P$LAO(6255) CALL P$LDC(1,INTL(36)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(37)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(38)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(39)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5179 CALL P$LAO(6255) CALL P$LDC(1,INTL(40)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(41)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(42)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(43)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5180 CALL P$LAO(6255) CALL P$LDC(1,INTL(44)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(45)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(46)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(47)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5181 CALL P$LAO(6255) CALL P$LDC(1,INTL(48)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(49)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(50)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(51)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5182 CALL P$LAO(6255) CALL P$LDC(1,INTL(52)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(53)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(54)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(55)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5183 CALL P$LAO(6255) CALL P$LDC(1,INTL(56)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(57)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(58)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(59)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5184 CALL P$LAO(6255) CALL P$LDC(1,INTL(60)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(61)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(62)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(63)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5185 CALL P$LAO(6255) CALL P$LDC(1,INTL(64)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) CALL P$LAO(6255) CALL P$LDC(1,INTL(65)) CALL P$CHK(INTL(0),INTL(65)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-8),INTL(8)) CALL P$STO(1) LINENO = 5186 CALL P$LAO(6321) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(2)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(3)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(4)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5187 CALL P$LAO(6321) CALL P$LDC(1,INTL(5)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(6)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(7)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(8)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5188 CALL P$LAO(6321) CALL P$LDC(1,INTL(9)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(10)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(3)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(11)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(12)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5189 CALL P$LAO(6321) CALL P$LDC(1,INTL(13)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(14)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(15)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(16)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5190 CALL P$LAO(6321) CALL P$LDC(1,INTL(17)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(18)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(19)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(20)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5191 CALL P$LAO(6321) CALL P$LDC(1,INTL(21)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(22)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(23)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(24)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5192 CALL P$LAO(6321) CALL P$LDC(1,INTL(25)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(26)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(27)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$LAO(6321) CALL P$LDC(1,INTL(28)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) LINENO = 5193 CALL P$LAO(6321) CALL P$LDC(1,INTL(29)) CALL P$CHK(INTL(1),INTL(29)) CALL P$DEC(1,INTL(1)) CALL P$IXA(1) CALL P$LDC(1,INTL(2)) CALL P$NGI CALL P$CHK(INTL(-7),INTL(7)) CALL P$STO(1) CALL P$RET(0) RETURN 2241 CONTINUE SG1SIZ = 5 SG2SIZ = 9 GOTO 2242 END SUBROUTINE P2204 INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2243 99998 CALL P$UJC 2244 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5197 CALL P$MST(0) CALL P$CUP(0) CALL P2205 CALL P$MST(0) CALL P$CUP(0) CALL P2213 CALL P$MST(0) CALL P$CUP(0) CALL P2216 LINENO = 5198 CALL P$MST(0) CALL P$CUP(0) CALL P2226 CALL P$MST(0) CALL P$CUP(0) CALL P2223 LINENO = 5199 CALL P$MST(0) CALL P$CUP(0) CALL P2229 CALL P$MST(0) CALL P$CUP(0) CALL P2240 LINENO = 5200 CALL P$MST(0) CALL P$CUP(0) CALL P2208 CALL P$RET(0) RETURN 2243 CONTINUE SG1SIZ = 5 SG2SIZ = 5 GOTO 2244 END SUBROUTINE P$MAIN INTEGER*2 LINENO, SG1SIZ, SG2SIZ INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) INTEGER SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP GOTO 2246 99998 CALL P$UJC 2247 CONTINUE CALL P$ENT(1,SG1SIZ) CALL P$ENT(2,SG2SIZ) LINENO = 5206 CALL P$MST(0) CALL P$CUP(0) CALL P2196 CALL P$MST(0) CALL P$CUP(0) CALL P2201 CALL P$MST(0) CALL P$CUP(0) CALL P2204 LINENO = 5212 CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,62) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) LINENO = 5215 CALL P$LDO(3,33) CALL P$FJP($2248) LINENO = 5216 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28911) CALL P$LDC(1,INTL(9)) CALL P$LDC(1,INTL(9)) CALL P$WRS CALL P$WLN LINENO = 5217 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28914) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN LINENO = 5218 CALL P$LDO(1,24) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$CHK(INTL(0),INTL(32767)) CALL P$SRO(1,24) 2248 CONTINUE LINENO = 5221 CALL P$LAO(65) CALL P$LDC(1,INTL(0)) CALL P$CHK(INTL(0),INTL(20)) CALL P$IXA(6) CALL P$STRA(0,13029) LINENO = 5222 CALL P$LDO(0,13029) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LDO(0,13029) CALL P$INC(0,INTL(1)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LDO(0,13029) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 5225 CALL P$MST(0) CALL P$CUP(0) CALL P2173 CALL P$MST(0) CALL P$CUP(0) CALL P2170 CALL P$MST(0) CALL P$CUP(0) CALL P2176 CALL P$MST(0) CALL P$CUP(0) CALL P2193 LINENO = 5228 CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(20)) CALL P$SRO(1,64) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(10)) CALL P$SRO(1,62) LINENO = 5229 CALL P$LAO(65) CALL P$LDC(1,INTL(1)) CALL P$CHK(INTL(0),INTL(20)) CALL P$IXA(6) CALL P$STRA(0,13029) LINENO = 5230 CALL P$LDO(0,13029) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LDO(0,13029) CALL P$INC(0,INTL(1)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LDO(0,13029) CALL P$INC(0,INTL(2)) CALL P$LDC(0,INTL(0)) CALL P$STO(0) CALL P$LDO(0,13029) CALL P$INC(0,INTL(3)) CALL P$LDC(1,INTL(0)) CALL P$STO(1) LINENO = 5237 CALL P$MST(0) CALL P$CUP(0) CALL P62 LINENO = 5238 CALL P$MST(0) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,238) CALL P$LDC(1,INTL(1)) CALL P$LDO(4,244) CALL P$UNI CALL P$LDC(1,INTL(257)) CALL P$LDC(4,INTL(32554)) CALL P$DIF CALL P$CUP(8) CALL P2144 LINENO = 5239 CALL P$MST(0) CALL P$CUP(0) CALL P40 LINENO = 5241 CALL P$LDO(3,33) CALL P$FJP($2249) LINENO = 5242 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28915) CALL P$LDC(1,INTL(15)) CALL P$LDC(1,INTL(15)) CALL P$WRS CALL P$WLN LINENO = 5243 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28919) CALL P$LDC(1,INTL(17)) CALL P$LDC(1,INTL(17)) CALL P$WRS CALL P$LDC(1,INTL(24575)) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$LDC(1,INTL(4)) CALL P$WRI CALL P$LCA(28924) CALL P$LDC(1,INTL(13)) CALL P$LDC(1,INTL(13)) CALL P$WRS CALL P$WLN LINENO = 5245 CALL P$MST(0) CALL P$CUP(0) CALL P418 LINENO = 5246 CALL P$LDO(1,13028) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($2250) LINENO = 5247 CALL P$LAO(11) CALL P$WLN LINENO = 5248 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28928) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$WLN LINENO = 5249 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13024) CALL P$LDO(1,13028) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STR(0,13029) 2251 CONTINUE CALL P$LDO(1,13024) CALL P$LOD(0,13029) CALL P$LEQ(1) CALL P$FJP($2252) LINENO = 5250 CALL P$LAO(11) CALL P$LCA(28931) CALL P$LDC(1,INTL(7)) CALL P$LDC(1,INTL(7)) CALL P$WRS SP=SP-1 LINENO = 5251 CALL P$LDC(1,INTL(31)) CALL P$LAO(12624) CALL P$LDO(1,13024) CALL P$CHK(INTL(0),INTL(399)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$IND(4,0) CALL P$INN CALL P$FJP($2253) CALL P$LDC(1,INTL(2)) CALL P$SRO(1,13026) GOTO 2254 2253 CONTINUE CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13026) 2254 CONTINUE LINENO = 5252 CALL P$LDC(1,INTL(30)) CALL P$LAO(12624) CALL P$LDO(1,13024) CALL P$CHK(INTL(0),INTL(399)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$IND(4,0) CALL P$INN CALL P$FJP($2255) CALL P$LDO(1,13026) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,13026) 2255 CONTINUE LINENO = 5253 CALL P$LAO(11) CALL P$LDO(1,13026) CALL P$LDC(1,INTL(1)) CALL P$WRI SP=SP-1 LINENO = 5254 CALL P$LDC(1,INTL(29)) CALL P$SRO(1,13025) LINENO = 5255 2256 CONTINUE LINENO = 5255 CALL P$LDO(1,13025) CALL P$LDC(1,INTL(1)) CALL P$NGI CALL P$GRT(1,1) CALL P$FJP($2257) LINENO = 5256 CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13026) LINENO = 5257 CALL P$LDO(1,13025) CALL P$LAO(12624) CALL P$LDO(1,13024) CALL P$CHK(INTL(0),INTL(399)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$IND(4,0) CALL P$INN CALL P$FJP($2258) CALL P$LDO(1,13026) CALL P$LDC(1,INTL(4)) CALL P$ADI CALL P$SRO(1,13026) 2258 CONTINUE LINENO = 5258 CALL P$LDO(1,13025) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$LAO(12624) CALL P$LDO(1,13024) CALL P$CHK(INTL(0),INTL(399)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$IND(4,0) CALL P$INN CALL P$FJP($2259) CALL P$LDO(1,13026) CALL P$LDC(1,INTL(2)) CALL P$ADI CALL P$SRO(1,13026) 2259 CONTINUE LINENO = 5259 CALL P$LDO(1,13025) CALL P$LDC(1,INTL(2)) CALL P$SBI CALL P$LAO(12624) CALL P$LDO(1,13024) CALL P$CHK(INTL(0),INTL(399)) CALL P$IXA(1) CALL P$LDC(1,INTL(0)) CALL P$IND(4,0) CALL P$INN CALL P$FJP($2260) CALL P$LDO(1,13026) CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$SRO(1,13026) 2260 CONTINUE LINENO = 5260 CALL P$LAO(11) CALL P$LDO(1,13026) CALL P$LDC(1,INTL(1)) CALL P$WRI SP=SP-1 LINENO = 5261 CALL P$LDO(1,13025) CALL P$LDC(1,INTL(3)) CALL P$SBI CALL P$SRO(1,13025) GOTO 2256 2257 CONTINUE LINENO = 5263 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN CALL P$LDO(1,13024) CALL P$INC(1,INTL(1)) CALL P$SRO(1,13024) GOTO 2251 2252 CONTINUE LINENO = 5265 CALL P$LDC(1,INTL(399)) CALL P$LDO(1,13028) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($2261) LINENO = 5266 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LDC(6,INTL(171)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LDC(1,INTL(399)) CALL P$LDO(1,13028) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(28933) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN 2261 CONTINUE 2250 CONTINUE LINENO = 5269 CALL P$LDO(1,13027) CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($2262) LINENO = 5270 CALL P$LAO(11) CALL P$WLN LINENO = 5271 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28934) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS CALL P$WLN LINENO = 5272 CALL P$LDO(1,13027) CALL P$LDC(1,INTL(32)) CALL P$SBI CALL P$SRO(1,13026) CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13024) LINENO = 5273 2263 CONTINUE LINENO = 5273 CALL P$LDO(1,13024) CALL P$LDO(1,13026) CALL P$LES(1,1) CALL P$FJP($2264) LINENO = 5274 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LCA(28937) CALL P$LDC(1,INTL(4)) CALL P$LDC(1,INTL(4)) CALL P$WRS SP=SP-1 LINENO = 5275 CALL P$LDO(1,13024) CALL P$SRO(1,13025) CALL P$LDO(1,13024) CALL P$LDC(1,INTL(31)) CALL P$ADI CALL P$STR(0,13029) 2265 CONTINUE CALL P$LDO(1,13025) CALL P$LOD(0,13029) CALL P$LEQ(1) CALL P$FJP($2266) LINENO = 5276 CALL P$LAO(11) CALL P$LAO(6480) CALL P$LDO(1,13025) CALL P$CHK(INTL(0),INTL(24575)) CALL P$LPC CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LDO(1,13025) CALL P$INC(1,INTL(1)) CALL P$SRO(1,13025) GOTO 2265 2266 CONTINUE LINENO = 5277 CALL P$LDO(1,13024) CALL P$LDC(1,INTL(32)) CALL P$ADI CALL P$SRO(1,13024) CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN GOTO 2263 2264 CONTINUE LINENO = 5279 CALL P$LDO(1,13027) CALL P$LDO(1,13024) CALL P$SBI CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($2267) LINENO = 5280 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(5)) CALL P$WRC CALL P$LDC(6,INTL(171)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LDO(1,13027) CALL P$LDO(1,13024) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(200)) CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 LINENO = 5281 CALL P$LDO(1,13024) CALL P$SRO(1,13025) CALL P$LDO(1,13027) CALL P$LDC(1,INTL(1)) CALL P$SBI CALL P$STR(0,13029) 2268 CONTINUE CALL P$LDO(1,13025) CALL P$LOD(0,13029) CALL P$LEQ(1) CALL P$FJP($2269) LINENO = 5282 CALL P$LAO(11) CALL P$LAO(6480) CALL P$LDO(1,13025) CALL P$CHK(INTL(0),INTL(24575)) CALL P$LPC CALL P$LDC(1,INTL(1)) CALL P$WRC SP=SP-1 CALL P$LDO(1,13025) CALL P$INC(1,INTL(1)) CALL P$SRO(1,13025) GOTO 2268 2269 CONTINUE 2267 CONTINUE LINENO = 5284 CALL P$LDC(1,INTL(24575)) CALL P$LDO(1,13027) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(0)) CALL P$GRT(1,1) CALL P$FJP($2270) LINENO = 5285 CALL P$LAO(11) CALL P$LDC(6,INTL(172)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$LDC(1,INTL(24575)) CALL P$LDO(1,13027) CALL P$SBI CALL P$LDC(1,INTL(1)) CALL P$ADI CALL P$LDC(1,INTL(4)) CALL P$DVI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LCA(28938) CALL P$LDC(1,INTL(2)) CALL P$LDC(1,INTL(2)) CALL P$WRS SP=SP-1 2270 CONTINUE LINENO = 5286 CALL P$LAO(11) CALL P$LDC(6,INTL(175)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN 2262 CONTINUE LINENO = 5288 CALL P$LAO(11) CALL P$WLN LINENO = 5289 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28939) CALL P$LDC(1,INTL(37)) CALL P$LDC(1,INTL(37)) CALL P$WRS CALL P$LDO(1,13027) CALL P$LDC(1,INTL(2)) CALL P$DVI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 5291 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28949) CALL P$LDC(1,INTL(36)) CALL P$LDC(1,INTL(36)) CALL P$WRS CALL P$LDO(1,13028) CALL P$LDC(1,INTL(2)) CALL P$MPI CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 5293 CALL P$LDO(3,43) CALL P$FJP($2271) CALL P$LDC(1,INTL(1)) CALL P$SRO(1,13026) GOTO 2272 2271 CONTINUE CALL P$LDC(1,INTL(0)) CALL P$SRO(1,13026) 2272 CONTINUE LINENO = 5294 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28958) CALL P$LDC(1,INTL(12)) CALL P$LDC(1,INTL(12)) CALL P$WRS CALL P$LDO(1,13026) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 5295 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28961) CALL P$LDC(1,INTL(13)) CALL P$LDC(1,INTL(13)) CALL P$WRS CALL P$WLN LINENO = 5296 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28965) CALL P$LDC(1,INTL(13)) CALL P$LDC(1,INTL(13)) CALL P$WRS CALL P$WLN LINENO = 5297 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28969) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$WLN LINENO = 5298 CALL P$LDO(3,35) CALL P$FJP($2273) LINENO = 5299 LINENO = 5300 CALL P$LAO(18) CALL P$LCA(28972) CALL P$MOV(2) LINENO = 5301 CALL P$MST(0) CALL P$LDC(1,INTL(0)) CALL P$LDC(4,INTL(32555)) CALL P$LAO(6479) CALL P$CUP(9) CALL P337 LINENO = 5302 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28974) CALL P$LDC(1,INTL(11)) CALL P$LDC(1,INTL(11)) CALL P$WRS CALL P$LDO(0,6479) CALL P$CHKA(INTL(1),INTL(32767)) CALL P$IND(1,9) CALL P$LDC(1,INTL(1)) CALL P$WRI CALL P$LDC(6,INTL(169)) CALL P$LDC(1,INTL(1)) CALL P$WRC CALL P$WLN LINENO = 5303 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28977) CALL P$LDC(1,INTL(40)) CALL P$LDC(1,INTL(40)) CALL P$WRS CALL P$WLN 2273 CONTINUE LINENO = 5305 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28987) CALL P$LDC(1,INTL(10)) CALL P$LDC(1,INTL(10)) CALL P$WRS CALL P$WLN LINENO = 5306 CALL P$LAO(11) CALL P$LDC(6,INTL(160)) CALL P$LDC(1,INTL(6)) CALL P$WRC CALL P$LCA(28990) CALL P$LDC(1,INTL(3)) CALL P$LDC(1,INTL(3)) CALL P$WRS CALL P$WLN 2249 CONTINUE CALL P$RET(0) RETURN 2246 CONTINUE SG1SIZ = 13030 SG2SIZ = 63 GOTO 2247 END SUBROUTINE MAIN INTEGER*4 STRGS (6144), SETS (400) INTEGER*4 STOREX, STRTBL (6144), SETTBL (400) INTEGER*4 STORE(1), STOREX(32767) REAL STORER(1) INTEGER*2 SP, MP, EP, NP COMMON /SP/ SP COMMON /MP/ MP COMMON /EP/ EP COMMON /NP/ NP COMMON /CSTORE/ STOREX EQUIVALENCE(STOREX(2),STORE(1),STORER(1)) EQUIVALENCE(STOREX(26224), STRTBL (1)) EQUIVALENCE(STOREX(32368), SETTBL (1)) DATA SETS / +:00005210034, +:00000000014, +:00000000001, +:00000000140, +:00000000002, +:00000011000, +:00000011000, +:00000000003, +:00000200000, +:00000000001, +:00000000002, +:00000000001, +:00000000002, +:00000210000, +:00000230000, +:00000000002, +:00000020000, +:00000000002, +:00000000001, +:00000000002, +:00000000001, +:00000000002, +:00000000001, +:00000000400, +:00000100000, +:00000000400, +:00000100000, +:00000020000, +:00000000200, +:00000210400, +:00000021000, +:00000020000, +:00000020000, +:00000000001, +:00000014000, +:00000100000, +:00000020000, +:00000000200, +:00000030000, +:00000030000, +:00000000001, +:00000020000, +:00000000001, +:00000000001, +:00000000001, +:00000020000, +:00000000001, +:00000000001, +:00000210000, +:00000230000, +:00000020000, +:00000000060, +:00000000001, +:00000000001, +:00000000400, +:00000000400, +:00130000001, +:00000001001, +:00130000001, +:00000031000, +:00000031000, +:00000210000, +:00000031000, +:00000000001, +:00000000007, +:00000021000, +:00000021000, +:00000210000, +:00000031000, +:00000000001, +:00000021000, +:00000021000, +:00130000001, +:00000001001, +:00000020000, +:00000220000, +:00000000001, +:00000000007, +:00000020000, +:20120000000, +:20120000000, +:20120000000, +:20120000000, +:20120000000, +:00000010104, +:00000014000, +:00000000014, +:00000010000, +:00000001000, +:00000000160, +:00000011000, +:00000001000, +:00000001000, +:00000011000, +:00000011000, +:00000011000, +:00000000063, +:00000011000, +:00000211000, +:00000011000, +:00000211000, +:00000000063, +:00000211000, +:00000011000, +:00000211000, +:00000011000, +:00000011000, +:00000001000, +:00000011000, +:00000011000, +:00000001000, +:00000011000, +:00000011000, +:00000001000, +:00000001000, +:00000001000, +:00000001000, +:00000000060, +:00000011000, +:00000000020, +:00000000040, +:00000011000, +:00000011000, +:00000011000, +:00000014140, +:00000014140, +:00000001000, +:00000000056, +:00000001000, +:00000214000, +:00000014000, +:00000000040, +:00000000040, +:00000000140, +:00000000100, +:00000000100, +:00000000200, +:00000007400, +:00000004400, +:00000400000, +:00000020000, +:00000000200, +:00002000000, +:00000000400, +:00000210000, +:00000100000, +:00000020000, +:00000000200, +:00000210000, +:00000020000, +:00000020000, +:00000040000, +:00000020000, +:00000040000, +:00000200000, +:00000000004, +:00000400000, +:00001600000, +:00001600000, +:00001600000, +:00001400000, +:00000200000, +:00000200000, +:00000000014, +:00000010000, +:00000200000, +:00000000001, +:00000000001, +:00000000074, +:00000020000, +:00000040600, +:00000020000, +:00000000200, +:00000000004, +:00120000000, +:00000000002, +:00000020400, +:00000011000, +:00000000117, +:00000000400, +:07600100000, +:07200000000, +:20137000000, +:00000142000, +:00000002437, +:20000000000, +:00000000177, +:00000000002, +:00000000004, +211*0/ DATA STRGS / +32HGEORGIA TECH PASCAL P4 - REVI, +32HSION PAGE ***** LAST ERR, +32HOR AT LINE FIRST ERROR LAST ERR, +32HOR AT LINE ERROR NUMBER MESS, +32HAGE ****** ******* ***** EOF , +32HENCOUNTERED INTEGER*2 LI, +32HNENO, SG1SIZ, SG2SIZINTEGER*4 ST, +32HORE(1), STOREX(32767) REAL STO, +32HRER(1) COMMON /CSTORE/ STOREX , +32HEQUIVALENCE(STOREX(2),STORE(1),S, +32HTORER(1)) INTEGER SP, MP, EP, , +32HNP COMMON /SP/ SP COMMON /MP/ , +32HMP COMMON /EP/ EP COMMON /NP/ , +32HNP INTEGER*4 STOREX, STRTBL ( , +32H), SETTBL (400) INTEGER*4 STORE(, +32H1), STOREX(32767) REAL STORER(, +32H1) INTEGER*2 SP, MP, EP, NPCOMM, +32HON /SP/ SP COMMON /MP/ MP COMM, +32HON /EP/ EP COMMON /NP/ NP COMM, +32HON /CSTORE/ STOREX EQUIVALENCE(, +32HSTOREX(2),STORE(1),STORER(1)) , +32HEQUIVALENCE(STOREX( ), STRTBL , +32H(1))EQUIVALENCE(STOREX( ), SET, +32HTBL (1)) TYPE-ID TYPE-ID , +32HCALLCALLCALLCALLCALLINTL( ), I, +32HNTL(CALLCALLINTL( )) CALL(INT, +32HL( ),INTL( )) CALL P$LDC( INTL, +32H( )) CALL P$LDC( INTL( INTL, +32H( CALL P$LDC(1, INTL( )) , +32HCALL($ GOTO CALL($ CALLCALL, +32H P CALLCALL STORER (SP -) = , +32HSTORE (SP - ) = , STORE(SP- , +32HSTORE(STORE(SP- )) CONTINUE , +32HCALL,' ;') SP=SP-1 SP=SP-1 GOT, +32HO 99998 GOTO LINENO = LINE, +32HNO = SUBROUTINE PSUBROUTINE P, +32H$MAIINTEGER*4 REAL CALL T$T, +32HRAC(1,' OUTER BLOCK .') GOTO , +32H99998 CALL P$UJCCALL P$ENT(1,SG1, +32HSIZ)CALL P$ENT(2,SG2SIZ) LABEL , +32HCALL,' ;') CALL T$TRAC(2,0)RETU, +32HRN SG1SIZ = SG2SIZ = GOTO, +32H END CALL T$TRAC(2,0)RETURN , +32HSG1SIZ = SG2SIZ = GOTO , +32HEND ***** UNDECLARED EXTERNAL, +32H FILEINPUT OUTPUT PRR , +32HKEYBOARDFALSE TRUE INPUT , +32HOUTPUT GET PUT RESET , +32HREWRITE READ WRITE PACK , +32HUNPACK NEW RELEASE READLN , +32HWRITELN PAGE ABS SQR , +32HTRUNC ODD ORD CHR , +32HPRED SUCC EOF EOLN , +32HSIN COS EXP SQRT , +32HLN ARCTAN KEYBOARDPRR , +32HMARK TIME DATE INTEGER , +32HREAL CHAR BOOLEAN TEXT , +32HNIL MAXINT , +32H , +32H IF DO OF , +32HTO IN OR END , +32HFOR VAR DIV MOD , +32HSET AND NOT THEN , +32HELSE WITH GOTO CASE , +32HTYPE FILE BEGIN UNTIL , +32HWHILE ARRAY CONST LABEL , +32HREPEAT RECORD DOWNTO PACKED , +32HEXTERN FORWARD PROGRAM FORTRAN , +32HFUNCTIONPROCEDUR , +32H , +32H error in simple type , +32H identifi, +32Her expected , +32H 'program' expected , +32H , +32H')' expected , +32H ':' expected, +32H , +32H illegal symbol , +32H erro, +32Hr in parameter list , +32H 'of' expected , +32H , +32H '(' expected , +32H error in, +32H type , +32H '[' expected , +32H , +32H']' expected , +32H 'end' expect, +32Hed , +32H ';' expected , +32H inte, +32Hger expected , +32H '=' expected , +32H , +32H 'begin' expected , +32H error in, +32H declaration part , +32H error in field-list , +32H , +32H',' expected , +32H '*' expected, +32H , +32H error in constant , +32H ':=', +32H expected , +32H 'then' expected , +32H , +32H 'until' expected , +32H 'do' exp, +32Hected , +32H 'to'/'downto' expect, +32Hed , +32H'if' expected , +32H 'file' expec, +32Hted , +32H error in factor , +32H erro, +32Hr in variable , +32H ':' or '/' expec, +32Hted , +32H identifier declared twice , +32H low boun, +32Hd exceeds highbound , +32H identifier is not of, +32H appropriate class , +32Hidentifier not declared , +32H sign not all, +32Howed , +32H number expected , +32H inco, +32Hmpatible subrange types , +32H file not allowed, +32H here , +32H type must not be real , +32H tagfield, +32H type must be scalar or subrange, +32H incompatible with ta, +32Hgfield type , +32Hindex type must not be real , +32H index type m, +32Hust be scalar or subrange , +32H base type must not be re, +32Hal base, +32H type must be scalar or subrange, +32H error in type of, +32H standard procedure parameter , +32H unsatisfied forward referenc, +32He forward , +32Hreference type id in variable de, +32Hcln fwd declared; repeti, +32Htion of param list illegal , +32Hfunc result type must be scalar,, +32H subrange or ptr file value p, +32Harameter not allowed , +32H fwd declared function; c, +32Hannot repeat result type miss, +32Hing result type in function decl, +32Haration F-format for rea, +32Hl only , +32H error in type of standard fu, +32Hnction parameter number o, +32Hf params does not agree with dec, +32Hlaration illegal parameter su, +32Hbstitution , +32Hresult type of param func does n, +32Hot agree with decl type conflic, +32Ht of operands , +32H expression is not of set, +32H type test, +32Hs on equality allowed only , +32H strict inclusion, +32H not allowed , +32H file comparison not allowed , +32H illegal , +32Htype of operand(s) , +32H type of operand must, +32H be Boolean , +32Hset element type must be scalar , +32Hor subrange set element , +32Htypes not compatible , +32H type of variable is not , +32Harray inde, +32Hx type is not compatible with de, +32Hclaration type of variable, +32H is not record , +32H type of variable must be fil, +32He or pointer illegal , +32Hparameter substitution , +32H illegal type of loop, +32H control variable , +32Hillegal type of expression , +32H type conflic, +32Ht , +32H assignment of files not , +32Hallowed labe, +32Hl type incompatible with selecti, +32Hng expr subrange bounds , +32Hmust be scalar , +32H index type must not be integ, +32Her assignme, +32Hnt to standard function is not a, +32Hllowed assignment to formal, +32H function is not allowed , +32Hno such field in this record , +32H type error i, +32Hn read , +32H actual parameter must be, +32H a variable cont, +32Hrol variable can't be formal or , +32Hnon local multidefined cas, +32He label , +32H too many cases in case state, +32Hment missing , +32Hcorresponding variant declaratio, +32Hn real or string tagfi, +32Helds not allowed , +32Hprevious declaration was not for, +32Hward again forwar, +32Hd declared , +32H parameter size must be c, +32Honstant miss, +32Hing variant in declaration , +32H substitution of , +32Hstandard proc/func not allowed , +32H multidefined label , +32H multidec, +32Hlared label , +32H undeclared label , +32H , +32Hundefined label , +32H error in bas, +32He set , +32H value parameter expected, +32H stan, +32Hdard file was redeclared , +32H undeclared exter, +32Hnal file , +32H Fortran procedure or functio, +32Hn expected Pascal p, +32Hrocedure or function expected , +32H missing file 'input', +32H in program heading , +32Hmissing file 'output' in program, +32H heading assgt to fun, +32Hction identifier not allowed her, +32He multidefined record vari, +32Hant X-op, +32Ht of actual proc/func does not m, +32Hatch decl control variable, +32H must not be formal , +32H constant part of address out, +32H of range file mus, +32Ht be file of char , +32H pathname linkage not, +32H allowed for temporary files , +32Herror in real constant: digit ex, +32Hpected string const, +32Hant must not exceed source line , +32H integer constant exceeds, +32H range 8 or, +32H 9 in octal number , +32H string constant , +32Hlength must not be zero , +32H integer part of real constan, +32Ht exceeds range too many, +32H nested scopes of identifiers , +32H too many nested proc, +32Hedures and/or functions , +32Htoo many forward references of p, +32Hrocedure entries procedure to, +32Ho long , +32H too many long constants , +32Hin this procedure too , +32Hmany errors on this source line , +32H too many externa, +32Hl references , +32H too many externals , +32H too many, +32H local files , +32H expression too compl, +32Hicated , +32Htoo many exit labels , +32H pathname too, +32H long , +32H division by zero , +32H no c, +32Hase provided for this value , +32H index expression, +32H out of bounds , +32H value to be assigned is out , +32Hof bounds element , +32Hexpression out of range , +32H unknown -- see proce, +32Hdure selector , +32Hunknown -- see recog of string c, +32Honst in insymbol unknown -- s, +32Hee procedure gentypindicator , +32H unknown -- see procedure, +32H store read, +32Hing of packed arrays not impleme, +32Hnted unknown -- see p, +32Hrocedure loadaddress , +32H unknown -- see procedure loa, +32Hdaddress fortran , +32Hfunc result type must be integer, +32H or real implementation restr, +32Hiction , +32Hmiscellaneous , +32H not implemen, +32Hted in this version , +32H P$GET P$PUT P$RDI , +32H P$RDR P$RDC P$WRI P$WRO , +32H P$WRR P$WRC P$WRS P$PAK , +32H P$NEW P$RST P$ELN P$SIN , +32H P$COS P$EXP P$SQT P$LOG , +32H P$ATN P$RLN P$WLN P$SAV , +32H P$RES P$RWR P$PAG P$BRD , +32H P$BWR P$DAT P$ABI P$ABR , +32H P$ADI P$ADR P$AND P$DIF , +32H P$DVI P$DVR P$EOF P$FLO , +32H P$FLT P$INN P$INT P$IOR , +32H P$MOD P$MPI P$MPR P$NGI , +32H P$NGR P$NOT P$ODD P$SBI , +32H P$SBR P$SGS P$SQI P$SQR , +32H P$STO P$TRC P$UNI P$STP , +32H P$CSP P$DEC P$ENT P$FJP , +32H P$INC P$IND P$IXA P$LAO , +32H P$LCA P$LDO P$MOV P$MST , +32H P$RET P$SRO P$XJP P$CHK , +32H P$CUP P$EQU P$GEQ P$GRT , +32H P$LDA P$LDC P$LEQ P$LES , +32H P$LOD P$NEQ P$STR P$UJP , +32H P$MTS P$UJC P$LPC , +32H P$SPC P$CLS P$REM P$INF , +32HCALL MAIN END SUBROUTINE MAIN , +32HINTEGER*4 STRGS ( ), SETS (400, +32H) DATA SETS / +: *0/ DATA, +32H STRGS /+32H*0 CALL MOVE2S(LOC(, +32HSTRGS), LOC(STRTBL), CALL MOV, +32HE2S(LOC(SETS), LOC(SETTBL), CALL, +32H P$INIT(CALL P$MST(0) CALL P$C, +32HUP(0) CALL P$MAIN ERRKTR CALL, +32H P$LAO( CALL P$FMS(' errors in p, +32Hascal program.')CALL P$STP END ,3376*0/ CALL MOVE2S(LOC(STRGS), LOC(STRTBL), 5536) CALL MOVE2S(LOC(SETS), LOC(SETTBL), 378) CALL P$INIT(1) CALL P$MST(0) CALL P$CUP(0) CALL P$MAIN CALL P$STP END