checked, that spr is OK
This commit is contained in:
parent
2ed03ea0a2
commit
c7eb901496
|
@ -61,7 +61,7 @@ static int (*spr[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *) = {
|
||||||
#endif
|
#endif
|
||||||
};
|
};
|
||||||
|
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
static int (*spr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
|
static int (*spr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
|
||||||
#ifdef XDOUBLE
|
#ifdef XDOUBLE
|
||||||
qspr_thread_U, qspr_thread_L,
|
qspr_thread_U, qspr_thread_L,
|
||||||
|
@ -86,7 +86,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
|
||||||
blasint info;
|
blasint info;
|
||||||
int uplo;
|
int uplo;
|
||||||
FLOAT *buffer;
|
FLOAT *buffer;
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
int nthreads;
|
int nthreads;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -121,7 +121,7 @@ void CNAME(enum CBLAS_ORDER order,
|
||||||
FLOAT *buffer;
|
FLOAT *buffer;
|
||||||
int uplo;
|
int uplo;
|
||||||
blasint info;
|
blasint info;
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
int nthreads;
|
int nthreads;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -171,7 +171,7 @@ void CNAME(enum CBLAS_ORDER order,
|
||||||
|
|
||||||
buffer = (FLOAT *)blas_memory_alloc(1);
|
buffer = (FLOAT *)blas_memory_alloc(1);
|
||||||
|
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
nthreads = num_cpu_avail(2);
|
nthreads = num_cpu_avail(2);
|
||||||
|
|
||||||
if (nthreads == 1) {
|
if (nthreads == 1) {
|
||||||
|
@ -179,7 +179,7 @@ void CNAME(enum CBLAS_ORDER order,
|
||||||
|
|
||||||
(spr[uplo])(n, alpha, x, incx, a, buffer);
|
(spr[uplo])(n, alpha, x, incx, a, buffer);
|
||||||
|
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
} else {
|
} else {
|
||||||
|
|
||||||
(spr_thread[uplo])(n, alpha, x, incx, a, buffer, nthreads);
|
(spr_thread[uplo])(n, alpha, x, incx, a, buffer, nthreads);
|
||||||
|
|
|
@ -61,7 +61,7 @@ static int (*spr[])(BLASLONG, FLOAT, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *)
|
||||||
#endif
|
#endif
|
||||||
};
|
};
|
||||||
|
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
static int (*spr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
|
static int (*spr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
|
||||||
#ifdef XDOUBLE
|
#ifdef XDOUBLE
|
||||||
xspr_thread_U, xspr_thread_L,
|
xspr_thread_U, xspr_thread_L,
|
||||||
|
@ -85,7 +85,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
|
||||||
blasint info;
|
blasint info;
|
||||||
int uplo;
|
int uplo;
|
||||||
FLOAT *buffer;
|
FLOAT *buffer;
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
int nthreads;
|
int nthreads;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -120,7 +120,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
|
||||||
|
|
||||||
buffer = (FLOAT *)blas_memory_alloc(1);
|
buffer = (FLOAT *)blas_memory_alloc(1);
|
||||||
|
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
nthreads = num_cpu_avail(2);
|
nthreads = num_cpu_avail(2);
|
||||||
|
|
||||||
if (nthreads == 1) {
|
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);
|
(spr[uplo])(n, alpha_r, alpha_i, x, incx, a, buffer);
|
||||||
|
|
||||||
#ifdef SMPTEST
|
#ifdef SMP
|
||||||
} else {
|
} else {
|
||||||
|
|
||||||
(spr_thread[uplo])(n, ALPHA, x, incx, a, buffer, nthreads);
|
(spr_thread[uplo])(n, ALPHA, x, incx, a, buffer, nthreads);
|
||||||
|
|
Loading…
Reference in New Issue