s_spline_matrix_banded__mat_copy Subroutine

  subroutine s_spline_matrix_banded__mat_copy( self,tocopy)
    class(sll_t_spline_matrix_banded), intent(inout) :: self
    class(sll_c_spline_matrix       ), intent(in   ) :: tocopy

    select type(tocopy); type is(sll_t_spline_matrix_banded)
    SLL_ASSERT( tocopy%n  == self%n  )
    SLL_ASSERT( tocopy%kl == self%kl )
    SLL_ASSERT( tocopy%ku == self%ku )

    self%n         = tocopy%n
    self%kl        = tocopy%kl
    self%ku        = tocopy%ku
    self%q(:,:)    = tocopy%q(:,:)
    self%ipiv(:)   = tocopy%ipiv(:)
    self%factorized= tocopy%factorized
    end select

  end subroutine s_spline_matrix_banded__mat_copy