Update zscal.c

martin-frbg · web-flow · commit decd97c05b95 · 2025-05-25T22:35:31.000+02:00
diff --git 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 {

Original file line number	Diff line number	Diff line change
`@@ -255,6 +255,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,`
`255`	`255`	`x[i] = 0.;`
`256`	`256`	`x[i+1] = 0.;`
`257`	`257`	`}`
	`258`	`+ i += inc_x;`
	`259`	`+ j++;`
`258`	`260`	`}`
`259`	`261`
`260`	`262`	`} else {`