floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adapt ?ggsv?-functions to ambient code style in LAPACKE/include/lapack.h

This commit is contained in:
H. Vetinari 2020-09-02 22:46:47 +02:00
parent 1c6c71fa85
commit 3426519ae2
1 changed files with 92 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
lapack-netlib/LAPACKE/include/lapack.h
View File

@ -3650,36 +3650,48 @@ 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 LAPACK_sggsvd( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_sggsvd(
char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, float* a, lapack_int* k, lapack_int* l,
lapack_int const* lda, float* b, lapack_int const* ldb, float* a, lapack_int const* lda,
float* alpha, float* beta, float* u, lapack_int const* ldu, float* b, lapack_int const* ldb,
float* v, lapack_int const* ldv, float* q, lapack_int const* ldq, 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 ); float* work, lapack_int* iwork, lapack_int* info );
#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD) #define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
lapack_int LAPACK_dggsvd( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_dggsvd(
char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, double* a, lapack_int* k, lapack_int* l,
lapack_int const* lda, double* b, lapack_int const* ldb, double* a, lapack_int const* lda,
double* alpha, double* beta, double* u, double* b, lapack_int const* ldb,
lapack_int const* ldu, double* v, lapack_int const* ldv, double* q, double* alpha, double* beta,
lapack_int const* ldq, double* work, lapack_int* iwork, lapack_int* info ); double* u, 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) #define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_cggsvd(
char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
lapack_complex_float* a, lapack_int const* lda, lapack_complex_float* a, lapack_int const* lda,
lapack_complex_float* b, lapack_int const* ldb, lapack_complex_float* b, lapack_int const* ldb,
float* alpha, float* beta, lapack_complex_float* u, float* alpha, float* beta,
lapack_int const* ldu, lapack_complex_float* v, lapack_complex_float* u, lapack_int const* ldu,
lapack_int const* ldv, lapack_complex_float* q, lapack_complex_float* v, lapack_int const* ldv,
lapack_int const* ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* info ); 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) #define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_zggsvd(
char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
lapack_complex_double* a, lapack_int const* lda, lapack_complex_double* a, lapack_int const* lda,
@ -3688,7 +3700,8 @@ lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_complex_double* u, lapack_int const* ldu, lapack_complex_double* u, lapack_int const* ldu,
lapack_complex_double* v, lapack_int const* ldv, lapack_complex_double* v, lapack_int const* ldv,
lapack_complex_double* q, lapack_int const* ldq, lapack_complex_double* q, lapack_int const* ldq,
lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* info ); lapack_complex_double* work, double* 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,49 +3766,58 @@ 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 LAPACK_sggsvp( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_sggsvp(
lapack_int const* m, lapack_int const* p, lapack_int const* n, float* a, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* lda, float* b, lapack_int const* ldb, float* tola, lapack_int const* m, lapack_int const* p, lapack_int const* n,
float* tolb, lapack_int* k, lapack_int* l, float* u, float* a, lapack_int const* lda,
lapack_int const* ldu, float* v, lapack_int const* ldv, float* q, float* b, lapack_int const* ldb,
lapack_int const* ldq, lapack_int* iwork, float* tau, float* tola, float* tolb,
lapack_int* k, lapack_int* l,
float* u, 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 ); float* work, lapack_int* info );
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP) #define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
lapack_int LAPACK_dggsvp( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_dggsvp(
lapack_int const* m, lapack_int const* p, lapack_int const* n, double* a, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* lda, double* b, lapack_int const* ldb, lapack_int const* m, lapack_int const* p, lapack_int const* n,
double* tola, double* tolb, lapack_int* k, double* a, lapack_int const* lda,
lapack_int* l, double* u, lapack_int const* ldu, double* v, double* b, lapack_int const* ldb,
lapack_int const* ldv, double* q, lapack_int const* ldq, double* tola, double* tolb,
lapack_int* iwork, double* tau, double* work, lapack_int* k, lapack_int* l,
lapack_int* info); 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) #define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
lapack_int LAPACK_cggsvp( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_cggsvp(
char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
lapack_complex_float* a, lapack_int const* lda, lapack_complex_float* a, lapack_int const* lda,
lapack_complex_float* b, lapack_int const* ldb, float* tola, lapack_complex_float* b, lapack_int const* ldb,
float* tolb, lapack_int* k, lapack_int* l, float* tola, float* tolb, lapack_int* k, lapack_int* l,
lapack_complex_float* u, lapack_int const* ldu, lapack_complex_float* u, lapack_int const* ldu,
lapack_complex_float* v, lapack_int const* ldv, lapack_complex_float* v, lapack_int const* ldv,
lapack_complex_float* q, lapack_int const* ldq, lapack_complex_float* q, lapack_int const* ldq,
lapack_int* iwork, float* rwork, lapack_int* iwork, float* rwork, lapack_complex_float* tau,
lapack_complex_float* tau, lapack_complex_float* work, lapack_complex_float* work, lapack_int* info );
lapack_int* info);
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP) #define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
lapack_int LAPACK_zggsvp( char const* jobu, char const* jobv, char const* jobq, lapack_int LAPACK_zggsvp(
char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
lapack_complex_double* a, lapack_int const* lda, lapack_complex_double* a, lapack_int const* lda,
lapack_complex_double* b, lapack_int const* ldb, lapack_complex_double* b, lapack_int const* ldb,
double* tola, double* tolb, lapack_int* k, double* tola, double* tolb, lapack_int* k, lapack_int* l,
lapack_int* l, lapack_complex_double* u, lapack_complex_double* u, lapack_int const* ldu,
lapack_int const* ldu, lapack_complex_double* v, lapack_complex_double* v, lapack_int const* ldv,
lapack_int const* ldv, lapack_complex_double* q, lapack_complex_double* q, lapack_int const* ldq,
lapack_int const* ldq, lapack_int* iwork, double* rwork, lapack_int* iwork, double* rwork, lapack_complex_double* tau,
lapack_complex_double* tau, lapack_complex_double* work, lapack_complex_double* work, lapack_int* info );
lapack_int* info);
#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3) #define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3)
void LAPACK_cggsvp3( void LAPACK_cggsvp3(