source: CIVL/examples/messagePassing/mp_root.cvh@ b7bd088

$input int NPROCS;
$proc __procs[NPROCS];
_Bool __start = 0;
$comm MPI_COMM_WORLD;
$comm REDUCE_COMM;

void MPI_Process (int rank);


void init() {
  for (int i=0; i<NPROCS; i++)
    __procs[i] = $spawn MPI_Process(i);
  MPI_COMM_WORLD = $comm_create(NPROCS, __procs);
  REDUCE_COMM = $comm_create(NPROCS, __procs);
  __start=1;
}

void finalize() {
  for (int i=0; i<NPROCS; i++)
    $wait(__procs[i]);
}

void main() {
  $atomic{
    init();
    finalize();
  }
}