Esope source files

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