imrkopr.f

Go to the documentation of this file.

C> @file
C> @brief Check whether a mnemonic is a Table C marker operator.
 
C> This function determines whether a specified mnemonic is a
C> Table C marker operator.
C>
C> @author J. Ator
C> @date 2016-05-04
C>
C> @param[in] NEMO  -- character*(*): Mnemonic
C> @returns iokoper -- integer: Flag indicating whether NEMO is a
C>                     Table C marker operator
C>                        - 0 = No
C>                        - 1 = Yes
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2016-05-04 | J. Ator | Original author |
C>
      INTEGER FUNCTION imrkopr(NEMO)
 
      CHARACTER*(*)  nemo
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
      IF (len(nemo).LT.6) THEN
        imrkopr = 0
      ELSE IF ( ( nemo(4:6).EQ.'255' )
     +          .AND.
     +         ( ( nemo(1:3).EQ.'223' ) .OR. ( nemo(1:3).EQ.'224' ) .OR.
     +           ( nemo(1:3).EQ.'225' ) .OR. ( nemo(1:3).EQ.'232' ) ) )
     +          THEN
        imrkopr = 1
      ELSE
        imrkopr = 0
      ENDIF
 
      RETURN
      END