63 RECURSIVE FUNCTION iupvs01(LUNIT,S01MNEM)
RESULT(IRET)
80 CALL x84(lunit,my_lunit,1)
92 CALL status(lunit,lun,ilst,imst)
93 IF(ilst.EQ.0)
GOTO 900
94 IF(ilst.GT.0)
GOTO 901
95 IF(imst.EQ.0)
GOTO 902
106 900
CALL bort(
'BUFRLIB: IUPVS01 - INPUT BUFR FILE IS CLOSED, IT '//
107 .
'MUST BE OPEN FOR INPUT')
108 901
CALL bort(
'BUFRLIB: IUPVS01 - INPUT BUFR FILE IS OPEN FOR '//
109 .
'OUTPUT, IT MUST BE OPEN FOR INPUT')
110 902
CALL bort(
'BUFRLIB: IUPVS01 - A MESSAGE MUST BE OPEN IN INPUT '//
111 .
'BUFR FILE, NONE ARE')
subroutine bort(STR)
Log one error message and abort application program.
recursive function iupbs01(MBAY, S01MNEM)
Read a data value from Section 0 or Section 1 of a BUFR message.
recursive function iupvs01(LUNIT, S01MNEM)
Read a specified value from within Section 0 or 1 of a BUFR message.
This module contains array and variable declarations used to store BUFR messages internally for multi...
integer, dimension(:,:), allocatable mbay
Current BUFR message for each internal I/O stream.
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 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.