Update cscal.c
This commit is contained in:
parent
2c36a48130
commit
e6a6296d13
|
@ -382,7 +382,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
|
||||||
x[i + 1] = da_i * x[i];
|
x[i + 1] = da_i * x[i];
|
||||||
else
|
else
|
||||||
x[i + 1] = NAN;
|
x[i + 1] = NAN;
|
||||||
if (!isnan(x[i]))
|
if (x[i] == x[i])
|
||||||
x[i] = temp0;
|
x[i] = temp0;
|
||||||
i += 2;
|
i += 2;
|
||||||
j++;
|
j++;
|
||||||
|
|
Loading…
Reference in New Issue