Update zscal.c

martin-frbg · May 31, 2024 · ce130f1 · ce130f1
1 parent ab13cfe
commit ce130f1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/kernel/x86_64/zscal.c b/kernel/x86_64/zscal.c
@@ -260,15 +260,15 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 						temp0   = -da_i * x[i+1];
 					if (!isinf(x[i+1]))
 						x[i+1]  = da_i * x[i];
-					else    x[i+1]	= NaN;     
+					else    x[i+1]	= NAN;     
 					x[i]         =  temp0;
 					if (isnan(x[i+inc_x]) || isinf(x[i+inc_x]))
 						temp1	= NAN;
 					else
 						temp1   = -da_i * x[i+1+inc_x];
 					if (!isinf(x[i+1+inc_x]))
 						x[i+1+inc_x] = da_i * x[i+inc_x];
-					else    x[i+1+inc_x] = NaN;
+					else    x[i+1+inc_x] = NAN;
 					x[i+inc_x]   =  temp1;
 					i += 2*inc_x ;
 					j+=2;