Browse Source

checked that axpy is OK

tags/v0.2.9^2
wernsaar 12 years ago
parent
commit
79a82ba7f1
2 changed files with 6 additions and 6 deletions
  1. +3
    -3
      interface/axpy.c
  2. +3
    -3
      interface/zaxpy.c

+ 3
- 3
interface/axpy.c View File

@@ -57,7 +57,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc

#endif

#ifdef SMPTEST
#ifdef SMP
int mode, nthreads;
#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 (incy < 0) y -= (n - 1) * incy;

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

//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);

#ifdef SMPTEST
#ifdef SMP
} else {

#ifdef XDOUBLE


+ 3
- 3
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_i = *(ALPHA + 1);

#ifdef SMPTEST
#ifdef SMP
int mode, nthreads;
#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 (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
@@ -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);
#endif
#ifdef SMPTEST
#ifdef SMP
} else {
#ifdef XDOUBLE


Loading…
Cancel
Save