Esope source files

   1 : C DYNE10    SOURCE    CHAT      05/01/12    23:13:21     5004           
   2 :       SUBROUTINE DYNE10(ICHT22,IPM,ICHT23,NDDL)                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             D Y N E 1 0                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
  13 : *     CALCULE LE PRODUIT : M-1 * VEC = VEC1                                     
  14 : *                                                                               
  15 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  16 : * -----------                                                                   
  17 : *                                                                               
  18 : *     VEC     (E)  VECTEUR                             -1                       
  19 : *     IPM     (E)  POINTEUR SUR UN VECTDOUB CONTENANT M   ( ACTIF )             
  20 : *     VEC1    (S)  VECTEUR RESULTAT                                             
  21 : *     NDDL    (E)  NOMBRE DE DDL                                                
  22 : *                                                                               
  23 : * AUTEUR, DATE DE CREATION:                                                     
  24 : * -------------------------                                                     
  25 : *     DENIS ROBERT, LE 1ER 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 SMVECTD                                                                    
  37 : *                                                                               
  38 :       SEGMENT,MCHT2                                                             
  39 :          REAL*8 VCC2(NDDL)                                                      
  40 :       ENDSEGMENT                                                                
  41 :       POINTEUR MCHT22.MCHT2,MCHT23.MCHT2                                        
  42 : *                                                                               
  43 : *     REAL*8 VEC(*),VEC1(*)                                                     
  44 : *                                                                               
  45 :       MCHT22=ICHT22                                                             
  46 :       MCHT23=ICHT23                                                             
  47 :       MVECTD=IPM                                                                
  48 : *                                                                               
  49 :       DO 10 I=1,NDDL                                                            
  50 :          MCHT23.VCC2(I)=MCHT22.VCC2(I)*VECTBB(I)                                
  51 :  10      CONTINUE                                                               
  52 : *     END DO                                                                    
  53 : *                                                                               
  54 :       END                                                                       
  55 :