source: LMDZ4/trunk/libf/phy_IPCC_AR4/lnblnk1.F @ 1042

Last change on this file since 1042 was 868, checked in by Laurent Fairhead, 17 years ago

Preparation du remplacement de la physique utilisee pour l'exercice IPCC_AR4
par la version de la physique avec thermique. On garde le repertoire phylmd
pour un petit moment pour que les utilisateurs ne soient pas trop perdus ...
phy_IPCC_AR4 = phylmd
LF
  • 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.