Displaying 1 result from an estimated 1 matches for "my_rank".
Did you mean:
mulrank
2007 Jul 05
0
Question on Rmpi looping
...}
print("Please use mpi.quit() to quit R")
.Call("mpi_finalize")
}
}
# Define the base directory
basedir <- "/home/user/directory/"
fcnfishtest <- function()
{
wrout = paste(basedir, paste("processor",my_rank, sep=""), sep="")
write(my_rank, wrout, append=TRUE)
}
################## END OF SLAVES ##################
# We're in the parent.
#Have each slave get its rank
mpi.bcast.cmd(my_rank <- mpi.comm.rank())
mpi.bcast.Robj2slave(basedir)
# Send the functio...