Esope source files

   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 :