Skip to content

Commit 48677ee

Browse files
langoulangou
authored
Merge pull request #1162 from ACSimon33/LAPACKE_const_correctness
LAPACKE const correctness fixes
2 parents 7014148 + 0de6ae0 commit 48677ee

34 files changed

+145
-155
lines changed

‎LAPACKE/include/lapacke.h‎

Lines changed: 46 additions & 46 deletions
Original file line numberDiff line numberDiff line change
@@ -106,13 +106,13 @@ lapack_int LAPACKE_zbdsqr( int matrix_layout, char uplo, lapack_int n,
106106
lapack_int ldu, lapack_complex_double* c,
107107
lapack_int ldc );
108108
lapack_int LAPACKE_sbdsvdx( int matrix_layout, char uplo, char jobz, char range,
109-
lapack_int n, float* d, float* e,
109+
lapack_int n, const float* d, const float* e,
110110
float vl, float vu,
111111
lapack_int il, lapack_int iu, lapack_int* ns,
112112
float* s, float* z, lapack_int ldz,
113113
lapack_int* superb );
114114
lapack_int LAPACKE_dbdsvdx( int matrix_layout, char uplo, char jobz, char range,
115-
lapack_int n, double* d, double* e,
115+
lapack_int n, const double* d, const double* e,
116116
double vl, double vu,
117117
lapack_int il, lapack_int iu, lapack_int* ns,
118118
double* s, double* z, lapack_int ldz,
@@ -897,11 +897,11 @@ lapack_int LAPACKE_zgesv( int matrix_layout, lapack_int n, lapack_int nrhs,
897897
lapack_int ldb );
898898
lapack_int LAPACKE_dsgesv( int matrix_layout, lapack_int n, lapack_int nrhs,
899899
double* a, lapack_int lda, lapack_int* ipiv,
900-
double* b, lapack_int ldb, double* x, lapack_int ldx,
900+
const double* b, lapack_int ldb, double* x, lapack_int ldx,
901901
lapack_int* iter );
902902
lapack_int LAPACKE_zcgesv( int matrix_layout, lapack_int n, lapack_int nrhs,
903903
lapack_complex_double* a, lapack_int lda,
904-
lapack_int* ipiv, lapack_complex_double* b,
904+
lapack_int* ipiv, const lapack_complex_double* b,
905905
lapack_int ldb, lapack_complex_double* x,
906906
lapack_int ldx, lapack_int* iter );
907907

@@ -2514,10 +2514,10 @@ lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m,
25142514
lapack_int LAPACKE_slasrt( char id, lapack_int n, float* d );
25152515
lapack_int LAPACKE_dlasrt( char id, lapack_int n, double* d );
25162516

2517-
lapack_int LAPACKE_slassq( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq );
2518-
lapack_int LAPACKE_dlassq( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq );
2519-
lapack_int LAPACKE_classq( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq );
2520-
lapack_int LAPACKE_zlassq( lapack_int n, lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq );
2517+
lapack_int LAPACKE_slassq( lapack_int n, const float* x, lapack_int incx, float* scale, float* sumsq );
2518+
lapack_int LAPACKE_dlassq( lapack_int n, const double* x, lapack_int incx, double* scale, double* sumsq );
2519+
lapack_int LAPACKE_classq( lapack_int n, const lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq );
2520+
lapack_int LAPACKE_zlassq( lapack_int n, const lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq );
25212521

25222522
lapack_int LAPACKE_slaswp( int matrix_layout, lapack_int n, float* a,
25232523
lapack_int lda, lapack_int k1, lapack_int k2,
@@ -2988,11 +2988,11 @@ lapack_int LAPACKE_zposv( int matrix_layout, char uplo, lapack_int n,
29882988
lapack_int ldb );
29892989
lapack_int LAPACKE_dsposv( int matrix_layout, char uplo, lapack_int n,
29902990
lapack_int nrhs, double* a, lapack_int lda,
2991-
double* b, lapack_int ldb, double* x, lapack_int ldx,
2991+
const double* b, lapack_int ldb, double* x, lapack_int ldx,
29922992
lapack_int* iter );
29932993
lapack_int LAPACKE_zcposv( int matrix_layout, char uplo, lapack_int n,
29942994
lapack_int nrhs, lapack_complex_double* a,
2995-
lapack_int lda, lapack_complex_double* b,
2995+
lapack_int lda, const lapack_complex_double* b,
29962996
lapack_int ldb, lapack_complex_double* x,
29972997
lapack_int ldx, lapack_int* iter );
29982998

@@ -4759,13 +4759,13 @@ lapack_int LAPACKE_dbdsdc_work( int matrix_layout, char uplo, char compq,
47594759
lapack_int* iwork );
47604760

47614761
lapack_int LAPACKE_sbdsvdx_work( int matrix_layout, char uplo, char jobz, char range,
4762-
lapack_int n, float* d, float* e,
4762+
lapack_int n, const float* d, const float* e,
47634763
float vl, float vu,
47644764
lapack_int il, lapack_int iu, lapack_int* ns,
47654765
float* s, float* z, lapack_int ldz,
47664766
float* work, lapack_int* iwork );
47674767
lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char range,
4768-
lapack_int n, double* d, double* e,
4768+
lapack_int n, const double* d, const double* e,
47694769
double vl, double vu,
47704770
lapack_int il, lapack_int iu, lapack_int* ns,
47714771
double* s, double* z, lapack_int ldz,
@@ -5859,12 +5859,12 @@ lapack_int LAPACKE_zgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs,
58595859
lapack_int ldb );
58605860
lapack_int LAPACKE_dsgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs,
58615861
double* a, lapack_int lda, lapack_int* ipiv,
5862-
double* b, lapack_int ldb, double* x,
5862+
const double* b, lapack_int ldb, double* x,
58635863
lapack_int ldx, double* work, float* swork,
58645864
lapack_int* iter );
58655865
lapack_int LAPACKE_zcgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs,
58665866
lapack_complex_double* a, lapack_int lda,
5867-
lapack_int* ipiv, lapack_complex_double* b,
5867+
lapack_int* ipiv, const lapack_complex_double* b,
58685868
lapack_int ldb, lapack_complex_double* x,
58695869
lapack_int ldx, lapack_complex_double* work,
58705870
lapack_complex_float* swork, double* rwork,
@@ -7942,10 +7942,10 @@ lapack_int LAPACKE_zlaset_work( int matrix_layout, char uplo, lapack_int m,
79427942
lapack_int LAPACKE_slasrt_work( char id, lapack_int n, float* d );
79437943
lapack_int LAPACKE_dlasrt_work( char id, lapack_int n, double* d );
79447944

7945-
lapack_int LAPACKE_slassq_work( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq );
7946-
lapack_int LAPACKE_dlassq_work( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq );
7947-
lapack_int LAPACKE_classq_work( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq );
7948-
lapack_int LAPACKE_zlassq_work( lapack_int n, lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq );
7945+
lapack_int LAPACKE_slassq_work( lapack_int n, const float* x, lapack_int incx, float* scale, float* sumsq );
7946+
lapack_int LAPACKE_dlassq_work( lapack_int n, const double* x, lapack_int incx, double* scale, double* sumsq );
7947+
lapack_int LAPACKE_classq_work( lapack_int n, const lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq );
7948+
lapack_int LAPACKE_zlassq_work( lapack_int n, const lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq );
79497949

79507950
lapack_int LAPACKE_slaswp_work( int matrix_layout, lapack_int n, float* a,
79517951
lapack_int lda, lapack_int k1, lapack_int k2,
@@ -8491,12 +8491,12 @@ lapack_int LAPACKE_zposv_work( int matrix_layout, char uplo, lapack_int n,
84918491
lapack_int ldb );
84928492
lapack_int LAPACKE_dsposv_work( int matrix_layout, char uplo, lapack_int n,
84938493
lapack_int nrhs, double* a, lapack_int lda,
8494-
double* b, lapack_int ldb, double* x,
8494+
const double* b, lapack_int ldb, double* x,
84958495
lapack_int ldx, double* work, float* swork,
84968496
lapack_int* iter );
84978497
lapack_int LAPACKE_zcposv_work( int matrix_layout, char uplo, lapack_int n,
84988498
lapack_int nrhs, lapack_complex_double* a,
8499-
lapack_int lda, lapack_complex_double* b,
8499+
lapack_int lda, const lapack_complex_double* b,
85008500
lapack_int ldb, lapack_complex_double* x,
85018501
lapack_int ldx, lapack_complex_double* work,
85028502
lapack_complex_float* swork, double* rwork,
@@ -12801,62 +12801,62 @@ lapack_int LAPACKE_zhetrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i
1280112801

1280212802

1280312803
lapack_int LAPACKE_ssytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n,
12804-
lapack_int nrhs, float* a, lapack_int lda,
12805-
float* tb, lapack_int ltb, lapack_int* ipiv,
12806-
lapack_int* ipiv2, float* b, lapack_int ldb );
12804+
lapack_int nrhs, const float* a, lapack_int lda,
12805+
float* tb, lapack_int ltb, const lapack_int* ipiv,
12806+
const lapack_int* ipiv2, float* b, lapack_int ldb );
1280712807
lapack_int LAPACKE_ssytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n,
12808-
lapack_int nrhs, float* a, lapack_int lda,
12809-
float* tb, lapack_int ltb, lapack_int* ipiv,
12810-
lapack_int* ipiv2, float* b, lapack_int ldb );
12808+
lapack_int nrhs, const float* a, lapack_int lda,
12809+
float* tb, lapack_int ltb, const lapack_int* ipiv,
12810+
const lapack_int* ipiv2, float* b, lapack_int ldb );
1281112811
lapack_int LAPACKE_dsytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n,
12812-
lapack_int nrhs, double* a, lapack_int lda,
12812+
lapack_int nrhs, const double* a, lapack_int lda,
1281312813
double* tb, lapack_int ltb,
12814-
lapack_int* ipiv, lapack_int* ipiv2,
12814+
const lapack_int* ipiv, const lapack_int* ipiv2,
1281512815
double* b, lapack_int ldb );
1281612816
lapack_int LAPACKE_dsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n,
12817-
lapack_int nrhs, double* a, lapack_int lda,
12817+
lapack_int nrhs, const double* a, lapack_int lda,
1281812818
double* tb, lapack_int ltb,
12819-
lapack_int* ipiv, lapack_int* ipiv2,
12819+
const lapack_int* ipiv, const lapack_int* ipiv2,
1282012820
double* b, lapack_int ldb );
1282112821
lapack_int LAPACKE_csytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n,
12822-
lapack_int nrhs, lapack_complex_float* a,
12822+
lapack_int nrhs, const lapack_complex_float* a,
1282312823
lapack_int lda, lapack_complex_float* tb,
12824-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12824+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1282512825
lapack_complex_float* b, lapack_int ldb );
1282612826
lapack_int LAPACKE_csytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n,
12827-
lapack_int nrhs, lapack_complex_float* a,
12827+
lapack_int nrhs, const lapack_complex_float* a,
1282812828
lapack_int lda, lapack_complex_float* tb,
12829-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12829+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1283012830
lapack_complex_float* b, lapack_int ldb );
1283112831
lapack_int LAPACKE_zsytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n,
12832-
lapack_int nrhs, lapack_complex_double* a,
12832+
lapack_int nrhs, const lapack_complex_double* a,
1283312833
lapack_int lda, lapack_complex_double* tb,
12834-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12834+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1283512835
lapack_complex_double* b, lapack_int ldb );
1283612836
lapack_int LAPACKE_zsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n,
12837-
lapack_int nrhs, lapack_complex_double* a,
12837+
lapack_int nrhs, const lapack_complex_double* a,
1283812838
lapack_int lda, lapack_complex_double* tb,
12839-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12839+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1284012840
lapack_complex_double* b, lapack_int ldb );
1284112841
lapack_int LAPACKE_chetrs_aa_2stage( int matrix_layout, char uplo, lapack_int n,
12842-
lapack_int nrhs, lapack_complex_float* a,
12842+
lapack_int nrhs, const lapack_complex_float* a,
1284312843
lapack_int lda, lapack_complex_float* tb,
12844-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12844+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1284512845
lapack_complex_float* b, lapack_int ldb );
1284612846
lapack_int LAPACKE_chetrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n,
12847-
lapack_int nrhs, lapack_complex_float* a,
12847+
lapack_int nrhs, const lapack_complex_float* a,
1284812848
lapack_int lda, lapack_complex_float* tb,
12849-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12849+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1285012850
lapack_complex_float* b, lapack_int ldb );
1285112851
lapack_int LAPACKE_zhetrs_aa_2stage( int matrix_layout, char uplo, lapack_int n,
12852-
lapack_int nrhs, lapack_complex_double* a,
12852+
lapack_int nrhs, const lapack_complex_double* a,
1285312853
lapack_int lda, lapack_complex_double* tb,
12854-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12854+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1285512855
lapack_complex_double* b, lapack_int ldb );
1285612856
lapack_int LAPACKE_zhetrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n,
12857-
lapack_int nrhs, lapack_complex_double* a,
12857+
lapack_int nrhs, const lapack_complex_double* a,
1285812858
lapack_int lda, lapack_complex_double* tb,
12859-
lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2,
12859+
lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2,
1286012860
lapack_complex_double* b, lapack_int ldb );
1286112861
//LAPACK 3.10.0
1286212862
lapack_int LAPACKE_sorhr_col( int matrix_layout, lapack_int m, lapack_int n,

0 commit comments

Comments
 (0)