Browse Source

checked, that spr is OK

tags/v0.2.9^2
wernsaar 12 years ago
parent
commit
c7eb901496
2 changed files with 9 additions and 9 deletions
  1. +5
    -5
      interface/spr.c
  2. +4
    -4
      interface/zspr.c

+ 5
- 5
interface/spr.c View File

@@ -61,7 +61,7 @@ static int (*spr[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *) = {
#endif
};

#ifdef SMPTEST
#ifdef SMP
static int (*spr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE
qspr_thread_U, qspr_thread_L,
@@ -86,7 +86,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info;
int uplo;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -121,7 +121,7 @@ void CNAME(enum CBLAS_ORDER order,
FLOAT *buffer;
int uplo;
blasint info;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -171,7 +171,7 @@ void CNAME(enum CBLAS_ORDER order,

buffer = (FLOAT *)blas_memory_alloc(1);

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

if (nthreads == 1) {
@@ -179,7 +179,7 @@ void CNAME(enum CBLAS_ORDER order,

(spr[uplo])(n, alpha, x, incx, a, buffer);

#ifdef SMPTEST
#ifdef SMP
} else {

(spr_thread[uplo])(n, alpha, x, incx, a, buffer, nthreads);


+ 4
- 4
interface/zspr.c View File

@@ -61,7 +61,7 @@ static int (*spr[])(BLASLONG, FLOAT, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *)
#endif
};

#ifdef SMPTEST
#ifdef SMP
static int (*spr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE
xspr_thread_U, xspr_thread_L,
@@ -85,7 +85,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info;
int uplo;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -120,7 +120,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,

buffer = (FLOAT *)blas_memory_alloc(1);

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

if (nthreads == 1) {
@@ -128,7 +128,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
(spr[uplo])(n, alpha_r, alpha_i, x, incx, a, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {

(spr_thread[uplo])(n, ALPHA, x, incx, a, buffer, nthreads);


Loading…
Cancel
Save