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

fix index variable

This commit is contained in:
Martin Kroeker 2024-07-31 11:18:58 +02:00 committed by GitHub
parent bb992395f0
commit 3aab164f02
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
kernel/zarch/dscal.c
View File

@ -96,28 +96,28 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x,
if (inc_x == 1) { if (inc_x == 1) {
if (da == 0.0) { if (da == 0.0) {
if (dummy2 == 0) { if (dummy2 == 0) {
BLASLONG n1 = n & -16; BLASLONG n1 = n & -16;
if (n1 > 0) { if (n1 > 0) {
dscal_kernel_16_zero(n1, x);
j = n1;
}
dscal_kernel_16_zero(n1, x); while (j < n) {
j = n1; x[j] = 0.0;
} j++;
}
while (j < n) { } else {
while (j < n) {
x[j] = 0.0; if (isfinite(x[j]))
j++; x[j] = 0.0;
} else
} else { x[j] = NAN;
while (j < n) { j++;
if (!isnan(x[i])&& !isinf(x[i]))
x[i] = 0.0;
else
x[i] = NAN;
j++;
} }
} }
} else { } else {
BLASLONG n1 = n & -16; BLASLONG n1 = n & -16;