Télécharger la plaquette Cast3M


fr en

Télécharger arete1.eso

Retour à la liste

Numérotation des lignes : 

arete1

  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