Sources Esope | Cast3M

long
C LONG      SOURCE    CHAT      05/01/13    01:25:14     5004
C  REND LA LONGUEUR D'UNE CHAINE DE CARACTERES
C
      FUNCTION LONG(CH)
      IMPLICIT INTEGER(I-N)
      CHARACTER*(*) CH
      DO 10 I=LEN(CH),1,-1
       IF (CH(I:I).NE.' ') GOTO 20
  10  CONTINUE
      I=1
  20  LONG=I
      END