source: LMDZ.3.3/trunk/libf/bibio/lnblnk.F @ 346

Last change on this file since 346 was 2, checked in by lmdz, 25 years ago

Initial revision

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