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

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.