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

checked, that tbmv is OK

This commit is contained in:
wernsaar 2014-05-11 08:22:00 +02:00
parent 57bbc586ef
commit 48d1325784
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/tbmv.c
View File

@ -64,7 +64,7 @@ static int (*tbmv[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, v
#endif #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*tbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*tbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
qtbmv_thread_NUU, qtbmv_thread_NUN, qtbmv_thread_NLU, qtbmv_thread_NLN, qtbmv_thread_NUU, qtbmv_thread_NUN, qtbmv_thread_NLU, qtbmv_thread_NLN,
@ -99,7 +99,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
@ -148,7 +148,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
@ -222,7 +222,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) {
@ -230,7 +230,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
(tbmv[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer); (tbmv[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(tbmv_thread[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer, nthreads); (tbmv_thread[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer, nthreads);

10
interface/ztbmv.c
View File

@ -70,7 +70,7 @@ static int (*tbmv[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, v
#endif #endif
}; };
#ifdef SMPTEST #ifdef SMP
static int (*tbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = { static int (*tbmv_thread[])(BLASLONG, BLASLONG, FLOAT *, BLASLONG, FLOAT *, BLASLONG, FLOAT *, int) = {
#ifdef XDOUBLE #ifdef XDOUBLE
xtbmv_thread_NUU, xtbmv_thread_NUN, xtbmv_thread_NLU, xtbmv_thread_NLN, xtbmv_thread_NUU, xtbmv_thread_NUN, xtbmv_thread_NLU, xtbmv_thread_NLN,
@ -111,7 +111,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
@ -160,7 +160,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
@ -234,7 +234,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) {
@ -242,7 +242,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
(tbmv[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer); (tbmv[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer);
#ifdef SMPTEST #ifdef SMP
} else { } else {
(tbmv_thread[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer, nthreads); (tbmv_thread[(trans<<2) | (uplo<<1) | unit])(n, k, a, lda, x, incx, buffer, nthreads);