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