Browse Source

checked, that gemv is OK

tags/v0.2.9^2
wernsaar 12 years ago
parent
commit
781bfb6e66
2 changed files with 10 additions and 10 deletions
  1. +5
    -5
      interface/gemv.c
  2. +5
    -5
      interface/zgemv.c

+ 5
- 5
interface/gemv.c View File

@@ -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);


+ 5
- 5
interface/zgemv.c View File

@@ -50,7 +50,7 @@
#define ERROR_NAME "CGEMV "
#endif

#ifdef SMPTEST
#ifdef SMP
static int (*gemv_thread[])(BLASLONG, BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT * , BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE
xgemv_thread_n, xgemv_thread_t, xgemv_thread_r, xgemv_thread_c, xgemv_thread_o, xgemv_thread_u, xgemv_thread_s, xgemv_thread_d,
@@ -77,7 +77,7 @@ void NAME(char *TRANS, blasint *M, blasint *N,
blasint incy = *INCY;

FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -143,7 +143,7 @@ void CNAME(enum CBLAS_ORDER order,
blasint lenx, leny;
int trans;
blasint info, t;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -232,7 +232,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) {
@@ -240,7 +240,7 @@ void CNAME(enum CBLAS_ORDER order,
(gemv[(int)trans])(m, n, 0, alpha_r, alpha_i, a, lda, x, incx, y, incy, buffer);

#ifdef SMPTEST
#ifdef SMP
} else {


Loading…
Cancel
Save