Télécharger la plaquette Cast3M


fr en

Télécharger doubl2.eso

Retour à la liste

Numérotation des lignes : 

doubl2

  1. C DOUBL2    SOURCE    BP208322  16/11/18    21:16:31     9177           
  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.  
  29. -INC PPARAM
  30. -INC CCOPTIO
  31. -INC CCGEOME
  32. -INC SMELEME
  33. -INC SMLENTI
  34. -INC SMLREEL
  35. C
  36.       LOGICAL BAVARD
  37. C
  38. C
  39. C     BOUCLE SUR LES ZONES DU MAILLAGE
  40. C
  41.       SEGACT,MELEME
  42.       IPT1=MELEME
  43.       DO IZON=1,MAX(1,LISOUS(/1))
  44.         IF (LISOUS(/1).NE.0) THEN
  45.           IPT1=LISOUS(IZON)
  46.           SEGACT,IPT1
  47.         ENDIF
  48.  
  49.         MBELEM = IPT1.NUM(/2)
  50.         NBNN   = IPT1.NUM(/1)
  51.  
  52. C       Il faut qu'il y ait quelque chose à trier
  53.         IF ((MBELEM.GT.1).AND.(NBNN.GT.0))
  54.      &    CALL DOUBL3(IPT1,MBELEM,NBNN,BAVARD)
  55.  
  56.         SEGDES,IPT1
  57.       ENDDO
  58. C
  59.       RETURN
  60.       END
  61.  
  62.  
  63.  
  64.  
  65.  

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