From 6b760666324806e89dfa4e52191dc7f92a13be3a Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 28 Apr 2021 20:55:37 +0200 Subject: [PATCH 1/2] Add const qualifiers --- lapack-netlib/LAPACKE/include/lapack.h | 36 +++++++++++++------------- 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/lapack-netlib/LAPACKE/include/lapack.h b/lapack-netlib/LAPACKE/include/lapack.h index aedaa308d..828d3279e 100644 --- a/lapack-netlib/LAPACKE/include/lapack.h +++ b/lapack-netlib/LAPACKE/include/lapack.h @@ -566,8 +566,8 @@ void LAPACK_cgbrfsx( 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* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - float* R, - float* C, + const float* R, + const float* C, lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float* X, lapack_int const* ldx, 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, double const* AB, lapack_int const* ldab, double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - double* R, - double* C, + const double* R, + const double* C, double const* B, lapack_int const* ldb, double* X, lapack_int const* ldx, 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, float const* AB, lapack_int const* ldab, float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - float* R, - float* C, + const float* R, + const float* C, float const* B, lapack_int const* ldb, float* X, lapack_int const* ldx, 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_complex_double const* AB, lapack_int const* ldab, lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - double* R, - double* C, + const double* R, + const double* C, lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double* X, lapack_int const* ldx, double* rcond, @@ -4913,7 +4913,7 @@ void LAPACK_cherfsx( lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, 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* X, lapack_int const* ldx, float* rcond, @@ -4931,7 +4931,7 @@ void LAPACK_zherfsx( lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, 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* X, lapack_int const* ldx, double* rcond, @@ -8005,7 +8005,7 @@ void LAPACK_cporfsx( lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, 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* X, lapack_int const* ldx, float* rcond, @@ -8023,7 +8023,7 @@ void LAPACK_dporfsx( lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double const* AF, lapack_int const* ldaf, - double* S, + const double* S, double const* B, lapack_int const* ldb, double* X, lapack_int const* ldx, double* rcond, @@ -8041,7 +8041,7 @@ void LAPACK_sporfsx( lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float const* AF, lapack_int const* ldaf, - float* S, + const float* S, float const* B, lapack_int const* ldb, float* X, lapack_int const* ldx, float* rcond, @@ -8059,7 +8059,7 @@ void LAPACK_zporfsx( lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, 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* X, lapack_int const* ldx, double* rcond, @@ -10756,7 +10756,7 @@ void LAPACK_csyrfsx( lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, 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* X, lapack_int const* ldx, float* rcond, @@ -10774,7 +10774,7 @@ void LAPACK_dsyrfsx( lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - double* S, + const double* S, double const* B, lapack_int const* ldb, double* X, lapack_int const* ldx, double* rcond, @@ -10792,7 +10792,7 @@ void LAPACK_ssyrfsx( lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - float* S, + const float* S, float const* B, lapack_int const* ldb, float* X, lapack_int const* ldx, float* rcond, @@ -10810,7 +10810,7 @@ void LAPACK_zsyrfsx( lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, 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* X, lapack_int const* ldx, double* rcond, From 3704f5e5b0a229cbfb3f949dd5fcea557915f49b Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 28 Apr 2021 20:56:55 +0200 Subject: [PATCH 2/2] Add missing break statements in the ?lascl functions --- lapack-netlib/LAPACKE/src/lapacke_clascl.c | 1 + lapack-netlib/LAPACKE/src/lapacke_dlascl.c | 1 + lapack-netlib/LAPACKE/src/lapacke_slascl.c | 1 + lapack-netlib/LAPACKE/src/lapacke_zlascl.c | 1 + 4 files changed, 4 insertions(+) diff --git a/lapack-netlib/LAPACKE/src/lapacke_clascl.c b/lapack-netlib/LAPACKE/src/lapacke_clascl.c index fdcb02947..4f4e0bf35 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clascl.c @@ -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 ) ) { return -9; } + break; case 'B': // TYPE = 'B' - lower part of symmetric band matrix (assume m==n) if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlascl.c b/lapack-netlib/LAPACKE/src/lapacke_dlascl.c index 5b579a5d1..058105127 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlascl.c @@ -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 ) ) { return -9; } + break; case 'B': // TYPE = 'B' - lower part of symmetric band matrix (assume m==n) if( LAPACKE_dsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { diff --git a/lapack-netlib/LAPACKE/src/lapacke_slascl.c b/lapack-netlib/LAPACKE/src/lapacke_slascl.c index 25bd9624e..62f7390ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slascl.c @@ -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 ) ) { return -9; } + break; case 'B': // TYPE = 'B' - lower part of symmetric band matrix (assume m==n) if( LAPACKE_ssb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlascl.c b/lapack-netlib/LAPACKE/src/lapacke_zlascl.c index 7e37d559c..8bf1ee767 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlascl.c @@ -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 ) ) { return -9; } + break; case 'B': // TYPE = 'B' - lower part of symmetric band matrix (assume m==n) if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {