idxmsg.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2009-03-23
    
C> THIS FUNCTION DETERMINES WHETHER THE GIVEN BUFR MESSAGE
C>   IS A DX DICTIONARY MESSAGE THAT WAS CREATED BY THE BUFR ARCHIVE
C>   LIBRARY SOFTWARE.
C>
C> PROGRAM HISTORY LOG:
C> 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
C>
C> USAGE:    IDXMSG( MESG )
C>   INPUT ARGUMENT LIST:
C>     MESG     - INTEGER: *-WORD PACKED BINARY ARRAY CONTAINING
C>                BUFR MESSAGE
C>
C>   OUTPUT ARGUMENT LIST:
C>     IDXMSG  - INTEGER: RETURN VALUE:
C>         0 - MESG IS NOT A DX DICTIONARY MESSAGE
C>         1 - MESG IS A DX DICTIONARY MESSAGE
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        IUPBS01
C>    THIS ROUTINE IS CALLED BY: CPDXMM   DATEBF   DUMPBF   MESGBC
C>                               MESGBF   MSGWRT   RDBFDX   READMG
C>                               POSAPX   READERME UFBMEM
C>                               Normally not called by application
C>                               programs but it could be.
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