Esope source files

   1 : C DYNEC1    SOURCE    CHAT      05/01/12    23:17:59     5004           
   2 :       SUBROUTINE DYNEC1(VEC1,COEF,NUMPAS,NDDL,VEC2)                             
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             D Y N E C 1                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
  13 : *     CALCUL DU VECTEUR GENERE PAR UN CHARGEMENT AU PAS NUMPAS                  
  14 : *                                                                               
  15 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  16 : * -----------                                                                   
  17 : *                                                                   T           
  18 : *     VEC1    (E)  VECTEUR CONTENANT LES VALEURS DU CHPOINT DE CHARG            
  19 : *     COEF    (E)  LISTE DE COEFFICIENTS ( VOIR LE S-P DYNECH )                 
  20 : *     NUMPAS  (E)  NUMERO DU PAS DE CALCUL                                      
  21 : *     NDDL    (E)  NOMBRE DE DEGRES DE LIBERTE                                  
  22 : *     VEC2    (S)  VECTEUR AU PAS CONSIDERE                                     
  23 : *                                                                               
  24 : * AUTEUR, DATE DE CREATION:                                                     
  25 : * -------------------------                                                     
  26 : *                                                                               
  27 : *     DENIS ROBERT, LE 9 NOVEMBRE 1988.                                         
  28 : *                                                                               
  29 : * LANGAGE:                                                                      
  30 : * --------                                                                      
  31 : *                                                                               
  32 : *     FORTRAN77                                                                 
  33 : *                                                                               
  34 : ************************************************************************        
  35 : *                                                                               
  36 :       REAL*8 VEC1(*),VEC2(*),COEF(*)                                            
  37 : *                                                                               
  38 :       PARAMETER ( ZERO=0.D0 )                                                   
  39 : *                                                                               
  40 :       DO 10 I=1,NDDL                                                            
  41 :          VEC2(I)=ZERO                                                           
  42 :  10      CONTINUE                                                               
  43 : *     END DO                                                                    
  44 :       DO 20 J=1,NDDL                                                            
  45 :          VEC2(J)=VEC1(J)*COEF(NUMPAS)                                           
  46 :  20      CONTINUE                                                               
  47 : *     END DO                                                                    
  48 : *                                                                               
  49 :       END                                                                       
  50 :