longlu.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\damocles\longlu.f
00002 !
00051                      INTEGER FUNCTION LONGLU
00052 !                    ***********************
00053 !
00054      &( LIGNE )
00055 !
00056 !***********************************************************************
00057 ! DAMOCLES   V6P0                                   21/08/2010
00058 !***********************************************************************
00059 !
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| LIGNE          |-->| ARGUMENT A ANALYSER
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !
00070       IMPLICIT NONE
00071 !
00072       CHARACTER*(*) LIGNE
00073 !
00074 !-----------------------------------------------------------------------
00075 !
00076       INTEGER       I,LONG
00077       CHARACTER*1   TABUL
00078       INTRINSIC CHAR
00079 !
00080 !***********************************************************************
00081 !                                    RCS AND SCCS MARKING
00082 !
00083 !***********************************************************************
00084 !
00085       TABUL = CHAR(9)
00086       LONG = LEN(LIGNE)
00087       IF (LONG .EQ. 0) THEN
00088         I = 0
00089         GO TO 110
00090       ENDIF
00091       DO I = LONG , 1 , -1
00092         IF (LIGNE(I:I).NE.' '.AND.LIGNE(I:I).NE.TABUL) EXIT
00093       ENDDO ! I
00094 110   CONTINUE
00095       LONGLU = I
00096 !
00097 !-----------------------------------------------------------------------
00098 !
00099       RETURN
00100       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0