projects
/
platform
/
upstream
/
openblas.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3b6293f
)
Fix pivot offset calculation for negative incx
author
Martin Kroeker
<martin@ruby.chemie.uni-freiburg.de>
Sun, 16 Jan 2022 23:10:21 +0000
(
00:10
+0100)
committer
GitHub
<noreply@github.com>
Sun, 16 Jan 2022 23:10:21 +0000
(
00:10
+0100)
lapack/laswp/generic/zlaswp_k_2.c
patch
|
blob
|
history
diff --git
a/lapack/laswp/generic/zlaswp_k_2.c
b/lapack/laswp/generic/zlaswp_k_2.c
index
c18ab4b
..
1220870
100644
(file)
--- a/
lapack/laswp/generic/zlaswp_k_2.c
+++ b/
lapack/laswp/generic/zlaswp_k_2.c
@@
-60,10
+60,9
@@
int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT dummy4,
lda *= 2;
k1 --;
-#ifndef MINUS
ipiv += k1;
-#
else
- ipiv -= (k2 - 1) * incx;
+#
ifdef MINUS
+ ipiv -= (k2 -
k1 -
1) * incx;
#endif
if (n <= 0) return 0;