inclus.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\inclus.f
00002 !
00047                      LOGICAL FUNCTION INCLUS
00048 !                    ***********************
00049 !
00050      &( C1 , C2 )
00051 !
00052 !***********************************************************************
00053 ! BIEF   V6P1                                   21/08/2010
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| C1             |-->| CHARACTER STRING WHERE C2 IS LOOKED FOR
00062 !| C2             |-->| CHARACTER STRING LOOKED FOR INTO C1
00063 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00064 !
00065       IMPLICIT NONE
00066       INTEGER LNG,LU
00067       COMMON/INFO/LNG,LU
00068 !
00069       CHARACTER*(*) C1 , C2
00070 !
00071       INTEGER I,LC1,LC2
00072 !
00073       INTRINSIC LEN
00074 !
00075 !-----------------------------------------------------------------------
00076 !
00077       INCLUS = .FALSE.
00078 !
00079       LC1 = LEN(C1)
00080       LC2 = LEN(C2)
00081       IF(LC2.GT.LC1) GO TO 1000
00082 !
00083       I = 0
00084 10    I = I + 1
00085       IF(I.GT.LC1-LC2+1) GO TO 1000
00086 !
00087       IF(C1(I:I+LC2-1).NE.C2(1:LC2)) GO TO 10
00088 !
00089       INCLUS = .TRUE.
00090 !
00091 1000  CONTINUE
00092 !
00093 !-----------------------------------------------------------------------
00094 !
00095       RETURN
00096       END

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