31 COMMON /dateln/ lendat
45 igetdate = (iyr*1000000) + (imo*10000) + (idy*100) + ihr
function igetdate(MBAY, IYR, IMO, IDY, IHR)
This function returns the date-time from within 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...