C CMPMAI    SOURCE    CHAT      05/01/12    22:11:11     5004
      SUBROUTINE CMPMAI(IPT1,IPT2,ILOG)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C       COMPARAISON DES MAILLAGES IPT1 ET IPT2
C       ILOG LOGIQUE VRAI OU FAUX EN SORTIE
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC SMELEME
      LOGICAL ILOG
      ILOG=.FALSE.
      IF(IPT1.EQ.IPT2)THEN
         ILOG=.TRUE.
      ELSE
         SEGACT IPT1,IPT2
         NBSOU1=IPT1.LISOUS(/1)
         NBSOU2=IPT2.LISOUS(/1)
         IF( NBSOU1.EQ.NBSOU2)THEN
            IF(NBSOU1.EQ.0)THEN
                IF(IPT1.ITYPEL.EQ.IPT2.ITYPEL)THEN
                   NBEL1=IPT1.NUM(/2)
                   NBEL2=IPT2.NUM(/2)
                   IF(NBEL1.EQ.NBEL2)THEN
                      NBNN=IPT1.NUM(/1)
                      DO 10 J=1,NBEL1
                      DO 5 I=1,NBNN
                      IF( IPT1.NUM(I,J).NE.IPT2.NUM(I,J))GO TO 15
    5                 CONTINUE
   10                 CONTINUE
                      ILOG=.TRUE.
   15                 CONTINUE
                   ENDIF
                ENDIF
            ELSE
                DO 30 NBS1= 1,NBSOU1
                IPT3=IPT1.LISOUS(NBS1)
                IPT4=IPT4.LISOUS(NBS1)
                IF(IPT3.NE.IPT4)THEN
                   SEGACT IPT3,IPT4
                   IF(IPT3.ITYPEL.EQ.IPT4.ITYPEL)THEN
                      NBEL1=IPT3.NUM(/2)
                      NBEL2=IPT4.NUM(/2)
                      IF(NBEL1.EQ.NBEL2)THEN
                         NBNN=IPT3.NUM(/1)
                         DO 20 J=1,NBEL1
                         DO 25 I=1,NBNN
                         IF( IPT3.NUM(I,J).NE.IPT4.NUM(I,J))THEN
                            SEGDES IPT3,IPT4
                            GO TO 50
                         ENDIF
   25                    CONTINUE
   20                    CONTINUE
                      ENDIF
                   ENDIF
                   SEGDES IPT3,IPT4
                ENDIF
   30           CONTINUE
                      ILOG=.TRUE.
   50           CONTINUE
            ENDIF
         ENDIF
         SEGDES IPT1,IPT2
      ENDIF
      RETURN
      END