idxmsg.f

Go to the documentation of this file.

C> @file
C> @brief Check whether a BUFR message contains DX BUFR tables
C> information

C> This function determines whether a given BUFR message contains
C> DX BUFR tables information that was generated by the BUFRLIB
C> software.
C>
C> @author J. Ator
C> @date 2009-03-23
C>
C> @param[in] MESG     -- integer(*): BUFR message
C> @returns idxmsg     -- integer: Flag indicating whether MESG
C>                        contains DX BUFR tables information:
C>                          - 0 = No
C>                          - 1 = Yes
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2009-03-23 | J. Ator | Original author |
C>
    FUNCTION idxmsg( MESG )

    dimension mesg(*)

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

C   Note that the following test relies upon logic within subroutine
C   DXMINI which zeroes out the Section 1 date of all DX dictionary 
C   messages.

    IF ( (iupbs01(mesg,'MTYP').EQ.11) .AND.
     .       (iupbs01(mesg,'MNTH').EQ.0) .AND.
     .       (iupbs01(mesg,'DAYS').EQ.0) .AND.
     .       (iupbs01(mesg,'HOUR').EQ.0) ) THEN
       idxmsg = 1
    ELSE
       idxmsg = 0
    END IF

    RETURN
    END