Return to SETPD.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/SETPD.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE SETPD(I, K2)
                      2:       INTEGER PDSA, DSA, PLAT, SYMLEN
                      3:       LOGICAL ERR, SYSERR, ABORT
                      4:       COMMON /PARAMS/ I1, I2, I3, SYMLEN, I4, I5, I6
                      5:       COMMON /DETECT/ ERR, SYSERR, ABORT
                      6:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
                      7:       COMMON /CTABL/ LDSA, PDSA, DSA(5000)
                      8: C
                      9: C     SUBROUTINE ADDS PGM UNIT AT LAT(I) ONTO K2 DESC-LIST
                     10: C     ADDS K2 ONTO I PARENTS  LIST
                     11: C
                     12:       IF (PLAT+4.GT.LLAT) GO TO 20
                     13: C
                     14: C     SEE THAT K2 IS NOT ALREADY ON I PARENTS LIST
                     15: C     0 RETURN INDICATES EMPTY LIST OR NO MATCH
                     16: C
                     17:       J = I + SYMLEN + 3
                     18:       IF (MATCH(LAT(J),1,K2).NE.0) GO TO 10
                     19:       LAT(PLAT+1) = LAT(J)
                     20:       LAT(PLAT) = K2
                     21:       LAT(J) = PLAT
                     22:       J = K2 + SYMLEN + 4
                     23:       LAT(PLAT+3) = LAT(J)
                     24:       LAT(PLAT+2) = I
                     25:       LAT(J) = PLAT + 2
                     26:       PLAT = PLAT + 4
                     27:    10 RETURN
                     28: C
                     29: C     ERROR RETURNS
                     30: C
                     31:    20 SYSERR = .TRUE.
                     32:       CALL ERROR1(32H IN SETPD, TABLE OVERFLOW OF LAT, 32)
                     33:       GO TO 10
                     34:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.