diff --git a/LAPACKE/include/lapacke.h b/LAPACKE/include/lapacke.h index 82cc4e6c1e..687c243534 100644 --- a/LAPACKE/include/lapacke.h +++ b/LAPACKE/include/lapacke.h @@ -106,13 +106,13 @@ lapack_int LAPACKE_zbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ldu, lapack_complex_double* c, lapack_int ldc ); lapack_int LAPACKE_sbdsvdx( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, float* d, float* e, + lapack_int n, const float* d, const float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, float* z, lapack_int ldz, lapack_int* superb ); lapack_int LAPACKE_dbdsvdx( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, double* d, double* e, + lapack_int n, const double* d, const double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, double* z, lapack_int ldz, @@ -897,11 +897,11 @@ lapack_int LAPACKE_zgesv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_int ldb ); lapack_int LAPACKE_dsgesv( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb, double* x, lapack_int ldx, + const double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ); lapack_int LAPACKE_zcgesv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, + lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_int* iter ); @@ -2514,10 +2514,10 @@ lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m, lapack_int LAPACKE_slasrt( char id, lapack_int n, float* d ); lapack_int LAPACKE_dlasrt( char id, lapack_int n, double* d ); -lapack_int LAPACKE_slassq( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_dlassq( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq ); -lapack_int LAPACKE_classq( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_zlassq( lapack_int n, lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ); +lapack_int LAPACKE_slassq( lapack_int n, const float* x, lapack_int incx, float* scale, float* sumsq ); +lapack_int LAPACKE_dlassq( lapack_int n, const double* x, lapack_int incx, double* scale, double* sumsq ); +lapack_int LAPACKE_classq( lapack_int n, const lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ); +lapack_int LAPACKE_zlassq( lapack_int n, const lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ); lapack_int LAPACKE_slaswp( int matrix_layout, lapack_int n, float* a, 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, lapack_int ldb ); lapack_int LAPACKE_dsposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* x, lapack_int ldx, + const double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ); lapack_int LAPACKE_zcposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_int* iter ); @@ -4759,13 +4759,13 @@ lapack_int LAPACKE_dbdsdc_work( int matrix_layout, char uplo, char compq, lapack_int* iwork ); lapack_int LAPACKE_sbdsvdx_work( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, float* d, float* e, + lapack_int n, const float* d, const float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, float* z, lapack_int ldz, float* work, lapack_int* iwork ); lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, double* d, double* e, + lapack_int n, const double* d, const double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, 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, lapack_int ldb ); lapack_int LAPACKE_dsgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb, double* x, + const double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ); lapack_int LAPACKE_zcgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, + lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_complex_double* work, lapack_complex_float* swork, double* rwork, @@ -7942,10 +7942,10 @@ lapack_int LAPACKE_zlaset_work( int matrix_layout, char uplo, lapack_int m, lapack_int LAPACKE_slasrt_work( char id, lapack_int n, float* d ); lapack_int LAPACKE_dlasrt_work( char id, lapack_int n, double* d ); -lapack_int LAPACKE_slassq_work( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_dlassq_work( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq ); -lapack_int LAPACKE_classq_work( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_zlassq_work( lapack_int n, lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ); +lapack_int LAPACKE_slassq_work( lapack_int n, const float* x, lapack_int incx, float* scale, float* sumsq ); +lapack_int LAPACKE_dlassq_work( lapack_int n, const double* x, lapack_int incx, double* scale, double* sumsq ); +lapack_int LAPACKE_classq_work( lapack_int n, const lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ); +lapack_int LAPACKE_zlassq_work( lapack_int n, const lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ); lapack_int LAPACKE_slaswp_work( int matrix_layout, lapack_int n, float* a, 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, lapack_int ldb ); lapack_int LAPACKE_dsposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* x, + const double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ); lapack_int LAPACKE_zcposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_complex_double* work, lapack_complex_float* swork, double* rwork, @@ -12801,62 +12801,62 @@ lapack_int LAPACKE_zhetrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i lapack_int LAPACKE_ssytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb ); + lapack_int nrhs, const float* a, lapack_int lda, + float* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, float* b, lapack_int ldb ); lapack_int LAPACKE_ssytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb ); + lapack_int nrhs, const float* a, lapack_int lda, + float* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, float* b, lapack_int ldb ); lapack_int LAPACKE_dsytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, + lapack_int nrhs, const double* a, lapack_int lda, double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, + const lapack_int* ipiv, const lapack_int* ipiv2, double* b, lapack_int ldb ); lapack_int LAPACKE_dsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, + lapack_int nrhs, const double* a, lapack_int lda, double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, + const lapack_int* ipiv, const lapack_int* ipiv2, double* b, lapack_int ldb ); lapack_int LAPACKE_csytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_csytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_zsytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ); lapack_int LAPACKE_zsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ); lapack_int LAPACKE_chetrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_chetrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_zhetrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ); lapack_int LAPACKE_zhetrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ); //LAPACK 3.10.0 lapack_int LAPACKE_sorhr_col( int matrix_layout, lapack_int m, lapack_int n, diff --git a/LAPACKE/include/lapacke_64.h b/LAPACKE/include/lapacke_64.h index c8d3c552af..a83dc114db 100644 --- a/LAPACKE/include/lapacke_64.h +++ b/LAPACKE/include/lapacke_64.h @@ -72,13 +72,13 @@ int64_t LAPACKE_zbdsqr_64( int matrix_layout, char uplo, int64_t n, int64_t ldu, lapack_complex_double* c, int64_t ldc ); int64_t LAPACKE_sbdsvdx_64( int matrix_layout, char uplo, char jobz, char range, - int64_t n, float* d, float* e, + int64_t n, const float* d, const float* e, float vl, float vu, int64_t il, int64_t iu, int64_t* ns, float* s, float* z, int64_t ldz, int64_t* superb ); int64_t LAPACKE_dbdsvdx_64( int matrix_layout, char uplo, char jobz, char range, - int64_t n, double* d, double* e, + int64_t n, const double* d, const double* e, double vl, double vu, int64_t il, int64_t iu, int64_t* ns, double* s, double* z, int64_t ldz, @@ -863,11 +863,11 @@ int64_t LAPACKE_zgesv_64( int matrix_layout, int64_t n, int64_t nrhs, int64_t ldb ); int64_t LAPACKE_dsgesv_64( int matrix_layout, int64_t n, int64_t nrhs, double* a, int64_t lda, int64_t* ipiv, - double* b, int64_t ldb, double* x, int64_t ldx, + const double* b, int64_t ldb, double* x, int64_t ldx, int64_t* iter ); int64_t LAPACKE_zcgesv_64( int matrix_layout, int64_t n, int64_t nrhs, lapack_complex_double* a, int64_t lda, - int64_t* ipiv, lapack_complex_double* b, + int64_t* ipiv, const lapack_complex_double* b, int64_t ldb, lapack_complex_double* x, int64_t ldx, int64_t* iter ); @@ -2480,10 +2480,10 @@ int64_t LAPACKE_zlaset_64( int matrix_layout, char uplo, int64_t m, int64_t LAPACKE_slasrt_64( char id, int64_t n, float* d ); int64_t LAPACKE_dlasrt_64( char id, int64_t n, double* d ); -int64_t LAPACKE_slassq_64( int64_t n, float* x, int64_t incx, float* scale, float* sumsq ); -int64_t LAPACKE_dlassq_64( int64_t n, double* x, int64_t incx, double* scale, double* sumsq ); -int64_t LAPACKE_classq_64( int64_t n, lapack_complex_float* x, int64_t incx, float* scale, float* sumsq ); -int64_t LAPACKE_zlassq_64( int64_t n, lapack_complex_double* x, int64_t incx, double* scale, double* sumsq ); +int64_t LAPACKE_slassq_64( int64_t n, const float* x, int64_t incx, float* scale, float* sumsq ); +int64_t LAPACKE_dlassq_64( int64_t n, const double* x, int64_t incx, double* scale, double* sumsq ); +int64_t LAPACKE_classq_64( int64_t n, const lapack_complex_float* x, int64_t incx, float* scale, float* sumsq ); +int64_t LAPACKE_zlassq_64( int64_t n, const lapack_complex_double* x, int64_t incx, double* scale, double* sumsq ); int64_t LAPACKE_slaswp_64( int matrix_layout, int64_t n, float* a, int64_t lda, int64_t k1, int64_t k2, @@ -2954,11 +2954,11 @@ int64_t LAPACKE_zposv_64( int matrix_layout, char uplo, int64_t n, int64_t ldb ); int64_t LAPACKE_dsposv_64( int matrix_layout, char uplo, int64_t n, int64_t nrhs, double* a, int64_t lda, - double* b, int64_t ldb, double* x, int64_t ldx, + const double* b, int64_t ldb, double* x, int64_t ldx, int64_t* iter ); int64_t LAPACKE_zcposv_64( int matrix_layout, char uplo, int64_t n, int64_t nrhs, lapack_complex_double* a, - int64_t lda, lapack_complex_double* b, + int64_t lda, const lapack_complex_double* b, int64_t ldb, lapack_complex_double* x, int64_t ldx, int64_t* iter ); @@ -4725,13 +4725,13 @@ int64_t LAPACKE_dbdsdc_work_64( int matrix_layout, char uplo, char compq, int64_t* iwork ); int64_t LAPACKE_sbdsvdx_work_64( int matrix_layout, char uplo, char jobz, char range, - int64_t n, float* d, float* e, + int64_t n, const float* d, const float* e, float vl, float vu, int64_t il, int64_t iu, int64_t* ns, float* s, float* z, int64_t ldz, float* work, int64_t* iwork ); int64_t LAPACKE_dbdsvdx_work_64( int matrix_layout, char uplo, char jobz, char range, - int64_t n, double* d, double* e, + int64_t n, const double* d, const double* e, double vl, double vu, int64_t il, int64_t iu, int64_t* ns, double* s, double* z, int64_t ldz, @@ -5826,12 +5826,12 @@ int64_t LAPACKE_zgesv_work_64( int matrix_layout, int64_t n, int64_t nrhs, int64_t ldb ); int64_t LAPACKE_dsgesv_work_64( int matrix_layout, int64_t n, int64_t nrhs, double* a, int64_t lda, int64_t* ipiv, - double* b, int64_t ldb, double* x, + const double* b, int64_t ldb, double* x, int64_t ldx, double* work, float* swork, int64_t* iter ); int64_t LAPACKE_zcgesv_work_64( int matrix_layout, int64_t n, int64_t nrhs, lapack_complex_double* a, int64_t lda, - int64_t* ipiv, lapack_complex_double* b, + int64_t* ipiv, const lapack_complex_double* b, int64_t ldb, lapack_complex_double* x, int64_t ldx, lapack_complex_double* work, lapack_complex_float* swork, double* rwork, @@ -7909,10 +7909,10 @@ int64_t LAPACKE_zlaset_work_64( int matrix_layout, char uplo, int64_t m, int64_t LAPACKE_slasrt_work_64( char id, int64_t n, float* d ); int64_t LAPACKE_dlasrt_work_64( char id, int64_t n, double* d ); -int64_t LAPACKE_slassq_work_64( int64_t n, float* x, int64_t incx, float* scale, float* sumsq ); -int64_t LAPACKE_dlassq_work_64( int64_t n, double* x, int64_t incx, double* scale, double* sumsq ); -int64_t LAPACKE_classq_work_64( int64_t n, lapack_complex_float* x, int64_t incx, float* scale, float* sumsq ); -int64_t LAPACKE_zlassq_work_64( int64_t n, lapack_complex_double* x, int64_t incx, double* scale, double* sumsq ); +int64_t LAPACKE_slassq_work_64( int64_t n, const float* x, int64_t incx, float* scale, float* sumsq ); +int64_t LAPACKE_dlassq_work_64( int64_t n, const double* x, int64_t incx, double* scale, double* sumsq ); +int64_t LAPACKE_classq_work_64( int64_t n, const lapack_complex_float* x, int64_t incx, float* scale, float* sumsq ); +int64_t LAPACKE_zlassq_work_64( int64_t n, const lapack_complex_double* x, int64_t incx, double* scale, double* sumsq ); int64_t LAPACKE_slaswp_work_64( int matrix_layout, int64_t n, float* a, int64_t lda, int64_t k1, int64_t k2, @@ -8458,12 +8458,12 @@ int64_t LAPACKE_zposv_work_64( int matrix_layout, char uplo, int64_t n, int64_t ldb ); int64_t LAPACKE_dsposv_work_64( int matrix_layout, char uplo, int64_t n, int64_t nrhs, double* a, int64_t lda, - double* b, int64_t ldb, double* x, + const double* b, int64_t ldb, double* x, int64_t ldx, double* work, float* swork, int64_t* iter ); int64_t LAPACKE_zcposv_work_64( int matrix_layout, char uplo, int64_t n, int64_t nrhs, lapack_complex_double* a, - int64_t lda, lapack_complex_double* b, + int64_t lda, const lapack_complex_double* b, int64_t ldb, lapack_complex_double* x, int64_t ldx, lapack_complex_double* work, lapack_complex_float* swork, double* rwork, @@ -12768,62 +12768,62 @@ int64_t LAPACKE_zhetrf_aa_2stage_work_64( int matrix_layout, char uplo, int64_t int64_t LAPACKE_ssytrs_aa_2stage_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, float* a, int64_t lda, - float* tb, int64_t ltb, int64_t* ipiv, - int64_t* ipiv2, float* b, int64_t ldb ); + int64_t nrhs, const float* a, int64_t lda, + float* tb, int64_t ltb, const int64_t* ipiv, + const int64_t* ipiv2, float* b, int64_t ldb ); int64_t LAPACKE_ssytrs_aa_2stage_work_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, float* a, int64_t lda, - float* tb, int64_t ltb, int64_t* ipiv, - int64_t* ipiv2, float* b, int64_t ldb ); + int64_t nrhs, const float* a, int64_t lda, + float* tb, int64_t ltb, const int64_t* ipiv, + const int64_t* ipiv2, float* b, int64_t ldb ); int64_t LAPACKE_dsytrs_aa_2stage_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, double* a, int64_t lda, + int64_t nrhs, const double* a, int64_t lda, double* tb, int64_t ltb, - int64_t* ipiv, int64_t* ipiv2, + const int64_t* ipiv, const int64_t* ipiv2, double* b, int64_t ldb ); int64_t LAPACKE_dsytrs_aa_2stage_work_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, double* a, int64_t lda, + int64_t nrhs, const double* a, int64_t lda, double* tb, int64_t ltb, - int64_t* ipiv, int64_t* ipiv2, + const int64_t* ipiv, const int64_t* ipiv2, double* b, int64_t ldb ); int64_t LAPACKE_csytrs_aa_2stage_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_float* a, + int64_t nrhs, const lapack_complex_float* a, int64_t lda, lapack_complex_float* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_float* b, int64_t ldb ); int64_t LAPACKE_csytrs_aa_2stage_work_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_float* a, + int64_t nrhs, const lapack_complex_float* a, int64_t lda, lapack_complex_float* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_float* b, int64_t ldb ); int64_t LAPACKE_zsytrs_aa_2stage_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_double* a, + int64_t nrhs, const lapack_complex_double* a, int64_t lda, lapack_complex_double* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_double* b, int64_t ldb ); int64_t LAPACKE_zsytrs_aa_2stage_work_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_double* a, + int64_t nrhs, const lapack_complex_double* a, int64_t lda, lapack_complex_double* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_double* b, int64_t ldb ); int64_t LAPACKE_chetrs_aa_2stage_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_float* a, + int64_t nrhs, const lapack_complex_float* a, int64_t lda, lapack_complex_float* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_float* b, int64_t ldb ); int64_t LAPACKE_chetrs_aa_2stage_work_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_float* a, + int64_t nrhs, const lapack_complex_float* a, int64_t lda, lapack_complex_float* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_float* b, int64_t ldb ); int64_t LAPACKE_zhetrs_aa_2stage_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_double* a, + int64_t nrhs, const lapack_complex_double* a, int64_t lda, lapack_complex_double* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_double* b, int64_t ldb ); int64_t LAPACKE_zhetrs_aa_2stage_work_64( int matrix_layout, char uplo, int64_t n, - int64_t nrhs, lapack_complex_double* a, + int64_t nrhs, const lapack_complex_double* a, int64_t lda, lapack_complex_double* tb, - int64_t ltb, int64_t* ipiv, int64_t* ipiv2, + int64_t ltb, const int64_t* ipiv, const int64_t* ipiv2, lapack_complex_double* b, int64_t ldb ); //LAPACK 3.10.0 int64_t LAPACKE_sorhr_col_64( int matrix_layout, int64_t m, int64_t n, diff --git a/LAPACKE/src/lapacke_chetrs_aa_2stage.c b/LAPACKE/src/lapacke_chetrs_aa_2stage.c index 8782a10f67..138fba984a 100644 --- a/LAPACKE/src/lapacke_chetrs_aa_2stage.c +++ b/LAPACKE/src/lapacke_chetrs_aa_2stage.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_chetrs_aa_2stage)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c b/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c index cad13076a7..7bd0f54320 100644 --- a/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_chetrs_aa_2stage_work)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, + lapack_complex_float* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { @@ -94,7 +94,6 @@ lapack_int API_SUFFIX(LAPACKE_chetrs_aa_2stage_work)( int matrix_layout, char up info = info - 1; } /* Transpose output matrices */ - API_SUFFIX(LAPACKE_che_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); API_SUFFIX(LAPACKE_cge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); diff --git a/LAPACKE/src/lapacke_classq.c b/LAPACKE/src/lapacke_classq.c index ff989e4e6b..c02406f7a3 100644 --- a/LAPACKE/src/lapacke_classq.c +++ b/LAPACKE/src/lapacke_classq.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_classq)( lapack_int n, lapack_complex_float* x, +lapack_int API_SUFFIX(LAPACKE_classq)( lapack_int n, const lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ) { #ifndef LAPACK_DISABLE_NAN_CHECK diff --git a/LAPACKE/src/lapacke_classq_work.c b/LAPACKE/src/lapacke_classq_work.c index b840579ecd..8b95483ac3 100644 --- a/LAPACKE/src/lapacke_classq_work.c +++ b/LAPACKE/src/lapacke_classq_work.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_classq_work)( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ) +lapack_int API_SUFFIX(LAPACKE_classq_work)( lapack_int n, const lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ) { lapack_int info = 0; LAPACK_classq( &n, x, &incx, scale, sumsq ); diff --git a/LAPACKE/src/lapacke_csytrs_aa_2stage.c b/LAPACKE/src/lapacke_csytrs_aa_2stage.c index 97fd3a8daa..78ae75e358 100644 --- a/LAPACKE/src/lapacke_csytrs_aa_2stage.c +++ b/LAPACKE/src/lapacke_csytrs_aa_2stage.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_csytrs_aa_2stage)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, + lapack_complex_float* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { diff --git a/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c b/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c index 8d3ba5317f..1a4f2799f2 100644 --- a/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_csytrs_aa_2stage_work)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, + lapack_complex_float* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { @@ -93,7 +93,6 @@ lapack_int API_SUFFIX(LAPACKE_csytrs_aa_2stage_work)( int matrix_layout, char up info = info - 1; } /* Transpose output matrices */ - API_SUFFIX(LAPACKE_csy_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); API_SUFFIX(LAPACKE_cge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); diff --git a/LAPACKE/src/lapacke_dbdsvdx.c b/LAPACKE/src/lapacke_dbdsvdx.c index 2e204b1f94..dddea43450 100644 --- a/LAPACKE/src/lapacke_dbdsvdx.c +++ b/LAPACKE/src/lapacke_dbdsvdx.c @@ -33,7 +33,7 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_dbdsvdx)( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, double* d, double* e, + lapack_int n, const double* d, const double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, double* z, lapack_int ldz, diff --git a/LAPACKE/src/lapacke_dbdsvdx_work.c b/LAPACKE/src/lapacke_dbdsvdx_work.c index ea24dac521..20f6ee2686 100644 --- a/LAPACKE/src/lapacke_dbdsvdx_work.c +++ b/LAPACKE/src/lapacke_dbdsvdx_work.c @@ -33,7 +33,7 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_dbdsvdx_work)( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, double* d, double* e, + lapack_int n, const double* d, const double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* ns, double* s, double* z, lapack_int ldz, diff --git a/LAPACKE/src/lapacke_dlassq.c b/LAPACKE/src/lapacke_dlassq.c index 3905354397..1e9726e0e3 100644 --- a/LAPACKE/src/lapacke_dlassq.c +++ b/LAPACKE/src/lapacke_dlassq.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_dlassq)( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq ) +lapack_int API_SUFFIX(LAPACKE_dlassq)( lapack_int n, const double* x, lapack_int incx, double* scale, double* sumsq ) { #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { diff --git a/LAPACKE/src/lapacke_dlassq_work.c b/LAPACKE/src/lapacke_dlassq_work.c index 46ab6e8e04..f8e1b758ab 100644 --- a/LAPACKE/src/lapacke_dlassq_work.c +++ b/LAPACKE/src/lapacke_dlassq_work.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_dlassq_work)( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq ) +lapack_int API_SUFFIX(LAPACKE_dlassq_work)( lapack_int n, const double* x, lapack_int incx, double* scale, double* sumsq ) { lapack_int info = 0; LAPACK_dlassq( &n, x, &incx, scale, sumsq ); diff --git a/LAPACKE/src/lapacke_dsgesv.c b/LAPACKE/src/lapacke_dsgesv.c index 4b5c9d26ca..62aceea3b9 100644 --- a/LAPACKE/src/lapacke_dsgesv.c +++ b/LAPACKE/src/lapacke_dsgesv.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_dsgesv)( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb, double* x, lapack_int ldx, + const double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_dsgesv_work.c b/LAPACKE/src/lapacke_dsgesv_work.c index 62e266470d..0384cce2e7 100644 --- a/LAPACKE/src/lapacke_dsgesv_work.c +++ b/LAPACKE/src/lapacke_dsgesv_work.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_dsgesv_work)( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb, double* x, + const double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ) { @@ -96,7 +96,6 @@ lapack_int API_SUFFIX(LAPACKE_dsgesv_work)( int matrix_layout, lapack_int n, lap } /* Transpose output matrices */ API_SUFFIX(LAPACKE_dge_trans)( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); - API_SUFFIX(LAPACKE_dge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); API_SUFFIX(LAPACKE_dge_trans)( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); /* Release memory and exit */ LAPACKE_free( x_t ); diff --git a/LAPACKE/src/lapacke_dsposv.c b/LAPACKE/src/lapacke_dsposv.c index 71ecfd63b4..a28f8a3945 100644 --- a/LAPACKE/src/lapacke_dsposv.c +++ b/LAPACKE/src/lapacke_dsposv.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_dsposv)( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* x, lapack_int ldx, + const double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_dsposv_work.c b/LAPACKE/src/lapacke_dsposv_work.c index ad59e66e73..40120e31da 100644 --- a/LAPACKE/src/lapacke_dsposv_work.c +++ b/LAPACKE/src/lapacke_dsposv_work.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_dsposv_work)( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* x, + const double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ) { @@ -96,7 +96,6 @@ lapack_int API_SUFFIX(LAPACKE_dsposv_work)( int matrix_layout, char uplo, lapack } /* Transpose output matrices */ API_SUFFIX(LAPACKE_dpo_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); - API_SUFFIX(LAPACKE_dge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); API_SUFFIX(LAPACKE_dge_trans)( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); /* Release memory and exit */ LAPACKE_free( x_t ); diff --git a/LAPACKE/src/lapacke_dsytrs_aa_2stage.c b/LAPACKE/src/lapacke_dsytrs_aa_2stage.c index 034c66a683..ca7fca13ea 100644 --- a/LAPACKE/src/lapacke_dsytrs_aa_2stage.c +++ b/LAPACKE/src/lapacke_dsytrs_aa_2stage.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_dsytrs_aa_2stage)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, double* b, lapack_int ldb ) + lapack_int nrhs, const double* a, lapack_int lda, + double* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, double* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { diff --git a/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c b/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c index cee0b7c829..f8f6e62f90 100644 --- a/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_dsytrs_aa_2stage_work)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, double* b, lapack_int ldb ) + lapack_int nrhs, const double* a, lapack_int lda, + double* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, double* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { @@ -93,7 +93,6 @@ lapack_int API_SUFFIX(LAPACKE_dsytrs_aa_2stage_work)( int matrix_layout, char up info = info - 1; } /* Transpose output matrices */ - API_SUFFIX(LAPACKE_dsy_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); API_SUFFIX(LAPACKE_dge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); diff --git a/LAPACKE/src/lapacke_sbdsvdx.c b/LAPACKE/src/lapacke_sbdsvdx.c index 88d104d2bf..27b5fd4978 100644 --- a/LAPACKE/src/lapacke_sbdsvdx.c +++ b/LAPACKE/src/lapacke_sbdsvdx.c @@ -33,7 +33,7 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_sbdsvdx)( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, float* d, float* e, + lapack_int n, const float* d, const float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, float* z, lapack_int ldz, diff --git a/LAPACKE/src/lapacke_sbdsvdx_work.c b/LAPACKE/src/lapacke_sbdsvdx_work.c index 742b604ff2..89e6a5fa75 100644 --- a/LAPACKE/src/lapacke_sbdsvdx_work.c +++ b/LAPACKE/src/lapacke_sbdsvdx_work.c @@ -33,7 +33,7 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_sbdsvdx_work)( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, float* d, float* e, + lapack_int n, const float* d, const float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* ns, float* s, float* z, lapack_int ldz, diff --git a/LAPACKE/src/lapacke_slassq.c b/LAPACKE/src/lapacke_slassq.c index a72cc5178e..e62933cce6 100644 --- a/LAPACKE/src/lapacke_slassq.c +++ b/LAPACKE/src/lapacke_slassq.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_slassq)( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq ) +lapack_int API_SUFFIX(LAPACKE_slassq)( lapack_int n, const float* x, lapack_int incx, float* scale, float* sumsq ) { #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { diff --git a/LAPACKE/src/lapacke_slassq_work.c b/LAPACKE/src/lapacke_slassq_work.c index 9fbfa81f65..3767f6a84e 100644 --- a/LAPACKE/src/lapacke_slassq_work.c +++ b/LAPACKE/src/lapacke_slassq_work.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_slassq_work)( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq ) +lapack_int API_SUFFIX(LAPACKE_slassq_work)( lapack_int n, const float* x, lapack_int incx, float* scale, float* sumsq ) { lapack_int info = 0; LAPACK_slassq( &n, x, &incx, scale, sumsq ); diff --git a/LAPACKE/src/lapacke_ssytrs_aa_2stage.c b/LAPACKE/src/lapacke_ssytrs_aa_2stage.c index bbdc204453..4238749018 100644 --- a/LAPACKE/src/lapacke_ssytrs_aa_2stage.c +++ b/LAPACKE/src/lapacke_ssytrs_aa_2stage.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_ssytrs_aa_2stage)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, + lapack_int nrhs, const float* a, lapack_int lda, float* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, + const lapack_int* ipiv, const lapack_int* ipiv2, float* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c b/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c index 3feac00264..80f893b32c 100644 --- a/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_ssytrs_aa_2stage_work)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb ) + lapack_int nrhs, const float* a, lapack_int lda, + float* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, float* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { @@ -93,7 +93,6 @@ lapack_int API_SUFFIX(LAPACKE_ssytrs_aa_2stage_work)( int matrix_layout, char up info = info - 1; } /* Transpose output matrices */ - API_SUFFIX(LAPACKE_ssy_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); API_SUFFIX(LAPACKE_sge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); diff --git a/LAPACKE/src/lapacke_zcgesv.c b/LAPACKE/src/lapacke_zcgesv.c index c90580cf81..e03dc8133f 100644 --- a/LAPACKE/src/lapacke_zcgesv.c +++ b/LAPACKE/src/lapacke_zcgesv.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_zcgesv)( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, + lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_int* iter ) { diff --git a/LAPACKE/src/lapacke_zcgesv_work.c b/LAPACKE/src/lapacke_zcgesv_work.c index e3dd75848c..2f7d11b55a 100644 --- a/LAPACKE/src/lapacke_zcgesv_work.c +++ b/LAPACKE/src/lapacke_zcgesv_work.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_zcgesv_work)( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, + lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_complex_double* work, lapack_complex_float* swork, double* rwork, @@ -103,7 +103,6 @@ lapack_int API_SUFFIX(LAPACKE_zcgesv_work)( int matrix_layout, lapack_int n, lap } /* Transpose output matrices */ API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); - API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); /* Release memory and exit */ LAPACKE_free( x_t ); diff --git a/LAPACKE/src/lapacke_zcposv.c b/LAPACKE/src/lapacke_zcposv.c index f2c716fb9d..cf47ab6022 100644 --- a/LAPACKE/src/lapacke_zcposv.c +++ b/LAPACKE/src/lapacke_zcposv.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_zcposv)( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_int* iter ) { diff --git a/LAPACKE/src/lapacke_zcposv_work.c b/LAPACKE/src/lapacke_zcposv_work.c index c9fab2e309..9decdde100 100644 --- a/LAPACKE/src/lapacke_zcposv_work.c +++ b/LAPACKE/src/lapacke_zcposv_work.c @@ -34,7 +34,7 @@ lapack_int API_SUFFIX(LAPACKE_zcposv_work)( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_complex_double* work, lapack_complex_float* swork, double* rwork, @@ -103,7 +103,6 @@ lapack_int API_SUFFIX(LAPACKE_zcposv_work)( int matrix_layout, char uplo, lapack } /* Transpose output matrices */ API_SUFFIX(LAPACKE_zpo_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); - API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); /* Release memory and exit */ LAPACKE_free( x_t ); diff --git a/LAPACKE/src/lapacke_zhetrs_aa_2stage.c b/LAPACKE/src/lapacke_zhetrs_aa_2stage.c index f63c9be895..53956d2a5d 100644 --- a/LAPACKE/src/lapacke_zhetrs_aa_2stage.c +++ b/LAPACKE/src/lapacke_zhetrs_aa_2stage.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_zhetrs_aa_2stage)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, + lapack_int ltb, const lapack_int* ipiv, const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c b/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c index 7b93629056..e2b81deced 100644 --- a/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_zhetrs_aa_2stage_work)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, + lapack_complex_double* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { @@ -93,7 +93,6 @@ lapack_int API_SUFFIX(LAPACKE_zhetrs_aa_2stage_work)( int matrix_layout, char up info = info - 1; } /* Transpose output matrices */ - API_SUFFIX(LAPACKE_zhe_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); diff --git a/LAPACKE/src/lapacke_zlassq.c b/LAPACKE/src/lapacke_zlassq.c index 2870bca85e..f4d2aa6c08 100644 --- a/LAPACKE/src/lapacke_zlassq.c +++ b/LAPACKE/src/lapacke_zlassq.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_zlassq)( lapack_int n, lapack_complex_double* x, +lapack_int API_SUFFIX(LAPACKE_zlassq)( lapack_int n, const lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ) { #ifndef LAPACK_DISABLE_NAN_CHECK diff --git a/LAPACKE/src/lapacke_zlassq_work.c b/LAPACKE/src/lapacke_zlassq_work.c index 89310c79b7..c425a291b6 100644 --- a/LAPACKE/src/lapacke_zlassq_work.c +++ b/LAPACKE/src/lapacke_zlassq_work.c @@ -32,7 +32,7 @@ #include "lapacke_utils.h" -lapack_int API_SUFFIX(LAPACKE_zlassq_work)( lapack_int n, lapack_complex_double* x, +lapack_int API_SUFFIX(LAPACKE_zlassq_work)( lapack_int n, const lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_zsytrs_aa_2stage.c b/LAPACKE/src/lapacke_zsytrs_aa_2stage.c index 142d117a7d..0ce3aef6ee 100644 --- a/LAPACKE/src/lapacke_zsytrs_aa_2stage.c +++ b/LAPACKE/src/lapacke_zsytrs_aa_2stage.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_zsytrs_aa_2stage)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, + lapack_complex_double* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { diff --git a/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c b/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c index 233d415ce4..f797bfe985 100644 --- a/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c @@ -33,9 +33,9 @@ #include "lapacke_utils.h" lapack_int API_SUFFIX(LAPACKE_zsytrs_aa_2stage_work)( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, + lapack_complex_double* tb, lapack_int ltb, const lapack_int* ipiv, + const lapack_int* ipiv2, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { @@ -93,7 +93,6 @@ lapack_int API_SUFFIX(LAPACKE_zsytrs_aa_2stage_work)( int matrix_layout, char up info = info - 1; } /* Transpose output matrices */ - API_SUFFIX(LAPACKE_zsy_trans)( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); API_SUFFIX(LAPACKE_zge_trans)( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t );