+ if (parll)
+ {
+ # outfile=="" to see stderr/stdout on terminal
+ cl <- parallel::makeCluster(ncores_clust, outfile="")
+ Xwer_dist_desc <- bigmemory::describe(Xwer_dist)
+ parallel::clusterExport(cl, varlist=c("parll","nb_cwt_per_chunk","n","L",
+ "Xwer_dist_desc","noctave","nvoice","getCWT"), envir=environment())
+ }
+
+ if (verbose)
+ cat(paste("--- Precompute and serialize synchrones CWT\n", sep=""))
+
+ # Split indices by packets of length at most nb_cwt_per_chunk
+ indices_cwt <- .splitIndices(seq_len(n), nb_cwt_per_chunk)
+ ignored <-
+ if (parll)
+ parallel::parLapply(cl, indices_cwt, computeSaveCWT)
+ else
+ lapply(indices_cwt, computeSaveCWT)
+