/[lmdze]/trunk/bibio/lnblnk.f
ViewVC logotype

Diff of /trunk/bibio/lnblnk.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/bibio/lnblnk.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/bibio/lnblnk.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
 !  
 ! $Header: /home/cvsroot/LMDZ4/libf/bibio/lnblnk.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $  
 !  
       INTEGER FUNCTION lnblnk (letter)  
   
 C--------------------------------------------------------  
 C Fonction qui determine la longeur d'un string sans les  
 C blancs qui suivent. Le critere pour determiner la fin du  
 C string est, trois blancs de suite  
 C---------------------------------------------------------  
 C     ARGUMENTS  
 C     +++++++++  
 C     letter: CHARACTER*xxx (xxx < imax)  
 C             le string dont on determine la longuer  
 C     lnblnk: INTEGER  
 C             le nombre de characteres  
 C  
 C     PARAMETER  
 C     +++++++++  
 C     imax : INTEGER  
 C            le nombre maximale de character que peut contenir le string  
 C            a traiter  
   
       IMPLICIT NONE  
       INTEGER i,imax  
       PARAMETER (imax = 256)  
       CHARACTER*256 letter  
   
       i=0  
   
 10    i=i+1  
       IF (letter(i:i+3) . EQ . '   ') GOTO 20  
       GOTO 10  
1    
2  20    lnblnk=i-1  ! $Header: /home/cvsroot/LMDZ4/libf/bibio/lnblnk.F,v 1.1.1.1 2004/05/19
3    ! 12:53:05 lmdzadmin Exp $
4    
5        RETURN  INTEGER FUNCTION lnblnk(letter)
6        END  
7      ! --------------------------------------------------------
8      ! Fonction qui determine la longeur d'un string sans les
9      ! blancs qui suivent. Le critere pour determiner la fin du
10      ! string est, trois blancs de suite
11      ! ---------------------------------------------------------
12      ! ARGUMENTS
13      ! +++++++++
14      ! letter: CHARACTER*xxx (xxx < imax)
15      ! le string dont on determine la longuer
16      ! lnblnk: INTEGER
17      ! le nombre de characteres
18    
19      ! PARAMETER
20      ! +++++++++
21      ! imax : INTEGER
22      ! le nombre maximale de character que peut contenir le string
23      ! a traiter
24    
25      IMPLICIT NONE
26      INTEGER i, imax
27      PARAMETER (imax=256)
28      CHARACTER *256 letter
29    
30      i = 0
31    
32    10 i = i + 1
33      IF (letter(i:i+3)=='   ') GO TO 20
34      GO TO 10
35    
36    20 lnblnk = i - 1
37    
38      RETURN
39    END FUNCTION lnblnk
40    
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21