Skip to content

Commit f42e84d

Browse files
martin-frbgmartin-frbg
authored
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.
1 parent 0a4c5c4 commit f42e84d

File tree

1 file changed

+62
-54
lines changed

1 file changed

+62
-54
lines changed

‎lapack-netlib/LAPACKE/include/lapack.h

Lines changed: 62 additions & 54 deletions
Original file line numberDiff line numberDiff line change
@@ -3650,45 +3650,45 @@ void LAPACK_zggrqf(
36503650
lapack_int* info );
36513651

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

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

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

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

36933693
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
36943694
void LAPACK_cggsvd3(
@@ -3753,41 +3753,49 @@ void LAPACK_zggsvd3(
37533753
lapack_int* info );
37543754

37553755
#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
3756-
lapack_int LAPACKE_sggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3757-
lapack_int m, lapack_int p, lapack_int n, float* a,
3758-
lapack_int lda, float* b, lapack_int ldb, float tola,
3759-
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 );
3756+
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,
3759+
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,
3762+
float* work, lapack_int* info);
37623763

37633764
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
3764-
lapack_int LAPACKE_dggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3765-
lapack_int m, lapack_int p, lapack_int n, double* a,
3766-
lapack_int lda, double* b, lapack_int ldb,
3767-
double tola, double tolb, lapack_int* k,
3768-
lapack_int* l, double* u, lapack_int ldu, double* v,
3769-
lapack_int ldv, double* q, lapack_int ldq );
3765+
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,
3768+
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,
3771+
lapack_int* iwork, double* tau, double* work,
3772+
lapack_int* info);
37703773

37713774
#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
3772-
lapack_int LAPACKE_cggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3773-
lapack_int m, lapack_int p, lapack_int n,
3774-
lapack_complex_float* a, lapack_int lda,
3775-
lapack_complex_float* b, lapack_int ldb, float tola,
3776-
float tolb, lapack_int* k, lapack_int* l,
3777-
lapack_complex_float* u, lapack_int ldu,
3778-
lapack_complex_float* v, lapack_int ldv,
3779-
lapack_complex_float* q, lapack_int ldq );
3775+
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,
3779+
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,
3783+
lapack_int* iwork, lapack_int* rwork,
3784+
lapack_complex_float* tau, lapack_complex_float* work,
3785+
lapack_int* info);
37803786

37813787
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
3782-
lapack_int LAPACKE_zggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3783-
lapack_int m, lapack_int p, lapack_int n,
3784-
lapack_complex_double* a, lapack_int lda,
3785-
lapack_complex_double* b, lapack_int ldb,
3786-
double tola, double tolb, lapack_int* k,
3788+
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,
3792+
double* tola, double* tolb, lapack_int* k,
37873793
lapack_int* l, lapack_complex_double* u,
3788-
lapack_int ldu, lapack_complex_double* v,
3789-
lapack_int ldv, lapack_complex_double* q,
3790-
lapack_int ldq );
3794+
lapack_int* ldu, lapack_complex_double* v,
3795+
lapack_int* ldv, lapack_complex_double* q,
3796+
lapack_int* ldq, lapack_int* iwork, lapack_int* rwork,
3797+
lapack_complex_double* tau, lapack_complex_double* work,
3798+
lapack_int* info);
37913799

37923800
#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3)
37933801
void LAPACK_cggsvp3(

0 commit comments

Comments
 (0)