Generate a "dense" sparsity partition.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(numdiff_type), | intent(inout) | :: | me |
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