xntpln.f

Go to the documentation of this file.

      subroutine xntpln(x,x1,x2,y1,y2,y)
c
c     xntpln is an interpolation routine. 
c**********************************************************************
      implicit real*8 (a-h,o-z)
c
      slope=(y1-y2)/(x1-x2)
      y=y1+slope*(x-x1)
c
      return
      end
c**********************************************************************