C DYNE11    SOURCE    CHAT      05/01/12    23:13:25     5004           
      SUBROUTINE DYNE11(ICPC,IPCHPO,ICHT1,IDDL)                                 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             D Y N E 1 1                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
*     CREATION DU VECTEUR DEPLACEMENTS IMPOSES                                  
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     ICPC    (E)  POINTEUR SUR UN SEGMENT ICPR                                 
*     IPCHPO  (E)  POINTEUR SUR LE CHPOINT DE DEPLACEMENTS IMPOSES              
*     VEC     (S)  VECTEUR DEPLACEMENTS IMPOSES                                 
*     IDDL    (E)  NOMBRE DE DDL LIES                                           
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*     DENIS ROBERT, LE 14 DECEMBRE 1988.                                        
*     REVU ET CORRIGE DECEMBRE 89 MP                                            
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
* MODULES UTILISES:                                                             
*                                                                               
-INC CCOPTIO                                                                    
-INC SMCOORD                                                                    
-INC SMCHPOI                                                                    
-INC SMELEME                                                                    
*                                                                               
      SEGMENT,ICPR(XCOOR(/1)/(IDIM+1))                                          
*                                                                               
      SEGMENT,MCHT1                                                             
         REAL*8 VCC1(IDDL)                                                      
      ENDSEGMENT                                                                
*                                                                               
*     REAL*8 VEC(*)                                                             
*                                                                               
      MCHT1=ICHT1                                                               
      ICPR=ICPC                                                                 
      MCHPOI=IPCHPO                                                             
      SEGACT,MCHPOI                                                             
      NSOUPO=IPCHP(/1)                                                          
*                                                                               
*---  BOUCLE SUR LES PARTITIONS GEOMETRIQUES DU CHPOINT                         
*                                                                               
      IFOI=0                                                                    
      DO 100 ISOUPO=1,NSOUPO                                                    
         MSOUPO=IPCHP(ISOUPO)                                                   
         SEGACT,MSOUPO                                                          
         MPOVAL=IPOVAL                                                          
         SEGACT,MPOVAL                                                          
         MELEME=IGEOC                                                           
         SEGACT,MELEME                                                          
         NBELEM=NUM(/2)                                                         
*                                                                               
*---     BOUCLE SUR LES POI1 DU MAILLAGE CONSIDERE                              
*                                                                               
         DO 200 IPOI=1,NBELEM                                                   
            K=NUM(1,IPOI)                                                       
*                                                                               
*---        ON RECHERCHE LA CORRESPONDANCE AVEC ICPC, REMPLI DANS DYNE02        
*                                                                               
            DO 300 I=1,IDDL                                                     
               IF (ICPR(I).EQ.K) THEN                                           
*                                              EME                              
*---              LE POINT NUMERO IPOI EST LE I    DDL LIE                      
*                                                                               
                  IFOI=IFOI+1                                                   
                  VCC1(I)=VPOCHA(IPOI,1)                                        
               ENDIF                                                            
 300           CONTINUE                                                         
*           END DO                                                              
 200        CONTINUE                                                            
*        END DO                                                                 
         SEGDES,MPOVAL,MELEME,MSOUPO                          
 100     CONTINUE                                                               
*     END DO                                                                    
      SEGDES,MCHPOI                                                       
      SEGSUP,ICPR                                                               
*                                                                               
      END