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

Eliminate mode variable where not needed

This commit is contained in:
Andrew 2017-11-15 15:32:38 +01:00
parent 8e75f7dcb4
commit 27575d200a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
interface/syrk.c
View File

@ -101,6 +101,7 @@ void NAME(char *UPLO, char *TRANS,
FLOAT *sa, *sb; FLOAT *sa, *sb;
#ifdef SMP #ifdef SMP
#ifdef USE_SIMPLE_THREADED_LEVEL3
#ifndef COMPLEX #ifndef COMPLEX
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL; int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -118,6 +119,7 @@ void NAME(char *UPLO, char *TRANS,
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif
#endif #endif
blasint info; blasint info;
@ -206,6 +208,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
FLOAT *sa, *sb; FLOAT *sa, *sb;
#ifdef SMP #ifdef SMP
#ifdef USE_SIMPLE_THREADED_LEVEL3
#ifndef COMPLEX #ifndef COMPLEX
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL; int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -223,6 +226,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif
#endif #endif
PRINT_DEBUG_CNAME; PRINT_DEBUG_CNAME;
@ -323,13 +327,14 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Tr
sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B); sb = (FLOAT *)(((BLASLONG)sa + ((GEMM_P * GEMM_Q * COMPSIZE * SIZE + GEMM_ALIGN) & ~GEMM_ALIGN)) + GEMM_OFFSET_B);
#ifdef SMP #ifdef SMP
#ifdef USE_SIMPLE_THREADED_LEVEL3
if (!trans){ if (!trans){
mode |= (BLAS_TRANSA_N | BLAS_TRANSB_T); mode |= (BLAS_TRANSA_N | BLAS_TRANSB_T);
} else { } else {
mode |= (BLAS_TRANSA_T | BLAS_TRANSB_N); mode |= (BLAS_TRANSA_T | BLAS_TRANSB_N);
} }
mode |= (uplo << BLAS_UPLO_SHIFT); mode |= (uplo << BLAS_UPLO_SHIFT);
#endif
args.common = NULL; args.common = NULL;
args.nthreads = num_cpu_avail(3); args.nthreads = num_cpu_avail(3);