Télécharger la plaquette Cast3M


fr en

Télécharger cmpmai.eso

Retour à la liste

Numérotation des lignes : 

cmpmai

  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.  
  68.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales