21 RECURSIVE FUNCTION nmsub(LUNIT)
RESULT(IRET)
36 CALL x84(lunit,my_lunit,1)
48 CALL status(lunit,lun,il,im)
59 900
CALL bort(
'BUFRLIB: NMSUB - INPUT BUFR FILE IS CLOSED, IT MUST '//
60 .
'BE OPEN FOR INPUT')
61 901
CALL bort(
'BUFRLIB: NMSUB - INPUT BUFR FILE IS OPEN FOR OUTPUT,'//
62 .
' IT MUST BE OPEN FOR INPUT')
63 902
CALL bort(
'BUFRLIB: NMSUB - A MESSAGE MUST BE OPEN IN INPUT '//
64 .
'BUFR FILE, NONE ARE')
subroutine bort(STR)
Log one error message and abort application program.
This module contains declarations for arrays used to store information about the current BUFR message...
integer, dimension(:), allocatable msub
Total number of data subsets in message.
This module declares and initializes the IM8B variable.
logical, public im8b
Status indicator to keep track of whether all future calls to BUFRLIB subroutines and functions from ...
recursive function nmsub(LUNIT)
This function returns the total number of data subsets available within the BUFR message that was mos...
recursive subroutine status(LUNIT, LUN, IL, IM)
Check whether a specified Fortran logical unit number is currently connected to the NCEPLIBS-bufr sof...
subroutine x84(IIN8, IOUT4, NVAL)
Encode one or more 8-byte integer values as 4-byte integer values.