Skip to content

Commit 0de6ae0

Browse files
ACSimon33ACSimon33
committed
Fixed const specifiers in several LAPACKE function signatures and removed some spurious transpositions of output matrices that are in fact pure input parameters.
1 parent c08dcfa commit 0de6ae0

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)