diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
index ff2306c11..224228037 100644
--- a/kernel/zarch/zscal.c
+++ b/kernel/zarch/zscal.c
@@ -255,6 +255,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 		x[i] = 0.;
 		x[i+1] = 0.;
 	}
+		i += inc_x;
+		j++;
        }
 
       } else {