s_spline_matrix_dense__free Subroutine

private subroutine s_spline_matrix_dense__free(self)

Type Bound

sll_t_spline_matrix_dense

Arguments

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

Source Code

  subroutine s_spline_matrix_dense__free( self )
    class(sll_t_spline_matrix_dense), intent(inout) :: self

    self%n = -1
    self%factorized = .FALSE.
    if ( allocated( self%ipiv ) ) deallocate( self%ipiv )
    if ( allocated( self%a    ) ) deallocate( self%a    )

  end subroutine s_spline_matrix_dense__free