add handling of dummy2 flag

kernel/zarch/cscal.c

@@ -205,7 +205,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
   if (inc_x != 1) {
     inc_x <<= 1;
 
-    if (da_r == 0.0) {
+    if (da_r == 0.0 && !dummy2) {
 
       BLASLONG n1 = n & -2;
 
@@ -334,7 +334,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
     alpha[0] = da_r;
     alpha[1] = da_i;
 
-    if (da_r == 0.0)
+    if (da_r == 0.0 &&!dummy2)
       if (da_i == 0)
         cscal_kernel_16_zero(n1, x);
       else