generate_dense_sparsity_partition Subroutine

private subroutine generate_dense_sparsity_partition(me)

Generate a "dense" sparsity partition.

Type Bound

numdiff_type

Arguments

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

Called by

proc~~generate_dense_sparsity_partition~~CalledByGraph proc~generate_dense_sparsity_partition numerical_differentiation_module::numdiff_type%generate_dense_sparsity_partition proc~compute_sparsity_dense numerical_differentiation_module::compute_sparsity_dense proc~compute_sparsity_dense->proc~generate_dense_sparsity_partition proc~compute_sparsity_random_2 numerical_differentiation_module::compute_sparsity_random_2 proc~compute_sparsity_random_2->proc~generate_dense_sparsity_partition

Source Code

    subroutine generate_dense_sparsity_partition(me)

    implicit none

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

    integer :: i !! counter

    if (me%exception_raised) return ! check for exceptions

    me%sparsity%maxgrp = me%n
    allocate(me%sparsity%ngrp(me%n))
    me%sparsity%ngrp = [(i, i=1,me%n)]

    end subroutine generate_dense_sparsity_partition