Esope source files

   1 : C AMELI1    SOURCE    CHAT      05/01/12    21:21:11     5004           
   2 :       SUBROUTINE AMELI1 (MELEME,SAUV,NGRAND,NDEB,NUMNP,NUMELG)                  
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             A M E L I 1                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     AMELIORATION DE LA QUALITE DES ELEMENTS DANS L'ESPACE GEOMETRIQUE.        
  12 : *                                                                               
  13 : * MODULES UTILISES:                                                             
  14 : * -----------------                                                             
  15 : *                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 : -INC CCOPTIO                                                                    
  18 : -INC SMCOORD                                                                    
  19 : -INC SMELEME                                                                    
  20 : *                                                                               
  21 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  22 : * -----------                                                                   
  23 : *                                                                               
  24 : *     MELEME  E/S  POINTEUR SUR LA SURFACE MAILLEE EN ELEMENTS                  
  25 : *                  LINEAIRES, DE FACON NON CONVENTIONNELLE:                     
  26 : *                  - MELANGE DES "QUA4" ET "TRI3" DANS LE MEME TABLEAU,         
  27 : *                  - TABLEAU SURDIMENSIONNE,                                    
  28 : *                  - NUMEROTATION DES NOEUDS LOCALE A L'OPERATEUR.              
  29 : *     SAUV    (E)  SEGMENT CONTENANT LE TABLEAU "NSA" DE CORRESPONDANCE         
  30 : *                  ENTRE NUMEROS LOCAUX ET GLOBAUX SUR LE CONTOUR.              
  31 : *             (S)  TABLEAU "NSA" ETENDU AUX NOEUDS INTERIEURS CREES.            
  32 : *     NGRAND  (E)  PLUS GRAND NUMERO DE NOEUD CREE.                             
  33 : *                  (NUMEROTATION GLOBALE)                                       
  34 : *     NDEB    (E)  NUMERO LOCAL DU 1ER NOEUD INTERIEUR DE LA SURFACE.           
  35 : *     NUMNP   (E)  NOMBRE DE NOEUDS DU MAILLAGE.                                
  36 : *     NUMELG  E/S  NOMBRE D'ELEMENTS DU MAILLAGE.                               
  37 : *    +IDIM    (E)  VOIR LE COMMUN "CCOPTIO".                                    
  38 : *    +MCOORD  (E)                                                               
  39 : *                                                                               
  40 :       SEGMENT/SAUV/(NSA(LSA))                                                   
  41 : *                                                                               
  42 : * VARIABLES:                                                                    
  43 : * ----------                                                                    
  44 : *                                                                               
  45 :       SEGMENT,MVOIS                                                             
  46 :          INTEGER NBVOIS(NUMNP),KON(MAXVOI,NUMNP)                                
  47 :       ENDSEGMENT                                                                
  48 : *                                                                               
  49 : * AUTEUR, DATE DE CREATION:                                                     
  50 : * -------------------------                                                     
  51 : *                                                                               
  52 : *     PASCAL MANIGOT     9 OCTOBRE 1990                                         
  53 : *                                                                               
  54 : * LANGAGE:                                                                      
  55 : * --------                                                                      
  56 : *                                                                               
  57 : *     ESOPE + FORTRAN77                                                         
  58 : *                                                                               
  59 : ************************************************************************        
  60 : *                                                                               
  61 :       SEGACT,MCOORD                                                             
  62 :       SEGACT,MELEME                                                             
  63 :       NBNN = NUM(/1)                                                            
  64 : *                                                                               
  65 : *     IL FAUT ENREGISTRER LES VERITABLES NUMEROS DES NOEUDS INTERIEURS,         
  66 : *     PAR COMPLETION DU TABLEAU "NSA":                                          
  67 :       SEGACT,SAUV                                                               
  68 :       LSA = NUMNP                                                               
  69 :       SEGADJ,SAUV                                                               
  70 :       IDEC = NGRAND - NDEB + 1                                                  
  71 :       DO 50 IANC=NDEB,NUMNP                                                     
  72 :          NSA(IANC) = IANC + IDEC                                                
  73 :   50     CONTINUE                                                               
  74 : *     END DO                                                                    
  75 : *                                                                               
  76 :       MAXVOI = 12                                                               
  77 : *     (ON EST OBLIGE DE PRENDRE BEAUCOUP TOUT DE SUITE CAR ON N'EST PAS         
  78 : *     A L'ABRI D'UNE AUGMENTATION DU NOMBRE DE VOISINS DANS L'OPERATION         
  79 : *     D'AMELIORATION DE MAILLAGE)                                               
  80 :       SEGINI,MVOIS                                                              
  80 :       CALL AMELI2 (NUM,NSA,NBNN,NUMELG,NUMNP,NBVOIS,MAXVOI,KON)                 
  81 : *                                                                               
  82 :       SEGSUP,MVOIS                                                              
  83 : *     IL N'EST PROBABLEMENT PAS PRUDENT DE DESACTIVER "MELEME" ET "SAUV"        
  84 : *                                                                               
  85 :       END                                                                       
  86 :