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     ! 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.