s_spline_matrix_dense__mat_copy Subroutine

private subroutine s_spline_matrix_dense__mat_copy(self, tocopy)

Type Bound

sll_t_spline_matrix_dense

Arguments

Type IntentOptional Attributes Name
class(sll_t_spline_matrix_dense), intent(inout) :: self
class(sll_c_spline_matrix), intent(in) :: tocopy

Calls

proc~~s_spline_matrix_dense__mat_copy~~CallsGraph proc~s_spline_matrix_dense__mat_copy sll_t_spline_matrix_dense%s_spline_matrix_dense__mat_copy sll_assert sll_assert proc~s_spline_matrix_dense__mat_copy->sll_assert

Source Code

  subroutine s_spline_matrix_dense__mat_copy( self,tocopy)
    class(sll_t_spline_matrix_dense), intent(inout) :: self
    class(sll_c_spline_matrix      ), intent(in   ) :: tocopy

    select type(tocopy); type is(sll_t_spline_matrix_dense)
    SLL_ASSERT( tocopy%n  == self%n  )

    self%n          = tocopy%n
    self%a(:,:)     = tocopy%a(:,:)
    self%ipiv(:)    = tocopy%ipiv(:)
    self%factorized = tocopy%factorized
    end select
  end subroutine s_spline_matrix_dense__mat_copy