closbf.f

Go to the documentation of this file.

C> @file
C> @brief Close a previously opened file and disconnect it from
C> the NCEPLIBS-bufr software.
C>
C> @author J. Woollen, J. Ator @date 1994-01-06
 
C> Close the connection between logical unit
C> LUNIT and the NCEPLIBS-bufr software.
C>
C> @remarks
C> - This subroutine will execute a Fortran "CLOSE" on logical unit LUNIT,
C> even though subroutine openbf() didn't previously handle the corresponding
C> Fortran "OPEN" of the same file.
C> - It's a good idea to call this subroutine for every LUNIT that was
C> opened to the software via openbf(); however, it's especially
C> important to do so when writing/encoding a BUFR file, in order to
C> ensure that all output is properly flushed to LUNIT.
C>
C> @param[in] LUNIT - integer: Fortran logical unit number for BUFR file.
C>
C> @author J. Woollen, J. Ator @date 1994-01-06
 
      RECURSIVE SUBROUTINE closbf(LUNIT)
 
      use bufrlib
 
      USE moda_nulbfr
      USE modv_im8b
 
      CHARACTER*128 errstr
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  CHECK FOR I8 INTEGERS
C  ---------------------
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(lunit,my_lunit,1)
         CALL closbf(my_lunit)
 
         im8b=.true.
         RETURN
      ENDIF
 
      IF ( .NOT. ALLOCATED(null) ) THEN
        CALL errwrt('++++++++++++++++++++WARNING++++++++++++++++++++++')
        errstr = 'BUFRLIB: CLOSBF WAS CALLED WITHOUT HAVING ' //
     .           'PREVIOUSLY CALLED OPENBF'
        CALL errwrt(errstr)
        CALL errwrt('++++++++++++++++++++WARNING++++++++++++++++++++++')
        RETURN
      ENDIF
 
      CALL status(lunit,lun,il,im)
      IF(il.GT.0 .AND. im.NE.0) CALL closmg(lunit)
      IF(il.NE.0 .AND. null(lun).EQ.0) CALL closfb_c(lun)
      CALL wtstat(lunit,lun,0,0)
 
C  CLOSE fortran UNIT IF NULL(LUN) = 0
C  -----------------------------------
 
      IF(null(lun).EQ.0) CLOSE(lunit)
 
      RETURN
      END