floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ref #375: added workaround for small sizes to scal.c and zscal.c

This commit is contained in:
wernsaar 2014-06-08 13:49:19 +02:00
parent faf3ac0aad
commit bff575d0b1
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
interface/scal.c
View File

@ -78,6 +78,9 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){
#ifdef SMP #ifdef SMP
nthreads = num_cpu_avail(1); nthreads = num_cpu_avail(1);
if (n <= 1048576 )
nthreads = 1;
if (nthreads == 1) { if (nthreads == 1) {
#endif #endif

3
interface/zscal.c
View File

@ -90,6 +90,9 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){
#ifdef SMP #ifdef SMP
nthreads = num_cpu_avail(1); nthreads = num_cpu_avail(1);
if ( n <= 1048576 )
nthreads = 1;
if (nthreads == 1) { if (nthreads == 1) {
#endif #endif