From e2c39a4a8e5902593912d9f674a3f366b01ea2ca Mon Sep 17 00:00:00 2001 From: wernsaar Date: Sun, 11 May 2014 00:36:56 +0200 Subject: [PATCH] checked, that symv is OK --- interface/symv.c | 12 ++++++------ interface/zsymv.c | 8 ++++---- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/interface/symv.c b/interface/symv.c index f5cff20bc..e8c24df66 100644 --- a/interface/symv.c +++ b/interface/symv.c @@ -68,7 +68,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, SYMV_U, SYMV_L, }; -#ifdef SMPTEST +#ifdef SMP int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { SYMV_THREAD_U, SYMV_THREAD_L, }; @@ -77,7 +77,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, blasint info; int uplo; FLOAT *buffer; -#ifdef SMPTEST +#ifdef SMP int nthreads; #endif @@ -110,7 +110,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha, FLOAT *buffer; int uplo; blasint info; -#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, SYMV_U, SYMV_L, }; -#ifdef SMPTEST +#ifdef SMP int (*symv_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { 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); -#ifdef SMPTEST +#ifdef SMP nthreads = num_cpu_avail(2); 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); -#ifdef SMPTEST +#ifdef SMP } else { (symv_thread[uplo])(n, alpha, a, lda, x, incx, y, incy, buffer, nthreads); diff --git a/interface/zsymv.c b/interface/zsymv.c index 15bceeebe..afb2c1734 100644 --- a/interface/zsymv.c +++ b/interface/zsymv.c @@ -68,7 +68,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, SYMV_U, SYMV_L, }; -#ifdef SMPTEST +#ifdef SMP int (*symv_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { SYMV_THREAD_U, SYMV_THREAD_L, }; @@ -77,7 +77,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, blasint info; int uplo; FLOAT *buffer; -#ifdef SMPTEST +#ifdef SMP int nthreads; #endif @@ -117,7 +117,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA, buffer = (FLOAT *)blas_memory_alloc(1); -#ifdef SMPTEST +#ifdef SMP nthreads = num_cpu_avail(2); 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); -#ifdef SMPTEST +#ifdef SMP } else { (symv_thread[uplo])(n, ALPHA, a, lda, b, incx, c, incy, buffer, nthreads);