source: LMDZ4/branches/LMDZ4_AR5/libf/bibio/lnblnk.F @ 3197

Last change on this file since 3197 was 1717, checked in by Ehouarn Millour, 12 years ago

Added "arch" files for Ada (using dynamic libraries for NetCDF, you must have
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/smplocal/pub/NetCDF/4.1.3/lib:/smplocal/pub/HDF5/1.8.9/seq/lib
in your .bashrc or .bash_login or in your job to run).
Also updated some sources so that gcm bench runs in "debug" mode (note that all these changes are minor and have already been implemented in LMDZ5 trunk).
EM
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 958 bytes
Line 
1!
2! $Header$
3!
4      INTEGER FUNCTION lnblnk (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     lnblnk: 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)
27!      CHARACTER*256 letter
28      CHARACTER(len=*) :: letter
29!      i=0
30
31!10    i=i+1
32!      IF (letter(i:i+3) . EQ . '   ') GOTO 20
33!      GOTO 10
34
35!20    lnblnk=i-1
36
37      lnblnk=len_trim(letter)
38
39      RETURN
40      END
41
Note: See TracBrowser for help on using the repository browser.