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 #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
qtrmv_thread_NUU, qtrmv_thread_NUN, qtrmv_thread_NLU, qtrmv_thread_NLN, 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 unit;
int trans; int trans;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST #ifdef SMP
int nthreads; int nthreads;
#endif #endif
@ -145,7 +145,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
int trans, uplo, unit; int trans, uplo, unit;
blasint info; blasint info;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST #ifdef SMP
int nthreads; int nthreads;
#endif #endif
@ -217,7 +217,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
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) {
@ -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); (trmv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads); (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 #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*trmv_thread[])(BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
xtrmv_thread_NUU, xtrmv_thread_NUN, xtrmv_thread_NLU, xtrmv_thread_NLN, 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 unit;
int trans; int trans;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST #ifdef SMP
int nthreads; int nthreads;
#endif #endif
@ -157,7 +157,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
int trans, uplo, unit; int trans, uplo, unit;
blasint info; blasint info;
FLOAT *buffer; FLOAT *buffer;
#ifdef SMPTEST #ifdef SMP
int nthreads; int nthreads;
#endif #endif
@ -229,7 +229,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
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) {
@ -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); (trmv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads); (trmv_thread[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer, nthreads);