Browse Source

checked, that zscal and zswap are OK

tags/v0.2.9^2
wernsaar 12 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
#endif #endif


#ifdef SMPTEST
#ifdef SMP
int mode; int mode;
int nthreads; int nthreads;
#endif #endif
@@ -87,7 +87,7 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){


FUNCTION_PROFILE_START(); FUNCTION_PROFILE_START();


#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(1); nthreads = num_cpu_avail(1);


if (nthreads == 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); SCAL_K(n, 0, 0, alpha[0], alpha[1], x, incx, NULL, 0, NULL, 0);


#ifdef SMPTEST
#ifdef SMP
} else { } else {
#ifdef DOUBLE #ifdef DOUBLE
mode = BLAS_DOUBLE | BLAS_COMPLEX; 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 #endif


#ifdef SMPTEST
#ifdef SMP
int mode; int mode;
FLOAT dummyalpha[2] = {ZERO, ZERO}; FLOAT dummyalpha[2] = {ZERO, ZERO};
int nthreads; 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 (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
@@ -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); SWAP_K(n, 0, 0, ZERO, ZERO, x, incx, y, incy, NULL, 0);


#ifdef SMPTEST
#ifdef SMP
} else { } else {


#ifdef XDOUBLE #ifdef XDOUBLE


Loading…
Cancel
Save