s_spline_matrix_banded__reset Subroutine

private subroutine s_spline_matrix_banded__reset(self)

Type Bound

sll_t_spline_matrix_banded

Arguments

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

Source Code

  subroutine s_spline_matrix_banded__reset( self)
    class(sll_t_spline_matrix_banded), intent(inout) :: self

    self%q(:,:) = 0.0_wp
    self%ipiv(:) = 0
    self%factorized=.FALSE.

  end subroutine s_spline_matrix_banded__reset