C LIMCHA SOURCE JC220346 12/06/18 21:15:03 7403 ************************************************************************ * NOM : limcha.eso * DESCRIPTION : renvoie les limites d'une chaîne (soit les positions * des premier et dernier caractères non blancs) ************************************************************************ * HISTORIQUE : 7/06/2012 : JCARDO : création de la subroutine * HISTORIQUE : * HISTORIQUE : ************************************************************************ * Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES * en cas de modification de ce sous-programme afin de faciliter * la maintenance ! ************************************************************************ * ENTRÉES :: CH=chaîne à délimiter * SORTIES :: I1=premier caractère non blanc (vaut -1 si CH est vide) * I2=dernier caractère non blanc (vaut -1 si CH est vide) ************************************************************************ SUBROUTINE LIMCHA(CH,I1,I2) IMPLICIT INTEGER(I-N) CHARACTER*(*) CH N=LEN(CH) DO I1=1,N IF (CH(I1:I1).NE.' ') GOTO 10 ENDDO I1=-1 10 DO I2=N,I1,-1 IF (CH(I2:I2).NE.' ') GOTO 20 ENDDO I2=-1 20 CONTINUE END