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

checked, that syr2 is OK

Browse Source
This commit is contained in:
wernsaar
2014-05-11 00:48:49 +02:00
parent e2c39a4a8e
commit eebce01cf2
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
interface/syr2.c
View File

@@ -61,7 +61,7 @@ static int (*syr2[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOA
#endif
};
#ifdef SMPTEST
#ifdef SMP
static int (*syr2_thread[])(BLASLONG, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE
qsyr2_thread_U, qsyr2_thread_L,
@@ -88,7 +88,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info;
int uplo;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@@ -120,7 +120,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
FLOAT *buffer;
int trans, uplo;
blasint info;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@@ -178,7 +178,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) {
@@ -186,7 +186,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,
(syr2[uplo])(n, alpha, x, incx, y, incy, a, lda, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {
(syr2_thread[uplo])(n, alpha, x, incx, y, incy, a, lda, buffer, nthreads);

8
interface/zsyr2.c
View File

@@ -61,7 +61,7 @@ static int (*syr2[])(BLASLONG, FLOAT, FLOAT, FLOAT *, BLASLONG, FLOAT *, BLASLON
#endif
};
#ifdef SMPTEST
#ifdef SMP
static int (*syr2_thread[])(BLASLONG, FLOAT *, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE
xsyr2_thread_U, xsyr2_thread_L,
@@ -87,7 +87,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
blasint info;
int uplo;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@@ -125,7 +125,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
buffer = (FLOAT *)blas_memory_alloc(1);
#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(2);
if (nthreads == 1) {
@@ -133,7 +133,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
(syr2[uplo])(n, alpha_r, alpha_i, x, incx, y, incy, a, lda, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {
(syr2_thread[uplo])(n, ALPHA, x, incx, y, incy, a, lda, buffer, nthreads);