Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/readr.f4
There are no other files named readr.f4 in the archive.
      SUBROUTINE READR(IB)
C		READS RECORD ADDRESSED BY LSR INTO IB
      DIMENSION IPARF(10), IFRMTF(3,1)
      COMMON IPARF, IFRMTF
      DIMENSION IB(10)
      CALL DIO (IPARF(6),1,IB,IPARF(5))
      RETURN
	END