Browse Source

checked, that zhemv is OK

tags/v0.2.9^2
wernsaar 11 years ago
parent
commit
f45f2c8465
1 changed files with 6 additions and 6 deletions
  1. +6
    -6
      interface/zhemv.c

+ 6
- 6
interface/zhemv.c View File

@@ -65,7 +65,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
FLOAT beta_r = BETA[0];
FLOAT beta_i = BETA[1];
blasint incy = *INCY;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -73,7 +73,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
HEMV_U, HEMV_L, HEMV_V, HEMV_M,
};

#ifdef SMPTEST
#ifdef SMP
int (*hemv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
HEMV_THREAD_U, HEMV_THREAD_L, HEMV_THREAD_V, HEMV_THREAD_M,
};
@@ -119,7 +119,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA
FLOAT *buffer;
int trans, uplo;
blasint info;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -127,7 +127,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA
HEMV_U, HEMV_L, HEMV_V, HEMV_M,
};

#ifdef SMPTEST
#ifdef SMP
int (*hemv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
HEMV_THREAD_U, HEMV_THREAD_L, HEMV_THREAD_V, HEMV_THREAD_M,
};
@@ -189,7 +189,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA

buffer = (FLOAT *)blas_memory_alloc(1);

#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(2);

if (nthreads == 1) {
@@ -197,7 +197,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT *ALPHA

(hemv[uplo])(n, n, alpha_r, alpha_i, a, lda, x, incx, y, incy, buffer);

#ifdef SMPTEST
#ifdef SMP
} else {

(hemv_thread[uplo])(n, ALPHA, a, lda, x, incx, y, incy, buffer, nthreads);


Loading…
Cancel
Save