NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
idxmsg.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Check whether a BUFR message contains DX BUFR tables
3 C> information
4 
5 C> This function determines whether a given BUFR message contains
6 C> DX BUFR tables information that was generated by the BUFRLIB
7 C> software.
8 C>
9 C> @author J. Ator
10 C> @date 2009-03-23
11 C>
12 C> @param[in] MESG -- integer(*): BUFR message
13 C> @returns idxmsg -- integer: Flag indicating whether MESG
14 C> contains DX BUFR tables information:
15 C> - 0 = No
16 C> - 1 = Yes
17 C>
18 C> <b>Program history log:</b>
19 C> | Date | Programmer | Comments |
20 C> | -----|------------|----------|
21 C> | 2009-03-23 | J. Ator | Original author |
22 C>
23  FUNCTION idxmsg( MESG )
24 
25  dimension mesg(*)
26 
27 C-----------------------------------------------------------------------
28 C-----------------------------------------------------------------------
29 
30 C Note that the following test relies upon logic within subroutine
31 C DXMINI which zeroes out the Section 1 date of all DX dictionary
32 C messages.
33 
34  IF ( (iupbs01(mesg,'MTYP').EQ.11) .AND.
35  . (iupbs01(mesg,'MNTH').EQ.0) .AND.
36  . (iupbs01(mesg,'DAYS').EQ.0) .AND.
37  . (iupbs01(mesg,'HOUR').EQ.0) ) THEN
38  idxmsg = 1
39  ELSE
40  idxmsg = 0
41  END IF
42 
43  RETURN
44  END
function idxmsg(MESG)
This function determines whether a given BUFR message contains DX BUFR tables information that was ge...
Definition: idxmsg.f:23
function iupbs01(MBAY, S01MNEM)
This function returns a specified value from within Section 0 or Section 1 of a BUFR message...
Definition: iupbs01.f:73