C DYNE08    SOURCE    CHAT      05/01/12    23:13:08     5004           
      SUBROUTINE DYNE08(ICHT1,IDDL,NDDL,IBLO,ICHT2)                             
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             D Y N E 0 8                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
*     CALCULE LE PRODUIT : AT * L1 ET LE RANGE DANS UN VECTEUR                  
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     VEC1    (E)  VECTEUR CONTENANT LES MULTIPLICATEURS                        
*     IDDL    (E)  NOMBRE DE DDL LIES                                           
*     NDDL    (E)  NOMBRE DE DDL                                                
*     IBLO    (E)  POINTEUR SUR UN SEGMENT MBLO ( ACTIF )                       
*     VEC2    (S)  VECTEUR RESULTAT                                             
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*     DENIS ROBERT, LE 6 DECEMBRE 1988.                                         
*     REVU ET CORRIGE DECEMBRE 89 MP                                            
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      SEGMENT,MBLO                                                              
         REAL*8 BLO(IDDL,NDDL)                                                  
      ENDSEGMENT                                                                
*                                                                               
      SEGMENT,MCHT1                                                             
         REAL*8 VCC1(IDDL)                                                      
      ENDSEGMENT                                                                
*                                                                               
      SEGMENT,MCHT2                                                             
         REAL*8 VCC2(NDDL)                                                      
      ENDSEGMENT                                                                
*                                                                               
*     REAL*8 VEC1(*),VEC2(*)                                                    
*                                                                               
      MCHT1=ICHT1                                                               
      MCHT2=ICHT2                                                               
      MBLO=IBLO                                                                 
*                                                                               
      DO 10 I1=1,NDDL                                                           
         DO 20 I2=1,IDDL                                                        
            VCC2(I1)=VCC2(I1)+BLO(I2,I1)*VCC1(I2)                               
 20         CONTINUE                                                            
*        END DO                                                                 
 10      CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      END