|
|
|
@@ -50,7 +50,7 @@ |
|
|
|
#define ERROR_NAME "SGEMV " |
|
|
|
#endif |
|
|
|
|
|
|
|
#ifdef SMPTEST |
|
|
|
#ifdef SMP |
|
|
|
static int (*gemv_thread[])(BLASLONG, BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT * , BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { |
|
|
|
#ifdef XDOUBLE |
|
|
|
qgemv_thread_n, qgemv_thread_t, |
|
|
|
@@ -78,7 +78,7 @@ void NAME(char *TRANS, blasint *M, blasint *N, |
|
|
|
FLOAT alpha = *ALPHA; |
|
|
|
FLOAT beta = *BETA; |
|
|
|
FLOAT *buffer; |
|
|
|
#ifdef SMPTEST |
|
|
|
#ifdef SMP |
|
|
|
int nthreads; |
|
|
|
#endif |
|
|
|
|
|
|
|
@@ -132,7 +132,7 @@ void CNAME(enum CBLAS_ORDER order, |
|
|
|
blasint lenx, leny; |
|
|
|
int trans; |
|
|
|
blasint info, t; |
|
|
|
#ifdef SMPTEST |
|
|
|
#ifdef SMP |
|
|
|
int nthreads; |
|
|
|
#endif |
|
|
|
|
|
|
|
@@ -210,7 +210,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) { |
|
|
|
@@ -218,7 +218,7 @@ void CNAME(enum CBLAS_ORDER order, |
|
|
|
|
|
|
|
(gemv[(int)trans])(m, n, 0, alpha, a, lda, x, incx, y, incy, buffer); |
|
|
|
|
|
|
|
#ifdef SMPTEST |
|
|
|
#ifdef SMP |
|
|
|
} else { |
|
|
|
|
|
|
|
(gemv_thread[(int)trans])(m, n, alpha, a, lda, x, incx, y, incy, buffer, nthreads); |
|
|
|
|