diff --git a/interface/scal.c b/interface/scal.c index 7b72ca01c..c3e03c742 100644 --- a/interface/scal.c +++ b/interface/scal.c @@ -78,6 +78,9 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){ #ifdef SMP nthreads = num_cpu_avail(1); + if (n <= 1048576 ) + nthreads = 1; + if (nthreads == 1) { #endif diff --git a/interface/zscal.c b/interface/zscal.c index ad99874dc..1e6fdecdb 100644 --- a/interface/zscal.c +++ b/interface/zscal.c @@ -90,6 +90,9 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){ #ifdef SMP nthreads = num_cpu_avail(1); + if ( n <= 1048576 ) + nthreads = 1; + if (nthreads == 1) { #endif