Télécharger limcha.eso

Retour à la liste

Numérotation des lignes :

  1. C LIMCHA SOURCE JC220346 12/06/18 21:15:03 7403
  2. ************************************************************************
  3. * NOM : limcha.eso
  4. * DESCRIPTION : renvoie les limites d'une chaîne (soit les positions
  5. * des premier et dernier caractères non blancs)
  6. ************************************************************************
  7. * HISTORIQUE : 7/06/2012 : JCARDO : création de la subroutine
  8. * HISTORIQUE :
  9. * HISTORIQUE :
  10. ************************************************************************
  11. * Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES
  12. * en cas de modification de ce sous-programme afin de faciliter
  13. * la maintenance !
  14. ************************************************************************
  15. * ENTRÉES :: CH=chaîne à délimiter
  16. * SORTIES :: I1=premier caractère non blanc (vaut -1 si CH est vide)
  17. * I2=dernier caractère non blanc (vaut -1 si CH est vide)
  18. ************************************************************************
  19. SUBROUTINE LIMCHA(CH,I1,I2)
  20. IMPLICIT INTEGER(I-N)
  21. CHARACTER*(*) CH
  22.  
  23. N=LEN(CH)
  24. DO I1=1,N
  25. IF (CH(I1:I1).NE.' ') GOTO 10
  26. ENDDO
  27. I1=-1
  28. 10 DO I2=N,I1,-1
  29. IF (CH(I2:I2).NE.' ') GOTO 20
  30. ENDDO
  31. I2=-1
  32. 20 CONTINUE
  33.  
  34. END
  35.  
  36.  

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