s_spline_matrix_dense__matvec_prod Function

private function s_spline_matrix_dense__matvec_prod(self, v_in) result(v_out)

Type Bound

sll_t_spline_matrix_dense

Arguments

Type IntentOptional Attributes Name
class(sll_t_spline_matrix_dense), intent(in) :: self
real(kind=wp), intent(in) :: v_in(:)

Return Value real(kind=wp), (size(v_in))


Source Code

  function s_spline_matrix_dense__matvec_prod( self, v_in) result(v_out )
    class(sll_t_spline_matrix_dense), intent(in) :: self
    real(wp)                        , intent(in) :: v_in(:)
    real(wp)                                     :: v_out(size(v_in))
    integer                                      :: j

    SLL_ASSERT( size(v_in,1) == self%n )

    DO j=1,self%n
      v_out(j)=DOT_PRODUCT(self%a(:,j),v_in(:))
    END DO

  end function s_spline_matrix_dense__matvec_prod