84 ok4cent(ival) = ((ival.GE.19).AND.(ival.LE.21))
96 IF(s01mnem.EQ.
'LENM')
THEN
102 IF(s01mnem.EQ.
'LEN0')
THEN
109 iben =
iupb(mbay,8,8)
110 IF(s01mnem.EQ.
'BEN')
THEN
117 CALL
gets1loc(s01mnem,iben,isbyt,iwid,iret)
120 IF(s01mnem.EQ.
'CENT')
THEN
127 ELSE IF( (s01mnem.EQ.
'YEAR') .AND. (iben.LT.4) )
THEN
131 iyoc =
iupb(mbay,21,8)
132 icen =
iupb(mbay,26,8)
136 IF(ok4cent(icen))
THEN
function i4dy(IDATE)
THIS FUNCTION CONVERTS AN EIGHT DIGIT INTEGER DATE (YYMMDDHH) TO TEN DIGITS (YYYYMMDDHH) USING THE Y2...
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...