Télécharger la plaquette Cast3M


fr en

Télécharger vernam.eso

Retour à la liste

Numérotation des lignes : 

vernam

  1. C VERNAM    SOURCE    JC220346  18/12/04    21:16:31     9991           
  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 CCNOYAU
  19. -INC CCREDLE
  20.  
  21.       CHARACTER*(*) CHANOM
  22.       CHARACTER*(LONOM) NOM1
  23.  
  24.       IRET=0
  25.  
  26.       CALL LENCHA(CHANOM,LNOM)
  27.  
  28.       IF ((LNOM.GE.1).AND.(LNOM.LE.LONOM)) THEN
  29.           CALL INIRED(SREDLE)
  30.           NRAN=0
  31.           ICOUR=LONOM
  32.           IFINAN=LONOM+1
  33.           TEXT(1:LONOM)=CHANOM(1:LONOM)
  34.           CALL REDLEC(SREDLE)
  35.           IF ((IRE.EQ.3).AND.(MOT(1:NCAR).EQ.CHANOM(1:LNOM))) IRET=1
  36.           SEGSUP,SREDLE
  37.       ENDIF
  38.  
  39.       RETURN
  40.  
  41.       END
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales