nemock.f

Go to the documentation of this file.

C> @file
C> @brief Check the validity of a mnemonic.
C>
C> @author J. Woollen @date 1994-01-06
 
C> This function checks a mnemonic to verify that it has a
C> length of between 1 and 8 characters and that it only
C> contains characters from the allowable character set.
C>
C> @param[in] NEMO - character*(*): mnemonic to be checked
C> @returns - integer: indicator as to whether NEMO is valid:
C>  - 0 yes
C>  - -1 no, the length is not between 1 and 8 characters
C>  - -2 no, it contains characters from outside of the allowable character set
C>
C> @author J. Woollen @date 1994-01-06
      FUNCTION nemock(NEMO)
 
      CHARACTER*(*) nemo
      CHARACTER*38  chrset
 
      DATA chrset /'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.'/
      DATA nchr   /38/
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  GET THE LENGTH OF NEMO
C  ----------------------
 
      lnemo = 0
 
      DO i=len(nemo),1,-1
      IF(nemo(i:i).NE.' ') THEN
         lnemo = i
         GOTO 1
      ENDIF
      ENDDO
 
1     IF(lnemo.LT.1 .OR. lnemo.GT.8) THEN
         nemock = -1
         GOTO 100
      ENDIF
 
C  SCAN NEMO FOR ALLOWABLE CHARACTERS
C  ----------------------------------
 
      DO 10 i=1,lnemo
      DO j=1,nchr
      IF(nemo(i:i).EQ.chrset(j:j)) GOTO 10
      ENDDO
      nemock = -2
      GOTO 100
10    ENDDO
 
      nemock = 0
 
C  EXIT
C  ----
 
100   RETURN
      END