linearInterpolation Function

public function linearInterpolation(x, x1, y1, x2, y2, N) result(y)

Arguments

Type IntentOptional Attributes Name
real(kind=RP), intent(in) :: x
real(kind=RP), intent(in) :: x1
real(kind=RP), intent(in), dimension(N) :: y1
real(kind=RP), intent(in) :: x2
real(kind=RP), intent(in), dimension(N) :: y2
integer, intent(in) :: N

Return Value real(kind=RP), dimension(N)


Source Code

  Function linearInterpolation(x, x1, y1, x2, y2, N) result(y)

      integer, intent(in)                           :: N
      real(kind=RP), intent(in)                     :: x1, x2, x
      real(kind=RP), dimension(N), intent(in)       :: y1, y2
      real(kind=RP), dimension(N)                   :: y

      y = y1 + (y2-y1)/(x2-x1) * (x - x1)

  End Function linearInterpolation