SUBROUTINE RDRCD C*********************************************************************** C C Author: Nick Bourgeois Version: 91f04a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Read a block of data from the input file. C C Reset the input buffer pointer to the start of the input buffer. C Set a flag when the end of file is reached. C C C Edit Record: C C 02-May-91: Original creation started. C 04-Jun-91: Original creation completed. C C C Calling sequence: C C InLun = C IRcdNm = C CALL RDRCD C C C Returns: C C EOFFlg C IBfPtr C InBufB() C IRcdNm C C C Called By: C C CRWORK C C*********************************************************************** INCLUDE 'CVRCDS.DAT' !Common & variables declarations READ (UNIT=InLun,REC=IRcdNm,END=800) InBufB IBfPtr = 1 GOTO 900 800 CONTINUE EOFFlg = .TRUE. 900 CONTINUE RETURN END !RDRCD.FOR.