1 |
! |
2 |
! $Header: /home/cvsroot/LMDZ4/libf/bibio/lnblnk.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $ |
3 |
! |
4 |
INTEGER FUNCTION lnblnk (letter) |
5 |
|
6 |
C-------------------------------------------------------- |
7 |
C Fonction qui determine la longeur d'un string sans les |
8 |
C blancs qui suivent. Le critere pour determiner la fin du |
9 |
C string est, trois blancs de suite |
10 |
C--------------------------------------------------------- |
11 |
C ARGUMENTS |
12 |
C +++++++++ |
13 |
C letter: CHARACTER*xxx (xxx < imax) |
14 |
C le string dont on determine la longuer |
15 |
C lnblnk: INTEGER |
16 |
C le nombre de characteres |
17 |
C |
18 |
C PARAMETER |
19 |
C +++++++++ |
20 |
C imax : INTEGER |
21 |
C le nombre maximale de character que peut contenir le string |
22 |
C a traiter |
23 |
|
24 |
IMPLICIT NONE |
25 |
INTEGER i,imax |
26 |
PARAMETER (imax = 256) |
27 |
CHARACTER*256 letter |
28 |
|
29 |
i=0 |
30 |
|
31 |
10 i=i+1 |
32 |
IF (letter(i:i+3) . EQ . ' ') GOTO 20 |
33 |
GOTO 10 |
34 |
|
35 |
20 lnblnk=i-1 |
36 |
|
37 |
RETURN |
38 |
END |
39 |
|