From 979c0cbba4ef8402dd06461ce31a863559de936d Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Mon, 22 Mar 2021 17:55:33 +0100
Subject: [PATCH] Change multithreading threshold(s) for SGEMV

---
 interface/gemv.c | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/interface/gemv.c b/interface/gemv.c
index d5d739fb1..cae9c0ee8 100644
--- a/interface/gemv.c
+++ b/interface/gemv.c
@@ -219,11 +219,21 @@ void CNAME(enum CBLAS_ORDER order,
 
 #ifdef SMP
 
+  //if ( 1L * m * n < 2304L * GEMM_MULTITHREAD_THRESHOLD * 1500 )
+#ifdef SINGLE
+  if ( 1L * m * n < 2304L * GEMM_MULTITHREAD_THRESHOLD * 1500 )
+    nthreads = 1;
+  else if ( 1L * m * n < 2304L * GEMM_MULTITHREAD_THRESHOLD * 5000 ) {
+    nthreads = 2;
+  } else {
+#else
   if ( 1L * m * n < 2304L * GEMM_MULTITHREAD_THRESHOLD )
     nthreads = 1;
-  else
+  else {
+#endif
     nthreads = num_cpu_avail(2);
-
+fprintf(stderr, "m %d n %d nthreads %d\n",m,n,nthreads);
+  }
   if (nthreads == 1) {
 #endif