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