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