inclu2.f

Go to the documentation of this file.

!                   ***********************
                    LOGICAL FUNCTION inclu2
!                   ***********************
!
     &( c1 , c2 )
!
!***********************************************************************
! BIEF   V6P1                                   21/08/2010
!***********************************************************************
!
!brief    CHECKS IF A WORD IS COMPRISED IN A LIST OF WORDS.
!+                INCLU2=.TRUE. MEANS 'WORD C2 IS COMPRISED IN LIST C1'.
!
!history  J.M. HERVOUET (LNH)
!+        17/08/94
!+        V5P1
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| C1             |-->| LIST OF WORDS SEPARATED BY A CHARACTER ELSE THAN
!|                |   | A-Z AND 0-9
!| C2             |-->| WORD LOOKED FOR IN C1
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
      CHARACTER(LEN=*) C1 , C2
!
      INTEGER I,IC1,LC1,LC2,IMAX
!
      LOGICAL FLAG
!
      INTRINSIC len
!
!-----------------------------------------------------------------------
!
      inclu2 = .false.
!
      lc1 = len(c1)
      lc2 = len(c2)
      imax = lc1-lc2
!
      IF(imax.GE.0) THEN
!
        DO i = 0,imax
          IF(c1(i+1:i+lc2).EQ.c2(1:lc2)) THEN
            flag = .true.
            IF (i.NE.0) THEN
              ic1 = ichar(c1(i:i))
              IF ((ic1.GE.48.AND.ic1.LE.57).OR.
     &            (ic1.GE.65.AND.ic1.LE.90)) flag = .false.
            ENDIF
            IF (i.NE.imax) THEN
              ic1 = ichar(c1(i+lc2+1:i+lc2+1))
              IF ((ic1.GE.48.AND.ic1.LE.57).OR.
     &            (ic1.GE.65.AND.ic1.LE.90)) flag = .false.
            ENDIF
            inclu2 = inclu2.OR.flag
          ENDIF
        ENDDO ! I
!
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END