mod_interp Module Reference

Functions/Subroutines
elemental real(kind(1d0)) function	interp1d (x1, x2, y1, y2, xi)

Function/Subroutine Documentation

interp1d()

elemental real(kind(1d0)) function mod_interp::interp1d	(	real(kind(1d0)), intent(in)	x1,
		real(kind(1d0)), intent(in)	x2,
		real(kind(1d0)), intent(in)	y1,
		real(kind(1d0)), intent(in)	y2,
		real(kind(1d0)), intent(in)	xi )

Definition at line 185 of file suews_phys_estm.f95.

      REAL(KIND(1D0)), INTENT(in) :: x1, x2, xi
      REAL(KIND(1D0)), INTENT(in) :: y1, y2
      REAL(KIND(1D0)) :: b0, b1
      REAL(KIND(1D0)) :: yi
      !integer         ::ny                 !!!!!FO!!!!!
      b1 = (y2 - y1)/(x2 - x1)
      b0 = y1 - b1*x1
      yi = b0 + b1*xi