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

Clean up some warnings

This commit is contained in:
Martin Kroeker 2021-07-11 16:00:29 +02:00 committed by GitHub
parent b2319fd97a
commit 7bb59fceb7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
interface/gemm.c
View File

@ -126,6 +126,7 @@ void NAME(char *TRANSA, char *TRANSB,
#ifdef SMP
double MNK;
#if defined(USE_SIMPLE_THREADED_LEVEL3) || !defined(NO_AFFINITY)
#ifndef COMPLEX
#ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_REAL;
@ -144,6 +145,7 @@ void NAME(char *TRANSA, char *TRANSB,
#endif
#endif
#endif
#endif
#if defined(SMP) && !defined(NO_AFFINITY) && !defined(USE_SIMPLE_THREADED_LEVEL3)
int nodes;

2
interface/gemv.c
View File

@ -203,7 +203,7 @@ void CNAME(enum CBLAS_ORDER order,
if (alpha == ZERO) return;
if (trans == 0 && incx == 1 && incy == 1 && m*n < 2304 *GEMM_MULTITHREAD_THRESHOLD) {
GEMV_N(m, n, 0, alpha, a, lda, x, incx, y, incy, buffer);
GEMV_N(m, n, 0, alpha, a, lda, x, incx, y, incy, NULL);
return;
}

2
interface/ger.c
View File

@ -165,7 +165,7 @@ void CNAME(enum CBLAS_ORDER order,
if (alpha == 0.) return;
if (incx == 1 && incy == 1 && 1L*m*n <= 2048 *GEMM_MULTITHREAD_THRESHOLD) {
GER(m, n, 0, alpha, x, incx, y, incy, a, lda, buffer);
GER(m, n, 0, alpha, x, incx, y, incy, a, lda, NULL);
return;
}