floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

checked, that syr is OK

This commit is contained in:
wernsaar 2014-05-11 07:46:22 +02:00
parent d972f4a60a
commit bfef3c5dd1
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
interface/syr.c
View File

@ -61,7 +61,7 @@ static int (*syr[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT
#endif #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*syr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*syr_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
qsyr_thread_U, qsyr_thread_L, qsyr_thread_U, qsyr_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
@ -118,7 +118,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
FLOAT *buffer; FLOAT *buffer;
int trans, uplo; int trans, uplo;
blasint info; blasint info;
#ifdef SMPTEST #ifdef SMP
int nthreads; int nthreads;
#endif #endif
@ -174,7 +174,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) {
@ -182,7 +182,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
(syr[uplo])(n, alpha, x, incx, a, lda, buffer); (syr[uplo])(n, alpha, x, incx, a, lda, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(syr_thread[uplo])(n, alpha, x, incx, a, lda, buffer, nthreads); (syr_thread[uplo])(n, alpha, x, incx, a, lda, buffer, nthreads);

10
interface/zsyr.c
View File

@ -61,7 +61,7 @@ static int (*syr[])(BLASLONG, FLOAT, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG
#endif #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*syr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*syr_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
xsyr_thread_U, xsyr_thread_L, xsyr_thread_U, xsyr_thread_L,
@ -89,7 +89,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, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
FLOAT *buffer; FLOAT *buffer;
int trans, uplo; int trans, 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, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
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, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
(syr[uplo])(n, alpha_r, alpha_i, x, incx, a, lda, buffer); (syr[uplo])(n, alpha_r, alpha_i, x, incx, a, lda, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(syr_thread[uplo])(n, ALPHA, x, incx, a, lda, buffer, nthreads); (syr_thread[uplo])(n, ALPHA, x, incx, a, lda, buffer, nthreads);