Update sscal_msa.c
This commit is contained in:
parent
541e1b6959
commit
a11f086c17
|
@ -259,7 +259,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x,
|
||||||
{
|
{
|
||||||
for (i = n; i--;)
|
for (i = n; i--;)
|
||||||
{
|
{
|
||||||
if (isfinite(*x)
|
if (isfinite(*x))
|
||||||
*x = 0;
|
*x = 0;
|
||||||
else
|
else
|
||||||
*x = NAN;
|
*x = NAN;
|
||||||
|
|
Loading…
Reference in New Issue