co-decomp

Coarray decomposition/forward partition tool

Compile

Fortran Package Manager (fpm)

With GCC16,

GFORTRAN_NUM_IMAGES=8 && fpm build --profile release
fpm test --profile release

Compile and test with OpenCoarrays (built with OpenMPI),

fpm build --compiler caf
fpm test --compiler caf --runner "cafrun -n 8 --use-hwthread-cpus"

CMake

mkdir build && cd build
cmake .. -G "Ninja"

Example

program main
  use, non_intrinsic :: co_decomp
  implicit none

  type(decomposition_type) :: decomp
  integer, dimension(2) :: num_tasks, num_procs

  num_tasks = [48, 32]
  num_procs = [2, num_images()/2]
  decomp = decompose(num_tasks, num_procs)
  if (this_image() == 1) print *, decomp
end program main