Télécharger long.eso

Retour à la liste

Numérotation des lignes :

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales