Esope source files

   1 : C VERNAM    SOURCE    JC220346  14/01/30    21:15:15     7932           
   2 : ************************************************************************
   3 : * NOM         : VERNAM
   4 : * DESCRIPTION : Verifie que la chaine CHANOM est un nom GIBIANE valide
   5 : ************************************************************************
   6 : * ENTRÉES :: CHANOM = chaine de caracteres a tester
   7 : * SORTIES :: IRET = entier valant 1 si le nom est valide, 0 sinon
   8 : ************************************************************************
   9 : * HISTORIQUE :  24/01/2014 : JCARDO : création de la subroutine
  10 : * HISTORIQUE :  
  11 : * HISTORIQUE :  
  12 : ************************************************************************
  13 :       SUBROUTINE VERNAM(CHANOM,IRET)
  14 : 
  15 :       IMPLICIT INTEGER(I-N)
  16 :       IMPLICIT REAL*8(A-H,O-Z)
  17 : 
  18 : -INC CCREDLE
  19 :  
  20 :       CHARACTER*(*) CHANOM
  21 :       CHARACTER*8 NOM1
  22 : 
  23 :       IRET=0
  24 :       
  24 :       CALL LENCHA(CHANOM,LNOM)
  25 :       
  26 :       IF ((LNOM.GE.1).AND.(LNOM.LE.8)) THEN
  26 :           CALL INIRED(SREDLE)
  27 :           NRAN=0
  28 :           ICOUR=9
  29 :           IFINAN=10
  30 :           TEXT(1:8)=CHANOM(1:8)
  30 :           CALL REDLEC(SREDLE)
  31 :           IF ((IRE.EQ.3).AND.(MOT(1:NCAR).EQ.CHANOM(1:LNOM))) IRET=1
  32 :           SEGSUP,SREDLE
  33 :       ENDIF
  34 :  
  35 :       RETURN
  36 :       
  37 :       END
  38 : 
  39 : 
  40 : 
  41 : 
  42 :  
  43 :  
  44 :  
  45 :