Télécharger la plaquette Cast3M


fr en

Télécharger limcha.eso

Retour à la liste

Numérotation des lignes : 

limcha

  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