C DYNEIN    SOURCE    CHAT      05/01/12    23:18:20     5004           
      SUBROUTINE DYNEIN(ITX,IFX,TINI,DT,NPAS,ICHT3)                             
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             D Y N E I N                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
*     CREATION DE LA LISTE DE COEFFICIENTS ( VOIR S-P DYNECH )                  
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     ITX     (E)  POINTEUR SUR UN LISTREEL                                     
*     IFX     (E)  POINTEUR SUR UN LISTREEL                                     
*     TINI    (E)  TEMPS INITIAL                                                
*     DT      (E)  PAS DE TEMPS                                                 
*     NPAS    (E)  NOMBRE DE PAS DE CALCUL                                      
*     COEF    (S)  LISTE DE COEFFICIENTS A APPLIQUER A UN VECTEUR POUR          
*                  OBTENIR LA CONTRIBUTION DU CHARGEMENT AU PAS DESIRE          
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*     DENIS ROBERT, LE 12 DECEMBRE 1988.                                        
*     REVU ET CORRIGE DECEMBRE 89 MP                                            
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
* MODULES UTILISES:                                                             
*                                                                               
-INC CCOPTIO                                                                    
*                                                                               
*                                                                               
      SEGMENT,MCHT3                                                             
         REAL*8 COE1(LCOE)                                                      
      ENDSEGMENT                                                                
      POINTEUR MCHT32.MCHT3                                                     
*                                                                               
*     REAL*8 COEF(*)                                                            
*                                                                               
      MCHT3=ICHT3                                                               
      NFIN=NPAS+1                                                               
      DO 10 I=1,NFIN                                                            
         T=TINI+(DT*I)                                                          
         CALL INTER3(ITX,IFX,T,FT)                                              
         IF (IERR.NE.0) RETURN                                                  
         COE1(I)=FT                                                             
 10      CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      END