Télécharger doubl2.eso

Retour à la liste

Numérotation des lignes :

  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. -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))
  52. & CALL DOUBL3(IPT1,MBELEM,NBNN,BAVARD)
  53.  
  54. SEGDES,IPT1
  55. ENDDO
  56. C
  57. RETURN
  58. END
  59.  
  60.  
  61.  
  62.  
  63.  

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