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

THUNDERX2T99: Bug fix in C/Z IAMAX

This commit is contained in:
Ashwin Sekhar T K 2017-02-19 23:11:50 -08:00
parent 172a62d73e
commit faba876fda
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kernel/arm64/iamax_thunderx2t99.c
View File

@ -326,7 +326,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
if (inc_x == 0) if (inc_x == 0)
nthreads = 1; nthreads = 1;
if (n <= 1000) if (n <= 10000)
nthreads = 1; nthreads = 1;
if (nthreads == 1) { if (nthreads == 1) {

6
kernel/arm64/izamax_thunderx2t99.c
View File

@ -335,7 +335,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
if (inc_x == 0) if (inc_x == 0)
nthreads = 1; nthreads = 1;
if (n <= 1000) if (n <= 10000)
nthreads = 1; nthreads = 1;
if (nthreads == 1) { if (nthreads == 1) {
@ -366,8 +366,8 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG cur_max_index; BLASLONG cur_max_index;
cur_max_index = *(BLASLONG *)&result[num_cpu * sizeof(double) * 2]; cur_max_index = *(BLASLONG *)&result[num_cpu * sizeof(double) * 2];
elem_r = x[((cur_index + cur_max_index - 1) * inc_x) + 0]; elem_r = x[((cur_index + cur_max_index - 1) * inc_x * 2) + 0];
elem_i = x[((cur_index + cur_max_index - 1) * inc_x) + 1]; elem_i = x[((cur_index + cur_max_index - 1) * inc_x * 2) + 1];
elem_r = fabs(elem_r) + fabs(elem_i); elem_r = fabs(elem_r) + fabs(elem_i);
if (elem_r >= max) { if (elem_r >= max) {