Computes the indices
vector in the class.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(sparsity_pattern), | intent(inout) | :: | me |
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