Browse Source

Clean up some warnings

tags/v0.3.16^2
Martin Kroeker GitHub 4 years ago
parent
commit
7bb59fceb7
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 4 additions and 2 deletions
  1. +2
    -0
      interface/gemm.c
  2. +1
    -1
      interface/gemv.c
  3. +1
    -1
      interface/ger.c

+ 2
- 0
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;


+ 1
- 1
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;
}



+ 1
- 1
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;
}



Loading…
Cancel
Save