source: LMDZ.3.3/trunk/libf/phylmd/lnblnk1.F @ 5306

Last change on this file since 5306 was 507, checked in by lmdzadmin, 21 years ago

Rajout de diagnostiques 3d HF
IM
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1      INTEGER FUNCTION lnblnk1 (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     lnblnk1: 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)
24c     CHARACTER*256 letter
25      CHARACTER*4 letter
26
27      i=0
28
2910    i=i+1
30c     IF (letter(i:i+1) . EQ . ' ') THEN
31      IF (letter(i:i) . EQ . ' ') THEN
32c      print*,'i=',i,'letter(i:i+1)=',letter(i:i+1)
33c      print*,'i=',i
34       GOTO 20
35      ELSE
36       GOTO 10
37      ENDIF
38
3920    lnblnk1=i-1
40c     PRINT*,'lnblnk1=',lnblnk1
41
42      RETURN
43      END
44
Note: See TracBrowser for help on using the repository browser.