NCEPLIBS-bufr  11.7.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> | Date | Programmer | Comments |
18 C> | -----|------------|----------|
19 C> | 2016-05-04 | J. Ator | Original author |
20 C>
21  INTEGER FUNCTION imrkopr(NEMO)
22 
23  CHARACTER*(*) nemo
24 
25 C-----------------------------------------------------------------------
26 C-----------------------------------------------------------------------
27 
28  IF (len(nemo).LT.6) THEN
29  imrkopr = 0
30  ELSE IF ( ( nemo(4:6).EQ.'255' )
31  + .AND.
32  + ( ( nemo(1:3).EQ.'223' ) .OR. ( nemo(1:3).EQ.'224' ) .OR.
33  + ( nemo(1:3).EQ.'225' ) .OR. ( nemo(1:3).EQ.'232' ) ) )
34  + THEN
35  imrkopr = 1
36  ELSE
37  imrkopr = 0
38  ENDIF
39 
40  RETURN
41  END
imrkopr
INTEGER function imrkopr(NEMO)
This function determines whether a specified mnemonic is a Table C marker operator.
Definition: imrkopr.f:21