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