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()

Try the pbdMPI package in your browser

Any scripts or data that you put into this service are public.

pbdMPI documentation built on Sept. 10, 2023, 5:06 p.m.