Esope source files

   1 : C INTER1    SOURCE    CHAT      05/01/13    00:40:14     5004           
   2 :       SUBROUTINE INTER1(KTE,KTF,T0,FT0)                                         
   3 : C                                                                               
   4 : C     =========================================================                 
   5 : C     =  INTERPOLATION LINEAIRE                               =                 
   6 : C     =  KTE : POINTEUR SUR OBJET DE TYPE LISTREEL DE T       =                 
   7 : C     =  KTF : POINTEUR SUR OBJET DE TYPE LISTREEL DE F(T) 
   8 : C dans le cas ou T0 est externe à l'intervale on le prend
   9 : C égal à la valeur la plus proche 
  10 : C   KTE est supposé rangé en ordre monotone  croissant             
  11 : C     =========================================================                 
  12 : C                                                                               
  13 :       IMPLICIT INTEGER(I-N)
  14 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  15 : -INC SMLREEL                                                                                                                                                                                   
  16 :       MLREEL=KTE                                                                
  17 :       SEGACT MLREEL                                                             
  18 :       LON=PROG(/1)
  19 :       MLREE1=KTF
  20 :       SEGACT MLREE1 
  21 : C on appele INTER2 qui fait deja la meme chose
  21 :       CALL INTER2( T0,KTE,KTF,LON,FT0,IRET)      
  22 :       SEGDES MLREE1,MLREEL
  23 :       RETURN
  24 :       END                                                      
  25 :  
  26 :