1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
C/MEMBR ADD NAME=DLBLKS,SSI=0
SUBROUTINE DLBLKS( NAME, NBC)
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C ENLEVER LES BLANCS EN DEBUT D'UNE CHAINE DE CARACTERES
C
C
C ENTREE : NAME LA CHAINE DE CARACTERES
C
C SORTIE : NAME LA CHAINE SANS LES BLANCS
C NBC NOMBRE DE CARACTERES DE LA CHAINE
C
C FORTRAN INDEX, LEN
C ....................................................................
CHARACTER*(*) NAME
INTEGER NBC
INTEGER I,K,J,LL
C
LL = LEN ( NAME )
I = 0
1 I = I + 1
K = INDEX ( NAME(I:LL) , ' ' )
IF ( K .EQ. 0 ) K = LL - I + 2
IF ( K .EQ. 1 .AND. I .LT. LL ) GO TO 1
C
NBC = K - 1
I = I - 1
DO 3 J = 1,NBC
NAME(J:J) = NAME(J+I:J+I)
3 CONTINUE
DO 5 J = NBC+1,LL
NAME(J:J) = ' '
5 CONTINUE
C
C
END
|
