Esope source files

   1 : C DOUBL2    SOURCE    CHAT      07/10/29    21:18:22     5940           
   2 :       SUBROUTINE DOUBL2(MELEME,BAVARD)
   3 : C----------------------------------------------------
   4 : C
   5 : C     ELIMINATION DES ÉLÉMENTS EN DOUBLON D'UN MAILLAGE
   6 : C
   7 : C----------------------------------------------------
   8 : C
   9 : C     Création : tiré originellement de coupe.eso
  10 : C
  11 : C     Modification : Pascal Maugis 28/7/2005
  12 : C       Extension à des occurence multiples et non simplement doubles
  13 : C
  14 : C----------------------------------------------------
  15 : C
  16 : C     Appelé par VERMAI
  17 : C
  18 : C     Entrée :
  19 : C       MELEME
  20 : C       BAVARD : logique indiquant les mailles effacées
  21 : C
  22 : C     Sortie
  23 : C       maillage MELEME corrigé
  24 : C
  25 : C----------------------------------------------------
  26 :       IMPLICIT INTEGER(I-N)
  27 :       IMPLICIT REAL*8(A-H,O-Z)
  28 : -INC CCOPTIO
  29 : -INC CCGEOME
  30 : -INC SMELEME
  31 : -INC SMLENTI
  32 : -INC SMLREEL
  33 : C
  34 :       LOGICAL BAVARD
  35 : C
  36 : C
  37 : C     BOUCLE SUR LES ZONES DU MAILLAGE
  38 : C
  39 :       SEGACT,MELEME
  40 :       IPT1=MELEME
  41 :       DO IZON=1,MAX(1,LISOUS(/1))
  42 :         IF (LISOUS(/1).NE.0) THEN
  43 :           IPT1=LISOUS(IZON)
  44 :           SEGACT,IPT1
  45 :         ENDIF
  46 : 
  47 :         MBELEM = IPT1.NUM(/2)
  48 :         NBNN   = IPT1.NUM(/1)
  49 : 
  50 : C       Il faut qu'il y ait quelque chose à trier
  51 :         IF ((MBELEM.GT.1).AND.(NBNN.GT.0))
  51 :      &    CALL DOUBL3(IPT1,MBELEM,NBNN,BAVARD)
  52 : 
  53 :         SEGDES,IPT1
  54 :       ENDDO
  55 : C
  56 :       RETURN
  57 :       END
  58 :  
  59 :