if (ncores > 1)
{
- cl = parallel::makeCluster(ncores)
+ cl = parallel::makeCluster(ncores, outfile='')
parallel::clusterExport( cl, envir=environment(),
varlist=c("A1","Size","Pi","Rho","mini","maxi","X","Y","tau",
"Rank","m","phi","ncores","verbose") )