Browse Source

checked, that zhpr is OK

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

+ 5
- 5
interface/zhpr.c View File

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


#ifdef SMPTEST
#ifdef SMP
static int (*hpr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = { static int (*hpr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
xhpr_thread_U, xhpr_thread_L, xhpr_thread_V, xhpr_thread_M, xhpr_thread_U, xhpr_thread_L, xhpr_thread_V, xhpr_thread_M,
@@ -86,7 +86,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info; blasint info;
int uplo; int uplo;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads; int nthreads;
#endif #endif


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


@@ -171,7 +171,7 @@ void CNAME(enum CBLAS_ORDER order,


buffer = (FLOAT *)blas_memory_alloc(1); buffer = (FLOAT *)blas_memory_alloc(1);
#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(2); nthreads = num_cpu_avail(2);


if (nthreads == 1) { if (nthreads == 1) {
@@ -179,7 +179,7 @@ void CNAME(enum CBLAS_ORDER order,


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


#ifdef SMPTEST
#ifdef SMP


} else { } else {




Loading…
Cancel
Save