Télécharger arete1.eso

Retour à la liste

Numérotation des lignes :

  1. C ARETE1 SOURCE PV 09/01/08 21:15:08 6254
  2. SUBROUTINE ARETE1 (MELEME,TS,ISEG,TN,INOR,TI,ICPR,LCPR)
  3.  
  4. * APPELE PAR ARETE
  5. * APPEL ROUTINE QUI REMPLIT LES TABLES TSEG ET TNOR POUR LES
  6. * CALCULS D'ELIMINATION D'ARETES EN DECOMPOSANT LES MAILLAGES
  7. * COMPLEXES EN MAILLAGE SIMPLE.
  8. *
  9. *-------------------------------------------------------------------
  10. *
  11. * ARBRE D'APPEL :
  12. * --------------
  13. * ARETE2 : ROUTINE QUI REMPLIT LES TABLES TSEG ET TNOR
  14. * A PARTIR D'UN MAILLAGE SIMPLE
  15. *
  16. *-------------------------------------------------------------------
  17. *
  18. * VARIABLES PRINCIPALES :
  19. * ---------------------
  20. *
  21. * TSEG : SEGMENT 2 DIMENSIONS CONTENANT
  22. *
  23. * | A TRACER (= 0 NON, =1 OUI) |
  24. * | COULEUR |
  25. * | N› NOEUD MIN |
  26. * | N› NOEUD MAX |
  27. * | ENTREES DANS TSEG |
  28. *
  29. * TNOR : SEGMENT 2 DIMENSIONS CONTENANT LES NORMALES A COMPARER
  30. * POUR CHAQUE FACE ELEMENTAIRE
  31. *
  32. * ISEG : TAILLE REELLE DU SEGMENT TSEG
  33. * INOR : TAILLE REELLE DU SEGMENT TNOR
  34. *
  35. *--------------------------------------------------------------------
  36. * AUTEUR : J.BRUN (JUIN 90)
  37. *
  38. IMPLICIT INTEGER(I-N)
  39. IMPLICIT REAL*8 (A-H,O-Y)
  40. IMPLICIT LOGICAL (Z)
  41. SEGMENT TN
  42. REAL*8 TNOR (N1,3)
  43. ENDSEGMENT
  44. SEGMENT TS
  45. INTEGER TSEG (M1,M2)
  46. ENDSEGMENT
  47. SEGMENT TI
  48. INTEGER TINDIC(MI1,MI2,2)
  49. ENDSEGMENT
  50. SEGMENT ICPR(0)
  51. -INC SMELEME
  52. *
  53. DIMENSION VN(3)
  54. SEGACT MELEME
  55. IF (LISOUS(/1) .EQ. 0) THEN
  56. CALL ARETE2(MELEME,TS,ISEG,TN,INOR,TI,ICPR,LCPR)
  57. ELSE
  58.  
  59. *---------------------------------------------------------------------
  60. *
  61. * BOUCLE SUR LES SOUS OBJETS (CAS D'UN MAILLAGE COMPLEXE )
  62. *
  63. *---------------------------------------------------------------------
  64. DO 1 NS=1,LISOUS(/1)
  65. IPT1=LISOUS(NS)
  66. SEGACT IPT1
  67. CALL ARETE2 (IPT1,TS,ISEG,TN,INOR,TI,ICPR,LCPR)
  68. SEGDES IPT1
  69. 1 CONTINUE
  70. ENDIF
  71. SEGDES MELEME
  72. RETURN
  73. END
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  

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