THUNDERX2T99: Fix bug in SNRM2
This commit is contained in:
parent
f63deae9de
commit
8e89668f62
|
@ -243,7 +243,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
|
|
||||||
ptr = (double *)result;
|
ptr = (double *)result;
|
||||||
for (i = 0; i < nthreads; i++) {
|
for (i = 0; i < nthreads; i++) {
|
||||||
nrm2_double = nrm2_double + (*ptr) * (*ptr);
|
nrm2_double = nrm2_double + (*ptr);
|
||||||
ptr = (double *)(((char *)ptr) + sizeof(double) * 2);
|
ptr = (double *)(((char *)ptr) + sizeof(double) * 2);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue