Browse Source

checked, that zhpr2 is OK

tags/v0.2.9^2
wernsaar 11 years ago
parent
commit
7bb19cf90e
1 changed files with 5 additions and 5 deletions
  1. +5
    -5
      interface/zhpr2.c

+ 5
- 5
interface/zhpr2.c View File

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

#ifdef SMPTEST
#ifdef SMP
static int (*hpr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE
xhpr2_thread_U, xhpr2_thread_L, xhpr2_thread_V, xhpr2_thread_M,
@@ -88,7 +88,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info;
int uplo;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -127,7 +127,7 @@ void CNAME(enum CBLAS_ORDER order,
FLOAT *buffer;
int uplo;
blasint info;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif

@@ -181,7 +181,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) {
@@ -189,7 +189,7 @@ void CNAME(enum CBLAS_ORDER order,

(hpr2[uplo])(n, alpha_r, alpha_i, x, incx, y, incy, a, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {

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


Loading…
Cancel
Save