Télécharger lencha.eso

Retour à la liste

Numérotation des lignes :

  1. C LENCHA SOURCE CHAT 05/01/13 01:15:16 5004
  2. SUBROUTINE LENCHA(NOM,L)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. CHARACTER*(*) NOM
  6.  
  7. L1=LEN(NOM)
  8.  
  9. L=L1
  10. DO 1 I=L1,1,-1
  11. IF(NOM(I:I).EQ.' ')THEN
  12. L=L-1
  13. ELSE
  14. GO TO 2
  15. ENDIF
  16. 1 CONTINUE
  17. L=0
  18. 2 CONTINUE
  19. RETURN
  20. END
  21.  
  22.  

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