s_spline_matrix_dense__add_element Subroutine

private subroutine s_spline_matrix_dense__add_element(self, i, j, a_ij)

Type Bound

sll_t_spline_matrix_dense

Arguments

Type IntentOptional Attributes Name
class(sll_t_spline_matrix_dense), intent(inout) :: self
integer, intent(in) :: i
integer, intent(in) :: j
real(kind=wp), intent(in) :: a_ij

Source Code

  subroutine s_spline_matrix_dense__add_element( self, i, j, a_ij )
    class(sll_t_spline_matrix_dense), intent(inout) :: self
    integer                         , intent(in   ) :: i
    integer                         , intent(in   ) :: j
    real(wp)                        , intent(in   ) :: a_ij

    self%a(i,j) = self%a(i,j)+a_ij

  end subroutine s_spline_matrix_dense__add_element