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

checked, that zscal and zswap are OK

This commit is contained in:
wernsaar 2014-05-11 09:30:18 +02:00
parent 0758c1a374
commit 9bae50f700
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
interface/zscal.c
View File

@ -68,7 +68,7 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){
#endif
#endif
#ifdef SMPTEST
#ifdef SMP
int mode;
int nthreads;
#endif
@ -87,7 +87,7 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){
FUNCTION_PROFILE_START();
#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(1);
if (nthreads == 1) {
@ -95,7 +95,7 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){
SCAL_K(n, 0, 0, alpha[0], alpha[1], x, incx, NULL, 0, NULL, 0);
#ifdef SMPTEST
#ifdef SMP
} else {
#ifdef DOUBLE
mode = BLAS_DOUBLE | BLAS_COMPLEX;

6
interface/zswap.c
View File

@ -56,7 +56,7 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){
#endif
#ifdef SMPTEST
#ifdef SMP
int mode;
FLOAT dummyalpha[2] = {ZERO, ZERO};
int nthreads;
@ -77,7 +77,7 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){
if (incx < 0) x -= (n - 1) * incx * 2;
if (incy < 0) y -= (n - 1) * incy * 2;
#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(1);
//disable multi-thread when incx==0 or incy==0
@ -90,7 +90,7 @@ void CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasint incy){
SWAP_K(n, 0, 0, ZERO, ZERO, x, incx, y, incy, NULL, 0);
#ifdef SMPTEST
#ifdef SMP
} else {
#ifdef XDOUBLE