source: trunk/libf/phyvenus/lnblnk1.F @ 124

Last change on this file since 124 was 3, checked in by slebonnois, 15 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 1.2 KB
RevLine 
[3]1!
2! $Header: /home/cvsroot/LMDZ4/libf/phylmd/lnblnk1.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
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.