Update scal.c
This commit is contained in:
parent
536200bc9e
commit
a5c04e326a
|
@ -48,7 +48,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
|
||||||
{
|
{
|
||||||
|
|
||||||
if ( da == 0.0 )
|
if ( da == 0.0 )
|
||||||
if (!isnan(x[i] && !isinf(x[i])) {
|
if (!isnan(x[i]) && !isinf(x[i])) {
|
||||||
x[i]=0.0;
|
x[i]=0.0;
|
||||||
} else {
|
} else {
|
||||||
x[i]=NAN;
|
x[i]=NAN;
|
||||||
|
|
Loading…
Reference in New Issue