NCEPLIBS-bufr
11.6.0
Main Page
Related Pages
Data Types List
Files
File List
Globals
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
idxmsg
function idxmsg(MESG)
This function determines whether a given BUFR message contains DX BUFR tables information that was ge...
Definition:
idxmsg.f:23
iupbs01
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
nceplibs-bufr
src
idxmsg.f
Generated by
1.8.5