Ref #375: added workaround for small sizes to scal.c and zscal.c

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
 

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