# NOT RUN {
spmd.code <- "
suppressMessages(library(pbdMPI))
suppressMessages(library(pbdBASE))
init.grid()
base.nbd(100, 10) # 10 divides 100, so 10 is returned
base.nbd(100, 11) # 11 does not, so the 'next best' divisor, 20, is returned
finalize()
"
pbdMPI::execmpi(spmd.code = spmd.code, nranks = 1L)
# }
Run the code above in your browser using DataLab