Skip to content

Commit cc04b61

Browse files
h-vetinarih-vetinari
committed
Follow-up to #434 & #409: add missing 'const' in signatures
Based on how the surrounding functions in lapack.h are handling the parameters, particularly the ?ggsv?3-variants of the affected functions
1 parent d470f43 commit cc04b61

File tree

1 file changed

+40
-40
lines changed

1 file changed

+40
-40
lines changed

‎LAPACKE/include/lapack.h

Lines changed: 40 additions & 40 deletions
Original file line numberDiff line numberDiff line change
@@ -3651,43 +3651,43 @@ void LAPACK_zggrqf(
36513651

36523652
#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
36533653
lapack_int LAPACK_sggsvd( char const* jobu, char const* jobv, char const* jobq,
3654-
lapack_int* m, lapack_int* n, lapack_int* p,
3654+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
36553655
lapack_int* k, lapack_int* l, float* a,
3656-
lapack_int* lda, float* b, lapack_int* ldb,
3657-
float* alpha, float* beta, float* u, lapack_int* ldu,
3658-
float* v, lapack_int* ldv, float* q, lapack_int* ldq,
3656+
lapack_int const* lda, float* b, lapack_int const* ldb,
3657+
float* alpha, float* beta, float* u, lapack_int const* ldu,
3658+
float* v, lapack_int const* ldv, float* q, lapack_int const* ldq,
36593659
float* work, lapack_int* iwork, lapack_int* info );
36603660

36613661
#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
36623662
lapack_int LAPACK_dggsvd( char const* jobu, char const* jobv, char const* jobq,
3663-
lapack_int* m, lapack_int* n, lapack_int* p,
3663+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
36643664
lapack_int* k, lapack_int* l, double* a,
3665-
lapack_int* lda, double* b, lapack_int* ldb,
3665+
lapack_int const* lda, double* b, lapack_int const* ldb,
36663666
double* alpha, double* beta, double* u,
3667-
lapack_int* ldu, double* v, lapack_int* ldv, double* q,
3668-
lapack_int* ldq, double* work, lapack_int* iwork, lapack_int* info );
3667+
lapack_int const* ldu, double* v, lapack_int const* ldv, double* q,
3668+
lapack_int const* ldq, double* work, lapack_int* iwork, lapack_int* info );
36693669

36703670
#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
36713671
lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq,
3672-
lapack_int* m, lapack_int* n, lapack_int* p,
3672+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
36733673
lapack_int* k, lapack_int* l,
3674-
lapack_complex_float* a, lapack_int* lda,
3675-
lapack_complex_float* b, lapack_int* ldb,
3674+
lapack_complex_float* a, lapack_int const* lda,
3675+
lapack_complex_float* b, lapack_int const* ldb,
36763676
float* alpha, float* beta, lapack_complex_float* u,
3677-
lapack_int* ldu, lapack_complex_float* v,
3678-
lapack_int* ldv, lapack_complex_float* q,
3679-
lapack_int* ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* info );
3677+
lapack_int const* ldu, lapack_complex_float* v,
3678+
lapack_int const* ldv, lapack_complex_float* q,
3679+
lapack_int const* ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* info );
36803680

36813681
#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
36823682
lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
3683-
lapack_int* m, lapack_int* n, lapack_int* p,
3683+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
36843684
lapack_int* k, lapack_int* l,
3685-
lapack_complex_double* a, lapack_int* lda,
3686-
lapack_complex_double* b, lapack_int* ldb,
3685+
lapack_complex_double* a, lapack_int const* lda,
3686+
lapack_complex_double* b, lapack_int const* ldb,
36873687
double* alpha, double* beta,
3688-
lapack_complex_double* u, lapack_int* ldu,
3689-
lapack_complex_double* v, lapack_int* ldv,
3690-
lapack_complex_double* q, lapack_int* ldq,
3688+
lapack_complex_double* u, lapack_int const* ldu,
3689+
lapack_complex_double* v, lapack_int const* ldv,
3690+
lapack_complex_double* q, lapack_int const* ldq,
36913691
lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* info );
36923692

36933693
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
@@ -3754,46 +3754,46 @@ void LAPACK_zggsvd3(
37543754

37553755
#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
37563756
lapack_int LAPACK_sggsvp( char const* jobu, char const* jobv, char const* jobq,
3757-
lapack_int* m, lapack_int* p, lapack_int* n, float* a,
3758-
lapack_int* lda, float* b, lapack_int* ldb, float* tola,
3757+
lapack_int const* m, lapack_int const* p, lapack_int const* n, float* a,
3758+
lapack_int const* lda, float* b, lapack_int const* ldb, float* tola,
37593759
float* tolb, lapack_int* k, lapack_int* l, float* u,
3760-
lapack_int* ldu, float* v, lapack_int* ldv, float* q,
3761-
lapack_int* ldq, lapack_int* iwork, float* tau,
3760+
lapack_int const* ldu, float* v, lapack_int const* ldv, float* q,
3761+
lapack_int const* ldq, lapack_int* iwork, float* tau,
37623762
float* work, lapack_int* info);
37633763

37643764
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
37653765
lapack_int LAPACK_dggsvp( char const* jobu, char const* jobv, char const* jobq,
3766-
lapack_int* m, lapack_int* p, lapack_int* n, double* a,
3767-
lapack_int* lda, double* b, lapack_int* ldb,
3766+
lapack_int const* m, lapack_int const* p, lapack_int const* n, double* a,
3767+
lapack_int const* lda, double* b, lapack_int const* ldb,
37683768
double* tola, double* tolb, lapack_int* k,
3769-
lapack_int* l, double* u, lapack_int* ldu, double* v,
3770-
lapack_int* ldv, double* q, lapack_int* ldq,
3769+
lapack_int* l, double* u, lapack_int const* ldu, double* v,
3770+
lapack_int const* ldv, double* q, lapack_int const* ldq,
37713771
lapack_int* iwork, double* tau, double* work,
37723772
lapack_int* info);
37733773

37743774
#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
37753775
lapack_int LAPACK_cggsvp( char const* jobu, char const* jobv, char const* jobq,
3776-
lapack_int* m, lapack_int* p, lapack_int* n,
3777-
lapack_complex_float* a, lapack_int* lda,
3778-
lapack_complex_float* b, lapack_int* ldb, float* tola,
3776+
lapack_int const* m, lapack_int const* p, lapack_int const* n,
3777+
lapack_complex_float* a, lapack_int const* lda,
3778+
lapack_complex_float* b, lapack_int const* ldb, float* tola,
37793779
float* tolb, lapack_int* k, lapack_int* l,
3780-
lapack_complex_float* u, lapack_int* ldu,
3781-
lapack_complex_float* v, lapack_int* ldv,
3782-
lapack_complex_float* q, lapack_int* ldq,
3780+
lapack_complex_float* u, lapack_int const* ldu,
3781+
lapack_complex_float* v, lapack_int const* ldv,
3782+
lapack_complex_float* q, lapack_int const* ldq,
37833783
lapack_int* iwork, float* rwork,
37843784
lapack_complex_float* tau, lapack_complex_float* work,
37853785
lapack_int* info);
37863786

37873787
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
37883788
lapack_int LAPACK_zggsvp( char const* jobu, char const* jobv, char const* jobq,
3789-
lapack_int* m, lapack_int* p, lapack_int* n,
3790-
lapack_complex_double* a, lapack_int* lda,
3791-
lapack_complex_double* b, lapack_int* ldb,
3789+
lapack_int const* m, lapack_int const* p, lapack_int const* n,
3790+
lapack_complex_double* a, lapack_int const* lda,
3791+
lapack_complex_double* b, lapack_int const* ldb,
37923792
double* tola, double* tolb, lapack_int* k,
37933793
lapack_int* l, lapack_complex_double* u,
3794-
lapack_int* ldu, lapack_complex_double* v,
3795-
lapack_int* ldv, lapack_complex_double* q,
3796-
lapack_int* ldq, lapack_int* iwork, double* rwork,
3794+
lapack_int const* ldu, lapack_complex_double* v,
3795+
lapack_int const* ldv, lapack_complex_double* q,
3796+
lapack_int const* ldq, lapack_int* iwork, double* rwork,
37973797
lapack_complex_double* tau, lapack_complex_double* work,
37983798
lapack_int* info);
37993799

0 commit comments

Comments
 (0)