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