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

checked that axpy is OK

This commit is contained in:
wernsaar 2014-05-10 22:09:49 +02:00
parent d63bd7fa5e
commit 79a82ba7f1
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/axpy.c
View File

@ -57,7 +57,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc
#endif #endif
#ifdef SMPTEST #ifdef SMP
int mode, nthreads; int mode, nthreads;
#endif #endif
@ -78,7 +78,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc
if (incx < 0) x -= (n - 1) * incx; if (incx < 0) x -= (n - 1) * incx;
if (incy < 0) y -= (n - 1) * incy; if (incy < 0) y -= (n - 1) * incy;
#ifdef SMPTEST #ifdef SMP
nthreads = num_cpu_avail(1); nthreads = num_cpu_avail(1);
//disable multi-thread when incx==0 or incy==0 //disable multi-thread when incx==0 or incy==0
@ -95,7 +95,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc
AXPYU_K(n, 0, 0, alpha, x, incx, y, incy, NULL, 0); AXPYU_K(n, 0, 0, alpha, x, incx, y, incy, NULL, 0);
#ifdef SMPTEST #ifdef SMP
} else { } else {
#ifdef XDOUBLE #ifdef XDOUBLE

6
interface/zaxpy.c
View File

@ -59,7 +59,7 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in
FLOAT alpha_r = *(ALPHA + 0); FLOAT alpha_r = *(ALPHA + 0);
FLOAT alpha_i = *(ALPHA + 1); FLOAT alpha_i = *(ALPHA + 1);
#ifdef SMPTEST #ifdef SMP
int mode, nthreads; int mode, nthreads;
#endif #endif
@ -80,7 +80,7 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in
if (incx < 0) x -= (n - 1) * incx * 2; if (incx < 0) x -= (n - 1) * incx * 2;
if (incy < 0) y -= (n - 1) * incy * 2; if (incy < 0) y -= (n - 1) * incy * 2;
#ifdef SMPTEST #ifdef SMP
nthreads = num_cpu_avail(1); nthreads = num_cpu_avail(1);
//disable multi-thread when incx==0 or incy==0 //disable multi-thread when incx==0 or incy==0
@ -97,7 +97,7 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in
AXPYC_K(n, 0, 0, alpha_r, alpha_i, x, incx, y, incy, NULL, 0); AXPYC_K(n, 0, 0, alpha_r, alpha_i, x, incx, y, incy, NULL, 0);
#endif #endif
#ifdef SMPTEST #ifdef SMP
} else { } else {
#ifdef XDOUBLE #ifdef XDOUBLE