source: LMDZ4/branches/V3_test/libf/bibio/lnblnk.F @ 4126

Last change on this file since 4126 was 524, checked in by lmdzadmin, 21 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 887 bytes
Line 
1!
2! $Header$
3!
4      INTEGER FUNCTION lnblnk (letter)
5
6C--------------------------------------------------------
7C Fonction qui determine la longeur d'un string sans les
8C blancs qui suivent. Le critere pour determiner la fin du
9C string est, trois blancs de suite
10C---------------------------------------------------------
11C     ARGUMENTS
12C     +++++++++
13C     letter: CHARACTER*xxx (xxx < imax)
14C             le string dont on determine la longuer
15C     lnblnk: INTEGER
16C             le nombre de characteres
17C
18C     PARAMETER
19C     +++++++++
20C     imax : INTEGER
21C            le nombre maximale de character que peut contenir le string
22C            a traiter
23
24      IMPLICIT NONE
25      INTEGER i,imax
26      PARAMETER (imax = 256)
27      CHARACTER*256 letter
28
29      i=0
30
3110    i=i+1
32      IF (letter(i:i+3) . EQ . '   ') GOTO 20
33      GOTO 10
34
3520    lnblnk=i-1
36
37      RETURN
38      END
39
Note: See TracBrowser for help on using the repository browser.