Displaying 1 result from an estimated 1 matches for "wrout".
Did you mean:
rout
2007 Jul 05
0
Question on Rmpi looping
...s.")
mpi.close.Rslaves()
}
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())...