precar.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\damocles\precar.f
00002 !
00065                      INTEGER FUNCTION PRECAR
00066 !                    ***********************
00067 !
00068      &( ICOL , LIGNE , CAR1 , CAR2 , CAR3 )
00069 !
00070 !***********************************************************************
00071 ! DAMOCLES   V6P0                                   21/08/2010
00072 !***********************************************************************
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !| CAR1,CAR2,CAR3 |-->| CARACTERES RECHERCHES DANS LA LIGNE
00082 !| ICOL           |-->| POSITION COURANTE DU POINTEUR DANS LA LIGNE
00083 !| LIGNE          |-->| LIGNE EN COURS DE DECODAGE
00084 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00085 !
00086       IMPLICIT NONE
00087 !
00088       INTEGER       ICOL
00089       CHARACTER*1   CAR1,CAR2,CAR3
00090       CHARACTER*(*) LIGNE
00091 !
00092       INTEGER       LONGLI,NLIGN
00093 !
00094 !-----------------------------------------------------------------------
00095 !
00096       INTEGER       K
00097 !
00098 !-----------------------------------------------------------------------
00099 !
00100       COMMON / DCMLIG / NLIGN,LONGLI
00101 !
00102 !***********************************************************************
00103 !                                    RCS AND SCCS MARKING
00104 !
00105 !***********************************************************************
00106 !
00107       PRECAR = LONGLI
00108 !
00109       DO K = ICOL,LONGLI
00110       IF (LIGNE(K:K).EQ.CAR1.OR.LIGNE(K:K).EQ.CAR2.OR.
00111      &    LIGNE(K:K).EQ.CAR3) THEN
00112         PRECAR = K
00113         GO TO 1000
00114       ENDIF
00115       ENDDO ! K
00116 !
00117       PRECAR=LONGLI+1
00118 !
00119 1000  CONTINUE
00120 !
00121 !-----------------------------------------------------------------------
00122 !
00123       RETURN
00124       END

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