Télécharger la plaquette Cast3M


fr en

Télécharger eslgch.eso

Retour à la liste

Numérotation des lignes : 

eslgch

  1. C ESLGCH    SOURCE    CHAT      05/01/12    23:45:38     5004
  2. C     *****************************************************************
  3. C     MODULE  : ES (ENTREES SORTIES)
  4. C     FICHIER : ES_CHAINE.F
  5. C     OBJET   : AFFICHAGE ET SAISIE INTERACTIVE DES TYPES DE BASE.
  6. C     FONCT.  :
  7. C       ESLCHA   : ATTEND UNE CHAINE (AU CLAVIER)
  8. C       ESECHA : ECRIT UNE CHAINE SUR LE STANDARD OUTPUT
  9. C       ESERRO  : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  10. C       ESLINT   : ATTEND UN OU PLUSIEURS ENTIER(S) AU CLAVIER
  11. C       ESEINT : ECRIT UN OU PLUSIEURS ENTIER(S) SUR LE
  12. C                      STANDARD OUTPUT
  13. C       ESLREA     : ATTEND UN OU PLUSIEURS REEL(S) AU CLAVIER
  14. C       ESEREA   : ECRIT UN OU PLUSIEURS REEL(S) SUR LE
  15. C                      STANDARD OUTPUT
  16. C     AUTEUR  : O.STAB
  17. C     DATE    : 05.95
  18. C     MODIFICATIONS :
  19. C      AUTEUR, DATE, OBJET :
  20. C
  21. C
  22. C     *****************************************************************
  23. C
  24. C
  25.       INTEGER FUNCTION ESLGCH(CHAINE)
  26. C     *****************************************************************
  27. C     OBJET  : RENVOI LA LONGUEUR D'UNE CHAINE
  28. C     *****************************************************************
  29.       IMPLICIT INTEGER(I-N)
  30.       CHARACTER*(*) CHAINE
  31. C
  32.       INTEGER I,J,LCH
  33. C
  34.       LCH = LEN(CHAINE)
  35.       J = LCH
  36.       DO 10 I=1,LCH
  37.         IF( CHAINE(J:J).NE.' ' )GOTO 888
  38.         J = J - 1
  39.    10 CONTINUE
  40.   888 ESLGCH = J
  41. C
  42.   999 END
  43.  
  44.  
  45.  

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