NCEPLIBS-bufr  11.5.0
 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
INTEGER function imrkopr(NEMO)
This function determines whether a specified mnemonic is a Table C marker operator.
Definition: imrkopr.f:19