C ESLGCH    SOURCE    CHAT      05/01/12    23:45:38     5004           
C     *****************************************************************
C     MODULE  : ES (ENTREES SORTIES)
C     FICHIER : ES_CHAINE.F
C     OBJET   : AFFICHAGE ET SAISIE INTERACTIVE DES TYPES DE BASE.
C     FONCT.  :
C       ESLCHA   : ATTEND UNE CHAINE (AU CLAVIER)
C       ESECHA : ECRIT UNE CHAINE SUR LE STANDARD OUTPUT
C       ESERRO  : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
C       ESLINT   : ATTEND UN OU PLUSIEURS ENTIER(S) AU CLAVIER
C       ESEINT : ECRIT UN OU PLUSIEURS ENTIER(S) SUR LE 
C                      STANDARD OUTPUT
C       ESLREA     : ATTEND UN OU PLUSIEURS REEL(S) AU CLAVIER
C       ESEREA   : ECRIT UN OU PLUSIEURS REEL(S) SUR LE 
C                      STANDARD OUTPUT
C     AUTEUR  : O.STAB
C     DATE    : 05.95
C     MODIFICATIONS :
C      AUTEUR, DATE, OBJET :
C
C
C     *****************************************************************
C
C
      INTEGER FUNCTION ESLGCH(CHAINE)
C     *****************************************************************
C     OBJET  : RENVOI LA LONGUEUR D'UNE CHAINE
C     *****************************************************************
      IMPLICIT INTEGER(I-N)
      CHARACTER*(*) CHAINE
C
      INTEGER I,J,LCH
C     
      LCH = LEN(CHAINE) 
      J = LCH
      DO 10 I=1,LCH
        IF( CHAINE(J:J).NE.' ' )GOTO 888
        J = J - 1
   10 CONTINUE
  888 ESLGCH = J
C
  999 END