29 SUBROUTINE rtrcptb(MBAY,IYR,IMO,IDY,IHR,IMI,IRET)
40 IF(
iupbs01(mbay,
'BEN').EQ.4)
THEN
45 IF( (is1byt+5) .GT.
iupbs01(mbay,
'LEN1') )
RETURN
54 imgbyt = is1byt +
iupbs01(mbay,
'LEN0')
56 iyr =
iupb(mbay,imgbyt,16)
57 imo =
iupb(mbay,imgbyt+2,8)
58 idy =
iupb(mbay,imgbyt+3,8)
59 ihr =
iupb(mbay,imgbyt+4,8)
60 imi =
iupb(mbay,imgbyt+5,8)
function iupb(MBAY, NBYT, NBIT)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBIT BITS OF A BUFR MESSAGE ...
subroutine rtrcptb(MBAY, IYR, IMO, IDY, IHR, IMI, IRET)
This subroutine reads the tank receipt time (if one exists) from Section 1 of a BUFR message...
function iupbs01(MBAY, S01MNEM)
This function returns a specified value from within Section 0 or Section 1 of a BUFR message...