Browse Source

checked, that spr2 is OK

tags/v0.2.9^2
wernsaar 11 years ago
parent
commit
2ed03ea0a2
2 changed files with 9 additions and 9 deletions
  1. +5
    -5
      interface/spr2.c
  2. +4
    -4
      interface/zspr2.c

+ 5
- 5
interface/spr2.c View File

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


#ifdef SMPTEST
#ifdef SMP
static int (*spr2_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = { static int (*spr2_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
qspr2_thread_U, qspr2_thread_L, qspr2_thread_U, qspr2_thread_L,
@@ -87,7 +87,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


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


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


(spr2[uplo])(n, alpha, x, incx, y, incy, a, buffer); (spr2[uplo])(n, alpha, x, incx, y, incy, a, buffer);


#ifdef SMPTEST
#ifdef SMP
} else { } else {


(spr2_thread[uplo])(n, alpha, x, incx, y, incy, a, buffer, nthreads); (spr2_thread[uplo])(n, alpha, x, incx, y, incy, a, buffer, nthreads);


+ 4
- 4
interface/zspr2.c View File

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


#ifdef SMPTEST
#ifdef SMP
static int (*spr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = { static int (*spr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
xspr2_thread_U, xspr2_thread_L, xspr2_thread_U, xspr2_thread_L,
@@ -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


@@ -123,7 +123,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,


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) {
@@ -131,7 +131,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
(spr2[uplo])(n, alpha_r, alpha_i, x, incx, y, incy, a, buffer); (spr2[uplo])(n, alpha_r, alpha_i, x, incx, y, incy, a, buffer);
#ifdef SMPTEST
#ifdef SMP
} else { } else {
(spr2_thread[uplo])(n, ALPHA, x, incx, y, incy, a, buffer, nthreads); (spr2_thread[uplo])(n, ALPHA, x, incx, y, incy, a, buffer, nthreads);


Loading…
Cancel
Save