NCEPLIBS-bufr  12.0.1
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 C>
4 C> @author J. Ator @date 2016-05-04
5 
6 C> Check whether a specified mnemonic is a Table C marker operator.
7 C>
8 C> @param[in] NEMO - character*(*): Mnemonic
9 C> @returns iokoper - integer: Flag indicating whether NEMO is a
10 C> Table C marker operator:
11 C> - 0 = No
12 C> - 1 = Yes
13 C>
14 C> @author J. Ator @date 2016-05-04
15  INTEGER FUNCTION imrkopr(NEMO)
16 
17  CHARACTER*(*) nemo
18 
19 C-----------------------------------------------------------------------
20 C-----------------------------------------------------------------------
21 
22  IF (len(nemo).LT.6) THEN
23  imrkopr = 0
24  ELSE IF ( ( nemo(4:6).EQ.'255' )
25  + .AND.
26  + ( ( nemo(1:3).EQ.'223' ) .OR. ( nemo(1:3).EQ.'224' ) .OR.
27  + ( nemo(1:3).EQ.'225' ) .OR. ( nemo(1:3).EQ.'232' ) ) )
28  + THEN
29  imrkopr = 1
30  ELSE
31  imrkopr = 0
32  ENDIF
33 
34  RETURN
35  END
imrkopr
integer function imrkopr(NEMO)
Check whether a specified mnemonic is a Table C marker operator.
Definition: imrkopr.f:16