floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

checked, that zhpr is OK

This commit is contained in:
wernsaar 2014-05-11 11:21:23 +02:00
parent 7bb19cf90e
commit 4c1caa7454
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
interface/zhpr.c
View File

@ -61,7 +61,7 @@ static int (*hpr[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *) = {
#endif
};
#ifdef SMPTEST
#ifdef SMP
static int (*hpr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE
xhpr_thread_U, xhpr_thread_L, xhpr_thread_V, xhpr_thread_M,
@ -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,
(hpr[uplo])(n, alpha, x, incx, a, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {