added limiting on BLAS parallelization

william-denault · Jun 2, 2018 · 8124d2c · 8124d2c
1 parent a428b96
commit 8124d2c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/examples/WS_wrapper.R b/examples/WS_wrapper.R
@@ -20,14 +20,15 @@ options(stringsAsFactors = F)
 
 library(EbayesThresh)
 library(readr)
-#library(adlift)
-#library(liftLRD)
 library(wavelets)
 library(wavethresh)
 library(data.table)
 library(corpcor)
 library(rARPACK)
 library(WaveletScreaming)
+library(RhpcBLASctl)
+
+blas_set_num_threads(1)
 
 args = commandArgs(T)
 batch = as.numeric(args[1])