C DYNERE    SOURCE    CHAT      05/01/12    23:18:54     5004           
      SUBROUTINE DYNERE(ICHT12,IPZ,ICHT13,IDDL)                                 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             D Y N E R E                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
*     RESOUD LE SYSTEME : Z L1 = C1                                             
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     VEC     (E)  VECTEUR CONTENANT LES MULTIPLICATEURS                        
*     IPZ     (E)  POINTEUR SUR LE SEGMENT MZZZ ( ACTIF )                       
*     VEC1    (S)  VECTEUR RESULTAT                                             
*     IDDL    (E)  NOMBRE DE DDL LIES                                           
*                                                                               
* REMARQUE:                                                                     
* ---------                                                                     
*     L'OBJET RIGIDITE Z QUI EST FABRIQUE DANS DYNE02 POURRA ETRE               
*     UTILISE A LA PLACE DE MZZZ LORSQU'ON INTRODUIRA LES RELATIONS             
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*     DENIS ROBERT, LE 1ER DECEMBRE 1988.                                       
*     REVU ET CORRIGE DECEMBRE 89 MP                                            
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      PARAMETER( UN=1.D0 )                                                      
*                                                                               
      SEGMENT,MZZZ                                                              
         REAL*8 ZZZZ(LONZ)                                                      
      ENDSEGMENT                                                                
*                                                                               
      SEGMENT,MCHT1                                                             
         REAL*8 VCC1(IDDL)                                                      
      ENDSEGMENT                                                                
      POINTEUR MCHT12.MCHT1,MCHT13.MCHT1                                        
*                                                                               
*     REAL*8 VEC(*),VEC1(*)                                                     
*                                                                               
      MCHT12=ICHT12                                                             
      MCHT13=ICHT13                                                             
      MZZZ=IPZ                                                                  
*                                                                               
      DO 10 I=1,IDDL                                                            
          IKO=I*(I+1)/2                                                         
          MCHT13.VCC1(I)=(UN/ZZZZ(IKO))*MCHT12.VCC1                             
 10       CONTINUE                                                              
*     END DO                                                                    
*                                                                               
      END