code/stage1/wrapper.R

   1 ppam_exe = function(pathToExe, nbProcess, ...)
   2 {
   3     command_line = paste("mpirun -np ",nbProcess," ",pathToExe,"/ppam.exe",sep="")
   4     args = list(...)
   5     for (i in 1:length(args))
   6         command_line = paste(command_line, args[[i]])
   7     print(paste("EXECUTE: '", command_line,"'",sep=""))
   8     system(command_line)
   9 }