C DYNEC1    SOURCE    CHAT      05/01/12    23:17:59     5004           
      SUBROUTINE DYNEC1(VEC1,COEF,NUMPAS,NDDL,VEC2)                             
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             D Y N E C 1                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
*     CALCUL DU VECTEUR GENERE PAR UN CHARGEMENT AU PAS NUMPAS                  
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                   T           
*     VEC1    (E)  VECTEUR CONTENANT LES VALEURS DU CHPOINT DE CHARG            
*     COEF    (E)  LISTE DE COEFFICIENTS ( VOIR LE S-P DYNECH )                 
*     NUMPAS  (E)  NUMERO DU PAS DE CALCUL                                      
*     NDDL    (E)  NOMBRE DE DEGRES DE LIBERTE                                  
*     VEC2    (S)  VECTEUR AU PAS CONSIDERE                                     
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     DENIS ROBERT, LE 9 NOVEMBRE 1988.                                         
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     FORTRAN77                                                                 
*                                                                               
************************************************************************        
*                                                                               
      REAL*8 VEC1(*),VEC2(*),COEF(*)                                            
*                                                                               
      PARAMETER ( ZERO=0.D0 )                                                   
*                                                                               
      DO 10 I=1,NDDL                                                            
         VEC2(I)=ZERO                                                           
 10      CONTINUE                                                               
*     END DO                                                                    
      DO 20 J=1,NDDL                                                            
         VEC2(J)=VEC1(J)*COEF(NUMPAS)                                           
 20      CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      END