NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
iokoper.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Check whether a mnemonic is a Table C operator.
3 
4 C> This function determines whether a specified mnemonic is a
5 C> Table C operator supported by the BUFRLIB software.
6 C>
7 C> @author J. Ator
8 C> @date 2015-03-06
9 C>
10 C> @param[in] NEMO - character*(*): Mnemonic
11 C> @returns iokoper - integer: Flag indicating whether NEMO is a
12 C> Table C operator supported by the BUFRLIB
13 C> software
14 C> - 0 = No
15 C> - 1 = Yes
16 C>
17 C> <b>Program history log:</b>
18 C> - 2015-03-06 J. Ator -- Original author
19 C> - 2016-05-04 J. Ator -- Use imrkopr() and allow additional
20 C> operators
21 C>
22  INTEGER FUNCTION iokoper(NEMO)
23 
24  CHARACTER*(*) nemo
25 
26 C-----------------------------------------------------------------------
27 C-----------------------------------------------------------------------
28 
29  IF (len(nemo).LT.6) THEN
30  iokoper = 0
31  ELSE IF ( lge(nemo(1:3),'201') .AND. lle(nemo(1:3),'208') ) THEN
32  iokoper = 1
33  ELSE IF ( nemo(1:3).EQ.'221') THEN
34  iokoper = 1
35  ELSE IF ( ( ( nemo(4:6).EQ.'000' ) .OR. ( nemo(4:6).EQ.'255' ) )
36  + .AND.
37  + ( ( nemo(1:3).EQ.'237' ) .OR. ( nemo(1:3).EQ.'241' ) .OR.
38  + ( nemo(1:3).EQ.'242' ) .OR. ( nemo(1:3).EQ.'243' ) ) )
39  + THEN
40  iokoper = 1
41  ELSE IF ( ( nemo(4:6).EQ.'000' )
42  + .AND.
43  + ( ( nemo(1:3).EQ.'222' ) .OR. ( nemo(1:3).EQ.'223' ) .OR.
44  + ( nemo(1:3).EQ.'224' ) .OR. ( nemo(1:3).EQ.'225' ) .OR.
45  + ( nemo(1:3).EQ.'232' ) .OR. ( nemo(1:3).EQ.'235' ) .OR.
46  + ( nemo(1:3).EQ.'236' ) ) )
47  + THEN
48  iokoper = 1
49  ELSE
50  iokoper = imrkopr(nemo)
51  ENDIF
52 
53  RETURN
54  END
INTEGER function imrkopr(NEMO)
This function determines whether a specified mnemonic is a Table C marker operator.
Definition: imrkopr.f:19
INTEGER function iokoper(NEMO)
This function determines whether a specified mnemonic is a Table C operator supported by the BUFRLIB ...
Definition: iokoper.f:22