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
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