Browse Source

checked, that zher is OK

tags/v0.2.9^2
wernsaar 12 years ago
parent
commit
5e4b4f6712
1 changed files with 5 additions and 5 deletions
  1. +5
    -5
      interface/zher.c

+ 5
- 5
interface/zher.c View File

@@ -61,7 +61,7 @@ static int (*her[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT
#endif
};

#ifdef SMPTEST
#ifdef SMP
static int (*her_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE
xher_thread_U, xher_thread_L, xher_thread_V, xher_thread_M,
@@ -87,7 +87,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info;
int uplo;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -118,7 +118,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

@@ -174,7 +174,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) {
@@ -182,7 +182,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,

(her[uplo])(n, alpha, x, incx, a, lda, buffer);

#ifdef SMPTEST
#ifdef SMP
} else {

(her_thread[uplo])(n, alpha, x, incx, a, lda, buffer, nthreads);


Loading…
Cancel
Save