bief_eof.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_eof.f
00002 !
00052                      LOGICAL FUNCTION BIEF_EOF
00053 !                    *************************
00054 !
00055      &(LUNIT)
00056 !
00057 !***********************************************************************
00058 ! BIEF   V6P2                                   21/08/2010
00059 !***********************************************************************
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| LUNIT          |-->| LOGICAL INUT OF FILE TO BE READ
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !
00070       IMPLICIT NONE
00071       INTEGER LNG,LU
00072       COMMON/INFO/LNG,LU
00073 !
00074 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00075 !
00076       INTEGER, INTENT(IN) :: LUNIT
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       BIEF_EOF = .FALSE.
00081 !
00082       READ(UNIT=LUNIT,ERR=100,END=100)
00083       BACKSPACE(UNIT=LUNIT,ERR=101)
00084       RETURN
00085 !
00086 100   CONTINUE
00087 !
00088       BIEF_EOF=.TRUE.
00089       RETURN
00090 !
00091 101   CONTINUE
00092 !
00093       WRITE(LU,*) 'ERROR IN FUNCTION EOF (BIEF) ERROR IN BACKSPACE'
00094       WRITE(LU,*) 'AFTER A CORRECT READ, COMPILER ERROR ?'
00095       WRITE(LU,*) 'A TENTATIVE BIEF_EOF=.TRUE. IS RETURNED'
00096       BIEF_EOF=.TRUE.
00097 !
00098 !-----------------------------------------------------------------------
00099 !
00100       RETURN
00101       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0