s_spline_1d__eval_array Subroutine

private pure subroutine s_spline_1d__eval_array(self, x, y)

Type Bound

sll_t_spline_1d

Arguments

Type IntentOptional Attributes Name
class(sll_t_spline_1d), intent(in) :: self

1D spline
real(kind=wp), intent(in) :: x(:)
real(kind=wp), intent(out) :: y(:)

Calls

proc~~s_spline_1d__eval_array~~CallsGraph proc~s_spline_1d__eval_array sll_t_spline_1d%s_spline_1d__eval_array proc~f_spline_1d__eval sll_t_spline_1d%f_spline_1d__eval proc~s_spline_1d__eval_array->proc~f_spline_1d__eval sll_assert sll_assert proc~s_spline_1d__eval_array->sll_assert eval_basis eval_basis proc~f_spline_1d__eval->eval_basis

Source Code

  SLL_PURE subroutine s_spline_1d__eval_array( self, x, y )

    class(sll_t_spline_1d), intent(in   ) :: self
    real(wp)              , intent(in   ) :: x(:)
    real(wp)              , intent(  out) :: y(:)

    integer :: i

    SLL_ASSERT( size(x) == size(y) )

    do i = 1, size(x)
      y(i) = f_spline_1d__eval( self, x(i) )
    end do

  end subroutine s_spline_1d__eval_array