! -------------------------------------------------------------------------
! Bernese GPS Software Version 5.0
! -------------------------------------------------------------------------

CHARACTER(LEN=lineLength) FUNCTION nextline(lfn,adjFlg)

! -------------------------------------------------------------------------
! Purpose:    Read one line from the (already opened) file lfn
!
! Author:     L. Mervart
!
! Created:    22-NOV-97
!
! Changes:
!
! Copyright:  Astronomical Institute
!              University of Berne
!                  Switzerland
! -------------------------------------------------------------------------

  USE m_bern

  IMPLICIT NONE

! List of Parameters
! ------------------
  INTEGER(i4b), INTENT(IN) :: lfn     ! logical file number
  INTEGER(i4b), INTENT(IN) :: adjFlg  ! 1 ... adjust left

! Local Variables
! ---------------
  INTEGER(i4b) :: irc,blankline

  blankline=0
  
  DO
    READ(lfn,'(A)',iostat=irc) nextline
    IF (irc /= 0) THEN
      nextline = 'EOF'
      RETURN
    END IF
    IF (adjFlg == 1) nextline = ADJUSTL(nextline)
    blankline=blankline+1
    if (blankline == 20) then
      nextline='EOF'
      return
    end if
    IF (nextline      == '')  CYCLE
    IF (nextline(1:1) == '#') CYCLE
    IF (nextline(1:1) == '!') CYCLE
    IF (nextline(1:1) == '*') CYCLE

    RETURN

  END DO

END FUNCTION nextline