1 |
guez |
3 |
! |
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 |
|
|
|