Browse Source

checked, that symv is OK

tags/v0.2.9^2
wernsaar 12 years ago
parent
commit
e2c39a4a8e
2 changed files with 10 additions and 10 deletions
  1. +6
    -6
      interface/symv.c
  2. +4
    -4
      interface/zsymv.c

+ 6
- 6
interface/symv.c View File

@@ -68,7 +68,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
SYMV_U, SYMV_L, SYMV_U, SYMV_L,
}; };
#ifdef SMPTEST
#ifdef SMP
int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
SYMV_THREAD_U, SYMV_THREAD_L, SYMV_THREAD_U, SYMV_THREAD_L,
}; };
@@ -77,7 +77,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
blasint info; blasint info;
int uplo; int uplo;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads; int nthreads;
#endif #endif


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


@@ -118,7 +118,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
SYMV_U, SYMV_L, SYMV_U, SYMV_L,
}; };


#ifdef SMPTEST
#ifdef SMP
int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
SYMV_THREAD_U, SYMV_THREAD_L, SYMV_THREAD_U, SYMV_THREAD_L,
}; };
@@ -179,7 +179,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO 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) {
@@ -187,7 +187,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,


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


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


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


+ 4
- 4
interface/zsymv.c View File

@@ -68,7 +68,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
SYMV_U, SYMV_L, SYMV_U, SYMV_L,
}; };


#ifdef SMPTEST
#ifdef SMP
int (*symv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { int (*symv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
SYMV_THREAD_U, SYMV_THREAD_L, SYMV_THREAD_U, SYMV_THREAD_L,
}; };
@@ -77,7 +77,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
blasint info; blasint info;
int uplo; int uplo;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads; int nthreads;
#endif #endif


@@ -117,7 +117,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,


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) {
@@ -125,7 +125,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,


(symv[uplo])(n, n, alpha_r, alpha_i, a, lda, b, incx, c, incy, buffer); (symv[uplo])(n, n, alpha_r, alpha_i, a, lda, b, incx, c, incy, buffer);


#ifdef SMPTEST
#ifdef SMP
} else { } else {
(symv_thread[uplo])(n, ALPHA, a, lda, b, incx, c, incy, buffer, nthreads); (symv_thread[uplo])(n, ALPHA, a, lda, b, incx, c, incy, buffer, nthreads);


Loading…
Cancel
Save