s_spline_1d__eval_array_deriv Subroutine

private pure subroutine s_spline_1d__eval_array_deriv(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_deriv~~CallsGraph proc~s_spline_1d__eval_array_deriv sll_t_spline_1d%s_spline_1d__eval_array_deriv proc~f_spline_1d__eval_deriv sll_t_spline_1d%f_spline_1d__eval_deriv proc~s_spline_1d__eval_array_deriv->proc~f_spline_1d__eval_deriv eval_deriv eval_deriv proc~f_spline_1d__eval_deriv->eval_deriv

Source Code

  SLL_PURE subroutine s_spline_1d__eval_array_deriv( 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_deriv( self, x(i) )
    end do

  end subroutine s_spline_1d__eval_array_deriv