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>
C> @author J. Ator @date 2005-11-29
 
C> This function returns the date-time from within Section 1 of a
C> BUFR message.
C>
C> The function will work on any BUFR message encoded using BUFR
C> edition 2, 3, or 4.
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> @author J. Ator @date 2005-11-29
        RECURSIVE FUNCTION igetdate(MBAY,IYR,IMO,IDY,IHR) RESULT(IRET)
 
        USE modv_im8b
 
        COMMON /dateln/ lendat
 
        dimension mbay(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C       Check for I8 integers.
 
        IF(im8b) THEN
           im8b=.false.
 
           iret=igetdate(mbay,iyr,imo,idy,ihr)
           CALL x48(iyr,iyr,1)
           CALL x48(imo,imo,1)
           CALL x48(idy,idy,1)
           CALL x48(ihr,ihr,1)
 
           im8b=.true.
           RETURN
        ENDIF
 
        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
        iret = (iyr*1000000) + (imo*10000) + (idy*100) + ihr
 
        RETURN
        END