libf/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	!
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