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:
0e9e951
)
Fix pivot offset calculation for negative incx
author
Martin Kroeker
<martin@ruby.chemie.uni-freiburg.de>
Sun, 16 Jan 2022 23:07:33 +0000
(
00:07
+0100)
committer
GitHub
<noreply@github.com>
Sun, 16 Jan 2022 23:07:33 +0000
(
00:07
+0100)
lapack/laswp/generic/laswp_k_4.c
patch
|
blob
|
history
diff --git
a/lapack/laswp/generic/laswp_k_4.c
b/lapack/laswp/generic/laswp_k_4.c
index
191a229
..
6520ed7
100644
(file)
--- a/
lapack/laswp/generic/laswp_k_4.c
+++ b/
lapack/laswp/generic/laswp_k_4.c
@@
-65,10
+65,9
@@
int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG
a--;
k1 --;
-#ifndef MINUS
ipiv += k1;
-#
else
- ipiv -= (k2 - 1) * incx;
+#
ifdef MINUS
+ ipiv -= (k2 -
k1 -
1) * incx;
#endif
if (n <= 0) return 0;