Browse Source

checked, that zscal and zswap are OK

tags/v0.2.9^2
wernsaar 11 years ago
parent
commit
9bae50f700
2 changed files with 6 additions and 6 deletions
  1. +3
    -3
      interface/zscal.c
  2. +3
    -3
      interface/zswap.c

+ 3
- 3
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;


+ 3
- 3
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


Loading…
Cancel
Save