Update zscal.c

This commit is contained in:
Martin Kroeker 2024-01-07 18:01:58 +01:00 committed by GitHub
parent d3d99c34f2
commit 711433fcf0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions

View File

@ -63,9 +63,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
x[ip+1] = da_r * x[ip+1] + da_i * x[ip] ;
}
}
if (!isnan(x_ip] && !isinf(x[ip]))
// if (!isnan(x_ip] && !isinf(x[ip]))
x[ip] = temp;
if ( da_r != da_r ) x[ip] = da_r;
ip += inc_x2;
}