V10/cmd/pfort/RDSYM.f

      SUBROUTINE RDSYM(IC, IP)
C
C      PGM UNIT RDSYM POSITIONS I4,I6 CORRECTLY AND INPUTS SYMBOL
C      TABLE OF PGM UNIT AT NODE(IC) WHEN LAST ONE READ WAS THAT OF NODE
C
      INTEGER SYMLEN, PDSA, PLAT, FINDND, PNODE, DSA
      LOGICAL INSYM, L
      COMMON /PARAMS/ I1, I2, I3, SYMLEN, I4, I5, I6
      COMMON /FACTS/ NAME, NOST, ITYP, IASF
      COMMON /CTABL/ LDSA, PDSA, DSA(5000)
      COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
      COMMON /HEAD/ LNODE, PNODE, NODE(500)
      IF (IP.LT.IC) GO TO 10
      REWIND I4
      REWIND I6
 10   L = INSYM(I6,0)
      IF (FINDND(DSA(NAME+4),I).EQ.NODE(IC)) RETURN
   20 IF (INREF(I6).EQ.1) GO TO 20
      GO TO 10
      END