f_spline_1d__eval Function

private pure function f_spline_1d__eval(self, x) result(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

evaluation point

Return Value real(kind=wp)


Calls

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

Called by

proc~~f_spline_1d__eval~~CalledByGraph proc~f_spline_1d__eval sll_t_spline_1d%f_spline_1d__eval proc~s_spline_1d__eval_array sll_t_spline_1d%s_spline_1d__eval_array proc~s_spline_1d__eval_array->proc~f_spline_1d__eval

Source Code

  SLL_PURE function f_spline_1d__eval( self, x ) result( y )

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

    real(wp) :: values(1:self%bspl%degree+1)
    integer  :: jmin, jmax

    call self % bspl % eval_basis( x, values, jmin )

    jmax = jmin + self%bspl%degree

    y = dot_product( self%bcoef(jmin:jmax), values )

  end function f_spline_1d__eval