C VERNAM    SOURCE    JC220346  14/01/30    21:15:15     7932           
************************************************************************
* NOM         : VERNAM
* DESCRIPTION : Verifie que la chaine CHANOM est un nom GIBIANE valide
************************************************************************
* ENTRÉES :: CHANOM = chaine de caracteres a tester
* SORTIES :: IRET = entier valant 1 si le nom est valide, 0 sinon
************************************************************************
* HISTORIQUE :  24/01/2014 : JCARDO : création de la subroutine
* HISTORIQUE :  
* HISTORIQUE :  
************************************************************************
      SUBROUTINE VERNAM(CHANOM,IRET)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCREDLE
 
      CHARACTER*(*) CHANOM
      CHARACTER*8 NOM1

      IRET=0
      
      CALL LENCHA(CHANOM,LNOM)
      
      IF ((LNOM.GE.1).AND.(LNOM.LE.8)) THEN
          CALL INIRED(SREDLE)
          NRAN=0
          ICOUR=9
          IFINAN=10
          TEXT(1:8)=CHANOM(1:8)
          CALL REDLEC(SREDLE)
          IF ((IRE.EQ.3).AND.(MOT(1:NCAR).EQ.CHANOM(1:LNOM))) IRET=1
          SEGSUP,SREDLE
      ENDIF
 
      RETURN
      
      END