C*---------------------------------------------------------------------*
C|        G E T L I N :  GET A LINE INTO INTERNAL INPUT BUFFER         |
C*---------------------------------------------------------------------*
      SUBROUTINE GETLIN(EOFILE)
C
C     EOFILE -  LOGICAL: .TRUE. FOR END OF FILE
C
C----------------------------------------------- COMMON DATA STRUCTURES
      INCLUDE 'INPCOM.I'
C----------------------------------------------- SUBPROGRAM PARAMETERS
      LOGICAL EOFILE
C----------------------------------------------- FUNCTIONS CALLED
      LOGICAL GETBUF
      EOFILE = GETBUF(INBUF,MAXBUF)
      IF (.NOT. EOFILE) CURCOL=0
      RETURN
      END
C*---------------------------------------------------------------------*
C|      B L O C K   D A T A :  INITIALIZE INTERNAL BUFFER COMMON       |
C*---------------------------------------------------------------------*
      BLOCK DATA
C----------------------------------------------- COMMON DATA STRUCTURES
      INCLUDE 'INPCOM.I'
      DATA MAXBUF/80/
      END