Update zscal.c

martin-frbg · web-flow · commit e1e5be594a8a · 2025-05-25T22:57:50.000+02:00
diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
@@ -245,8 +245,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 		x[i + inc_x + 1] = 0.;
 	}
 	i += 2 * inc_x;
-	i += 2;
+	j += 2;
 	}
+	       
 	while (j < n) {
 	if (isnan(x[i]) || isinf(x[i]) || isnan(x[i+1])) {
 		x[i] = NAN;
@@ -257,8 +258,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 	}
 		i += inc_x;
 		j++;
+        }
        }
-
       } else {
 
         while (j < n1) {

Original file line number	Diff line number	Diff line change
`@@ -245,8 +245,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,`
`245`	`245`	`x[i + inc_x + 1] = 0.;`
`246`	`246`	`}`
`247`	`247`	`i += 2 * inc_x;`
`248`		`- i += 2;`
	`248`	`+ j += 2;`
`249`	`249`	`}`
	`250`	`+`
`250`	`251`	`while (j < n) {`
`251`	`252`	`if (isnan(x[i]) \|\| isinf(x[i]) \|\| isnan(x[i+1])) {`
`252`	`253`	`x[i] = NAN;`
`@@ -257,8 +258,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,`
`257`	`258`	`}`
`258`	`259`	`i += inc_x;`
`259`	`260`	`j++;`
	`261`	`+ }`
`260`	`262`	`}`
`261`		`-`
`262`	`263`	`} else {`
`263`	`264`
`264`	`265`	`while (j < n1) {`