Esope source files

   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 :