Return to RDSYM.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE RDSYM(IC, IP)
        !             2: C
        !             3: C      PGM UNIT RDSYM POSITIONS I4,I6 CORRECTLY AND INPUTS SYMBOL
        !             4: C      TABLE OF PGM UNIT AT NODE(IC) WHEN LAST ONE READ WAS THAT OF NODE
        !             5: C
        !             6:       INTEGER SYMLEN, PDSA, PLAT, FINDND, PNODE, DSA
        !             7:       LOGICAL INSYM, L
        !             8:       COMMON /PARAMS/ I1, I2, I3, SYMLEN, I4, I5, I6
        !             9:       COMMON /FACTS/ NAME, NOST, ITYP, IASF
        !            10:       COMMON /CTABL/ LDSA, PDSA, DSA(5000)
        !            11:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
        !            12:       COMMON /HEAD/ LNODE, PNODE, NODE(500)
        !            13:       IF (IP.LT.IC) GO TO 10
        !            14:       REWIND I4
        !            15:       REWIND I6
        !            16:  10   L = INSYM(I6,0)
        !            17:       IF (FINDND(DSA(NAME+4),I).EQ.NODE(IC)) RETURN
        !            18:    20 IF (INREF(I6).EQ.1) GO TO 20
        !            19:       GO TO 10
        !            20:       END

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