49 CALL
getlens(mbay,3,len0,len1,len2,len3,l4,l5)
50 ipt = len0 + len1 + len2
54 IF(s3mnem.EQ.
'NSUB')
THEN
56 ELSE IF( (s3mnem.EQ.
'IOBS') .OR. (s3mnem.EQ.
'ICMP') )
THEN
57 ival =
iupb(mbay,ipt+7,8)
58 IF(s3mnem.EQ.
'IOBS')
THEN
63 iupbs3 = min(1,iand(ival,imask))
function iupbs3(MBAY, S3MNEM)
This function returns a specified value from within Section 3 of a BUFR message.
function iupb(MBAY, NBYT, NBIT)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBIT BITS OF A BUFR MESSAGE ...
subroutine getlens(MBAY, LL, LEN0, LEN1, LEN2, LEN3, LEN4, LEN5)
This subroutine reads the lengths of all of the individual sections of a given BUFR message...
subroutine wrdlen
This subroutine figures out some important information about the local machine on which the BUFRLIB s...