igetdate.f

Go to the documentation of this file.

C> @file
C> @brief Read the date-time from Section 1 of a BUFR message.
 
C> This function returns the date-time from within Section 1 of a
C> BUFR message.
C>
C> <p>The function will work on any BUFR message encoded using BUFR
C> edition 2, 3, or 4.
C>
C> @author J. Ator
C> @date 2005-11-29
C>
C> @param[in]  MBAY   -- integer(*): BUFR message
C> @param[out] IYR   -- integer: Year stored within Section 1 of MBAY,
C>                      in format of either YY or YYYY, depending on
C>                      the most recent call to subroutine datelen()
C> @param[out] IMO   -- integer: Month stored within Section 1 of MBAY
C> @param[out] IDY   -- integer: Day stored within Section 1 of MBAY
C> @param[out] IHR   -- integer: Hour stored within Section 1 of MBAY
C> @returns igetdate   -- integer: Date-time stored within Section 1
C>                        of MBAY, in format of either YYMMDDHH or
C>                        YYYYMMDDHH, depending on the most
C>                        recent call to subroutine datelen()
C>
C> @remarks
C> - The start of the BUFR message (i.e. the string 'BUFR') must be
C>   aligned on the first 4 bytes of MBAY.
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2005-11-29 | J. Ator  | Original author |
C>
    FUNCTION igetdate(MBAY,IYR,IMO,IDY,IHR)
 
    COMMON /dateln/ lendat
 
    dimension mbay(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
    iyr = iupbs01(mbay,'YEAR')
    imo = iupbs01(mbay,'MNTH')
    idy = iupbs01(mbay,'DAYS')
    ihr = iupbs01(mbay,'HOUR')
    IF(lendat.NE.10) THEN
        iyr = mod(iyr,100)
    ENDIF
    igetdate = (iyr*1000000) + (imo*10000) + (idy*100) + ihr
 
    RETURN
    END