trunk/bibio/lnblnk.f


! $Header: /home/cvsroot/LMDZ4/libf/bibio/lnblnk.F,v 1.1.1.1 2004/05/19
! 12:53:05 lmdzadmin Exp $

INTEGER FUNCTION lnblnk(letter)

  ! --------------------------------------------------------
  ! Fonction qui determine la longeur d'un string sans les
  ! blancs qui suivent. Le critere pour determiner la fin du
  ! string est, trois blancs de suite
  ! ---------------------------------------------------------
  ! ARGUMENTS
  ! +++++++++
  ! letter: CHARACTER*xxx (xxx < imax)
  ! le string dont on determine la longuer
  ! lnblnk: INTEGER
  ! le nombre de characteres

  ! PARAMETER
  ! +++++++++
  ! imax : INTEGER
  ! le nombre maximale de character que peut contenir le string
  ! a traiter

  IMPLICIT NONE
  INTEGER i, imax
  PARAMETER (imax=256)
  CHARACTER *256 letter

  i = 0

10 i = i + 1
  IF (letter(i:i+3)=='   ') GO TO 20
  GO TO 10

20 lnblnk = i - 1

  RETURN
END FUNCTION lnblnk

1	guez	3
2	guez	81	! $Header: /home/cvsroot/LMDZ4/libf/bibio/lnblnk.F,v 1.1.1.1 2004/05/19
3			! 12:53:05 lmdzadmin Exp $
4	guez	3
5	guez	81	INTEGER FUNCTION lnblnk(letter)
6	guez	3
7	guez	81	! --------------------------------------------------------
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	guez	3
19	guez	81	! PARAMETER
20			! +++++++++
21			! imax : INTEGER
22			! le nombre maximale de character que peut contenir le string
23			! a traiter
24	guez	3
25	guez	81	IMPLICIT NONE
26			INTEGER i, imax
27			PARAMETER (imax=256)
28			CHARACTER *256 letter
29	guez	3
30	guez	81	i = 0
31	guez	3
32	guez	81	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