Esope source files

   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                                               
  55 :          CALL ARETE2(MELEME,TS,ISEG,TN,INOR,TI,ICPR,LCPR)
  56 :       ELSE                                                                      
  57 :                                                                                 
  58 : *---------------------------------------------------------------------          
  59 : *                                                                               
  60 : *    BOUCLE SUR LES SOUS OBJETS (CAS D'UN MAILLAGE COMPLEXE )                   
  61 : *                                                                               
  62 : *---------------------------------------------------------------------          
  63 :       DO 1 NS=1,LISOUS(/1)                                                      
  64 :            IPT1=LISOUS(NS)                                                      
  65 :            SEGACT IPT1                                                          
  65 :            CALL ARETE2 (IPT1,TS,ISEG,TN,INOR,TI,ICPR,LCPR)
  66 :            SEGDES IPT1                                                    
  67 : 1     CONTINUE                                                                  
  68 :       ENDIF                                                                     
  69 :       SEGDES MELEME                                                             
  70 :       RETURN                                                                    
  71 :       END                                                                       
  72 :  
  73 :  
  74 :  
  75 :  
  76 :  
  77 :