s_spline_matrix_dense__mat_copy Subroutine

  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