51 . ( lunit, tagpv, ntagpv, tagnb, ntagnb )
61 CHARACTER*(*) tagpv, tagnb
73 CALL x84(lunit,my_lunit,1)
74 CALL x84(ntagpv,my_ntagpv,1)
75 CALL x84(ntagnb,my_ntagnb,1)
76 r8val=
getvalnb(my_lunit,tagpv,my_ntagpv,tagnb,my_ntagnb)
86 CALL status (lunit, lun, il, im )
87 IF ( il .GE. 0 )
RETURN
88 IF (
inode(lun) .NE.
inv(1,lun) )
RETURN
93 CALL fstag( lun, tagpv, ntagpv, 1, npv, iret )
94 IF ( iret .NE. 0 )
RETURN
99 CALL fstag( lun, tagnb, ntagnb, npv, nnb, iret )
100 IF ( iret .NE. 0 )
RETURN
subroutine fstag(LUN, UTAG, NUTAG, NIN, NOUT, IRET)
This subroutine finds the (NUTAG)th occurrence of mnemonic UTAG within the current overall subset def...
recursive real *8 function getvalnb(LUNIT, TAGPV, NTAGPV, TAGNB, NTAGNB)
This function can be used to read a data value corresponding to a specific occurrence of a mnemonic w...
This module contains declarations for arrays used to store information about the current BUFR message...
integer, dimension(:), allocatable inode
Table A mnemonic for type of BUFR message.
This module contains array and variable declarations used to store the internal jump/link table.
This module contains declarations for arrays used to store data values and associated metadata for th...
real *8, dimension(:,:), allocatable, target val
Data values.
integer, dimension(:,:), allocatable, target inv
Inventory pointer which links each data value to its corresponding node in the internal jump/link tab...
This module declares and initializes the BMISS variable.
real *8, public bmiss
Current placeholder value to represent "missing" data when reading from or writing to BUFR files; thi...
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.