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

Merge pull request #3199 from martin-frbg/lapack537 

Add LAPACKE fixes from Reference-LAPACK PR 537
This commit is contained in:
Martin Kroeker 2021-04-29 05:39:50 +02:00 committed by GitHub
parent 7e35d25ea0 3704f5e5b0
commit 9a36a283d3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lapack-netlib/LAPACKE/include/lapack.h
View File

@ -566,8 +566,8 @@ void LAPACK_cgbrfsx(
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
lapack_complex_float const* AB, lapack_int const* ldab, lapack_complex_float const* AB, lapack_int const* ldab,
lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
float* R, const float* R,
float* C, const float* C,
lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float const* B, lapack_int const* ldb,
lapack_complex_float* X, lapack_int const* ldx, lapack_complex_float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -585,8 +585,8 @@ void LAPACK_dgbrfsx(
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
double const* AB, lapack_int const* ldab, double const* AB, lapack_int const* ldab,
double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
double* R, const double* R,
double* C, const double* C,
double const* B, lapack_int const* ldb, double const* B, lapack_int const* ldb,
double* X, lapack_int const* ldx, double* X, lapack_int const* ldx,
double* rcond, double* rcond,
@ -604,8 +604,8 @@ void LAPACK_sgbrfsx(
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
float const* AB, lapack_int const* ldab, float const* AB, lapack_int const* ldab,
float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
float* R, const float* R,
float* C, const float* C,
float const* B, lapack_int const* ldb, float const* B, lapack_int const* ldb,
float* X, lapack_int const* ldx, float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -623,8 +623,8 @@ void LAPACK_zgbrfsx(
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
lapack_complex_double const* AB, lapack_int const* ldab, lapack_complex_double const* AB, lapack_int const* ldab,
lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
double* R, const double* R,
double* C, const double* C,
lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double const* B, lapack_int const* ldb,
lapack_complex_double* X, lapack_int const* ldx, lapack_complex_double* X, lapack_int const* ldx,
double* rcond, double* rcond,
@ -4913,7 +4913,7 @@ void LAPACK_cherfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* A, lapack_int const* lda,
lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
float* S, const float* S,
lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float const* B, lapack_int const* ldb,
lapack_complex_float* X, lapack_int const* ldx, lapack_complex_float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -4931,7 +4931,7 @@ void LAPACK_zherfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* A, lapack_int const* lda,
lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
double* S, const double* S,
lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double const* B, lapack_int const* ldb,
lapack_complex_double* X, lapack_int const* ldx, lapack_complex_double* X, lapack_int const* ldx,
double* rcond, double* rcond,
@ -8005,7 +8005,7 @@ void LAPACK_cporfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* A, lapack_int const* lda,
lapack_complex_float const* AF, lapack_int const* ldaf, lapack_complex_float const* AF, lapack_int const* ldaf,
float* S, const float* S,
lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float const* B, lapack_int const* ldb,
lapack_complex_float* X, lapack_int const* ldx, lapack_complex_float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -8023,7 +8023,7 @@ void LAPACK_dporfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, double const* A, lapack_int const* lda,
double const* AF, lapack_int const* ldaf, double const* AF, lapack_int const* ldaf,
double* S, const double* S,
double const* B, lapack_int const* ldb, double const* B, lapack_int const* ldb,
double* X, lapack_int const* ldx, double* X, lapack_int const* ldx,
double* rcond, double* rcond,
@ -8041,7 +8041,7 @@ void LAPACK_sporfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, float const* A, lapack_int const* lda,
float const* AF, lapack_int const* ldaf, float const* AF, lapack_int const* ldaf,
float* S, const float* S,
float const* B, lapack_int const* ldb, float const* B, lapack_int const* ldb,
float* X, lapack_int const* ldx, float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -8059,7 +8059,7 @@ void LAPACK_zporfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* A, lapack_int const* lda,
lapack_complex_double const* AF, lapack_int const* ldaf, lapack_complex_double const* AF, lapack_int const* ldaf,
double* S, const double* S,
lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double const* B, lapack_int const* ldb,
lapack_complex_double* X, lapack_int const* ldx, lapack_complex_double* X, lapack_int const* ldx,
double* rcond, double* rcond,
@ -10756,7 +10756,7 @@ void LAPACK_csyrfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* A, lapack_int const* lda,
lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
float* S, const float* S,
lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float const* B, lapack_int const* ldb,
lapack_complex_float* X, lapack_int const* ldx, lapack_complex_float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -10774,7 +10774,7 @@ void LAPACK_dsyrfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, double const* A, lapack_int const* lda,
double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
double* S, const double* S,
double const* B, lapack_int const* ldb, double const* B, lapack_int const* ldb,
double* X, lapack_int const* ldx, double* X, lapack_int const* ldx,
double* rcond, double* rcond,
@ -10792,7 +10792,7 @@ void LAPACK_ssyrfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, float const* A, lapack_int const* lda,
float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
float* S, const float* S,
float const* B, lapack_int const* ldb, float const* B, lapack_int const* ldb,
float* X, lapack_int const* ldx, float* X, lapack_int const* ldx,
float* rcond, float* rcond,
@ -10810,7 +10810,7 @@ void LAPACK_zsyrfsx(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* A, lapack_int const* lda,
lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
double* S, const double* S,
lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double const* B, lapack_int const* ldb,
lapack_complex_double* X, lapack_int const* ldx, lapack_complex_double* X, lapack_int const* ldx,
double* rcond, double* rcond,

1
lapack-netlib/LAPACKE/src/lapacke_clascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_cgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_cgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

1
lapack-netlib/LAPACKE/src/lapacke_dlascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_dgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_dgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_dsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_dsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

1
lapack-netlib/LAPACKE/src/lapacke_slascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_slascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_sgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_sgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_ssb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_ssb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

1
lapack-netlib/LAPACKE/src/lapacke_zlascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_zgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_zgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {