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)

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

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

      i=0

10    i=i+1
      IF (letter(i:i+3) . EQ . '   ') GOTO 20
      GOTO 10

20    lnblnk=i-1

      RETURN
      END

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