      SUBROUTINE MCRDR_READ(LUN,LINE,IEOF)
C
C  READ A LINE, EOF CHECK
C
      CHARACTER*(*) LINE
C
      IEOF=0
      READ(LUN,1001,END=20) LINE
 1001 FORMAT(A)
C
      GO TO 30
C
C  END OF FILE
C
 20   CONTINUE
      IEOF=1
C
C  EXIT
C
 30   CONTINUE
      RETURN
C
      END
