RDSYM.f:3:C PGM UNIT RDSYM POSITIONS I4,I6 CORRECTLY AND INPUTS SYMBOL RDSYM.f:14: REWIND I4 RFLIST.f:1: SUBROUTINE RFLIST( I1, I2, I4, I3 ) RFLIST.f:5:C I4 IS 1 IF RFLIST MUST BE CALLED AGAIN; ELSE IS 0 RFLIST.f:11: I4 = 0 RFLIST.f:20: 30 I4 = 1