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

Merge pull request #3514 from martin-frbg/issue3513 

Fix ?LASWP pivot index calculation for negative increments other than -1
This commit is contained in:
Martin Kroeker 2022-01-17 19:22:18 +01:00 committed by GitHub
parent 5188aede5d 40003f8edb
commit 8ac2c1daf0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
7 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lapack/laswp/generic/laswp_k_1.c
View File

@ -57,10 +57,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;

5
lapack/laswp/generic/laswp_k_2.c
View File

@ -59,10 +59,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;

5
lapack/laswp/generic/laswp_k_4.c
View File

@ -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;

5
lapack/laswp/generic/laswp_k_8.c
View File

@ -78,10 +78,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;

5
lapack/laswp/generic/zlaswp_k_1.c
View File

@ -59,10 +59,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;

5
lapack/laswp/generic/zlaswp_k_2.c
View File

@ -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;

5
lapack/laswp/generic/zlaswp_k_4.c
View File

@ -69,10 +69,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;