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

checked, that trmv is OK

This commit is contained in:
wernsaar 2014-05-11 08:47:44 +02:00
parent 8204ab4aa8
commit 7fb78a5f01
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/trmv.c
View File

@ -64,7 +64,7 @@ static int (*trmv[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *) =
#endif
};
#ifdef SMPTEST
#ifdef SMP
static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE
qtrmv_thread_NUU, qtrmv_thread_NUN, qtrmv_thread_NLU, qtrmv_thread_NLN,
@ -97,7 +97,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG,
int unit;
int trans;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@ -145,7 +145,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
int trans, uplo, unit;
blasint info;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@ -217,7 +217,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
buffer = (FLOAT *)blas_memory_alloc(1);
#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(2);
if (nthreads == 1) {
@ -225,7 +225,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
(trmv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {
(trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads);

10
interface/ztrmv.c
View File

@ -70,7 +70,7 @@ static int (*trmv[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *) =
#endif
};
#ifdef SMPTEST
#ifdef SMP
static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE
xtrmv_thread_NUU, xtrmv_thread_NUN, xtrmv_thread_NLU, xtrmv_thread_NLN,
@ -109,7 +109,7 @@ void NAME(char *UPLO, char *TRANS, char *DIAG,
int unit;
int trans;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@ -157,7 +157,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
int trans, uplo, unit;
blasint info;
FLOAT *buffer;
#ifdef SMPTEST
#ifdef SMP
int nthreads;
#endif
@ -229,7 +229,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
buffer = (FLOAT *)blas_memory_alloc(1);
#ifdef SMPTEST
#ifdef SMP
nthreads = num_cpu_avail(2);
if (nthreads == 1) {
@ -237,7 +237,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
(trmv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
#ifdef SMPTEST
#ifdef SMP
} else {
(trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads);