-# cl = parallel::makeCluster(ncores_tasks)
-# parallel::clusterExport(cl, varlist=c("getSeries","getContribs","K1","K2",
-# "nb_series_per_chunk","ncores_clust","synchrones_file","sep","nbytes","endian"),
-# envir = environment())
- # 1000*K1 indices [if WER=="end"], or empty vector [if WER=="mix"] --> series on file
-# indices = unlist( parallel::parLapply(cl, indices_tasks, function(inds) {
- indices = unlist( lapply(indices_tasks, function(inds) {
-# require("epclust", quietly=TRUE)
-
- browser() #TODO: CONTINUE DEBUG HERE
+ if (parll)
+ {
+ cl = parallel::makeCluster(ncores_tasks)
+ parallel::clusterExport(cl, varlist=c("getSeries","getContribs","K1","K2","verbose","parll",
+ "nb_series_per_chunk","ncores_clust","synchrones_file","sep","nbytes","endian"),
+ envir = environment())
+ }