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--;)
|
||||
{
|
||||
if (isfinite(*x)
|
||||
if (isfinite(*x))
|
||||
*x = 0;
|
||||
else
|
||||
*x = NAN;
|
||||
|
|
Loading…
Reference in New Issue