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>
C> @author J. Ator @date 2009-03-23
 
C> Check whether a BUFR message contains DX BUFR tables
C> information.
C>
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> @param[in] MESG - integer(*): BUFR message.
C>
C> @returns Flag indicating whether MESG
C> contains DX BUFR tables information:
C> - 0 = No
C> - 1 = Yes
C>
C> @author J. Ator @date 2009-03-23
        RECURSIVE FUNCTION idxmsg( MESG ) RESULT( IRET )
 
        USE modv_im8b
 
        dimension mesg(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C       Check for I8 integers.
 
        IF(im8b) THEN
            im8b=.false.
 
            iret = idxmsg( mesg )
 
            im8b=.true.
            RETURN
        END IF
 
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
           iret = 1
        ELSE
           iret = 0
        END IF
 
        RETURN
        END