Esope source files

   1 : C DYNE08    SOURCE    CHAT      05/01/12    23:13:08     5004           
   2 :       SUBROUTINE DYNE08(ICHT1,IDDL,NDDL,IBLO,ICHT2)                             
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             D Y N E 0 8                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
  13 : *     CALCULE LE PRODUIT : AT * L1 ET LE RANGE DANS UN VECTEUR                  
  14 : *                                                                               
  15 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  16 : * -----------                                                                   
  17 : *                                                                               
  18 : *     VEC1    (E)  VECTEUR CONTENANT LES MULTIPLICATEURS                        
  19 : *     IDDL    (E)  NOMBRE DE DDL LIES                                           
  20 : *     NDDL    (E)  NOMBRE DE DDL                                                
  21 : *     IBLO    (E)  POINTEUR SUR UN SEGMENT MBLO ( ACTIF )                       
  22 : *     VEC2    (S)  VECTEUR RESULTAT                                             
  23 : *                                                                               
  24 : * AUTEUR, DATE DE CREATION:                                                     
  25 : * -------------------------                                                     
  26 : *     DENIS ROBERT, LE 6 DECEMBRE 1988.                                         
  27 : *     REVU ET CORRIGE DECEMBRE 89 MP                                            
  28 : *                                                                               
  29 : * LANGAGE:                                                                      
  30 : * --------                                                                      
  31 : *     ESOPE + FORTRAN77                                                         
  32 : *                                                                               
  33 : ************************************************************************        
  34 : *                                                                               
  35 :       SEGMENT,MBLO                                                              
  36 :          REAL*8 BLO(IDDL,NDDL)                                                  
  37 :       ENDSEGMENT                                                                
  38 : *                                                                               
  39 :       SEGMENT,MCHT1                                                             
  40 :          REAL*8 VCC1(IDDL)                                                      
  41 :       ENDSEGMENT                                                                
  42 : *                                                                               
  43 :       SEGMENT,MCHT2                                                             
  44 :          REAL*8 VCC2(NDDL)                                                      
  45 :       ENDSEGMENT                                                                
  46 : *                                                                               
  47 : *     REAL*8 VEC1(*),VEC2(*)                                                    
  48 : *                                                                               
  49 :       MCHT1=ICHT1                                                               
  50 :       MCHT2=ICHT2                                                               
  51 :       MBLO=IBLO                                                                 
  52 : *                                                                               
  53 :       DO 10 I1=1,NDDL                                                           
  54 :          DO 20 I2=1,IDDL                                                        
  55 :             VCC2(I1)=VCC2(I1)+BLO(I2,I1)*VCC1(I2)                               
  56 :  20         CONTINUE                                                            
  57 : *        END DO                                                                 
  58 :  10      CONTINUE                                                               
  59 : *     END DO                                                                    
  60 : *                                                                               
  61 :       END                                                                       
  62 :