Fix misnaming of LAPACK_?ggsvp function prototypes as LAPACKE_ (#2808)

* Fix misnaming of LAPACK_?ggsvp and ?ggsvd function prototypes as LAPACKE_

* Drop the LAPACKE matrix_layout parameter from the argument lists, change ints to pointers and add missing work arguments.
This commit is contained in:
Martin Kroeker 2020-09-01 10:44:48 +02:00 committed by GitHub
parent 0a4c5c4c44
commit f42e84d46c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 62 additions and 54 deletions

View File

@ -3650,45 +3650,45 @@ void LAPACK_zggrqf(
lapack_int* info ); lapack_int* info );
#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD) #define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
lapack_int LAPACKE_sggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int LAPACK_sggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int m, lapack_int n, lapack_int p, lapack_int* m, lapack_int* n, lapack_int* p,
lapack_int* k, lapack_int* l, float* a, lapack_int* k, lapack_int* l, float* a,
lapack_int lda, float* b, lapack_int ldb, lapack_int* lda, float* b, lapack_int* ldb,
float* alpha, float* beta, float* u, lapack_int ldu, float* alpha, float* beta, float* u, lapack_int* ldu,
float* v, lapack_int ldv, float* q, lapack_int ldq, float* v, lapack_int* ldv, float* q, lapack_int* ldq,
lapack_int* iwork ); float* work, lapack_int* iwork, lapack_int* info );
#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD) #define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
lapack_int LAPACKE_dggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int LAPACK_dggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int m, lapack_int n, lapack_int p, lapack_int* m, lapack_int* n, lapack_int* p,
lapack_int* k, lapack_int* l, double* a, lapack_int* k, lapack_int* l, double* a,
lapack_int lda, double* b, lapack_int ldb, lapack_int* lda, double* b, lapack_int* ldb,
double* alpha, double* beta, double* u, double* alpha, double* beta, double* u,
lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int* ldu, double* v, lapack_int* ldv, double* q,
lapack_int ldq, lapack_int* iwork ); lapack_int* ldq, float* work, lapack_int* iwork, lapack_int* info );
#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD) #define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
lapack_int LAPACKE_cggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int m, lapack_int n, lapack_int p, lapack_int* m, lapack_int* n, lapack_int* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
lapack_complex_float* a, lapack_int lda, lapack_complex_float* a, lapack_int* lda,
lapack_complex_float* b, lapack_int ldb, lapack_complex_float* b, lapack_int* ldb,
float* alpha, float* beta, lapack_complex_float* u, float* alpha, float* beta, lapack_complex_float* u,
lapack_int ldu, lapack_complex_float* v, lapack_int* ldu, lapack_complex_float* v,
lapack_int ldv, lapack_complex_float* q, lapack_int* ldv, lapack_complex_float* q,
lapack_int ldq, lapack_int* iwork ); lapack_int* ldq, float* work, lapack_int* rwork, lapack_int* iwork, lapack_int *info );
#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD) #define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
lapack_int LAPACKE_zggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int m, lapack_int n, lapack_int p, lapack_int* m, lapack_int* n, lapack_int* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
lapack_complex_double* a, lapack_int lda, lapack_complex_double* a, lapack_int* lda,
lapack_complex_double* b, lapack_int ldb, lapack_complex_double* b, lapack_int* ldb,
double* alpha, double* beta, double* alpha, double* beta,
lapack_complex_double* u, lapack_int ldu, lapack_complex_double* u, lapack_int* ldu,
lapack_complex_double* v, lapack_int ldv, lapack_complex_double* v, lapack_int* ldv,
lapack_complex_double* q, lapack_int ldq, lapack_complex_double* q, lapack_int* ldq,
lapack_int* iwork ); float* work, lapack_int* rwork, lapack_int* iwork, lapack_int* info );
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3) #define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
void LAPACK_cggsvd3( void LAPACK_cggsvd3(
@ -3753,41 +3753,49 @@ void LAPACK_zggsvd3(
lapack_int* info ); lapack_int* info );
#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP) #define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
lapack_int LAPACKE_sggsvp( int matrix_layout, char jobu, char jobv, char jobq, 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* m, lapack_int* p, lapack_int* n, float* a,
lapack_int lda, float* b, lapack_int ldb, float tola, lapack_int* lda, float* b, lapack_int* ldb, float* tola,
float tolb, lapack_int* k, lapack_int* l, float* u, float* tolb, lapack_int* k, lapack_int* l, float* u,
lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int* ldu, float* v, lapack_int* ldv, float* q,
lapack_int ldq ); lapack_int* ldq, lapack_int* iwork, float* tau,
float* work, lapack_int* info);
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP) #define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
lapack_int LAPACKE_dggsvp( int matrix_layout, char jobu, char jobv, char jobq, 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* m, lapack_int* p, lapack_int* n, double* a,
lapack_int lda, double* b, lapack_int ldb, lapack_int* lda, double* b, lapack_int* ldb,
double tola, double tolb, lapack_int* k, double* tola, double* tolb, lapack_int* k,
lapack_int* l, double* u, lapack_int ldu, double* v, lapack_int* l, double* u, lapack_int* ldu, double* v,
lapack_int ldv, double* q, lapack_int ldq ); lapack_int* ldv, double* q, lapack_int* ldq,
lapack_int* iwork, double* tau, double* work,
lapack_int* info);
#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP) #define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
lapack_int LAPACKE_cggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int LAPACK_cggsvp( char const* jobu, char const* jobv, char const* jobq,
lapack_int m, lapack_int p, lapack_int n, lapack_int* m, lapack_int* p, lapack_int* n,
lapack_complex_float* a, lapack_int lda, lapack_complex_float* a, lapack_int* lda,
lapack_complex_float* b, lapack_int ldb, float tola, lapack_complex_float* b, lapack_int* ldb, float* tola,
float tolb, lapack_int* k, lapack_int* l, float* tolb, lapack_int* k, lapack_int* l,
lapack_complex_float* u, lapack_int ldu, lapack_complex_float* u, lapack_int* ldu,
lapack_complex_float* v, lapack_int ldv, lapack_complex_float* v, lapack_int* ldv,
lapack_complex_float* q, lapack_int ldq ); lapack_complex_float* q, lapack_int* ldq,
lapack_int* iwork, lapack_int* rwork,
lapack_complex_float* tau, lapack_complex_float* work,
lapack_int* info);
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP) #define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
lapack_int LAPACKE_zggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int LAPACK_zggsvp( char const* jobu, char const* jobv, char const* jobq,
lapack_int m, lapack_int p, lapack_int n, lapack_int* m, lapack_int* p, lapack_int* n,
lapack_complex_double* a, lapack_int lda, lapack_complex_double* a, lapack_int* lda,
lapack_complex_double* b, lapack_int ldb, lapack_complex_double* b, lapack_int* ldb,
double tola, double tolb, lapack_int* k, double* tola, double* tolb, lapack_int* k,
lapack_int* l, lapack_complex_double* u, lapack_int* l, lapack_complex_double* u,
lapack_int ldu, lapack_complex_double* v, lapack_int* ldu, lapack_complex_double* v,
lapack_int ldv, lapack_complex_double* q, lapack_int* ldv, lapack_complex_double* q,
lapack_int ldq ); lapack_int* ldq, lapack_int* iwork, lapack_int* rwork,
lapack_complex_double* tau, lapack_complex_double* work,
lapack_int* info);
#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3) #define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3)
void LAPACK_cggsvp3( void LAPACK_cggsvp3(