C IDSLEN    SOURCE    CHAT      05/01/13    00:30:42     5004           
C
      INTEGER FUNCTION IDSLEN(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 IDSLEN = J
C
  999 END