\(^o^)/
   \(^o^\) (/^o^)/
\(^o^\)       (/^o^)/
[ICO]NameLast modifiedSizeDescription

[DIR]Parent Directory  -  
[IMG]MPI_8.png23-Oct-2008 15:34 23K 
[DIR]MPI_8/23-Oct-2008 14:22 -  
[IMG]MPI_16.png23-Oct-2008 15:33 30K 
[DIR]MPI_16/23-Oct-2008 14:08 -  
[IMG]SOCK_8.png23-Oct-2008 15:34 20K 
[DIR]SOCK_8/23-Oct-2008 14:21 -  
[IMG]SOCK_16.png23-Oct-2008 15:34 26K 
[DIR]SOCK_16/23-Oct-2008 14:09 -  

R on Torque and Debian Cluster

meaningless experiment...
system("env|sort")
getClusterOption("spec") # add variable Web I/F

mycomp<-function(cl,N=1024)
{
  A<-array(rnorm(N*N),dim=c(N,N))
  B<-array(rnorm(N*N),dim=c(N,N))
  C<-parMM(cl,A,B)
}

plot(snow.time({
cl <- makeCluster(getClusterOption("spec"))
mycomp(cl,1024)
gc()
mycomp(cl,1024)
gc()
mycomp(cl,1024)
gc()
stopCluster(cl)
}))
 MPISOCK
worker=8
worker=16