Télécharger eslgch.eso

Retour à la liste

Numérotation des lignes :

  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