cocount Module

Provides a cross-image counter based on Coarrays


Functions

public function next(next_count) result(valid)

Provide the next value for all counters

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: next_count(N)

Counters values

Return Value logical

True as long as there is no counter overflow


Subroutines

public subroutine initialize(ranges)

Set the ranges for the counter

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ranges(:)

Set of ranges: size is the number of counters, counter i will run from 0 to ranges(i)