1 : C CMPMAI SOURCE CHAT 05/01/12 22:11:11 5004 2 : SUBROUTINE CMPMAI(IPT1,IPT2,ILOG) 3 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 4 : C COMPARAISON DES MAILLAGES IPT1 ET IPT2 5 : C ILOG LOGIQUE VRAI OU FAUX EN SORTIE 6 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 7 : IMPLICIT INTEGER(I-N) 8 : IMPLICIT REAL*8 (A-H,O-Z) 9 : -INC SMELEME 10 : LOGICAL ILOG 11 : ILOG=.FALSE. 12 : IF(IPT1.EQ.IPT2)THEN 13 : ILOG=.TRUE. 14 : ELSE 15 : SEGACT IPT1,IPT2 16 : NBSOU1=IPT1.LISOUS(/1) 17 : NBSOU2=IPT2.LISOUS(/1) 18 : IF( NBSOU1.EQ.NBSOU2)THEN 19 : IF(NBSOU1.EQ.0)THEN 20 : IF(IPT1.ITYPEL.EQ.IPT2.ITYPEL)THEN 21 : NBEL1=IPT1.NUM(/2) 22 : NBEL2=IPT2.NUM(/2) 23 : IF(NBEL1.EQ.NBEL2)THEN 24 : NBNN=IPT1.NUM(/1) 25 : DO 10 J=1,NBEL1 26 : DO 5 I=1,NBNN 27 : IF( IPT1.NUM(I,J).NE.IPT2.NUM(I,J))GO TO 15 28 : 5 CONTINUE 29 : 10 CONTINUE 30 : ILOG=.TRUE. 31 : 15 CONTINUE 32 : ENDIF 33 : ENDIF 34 : ELSE 35 : DO 30 NBS1= 1,NBSOU1 36 : IPT3=IPT1.LISOUS(NBS1) 37 : IPT4=IPT4.LISOUS(NBS1) 38 : IF(IPT3.NE.IPT4)THEN 39 : SEGACT IPT3,IPT4 40 : IF(IPT3.ITYPEL.EQ.IPT4.ITYPEL)THEN 41 : NBEL1=IPT3.NUM(/2) 42 : NBEL2=IPT4.NUM(/2) 43 : IF(NBEL1.EQ.NBEL2)THEN 44 : NBNN=IPT3.NUM(/1) 45 : DO 20 J=1,NBEL1 46 : DO 25 I=1,NBNN 47 : IF( IPT3.NUM(I,J).NE.IPT4.NUM(I,J))THEN 48 : SEGDES IPT3,IPT4 49 : GO TO 50 50 : ENDIF 51 : 25 CONTINUE 52 : 20 CONTINUE 53 : ENDIF 54 : ENDIF 55 : SEGDES IPT3,IPT4 56 : ENDIF 57 : 30 CONTINUE 58 : ILOG=.TRUE. 59 : 50 CONTINUE 60 : ENDIF 61 : ENDIF 62 : SEGDES IPT1,IPT2 63 : ENDIF 64 : RETURN 65 : END 66 : 67 :
© Cast3M 2003 - All rights reserved.
Disclaimer