NCEPLIBS-bufr
11.5.0
Main Page
Related Pages
Data Types List
Files
File List
Globals
All
Data Structures
Files
Functions
Variables
Pages
imrkopr.f
Go to the documentation of this file.
1
C> @file
2
C> @brief Check whether a mnemonic is a Table C marker operator.
3
4
C> This function determines whether a specified mnemonic is a
5
C> Table C marker operator.
6
C>
7
C> @author J. Ator
8
C> @date 2016-05-04
9
C>
10
C> @param[in] NEMO - character*(*): Mnemonic
11
C> @returns iokoper - integer: Flag indicating whether NEMO is a
12
C> Table C marker operator
13
C> - 0 = No
14
C> - 1 = Yes
15
C>
16
C> <b>Program history log:</b>
17
C> - 2016-05-04 J. Ator -- Original author
18
C>
19
INTEGER
FUNCTION
imrkopr
(NEMO)
20
21
CHARACTER*(*)
nemo
22
23
C-----------------------------------------------------------------------
24
C-----------------------------------------------------------------------
25
26
IF
(len(nemo).LT.6)
THEN
27
imrkopr
= 0
28
ELSE
IF
( ( nemo(4:6).EQ.
'255'
)
29
+ .AND.
30
+ ( ( nemo(1:3).EQ.
'223'
) .OR. ( nemo(1:3).EQ.
'224'
) .OR.
31
+ ( nemo(1:3).EQ.
'225'
) .OR. ( nemo(1:3).EQ.
'232'
) ) )
32
+
THEN
33
imrkopr
= 1
34
ELSE
35
imrkopr
= 0
36
ENDIF
37
38
RETURN
39
END
imrkopr
INTEGER function imrkopr(NEMO)
This function determines whether a specified mnemonic is a Table C marker operator.
Definition:
imrkopr.f:19
nceplibs-bufr
src
imrkopr.f
Generated by
1.8.5