Esope source files

   1 : C DYNE11    SOURCE    CHAT      05/01/12    23:13:25     5004           
   2 :       SUBROUTINE DYNE11(ICPC,IPCHPO,ICHT1,IDDL)                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             D Y N E 1 1                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
  13 : *     CREATION DU VECTEUR DEPLACEMENTS IMPOSES                                  
  14 : *                                                                               
  15 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  16 : * -----------                                                                   
  17 : *                                                                               
  18 : *     ICPC    (E)  POINTEUR SUR UN SEGMENT ICPR                                 
  19 : *     IPCHPO  (E)  POINTEUR SUR LE CHPOINT DE DEPLACEMENTS IMPOSES              
  20 : *     VEC     (S)  VECTEUR DEPLACEMENTS IMPOSES                                 
  21 : *     IDDL    (E)  NOMBRE DE DDL LIES                                           
  22 : *                                                                               
  23 : * AUTEUR, DATE DE CREATION:                                                     
  24 : * -------------------------                                                     
  25 : *     DENIS ROBERT, LE 14 DECEMBRE 1988.                                        
  26 : *     REVU ET CORRIGE DECEMBRE 89 MP                                            
  27 : *                                                                               
  28 : * LANGAGE:                                                                      
  29 : * --------                                                                      
  30 : *     ESOPE + FORTRAN77                                                         
  31 : *                                                                               
  32 : ************************************************************************        
  33 : *                                                                               
  34 : * MODULES UTILISES:                                                             
  35 : *                                                                               
  36 : -INC CCOPTIO                                                                    
  37 : -INC SMCOORD                                                                    
  38 : -INC SMCHPOI                                                                    
  39 : -INC SMELEME                                                                    
  40 : *                                                                               
  41 :       SEGMENT,ICPR(XCOOR(/1)/(IDIM+1))                                          
  42 : *                                                                               
  43 :       SEGMENT,MCHT1                                                             
  44 :          REAL*8 VCC1(IDDL)                                                      
  45 :       ENDSEGMENT                                                                
  46 : *                                                                               
  47 : *     REAL*8 VEC(*)                                                             
  48 : *                                                                               
  49 :       MCHT1=ICHT1                                                               
  50 :       ICPR=ICPC                                                                 
  51 :       MCHPOI=IPCHPO                                                             
  52 :       SEGACT,MCHPOI                                                             
  53 :       NSOUPO=IPCHP(/1)                                                          
  54 : *                                                                               
  55 : *---  BOUCLE SUR LES PARTITIONS GEOMETRIQUES DU CHPOINT                         
  56 : *                                                                               
  57 :       IFOI=0                                                                    
  58 :       DO 100 ISOUPO=1,NSOUPO                                                    
  59 :          MSOUPO=IPCHP(ISOUPO)                                                   
  60 :          SEGACT,MSOUPO                                                          
  61 :          MPOVAL=IPOVAL                                                          
  62 :          SEGACT,MPOVAL                                                          
  63 :          MELEME=IGEOC                                                           
  64 :          SEGACT,MELEME                                                          
  65 :          NBELEM=NUM(/2)                                                         
  66 : *                                                                               
  67 : *---     BOUCLE SUR LES POI1 DU MAILLAGE CONSIDERE                              
  68 : *                                                                               
  69 :          DO 200 IPOI=1,NBELEM                                                   
  70 :             K=NUM(1,IPOI)                                                       
  71 : *                                                                               
  72 : *---        ON RECHERCHE LA CORRESPONDANCE AVEC ICPC, REMPLI DANS DYNE02        
  73 : *                                                                               
  74 :             DO 300 I=1,IDDL                                                     
  75 :                IF (ICPR(I).EQ.K) THEN                                           
  76 : *                                              EME                              
  77 : *---              LE POINT NUMERO IPOI EST LE I    DDL LIE                      
  78 : *                                                                               
  79 :                   IFOI=IFOI+1                                                   
  80 :                   VCC1(I)=VPOCHA(IPOI,1)                                        
  81 :                ENDIF                                                            
  82 :  300           CONTINUE                                                         
  83 : *           END DO                                                              
  84 :  200        CONTINUE                                                            
  85 : *        END DO                                                                 
  86 :          SEGDES,MPOVAL,MELEME,MSOUPO                          
  87 :  100     CONTINUE                                                               
  88 : *     END DO                                                                    
  89 :       SEGDES,MCHPOI                                                       
  90 :       SEGSUP,ICPR                                                               
  91 : *                                                                               
  92 :       END                                                                       
  93 :