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

checked, that symv is OK

Browse Source
This commit is contained in:
wernsaar
2014-05-11 00:36:56 +02:00
parent 1e8e6faa7e
commit e2c39a4a8e
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
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,
};
#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);