Clean up some warnings

diff --git a/interface/gemm.c b/interface/gemm.c
index cd5d005..10426fd 100644 (file)
--- a/interface/gemm.c
+++ b/interface/gemm.c
@@ -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;

diff --git a/interface/gemv.c b/interface/gemv.c
index b6c2e60..1f14cdb 100644 (file)
--- a/interface/gemv.c
+++ b/interface/gemv.c
@@ -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;
   }    
 

diff --git a/interface/ger.c b/interface/ger.c
index 1c72d51..af6ae86 100644 (file)
--- a/interface/ger.c
+++ b/interface/ger.c
@@ -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;
   }