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

Fix stride in shortcut path for small N

This commit is contained in:
Martin Kroeker 2022-12-08 21:02:01 +01:00 committed by GitHub
parent c17b5ce75c
commit f10c266b4d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
interface/zsyr.c
View File

@ -181,7 +181,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1], alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1],
x, 1, a, 1, NULL, 0); x, 1, a, 1, NULL, 0);
} }
a += lda; a += lda * 2;
} }
} else { } else {
for (i = 0; i < n; i++){ for (i = 0; i < n; i++){
@ -191,7 +191,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO
alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1], alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1],
x + i * 2, 1, a, 1, NULL, 0); x + i * 2, 1, a, 1, NULL, 0);
} }
a += 2 + lda; a += 2 + lda * 2;
} }
} }
return; return;