Skip to content

Fix misnaming of LAPACK_?ggsvp and ?ggsvd function prototypes as LAPACKE_ in lapack.h #2808

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 7 commits into from
Sep 1, 2020
Merged

Fix misnaming of LAPACK_?ggsvp and ?ggsvd function prototypes as LAPACKE_ in lapack.h #2808

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
1a05523
Fix misnaming of LAPACK_?ggsvp function prototypes as LAPACKE_
martin-frbg Aug 31, 2020
cd4fbf1
Need to drop the LAPACKE matrix_layout parameter for LAPACK ?ggsvp as…
martin-frbg Aug 31, 2020
defb15e
Update lapack.h
martin-frbg Aug 31, 2020
deb1199
Update lapack.h
martin-frbg Aug 31, 2020
16b805b
Update lapack.h
martin-frbg Aug 31, 2020
3aaa6a4
fix argument lists of LAPACK_?ggsvp prototypes
martin-frbg Aug 31, 2020
a5f7626
missing comma
martin-frbg Aug 31, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
116 changes: 62 additions & 54 deletions lapack-netlib/LAPACKE/include/lapack.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3650,45 +3650,45 @@ void LAPACK_zggrqf(
lapack_int* info );

#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
lapack_int LAPACKE_sggsvd( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int n, lapack_int p,
lapack_int LAPACK_sggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int* m, lapack_int* n, lapack_int* 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* iwork );
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,
float* work, lapack_int* iwork, lapack_int* info );

#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
lapack_int LAPACKE_dggsvd( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int n, lapack_int p,
lapack_int LAPACK_dggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int* m, lapack_int* n, lapack_int* p,
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,
lapack_int ldu, double* v, lapack_int ldv, double* q,
lapack_int ldq, lapack_int* iwork );
lapack_int* ldu, double* v, lapack_int* ldv, double* q,
lapack_int* ldq, float* work, lapack_int* iwork, lapack_int* info );

#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
lapack_int LAPACKE_cggsvd( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int n, lapack_int p,
lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int* m, lapack_int* n, lapack_int* 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* lda,
lapack_complex_float* b, lapack_int* 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_int* iwork );
lapack_int* ldu, lapack_complex_float* v,
lapack_int* ldv, lapack_complex_float* q,
lapack_int* ldq, float* work, lapack_int* rwork, lapack_int* iwork, lapack_int *info );

#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
lapack_int LAPACKE_zggsvd( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int n, lapack_int p,
lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_int* m, lapack_int* n, lapack_int* 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* lda,
lapack_complex_double* b, lapack_int* 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_int* iwork );
lapack_complex_double* u, lapack_int* ldu,
lapack_complex_double* v, lapack_int* ldv,
lapack_complex_double* q, lapack_int* ldq,
float* work, lapack_int* rwork, lapack_int* iwork, lapack_int* info );

#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
void LAPACK_cggsvd3(
Expand Down Expand Up @@ -3753,41 +3753,49 @@ void LAPACK_zggsvd3(
lapack_int* info );

#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
lapack_int LAPACKE_sggsvp( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int p, lapack_int n, float* a,
lapack_int lda, float* b, lapack_int 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 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,
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,
float* work, lapack_int* info);

#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
lapack_int LAPACKE_dggsvp( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int p, lapack_int n, double* a,
lapack_int lda, double* b, lapack_int 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 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,
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* iwork, double* tau, double* work,
lapack_int* info);

#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
lapack_int LAPACKE_cggsvp( int matrix_layout, char jobu, char jobv, char 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,
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_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,
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_int* iwork, lapack_int* rwork,
lapack_complex_float* tau, lapack_complex_float* work,
lapack_int* info);

#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
lapack_int LAPACKE_zggsvp( int matrix_layout, char jobu, char jobv, char jobq,
lapack_int m, lapack_int p, lapack_int n,
lapack_complex_double* a, lapack_int lda,
lapack_complex_double* b, lapack_int ldb,
double tola, double tolb, lapack_int* k,
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,
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* ldu, lapack_complex_double* v,
lapack_int* ldv, lapack_complex_double* q,
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)
void LAPACK_cggsvp3(
Expand Down