prev.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\damocles\prev.f
00002 !
00050                      INTEGER FUNCTION PREV
00051 !                    *********************
00052 !
00053      &( ICOL , LIGNE )
00054 !
00055 !***********************************************************************
00056 ! DAMOCLES   V6P0                                   21/08/2010
00057 !***********************************************************************
00058 !
00059 !
00060 !
00061 !
00062 !
00063 !
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !| ICOL           |-->| POSITION COURANTE DU POINTEUR DANS LA LIGNE
00066 !| LIGNE          |-->| LIGNE EN COURS DE DECODAGE
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !
00069       IMPLICIT NONE
00070 !
00071       INTEGER       ICOL
00072       CHARACTER*(*) LIGNE
00073 !
00074 !-----------------------------------------------------------------------
00075 !
00076       INTEGER       I,J
00077       CHARACTER*1   TABUL
00078       INTRINSIC CHAR
00079 !
00080 !***********************************************************************
00081 !                                    RCS AND SCCS MARKING
00082 !
00083 !***********************************************************************
00084 !
00085       TABUL = CHAR(9)
00086       PREV   = ICOL
00087       I      = ICOL
00088 !
00089   100 CONTINUE
00090       I = I - 1
00091       IF ( I.LT.1 ) GO TO 1000
00092 !
00093       IF (LIGNE(I:I).EQ.' '.OR.LIGNE(I:I).EQ.TABUL) GOTO 100
00094 !
00095 !-----------------------------------------------------------------------
00096 !          DOES NOT CONSIDER THE COMMENTED LINES:
00097 !
00098            IF ( LIGNE(I:I).NE.'/' ) THEN
00099                 PREV = I
00100                 GO TO 1000
00101            ELSE
00102                 IF ( I.LE.1 ) GO TO 1000
00103                 DO J = I-1 , 1 , -1
00104                      IF ( LIGNE(J:J).EQ.'/' ) THEN
00105                           I = J
00106                           GO TO 100
00107                      ENDIF
00108                 ENDDO ! J
00109            ENDIF
00110 !-----------------------------------------------------------------------
00111 !
00112  1000 CONTINUE
00113 !
00114       RETURN
00115       END

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