source: LMDZ4/branches/V3_test/libf/phylmd/lnblnk1.F @ 3733

Last change on this file since 3733 was 703, checked in by (none), 18 years ago

This commit was manufactured by cvs2svn to create branch 'V3_test'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1!
2! $Header$
3!
4      INTEGER FUNCTION lnblnk1 (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     lnblnk1: 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)
27c     CHARACTER*256 letter
28      CHARACTER*4 letter
29
30      i=0
31
3210    i=i+1
33c     IF (letter(i:i+1) . EQ . ' ') THEN
34      IF (letter(i:i) . EQ . ' ') THEN
35c      print*,'i=',i,'letter(i:i+1)=',letter(i:i+1)
36c      print*,'i=',i
37       GOTO 20
38      ELSE
39       GOTO 10
40      ENDIF
41
4220    lnblnk1=i-1
43c     PRINT*,'lnblnk1=',lnblnk1
44
45      RETURN
46      END
47
Note: See TracBrowser for help on using the repository browser.