s_spline_matrix_banded__free Subroutine

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

    self%n  = -1
    self%kl = -1
    self%ku = -1
    self%factorized = .FALSE.
    if ( allocated( self%ipiv ) ) deallocate( self%ipiv )
    if ( allocated( self%q    ) ) deallocate( self%q    )

  end subroutine s_spline_matrix_banded__free