Update scal.c

This commit is contained in:
Martin Kroeker 2024-07-04 22:28:01 +02:00 committed by GitHub
parent 536200bc9e
commit a5c04e326a
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions

View File

@ -48,7 +48,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
{
if ( da == 0.0 )
if (!isnan(x[i] && !isinf(x[i])) {
if (!isnan(x[i]) && !isinf(x[i])) {
x[i]=0.0;
} else {
x[i]=NAN;