Update zscal.c
This commit is contained in:
parent
9ba40a0c12
commit
18272263ad
|
@ -397,7 +397,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
|
||||||
while (j < n) {
|
while (j < n) {
|
||||||
|
|
||||||
temp0 = da_r * x[i];
|
temp0 = da_r * x[i];
|
||||||
if (isinf(x[i]))
|
|
||||||
x[i + 1] = da_r * x[i + 1];
|
x[i + 1] = da_r * x[i + 1];
|
||||||
x[i] = temp0;
|
x[i] = temp0;
|
||||||
i += 2;
|
i += 2;
|
||||||
|
|
Loading…
Reference in New Issue