Follow-up to lapack#434 & lapack#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
This commit is contained in:
H. Vetinari
parent
860247b5da
commit
1c6c71fa85
|
|
@ -3651,43 +3651,43 @@ void LAPACK_zggrqf(
|
|||
|
||||
#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
|
||||
lapack_int LAPACK_sggsvd( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* n, lapack_int* p,
|
||||
lapack_int const* m, lapack_int const* n, lapack_int const* p,
|
||||
lapack_int* k, lapack_int* l, float* a,
|
||||
lapack_int* lda, float* b, lapack_int* ldb,
|
||||
float* alpha, float* beta, float* u, lapack_int* ldu,
|
||||
float* v, lapack_int* ldv, float* q, lapack_int* ldq,
|
||||
lapack_int const* lda, float* b, lapack_int const* ldb,
|
||||
float* alpha, float* beta, float* u, lapack_int const* ldu,
|
||||
float* v, lapack_int const* ldv, float* q, lapack_int const* ldq,
|
||||
float* work, lapack_int* iwork, lapack_int* info );
|
||||
|
||||
#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
|
||||
lapack_int LAPACK_dggsvd( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* n, lapack_int* p,
|
||||
lapack_int const* m, lapack_int const* n, lapack_int const* p,
|
||||
lapack_int* k, lapack_int* l, double* a,
|
||||
lapack_int* lda, double* b, lapack_int* ldb,
|
||||
lapack_int const* lda, double* b, lapack_int const* ldb,
|
||||
double* alpha, double* beta, double* u,
|
||||
lapack_int* ldu, double* v, lapack_int* ldv, double* q,
|
||||
lapack_int* ldq, double* work, lapack_int* iwork, lapack_int* info );
|
||||
lapack_int const* ldu, double* v, lapack_int const* ldv, double* q,
|
||||
lapack_int const* ldq, double* work, lapack_int* iwork, lapack_int* info );
|
||||
|
||||
#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
|
||||
lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* n, lapack_int* p,
|
||||
lapack_int const* m, lapack_int const* n, lapack_int const* p,
|
||||
lapack_int* k, lapack_int* l,
|
||||
lapack_complex_float* a, lapack_int* lda,
|
||||
lapack_complex_float* b, lapack_int* ldb,
|
||||
lapack_complex_float* a, lapack_int const* lda,
|
||||
lapack_complex_float* b, lapack_int const* ldb,
|
||||
float* alpha, float* beta, lapack_complex_float* u,
|
||||
lapack_int* ldu, lapack_complex_float* v,
|
||||
lapack_int* ldv, lapack_complex_float* q,
|
||||
lapack_int* ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* info );
|
||||
lapack_int const* ldu, lapack_complex_float* v,
|
||||
lapack_int const* ldv, lapack_complex_float* q,
|
||||
lapack_int const* ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* info );
|
||||
|
||||
#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
|
||||
lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* n, lapack_int* p,
|
||||
lapack_int const* m, lapack_int const* n, lapack_int const* p,
|
||||
lapack_int* k, lapack_int* l,
|
||||
lapack_complex_double* a, lapack_int* lda,
|
||||
lapack_complex_double* b, lapack_int* ldb,
|
||||
lapack_complex_double* a, lapack_int const* lda,
|
||||
lapack_complex_double* b, lapack_int const* ldb,
|
||||
double* alpha, double* beta,
|
||||
lapack_complex_double* u, lapack_int* ldu,
|
||||
lapack_complex_double* v, lapack_int* ldv,
|
||||
lapack_complex_double* q, lapack_int* ldq,
|
||||
lapack_complex_double* u, lapack_int const* ldu,
|
||||
lapack_complex_double* v, lapack_int const* ldv,
|
||||
lapack_complex_double* q, lapack_int const* ldq,
|
||||
lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* info );
|
||||
|
||||
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
|
||||
|
|
@ -3754,46 +3754,46 @@ void LAPACK_zggsvd3(
|
|||
|
||||
#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
|
||||
lapack_int LAPACK_sggsvp( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* p, lapack_int* n, float* a,
|
||||
lapack_int* lda, float* b, lapack_int* ldb, float* tola,
|
||||
lapack_int const* m, lapack_int const* p, lapack_int const* n, float* a,
|
||||
lapack_int const* lda, float* b, lapack_int const* ldb, float* tola,
|
||||
float* tolb, lapack_int* k, lapack_int* l, float* u,
|
||||
lapack_int* ldu, float* v, lapack_int* ldv, float* q,
|
||||
lapack_int* ldq, lapack_int* iwork, float* tau,
|
||||
lapack_int const* ldu, float* v, lapack_int const* ldv, float* q,
|
||||
lapack_int const* ldq, lapack_int* iwork, float* tau,
|
||||
float* work, lapack_int* info);
|
||||
|
||||
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
|
||||
lapack_int LAPACK_dggsvp( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* p, lapack_int* n, double* a,
|
||||
lapack_int* lda, double* b, lapack_int* ldb,
|
||||
lapack_int const* m, lapack_int const* p, lapack_int const* n, double* a,
|
||||
lapack_int const* lda, double* b, lapack_int const* ldb,
|
||||
double* tola, double* tolb, lapack_int* k,
|
||||
lapack_int* l, double* u, lapack_int* ldu, double* v,
|
||||
lapack_int* ldv, double* q, lapack_int* ldq,
|
||||
lapack_int* l, double* u, lapack_int const* ldu, double* v,
|
||||
lapack_int const* ldv, double* q, lapack_int const* ldq,
|
||||
lapack_int* iwork, double* tau, double* work,
|
||||
lapack_int* info);
|
||||
|
||||
#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
|
||||
lapack_int LAPACK_cggsvp( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* p, lapack_int* n,
|
||||
lapack_complex_float* a, lapack_int* lda,
|
||||
lapack_complex_float* b, lapack_int* ldb, float* tola,
|
||||
lapack_int const* m, lapack_int const* p, lapack_int const* n,
|
||||
lapack_complex_float* a, lapack_int const* lda,
|
||||
lapack_complex_float* b, lapack_int const* ldb, float* tola,
|
||||
float* tolb, lapack_int* k, lapack_int* l,
|
||||
lapack_complex_float* u, lapack_int* ldu,
|
||||
lapack_complex_float* v, lapack_int* ldv,
|
||||
lapack_complex_float* q, lapack_int* ldq,
|
||||
lapack_complex_float* u, lapack_int const* ldu,
|
||||
lapack_complex_float* v, lapack_int const* ldv,
|
||||
lapack_complex_float* q, lapack_int const* ldq,
|
||||
lapack_int* iwork, float* rwork,
|
||||
lapack_complex_float* tau, lapack_complex_float* work,
|
||||
lapack_int* info);
|
||||
|
||||
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
|
||||
lapack_int LAPACK_zggsvp( char const* jobu, char const* jobv, char const* jobq,
|
||||
lapack_int* m, lapack_int* p, lapack_int* n,
|
||||
lapack_complex_double* a, lapack_int* lda,
|
||||
lapack_complex_double* b, lapack_int* ldb,
|
||||
lapack_int const* m, lapack_int const* p, lapack_int const* n,
|
||||
lapack_complex_double* a, lapack_int const* lda,
|
||||
lapack_complex_double* b, lapack_int const* ldb,
|
||||
double* tola, double* tolb, lapack_int* k,
|
||||
lapack_int* l, lapack_complex_double* u,
|
||||
lapack_int* ldu, lapack_complex_double* v,
|
||||
lapack_int* ldv, lapack_complex_double* q,
|
||||
lapack_int* ldq, lapack_int* iwork, double* rwork,
|
||||
lapack_int const* ldu, lapack_complex_double* v,
|
||||
lapack_int const* ldv, lapack_complex_double* q,
|
||||
lapack_int const* ldq, lapack_int* iwork, double* rwork,
|
||||
lapack_complex_double* tau, lapack_complex_double* work,
|
||||
lapack_int* info);
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue