85 ok4cent(ival) = ((ival.GE.19).AND.(ival.LE.21))
97 IF(s01mnem.EQ.
'LENM')
THEN
103 IF(s01mnem.EQ.
'LEN0')
THEN
110 iben =
iupb(mbay,8,8)
111 IF(s01mnem.EQ.
'BEN')
THEN
118 CALL
gets1loc(s01mnem,iben,isbyt,iwid,iret)
121 IF(s01mnem.EQ.
'CENT')
THEN
128 ELSE IF( (s01mnem.EQ.
'YEAR') .AND. (iben.LT.4) )
THEN
132 iyoc =
iupb(mbay,21,8)
133 icen =
iupb(mbay,26,8)
137 IF(ok4cent(icen))
THEN
function i4dy(IDATE)
This function converts a date-time with a 2-digit year (YYMMDDHH) to a date-time with a 4-digit year ...
function iupb(MBAY, NBYT, NBIT)
THIS FUNCTION UNPACKS AND RETURNS A BINARY INTEGER WORD CONTAINED WITHIN NBIT BITS OF A BUFR MESSAGE ...
subroutine gets1loc(S1MNEM, IBEN, ISBYT, IWID, IRET)
THIS SUBROUTINE RETURNS THE LOCATION (I.E.
subroutine wrdlen
This subroutine figures out some important information about the local machine on which the BUFRLIB s...
function iupbs01(MBAY, S01MNEM)
This function returns a specified value from within Section 0 or Section 1 of a BUFR message...