From bff575d0b1bc101c6ef0c1dd9bd95a3e33da3eef Mon Sep 17 00:00:00 2001
From: wernsaar <wernsaar@googlemail.com>
Date: Sun, 8 Jun 2014 13:49:19 +0200
Subject: [PATCH] Ref #375: added workaround for small sizes to scal.c and
 zscal.c

---
 interface/scal.c  | 3 +++
 interface/zscal.c | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/interface/scal.c b/interface/scal.c
index 7b72ca01c..c3e03c742 100644
--- a/interface/scal.c
+++ b/interface/scal.c
@@ -78,6 +78,9 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){
 #ifdef SMP
   nthreads = num_cpu_avail(1);
 
+  if (n <= 1048576 )
+	nthreads = 1;
+	
   if (nthreads == 1) {
 #endif
 
diff --git a/interface/zscal.c b/interface/zscal.c
index ad99874dc..1e6fdecdb 100644
--- a/interface/zscal.c
+++ b/interface/zscal.c
@@ -90,6 +90,9 @@ void CNAME(blasint n, FLOAT alpha_r, FLOAT *x, blasint incx){
 #ifdef SMP
   nthreads = num_cpu_avail(1);
 
+  if ( n <= 1048576 )
+	nthreads = 1;
+
   if (nthreads == 1) {
 #endif