Sources Esope | Cast3M

intrpo
C INTRPO    SOURCE    PV090527  23/01/27    21:15:43     11574          
      subroutine intrpo(x0,x1,y0,y1,xint,yint)
 
      implicit real*8 (a-h,o-z)
      implicit integer (i-n)     
 
      real*8 x0,x1,y0,y1,xint,yint,a0,b0   
 
c calcul du coefficient directeur de la droite
 
         a0=(y1-y0)/(x1-x0)
c calcul de l'ordonnée à l'origine
         b0=y1-a0*x1 
 
c calcul de la valeur intrpoée         
         yint=a0*xint+b0 
 
         return
         end