Esope source files

   1 : C DYNEIN    SOURCE    CHAT      05/01/12    23:18:20     5004           
   2 :       SUBROUTINE DYNEIN(ITX,IFX,TINI,DT,NPAS,ICHT3)                             
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : ************************************************************************        
   6 : *                                                                               
   7 : *                             D Y N E I N                                       
   8 : *                             -----------                                       
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *     UTILITAIRE DE L'OPERATEUR "DYNE"                                          
  13 : *     CREATION DE LA LISTE DE COEFFICIENTS ( VOIR S-P DYNECH )                  
  14 : *                                                                               
  15 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  16 : * -----------                                                                   
  17 : *                                                                               
  18 : *     ITX     (E)  POINTEUR SUR UN LISTREEL                                     
  19 : *     IFX     (E)  POINTEUR SUR UN LISTREEL                                     
  20 : *     TINI    (E)  TEMPS INITIAL                                                
  21 : *     DT      (E)  PAS DE TEMPS                                                 
  22 : *     NPAS    (E)  NOMBRE DE PAS DE CALCUL                                      
  23 : *     COEF    (S)  LISTE DE COEFFICIENTS A APPLIQUER A UN VECTEUR POUR          
  24 : *                  OBTENIR LA CONTRIBUTION DU CHARGEMENT AU PAS DESIRE          
  25 : *                                                                               
  26 : * AUTEUR, DATE DE CREATION:                                                     
  27 : * -------------------------                                                     
  28 : *     DENIS ROBERT, LE 12 DECEMBRE 1988.                                        
  29 : *     REVU ET CORRIGE DECEMBRE 89 MP                                            
  30 : *                                                                               
  31 : * LANGAGE:                                                                      
  32 : * --------                                                                      
  33 : *     ESOPE + FORTRAN77                                                         
  34 : *                                                                               
  35 : ************************************************************************        
  36 : *                                                                               
  37 : * MODULES UTILISES:                                                             
  38 : *                                                                               
  39 : -INC CCOPTIO                                                                    
  40 : *                                                                               
  41 : *                                                                               
  42 :       SEGMENT,MCHT3                                                             
  43 :          REAL*8 COE1(LCOE)                                                      
  44 :       ENDSEGMENT                                                                
  45 :       POINTEUR MCHT32.MCHT3                                                     
  46 : *                                                                               
  47 : *     REAL*8 COEF(*)                                                            
  48 : *                                                                               
  49 :       MCHT3=ICHT3                                                               
  50 :       NFIN=NPAS+1                                                               
  51 :       DO 10 I=1,NFIN                                                            
  52 :          T=TINI+(DT*I)                                                          
  52 :          CALL INTER3(ITX,IFX,T,FT)                                              
  53 :          IF (IERR.NE.0) RETURN                                                  
  54 :          COE1(I)=FT                                                             
  55 :  10      CONTINUE                                                               
  56 : *     END DO                                                                    
  57 : *                                                                               
  58 :       END                                                                       
  59 :