compute_indices Subroutine

private subroutine compute_indices(me)

Computes the indices vector in the class.

Type Bound

sparsity_pattern

Arguments

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

Called by

proc~~compute_indices~~CalledByGraph proc~compute_indices numerical_differentiation_module::sparsity_pattern%compute_indices proc~compute_sparsity_dense numerical_differentiation_module::compute_sparsity_dense proc~compute_sparsity_dense->proc~compute_indices proc~compute_sparsity_random numerical_differentiation_module::compute_sparsity_random proc~compute_sparsity_random->proc~compute_indices proc~compute_sparsity_random_2 numerical_differentiation_module::compute_sparsity_random_2 proc~compute_sparsity_random_2->proc~compute_indices proc~set_sparsity_pattern numerical_differentiation_module::numdiff_type%set_sparsity_pattern proc~set_sparsity_pattern->proc~compute_indices

Source Code

    subroutine compute_indices(me)

    implicit none

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

    integer :: i !! counter

    allocate(me%indices(me%num_nonzero_elements))
    !me%indices = [(i,i=1,me%num_nonzero_elements)]
    do i = 1, me%num_nonzero_elements
        me%indices(i) = i
    end do

    end subroutine compute_indices