s_spline_matrix_banded__mat_copy Subroutine

private subroutine s_spline_matrix_banded__mat_copy(self, tocopy)

Type Bound

sll_t_spline_matrix_banded

Arguments

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

Calls

proc~~s_spline_matrix_banded__mat_copy~~CallsGraph proc~s_spline_matrix_banded__mat_copy sll_t_spline_matrix_banded%s_spline_matrix_banded__mat_copy sll_assert sll_assert proc~s_spline_matrix_banded__mat_copy->sll_assert

Source Code

  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