Skip to content

Commit 9a36a28

Browse files
martin-frbgmartin-frbg
authored
Merge pull request #3199 from martin-frbg/lapack537
Add LAPACKE fixes from Reference-LAPACK PR 537
2 parents 7e35d25 + 3704f5e commit 9a36a28

File tree

5 files changed

+22
-18
lines changed

5 files changed

+22
-18
lines changed

‎lapack-netlib/LAPACKE/include/lapack.h

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -566,8 +566,8 @@ void LAPACK_cgbrfsx(
566566
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
567567
lapack_complex_float const* AB, lapack_int const* ldab,
568568
lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
569-
float* R,
570-
float* C,
569+
const float* R,
570+
const float* C,
571571
lapack_complex_float const* B, lapack_int const* ldb,
572572
lapack_complex_float* X, lapack_int const* ldx,
573573
float* rcond,
@@ -585,8 +585,8 @@ void LAPACK_dgbrfsx(
585585
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
586586
double const* AB, lapack_int const* ldab,
587587
double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
588-
double* R,
589-
double* C,
588+
const double* R,
589+
const double* C,
590590
double const* B, lapack_int const* ldb,
591591
double* X, lapack_int const* ldx,
592592
double* rcond,
@@ -604,8 +604,8 @@ void LAPACK_sgbrfsx(
604604
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
605605
float const* AB, lapack_int const* ldab,
606606
float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
607-
float* R,
608-
float* C,
607+
const float* R,
608+
const float* C,
609609
float const* B, lapack_int const* ldb,
610610
float* X, lapack_int const* ldx,
611611
float* rcond,
@@ -623,8 +623,8 @@ void LAPACK_zgbrfsx(
623623
lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
624624
lapack_complex_double const* AB, lapack_int const* ldab,
625625
lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
626-
double* R,
627-
double* C,
626+
const double* R,
627+
const double* C,
628628
lapack_complex_double const* B, lapack_int const* ldb,
629629
lapack_complex_double* X, lapack_int const* ldx,
630630
double* rcond,
@@ -4913,7 +4913,7 @@ void LAPACK_cherfsx(
49134913
lapack_int const* n, lapack_int const* nrhs,
49144914
lapack_complex_float const* A, lapack_int const* lda,
49154915
lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
4916-
float* S,
4916+
const float* S,
49174917
lapack_complex_float const* B, lapack_int const* ldb,
49184918
lapack_complex_float* X, lapack_int const* ldx,
49194919
float* rcond,
@@ -4931,7 +4931,7 @@ void LAPACK_zherfsx(
49314931
lapack_int const* n, lapack_int const* nrhs,
49324932
lapack_complex_double const* A, lapack_int const* lda,
49334933
lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
4934-
double* S,
4934+
const double* S,
49354935
lapack_complex_double const* B, lapack_int const* ldb,
49364936
lapack_complex_double* X, lapack_int const* ldx,
49374937
double* rcond,
@@ -8005,7 +8005,7 @@ void LAPACK_cporfsx(
80058005
lapack_int const* n, lapack_int const* nrhs,
80068006
lapack_complex_float const* A, lapack_int const* lda,
80078007
lapack_complex_float const* AF, lapack_int const* ldaf,
8008-
float* S,
8008+
const float* S,
80098009
lapack_complex_float const* B, lapack_int const* ldb,
80108010
lapack_complex_float* X, lapack_int const* ldx,
80118011
float* rcond,
@@ -8023,7 +8023,7 @@ void LAPACK_dporfsx(
80238023
lapack_int const* n, lapack_int const* nrhs,
80248024
double const* A, lapack_int const* lda,
80258025
double const* AF, lapack_int const* ldaf,
8026-
double* S,
8026+
const double* S,
80278027
double const* B, lapack_int const* ldb,
80288028
double* X, lapack_int const* ldx,
80298029
double* rcond,
@@ -8041,7 +8041,7 @@ void LAPACK_sporfsx(
80418041
lapack_int const* n, lapack_int const* nrhs,
80428042
float const* A, lapack_int const* lda,
80438043
float const* AF, lapack_int const* ldaf,
8044-
float* S,
8044+
const float* S,
80458045
float const* B, lapack_int const* ldb,
80468046
float* X, lapack_int const* ldx,
80478047
float* rcond,
@@ -8059,7 +8059,7 @@ void LAPACK_zporfsx(
80598059
lapack_int const* n, lapack_int const* nrhs,
80608060
lapack_complex_double const* A, lapack_int const* lda,
80618061
lapack_complex_double const* AF, lapack_int const* ldaf,
8062-
double* S,
8062+
const double* S,
80638063
lapack_complex_double const* B, lapack_int const* ldb,
80648064
lapack_complex_double* X, lapack_int const* ldx,
80658065
double* rcond,
@@ -10756,7 +10756,7 @@ void LAPACK_csyrfsx(
1075610756
lapack_int const* n, lapack_int const* nrhs,
1075710757
lapack_complex_float const* A, lapack_int const* lda,
1075810758
lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
10759-
float* S,
10759+
const float* S,
1076010760
lapack_complex_float const* B, lapack_int const* ldb,
1076110761
lapack_complex_float* X, lapack_int const* ldx,
1076210762
float* rcond,
@@ -10774,7 +10774,7 @@ void LAPACK_dsyrfsx(
1077410774
lapack_int const* n, lapack_int const* nrhs,
1077510775
double const* A, lapack_int const* lda,
1077610776
double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
10777-
double* S,
10777+
const double* S,
1077810778
double const* B, lapack_int const* ldb,
1077910779
double* X, lapack_int const* ldx,
1078010780
double* rcond,
@@ -10792,7 +10792,7 @@ void LAPACK_ssyrfsx(
1079210792
lapack_int const* n, lapack_int const* nrhs,
1079310793
float const* A, lapack_int const* lda,
1079410794
float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
10795-
float* S,
10795+
const float* S,
1079610796
float const* B, lapack_int const* ldb,
1079710797
float* X, lapack_int const* ldx,
1079810798
float* rcond,
@@ -10810,7 +10810,7 @@ void LAPACK_zsyrfsx(
1081010810
lapack_int const* n, lapack_int const* nrhs,
1081110811
lapack_complex_double const* A, lapack_int const* lda,
1081210812
lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
10813-
double* S,
10813+
const double* S,
1081410814
lapack_complex_double const* B, lapack_int const* ldb,
1081510815
lapack_complex_double* X, lapack_int const* ldx,
1081610816
double* rcond,

‎lapack-netlib/LAPACKE/src/lapacke_clascl.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,7 @@ lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
8383
LAPACKE_cgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
8484
return -9;
8585
}
86+
break;
8687
case 'B':
8788
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
8889
if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

‎lapack-netlib/LAPACKE/src/lapacke_dlascl.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,7 @@ lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl,
8383
LAPACKE_dgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
8484
return -9;
8585
}
86+
break;
8687
case 'B':
8788
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
8889
if( LAPACKE_dsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

‎lapack-netlib/LAPACKE/src/lapacke_slascl.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,7 @@ lapack_int LAPACKE_slascl( int matrix_layout, char type, lapack_int kl,
8383
LAPACKE_sgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
8484
return -9;
8585
}
86+
break;
8687
case 'B':
8788
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
8889
if( LAPACKE_ssb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

‎lapack-netlib/LAPACKE/src/lapacke_zlascl.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,7 @@ lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
8383
LAPACKE_zgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
8484
return -9;
8585
}
86+
break;
8687
case 'B':
8788
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
8889
if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

0 commit comments

Comments
 (0)