floraachy/OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use NAN rather than SNAN for portability

Browse Source
This commit is contained in:
Martin Kroeker
2024-01-07 23:09:57 +01:00
committed by GitHub
parent f0808d856b
commit cf8b03ae8b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
kernel/x86_64/zscal.c
View File

@@ -388,8 +388,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
else if (da_r < -FLT_MAX || da_r > FLT_MAX) {
while(j < n)
{
x[i]=SNAN;
x[i+1]=da_r;
x[i]= NAN;
x[i+1] = da_r;
i += 2 ;
j++;
@@ -402,7 +402,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
{
temp0 = -da_i * x[i+1];
if (x[i] < -FLT_MAX || x[i] > FLT_MAX)
temp0 = SNAN;
temp0 = NAN;
x[i+1] = da_i * x[i];
if ( x[i] == x[i]) //preserve NaN
x[i] = temp0;