destroy_sparsity_pattern Subroutine

private subroutine destroy_sparsity_pattern(me)

Destroy the sparsity pattern in the class.

Type Bound

numdiff_type

Arguments

Type IntentOptional Attributes Name
class(numdiff_type), intent(inout) :: me

Calls

proc~~destroy_sparsity_pattern~~CallsGraph proc~destroy_sparsity_pattern numdiff_type%destroy_sparsity_pattern proc~destroy_sparsity sparsity_pattern%destroy_sparsity proc~destroy_sparsity_pattern->proc~destroy_sparsity

Called by

proc~~destroy_sparsity_pattern~~CalledByGraph proc~destroy_sparsity_pattern numdiff_type%destroy_sparsity_pattern proc~compute_sparsity_dense compute_sparsity_dense proc~compute_sparsity_dense->proc~destroy_sparsity_pattern proc~compute_sparsity_random compute_sparsity_random proc~compute_sparsity_random->proc~destroy_sparsity_pattern proc~compute_sparsity_random_2 compute_sparsity_random_2 proc~compute_sparsity_random_2->proc~destroy_sparsity_pattern proc~set_sparsity_pattern numdiff_type%set_sparsity_pattern proc~set_sparsity_pattern->proc~destroy_sparsity_pattern

Source Code

    subroutine destroy_sparsity_pattern(me)

    implicit none

    class(numdiff_type),intent(inout) :: me

    call me%sparsity%destroy()

    end subroutine destroy_sparsity_pattern