Return to MKCOM.f CVS log

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

Annotation of researchv10no/cmd/pfort/MKCOM.f, revision 1.1

1.1     ! root        1:       SUBROUTINE MKCOM(PP, K)
        !             2:       INTEGER PLAT, PDSA, FINDCM, DSA, SYMLEN, PP, PCOM, COM
        !             3:       LOGICAL SYSERR, ERR, ABORT
        !             4:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
        !             5:       COMMON /COMS/ LCOM, PCOM, COM(300)
        !             6:       COMMON /CTABL/ LDSA, PDSA, DSA(5000)
        !             7:       COMMON /DETECT/ ERR, SYSERR, ABORT
        !             8:       COMMON /PARAMS/ INUT, I1, NOCHAR, SYMLEN, I2, I3, I4
        !             9: C
        !            10: C     WANT TO MARK COMMONLIST ENTRY SET FOR SUBPGM PP; MAY HAVE TO
        !            11: C     CREATE ENTRY
        !            12: C
        !            13:       N = FINDCM(DSA(K+4))
        !            14:       L = SYMLEN + 2 + PP
        !            15:       KK = -K
        !            16:       IF (N.NE.0) KK = N
        !            17: C
        !            18: C     LOOK FOR DSA ENTRY ON LIST
        !            19: C
        !            20:       I = MATCH(LAT(L),2,KK)
        !            21:       IF (I) 30, 30, 10
        !            22:    10 LAT(I+1) = 1
        !            23:    20 RETURN
        !            24: C
        !            25: C     CREATE NEW ENTRY
        !            26: C
        !            27:    30 IF (PLAT+3.GT.LLAT) GO TO 40
        !            28:       LAT(PLAT+1) = 1
        !            29:       LAT(PLAT+2) = LAT(L)
        !            30:       LAT(L) = PLAT
        !            31:       LAT(PLAT) = KK
        !            32:       PLAT = PLAT + 3
        !            33:       GO TO 20
        !            34:    40 SYSERR = .TRUE.
        !            35:       CALL ERROR1(32H IN MKCOM, TABLE OVERFLOW OF LAT, 32)
        !            36:       GO TO 20
        !            37:       END

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