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

checked, that zhpmv is OK

This commit is contained in:
wernsaar 2014-05-11 10:46:48 +02:00
parent 5e4b4f6712
commit 2a94aaaf2e
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/zhpmv.c
View File

@ -61,7 +61,7 @@ static int (*hpmv[])(BLASLONG, FLOAT, FLOAT, FLOAT *, FLOAT *, BLASLONG, FLOAT
#endif #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*hpmv_thread[])(BLASLONG, FLOAT *, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*hpmv_thread[])(BLASLONG, FLOAT *, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
xhpmv_thread_U, xhpmv_thread_L, xhpmv_thread_V, xhpmv_thread_M, xhpmv_thread_U, xhpmv_thread_L, xhpmv_thread_V, xhpmv_thread_M,
@ -90,7 +90,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a,
blasint info; blasint info;
int uplo; int uplo;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST #ifdef SMP
int nthreads; int nthreads;
#endif #endif
@ -132,7 +132,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
@ -187,7 +187,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) {
@ -195,7 +195,7 @@ void CNAME(enum CBLAS_ORDER order,
(hpmv[uplo])(n, alpha_r, alpha_i, a, x, incx, y, incy, buffer); (hpmv[uplo])(n, alpha_r, alpha_i, a, x, incx, y, incy, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(hpmv_thread[uplo])(n, ALPHA, a, x, incx, y, incy, buffer, nthreads); (hpmv_thread[uplo])(n, ALPHA, a, x, incx, y, incy, buffer, nthreads);