43 IF ( .NOT.
ALLOCATED(null) )
THEN
44 CALL
errwrt(
'++++++++++++++++++++WARNING++++++++++++++++++++++')
45 errstr =
'BUFRLIB: CLOSBF WAS CALLED WITHOUT HAVING ' //
46 .
'PREVIOUSLY CALLED OPENBF'
48 CALL
errwrt(
'++++++++++++++++++++WARNING++++++++++++++++++++++')
52 CALL
status(lunit,lun,il,im)
53 IF(il.GT.0 .AND. im.NE.0) CALL
closmg(lunit)
54 IF(il.NE.0 .AND. null(lun).EQ.0) CALL
closfb(lun)
60 IF(null(lun).EQ.0)
CLOSE(lunit)
void closfb(f77int *nfile)
This subroutine closes a previously opened BUFR file.
subroutine closbf(LUNIT)
This subroutine closes the connection between logical unit LUNIT and the BUFRLIB software.
subroutine wtstat(LUNIT, LUN, IL, IM)
This subroutine can be used to connect or disconnect a specified Fortran logical unit number to/from ...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine closmg(LUNIN)
This subroutine closes the BUFR message that is currently open for writing within internal arrays ass...
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...