bief_eof.f

Go to the documentation of this file.

!                   *************************
                    LOGICAL FUNCTION bief_eof
!                   *************************
!
     &(lunit)
!
!***********************************************************************
! BIEF   V6P2                                   21/08/2010
!***********************************************************************
!
!brief    DETECTS THE END OF A FILE:
!+
!+            IF EOF = .TRUE.  : HAS REACHED END OF FILE,
!+
!+            IF EOF = .FALSE. : CAN CARRY ON.
!
!history
!+        17/08/94
!+        V5P1
!+   ORIGINAL IDEA : ANTOINE YESSAYAN (THANK YOU TONIO)
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!history J-M HERVOUET (LNHE)
!+        11/06/2012
!+        V6P2
!+   Name changed from eof to bief_eof (eof is a Fortran extension of
!+   some compilers, let us avoid conflicts...)
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| LUNIT          |-->| LOGICAL INUT OF FILE TO BE READ
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN) :: LUNIT
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      bief_eof = .false.
!
      READ(unit=lunit,err=100,end=100)
      backspace(unit=lunit,err=101)
      RETURN
!
100   CONTINUE
!
      bief_eof=.true.
      RETURN
!
101   CONTINUE
!
      WRITE(lu,*) 'ERROR IN FUNCTION EOF (BIEF) ERROR IN BACKSPACE'
      WRITE(lu,*) 'AFTER A CORRECT READ, COMPILER ERROR ?'
      WRITE(lu,*) 'A TENTATIVE BIEF_EOF=.TRUE. IS RETURNED'
      bief_eof=.true.
!
!-----------------------------------------------------------------------
!
      RETURN
      END