Skip to content

Commit 5ae1561

Browse files
h-vetinarih-vetinari
committed
adapt ?ggsv?-functions to ambient code style in LAPACKE/include/lapack.h
1 parent cc04b61 commit 5ae1561

1 file changed

Lines changed: 92 additions & 70 deletions

File tree

‎LAPACKE/include/lapack.h‎

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

36523652
#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
3653-
lapack_int LAPACK_sggsvd( char const* jobu, char const* jobv, char const* jobq,
3654-
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3655-
lapack_int* k, lapack_int* l, float* a,
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,
3659-
float* work, lapack_int* iwork, lapack_int* info );
3653+
lapack_int LAPACK_sggsvd(
3654+
char const* jobu, char const* jobv, char const* jobq,
3655+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3656+
lapack_int* k, lapack_int* l,
3657+
float* a, lapack_int const* lda,
3658+
float* b, lapack_int const* ldb,
3659+
float* alpha, float* beta,
3660+
float* u, lapack_int const* ldu,
3661+
float* v, lapack_int const* ldv,
3662+
float* q, lapack_int const* ldq,
3663+
float* work, lapack_int* iwork, lapack_int* info );
36603664

36613665
#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
3662-
lapack_int LAPACK_dggsvd( char const* jobu, char const* jobv, char const* jobq,
3663-
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3664-
lapack_int* k, lapack_int* l, double* a,
3665-
lapack_int const* lda, double* b, lapack_int const* ldb,
3666-
double* alpha, double* beta, double* u,
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 );
3666+
lapack_int LAPACK_dggsvd(
3667+
char const* jobu, char const* jobv, char const* jobq,
3668+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3669+
lapack_int* k, lapack_int* l,
3670+
double* a, lapack_int const* lda,
3671+
double* b, lapack_int const* ldb,
3672+
double* alpha, double* beta,
3673+
double* u, lapack_int const* ldu,
3674+
double* v, lapack_int const* ldv,
3675+
double* q, lapack_int const* ldq,
3676+
double* work, lapack_int* iwork, lapack_int* info );
36693677

36703678
#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
3671-
lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq,
3672-
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3673-
lapack_int* k, lapack_int* l,
3674-
lapack_complex_float* a, lapack_int const* lda,
3675-
lapack_complex_float* b, lapack_int const* ldb,
3676-
float* alpha, float* beta, lapack_complex_float* u,
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 );
3679+
lapack_int LAPACK_cggsvd(
3680+
char const* jobu, char const* jobv, char const* jobq,
3681+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3682+
lapack_int* k, lapack_int* l,
3683+
lapack_complex_float* a, lapack_int const* lda,
3684+
lapack_complex_float* b, lapack_int const* ldb,
3685+
float* alpha, float* beta,
3686+
lapack_complex_float* u, lapack_int const* ldu,
3687+
lapack_complex_float* v, lapack_int const* ldv,
3688+
lapack_complex_float* q, lapack_int const* ldq,
3689+
lapack_complex_float* work, float* rwork,
3690+
lapack_int* iwork, lapack_int* info );
36803691

36813692
#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
3682-
lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
3683-
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3684-
lapack_int* k, lapack_int* l,
3685-
lapack_complex_double* a, lapack_int const* lda,
3686-
lapack_complex_double* b, lapack_int const* ldb,
3687-
double* alpha, double* beta,
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,
3691-
lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* info );
3693+
lapack_int LAPACK_zggsvd(
3694+
char const* jobu, char const* jobv, char const* jobq,
3695+
lapack_int const* m, lapack_int const* n, lapack_int const* p,
3696+
lapack_int* k, lapack_int* l,
3697+
lapack_complex_double* a, lapack_int const* lda,
3698+
lapack_complex_double* b, lapack_int const* ldb,
3699+
double* alpha, double* beta,
3700+
lapack_complex_double* u, lapack_int const* ldu,
3701+
lapack_complex_double* v, lapack_int const* ldv,
3702+
lapack_complex_double* q, lapack_int const* ldq,
3703+
lapack_complex_double* work, double* rwork,
3704+
lapack_int* iwork, lapack_int* info );
36923705

36933706
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
36943707
void LAPACK_cggsvd3(
@@ -3753,49 +3766,58 @@ void LAPACK_zggsvd3(
37533766
lapack_int* info );
37543767

37553768
#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
3756-
lapack_int LAPACK_sggsvp( char const* jobu, char const* jobv, char const* jobq,
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,
3759-
float* tolb, lapack_int* k, lapack_int* l, float* u,
3760-
lapack_int const* ldu, float* v, lapack_int const* ldv, float* q,
3761-
lapack_int const* ldq, lapack_int* iwork, float* tau,
3762-
float* work, lapack_int* info);
3769+
lapack_int LAPACK_sggsvp(
3770+
char const* jobu, char const* jobv, char const* jobq,
3771+
lapack_int const* m, lapack_int const* p, lapack_int const* n,
3772+
float* a, lapack_int const* lda,
3773+
float* b, lapack_int const* ldb,
3774+
float* tola, float* tolb,
3775+
lapack_int* k, lapack_int* l,
3776+
float* u, lapack_int const* ldu,
3777+
float* v, lapack_int const* ldv,
3778+
float* q, lapack_int const* ldq,
3779+
lapack_int* iwork, float* tau,
3780+
float* work, lapack_int* info );
37633781

37643782
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
3765-
lapack_int LAPACK_dggsvp( char const* jobu, char const* jobv, char const* jobq,
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,
3768-
double* tola, double* tolb, lapack_int* k,
3769-
lapack_int* l, double* u, lapack_int const* ldu, double* v,
3770-
lapack_int const* ldv, double* q, lapack_int const* ldq,
3771-
lapack_int* iwork, double* tau, double* work,
3772-
lapack_int* info);
3783+
lapack_int LAPACK_dggsvp(
3784+
char const* jobu, char const* jobv, char const* jobq,
3785+
lapack_int const* m, lapack_int const* p, lapack_int const* n,
3786+
double* a, lapack_int const* lda,
3787+
double* b, lapack_int const* ldb,
3788+
double* tola, double* tolb,
3789+
lapack_int* k, lapack_int* l,
3790+
double* u, lapack_int const* ldu,
3791+
double* v, lapack_int const* ldv,
3792+
double* q, lapack_int const* ldq,
3793+
lapack_int* iwork, double* tau,
3794+
double* work, lapack_int* info );
37733795

37743796
#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
3775-
lapack_int LAPACK_cggsvp( char const* jobu, char const* jobv, char const* jobq,
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,
3779-
float* tolb, lapack_int* k, lapack_int* l,
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,
3783-
lapack_int* iwork, float* rwork,
3784-
lapack_complex_float* tau, lapack_complex_float* work,
3785-
lapack_int* info);
3797+
lapack_int LAPACK_cggsvp(
3798+
char const* jobu, char const* jobv, char const* jobq,
3799+
lapack_int const* m, lapack_int const* p, lapack_int const* n,
3800+
lapack_complex_float* a, lapack_int const* lda,
3801+
lapack_complex_float* b, lapack_int const* ldb,
3802+
float* tola, float* tolb, lapack_int* k, lapack_int* l,
3803+
lapack_complex_float* u, lapack_int const* ldu,
3804+
lapack_complex_float* v, lapack_int const* ldv,
3805+
lapack_complex_float* q, lapack_int const* ldq,
3806+
lapack_int* iwork, float* rwork, lapack_complex_float* tau,
3807+
lapack_complex_float* work, lapack_int* info );
37863808

37873809
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
3788-
lapack_int LAPACK_zggsvp( char const* jobu, char const* jobv, char const* jobq,
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,
3792-
double* tola, double* tolb, lapack_int* k,
3793-
lapack_int* l, lapack_complex_double* u,
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,
3797-
lapack_complex_double* tau, lapack_complex_double* work,
3798-
lapack_int* info);
3810+
lapack_int LAPACK_zggsvp(
3811+
char const* jobu, char const* jobv, char const* jobq,
3812+
lapack_int const* m, lapack_int const* p, lapack_int const* n,
3813+
lapack_complex_double* a, lapack_int const* lda,
3814+
lapack_complex_double* b, lapack_int const* ldb,
3815+
double* tola, double* tolb, lapack_int* k, lapack_int* l,
3816+
lapack_complex_double* u, lapack_int const* ldu,
3817+
lapack_complex_double* v, lapack_int const* ldv,
3818+
lapack_complex_double* q, lapack_int const* ldq,
3819+
lapack_int* iwork, double* rwork, lapack_complex_double* tau,
3820+
lapack_complex_double* work, lapack_int* info );
37993821

38003822
#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3)
38013823
void LAPACK_cggsvp3(

0 commit comments

Comments
 (0)