inst/tests/allreduce.r

suppressPackageStartupMessages(library(pbdMPI, quietly=TRUE))

cs <- comm.size()

testval <- allreduce(comm.rank())
trueval <- cs*(cs-1)/2

test <- comm.all(testval == trueval)
comm.print(test)

finalize()
RBigData/pbdMPI documentation built on Jan. 31, 2024, 10:34 p.m.