Skip to content

Commit 3b4e807

Browse files
langoulangou
authored
Merge pull request #367 from svillemot/master
Restore missing prototypes for deprecated LAPACK functions
2 parents 6acc99d + 87536aa commit 3b4e807

File tree

1 file changed

+100
-0
lines changed

1 file changed

+100
-0
lines changed

‎LAPACKE/include/lapack.h

Lines changed: 100 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1842,6 +1842,28 @@ void LAPACK_zgeqlf(
18421842
lapack_complex_double* work, lapack_int const* lwork,
18431843
lapack_int* info );
18441844

1845+
#define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
1846+
void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
1847+
lapack_int* jpvt, float* tau, float* work,
1848+
lapack_int *info );
1849+
1850+
#define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
1851+
void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
1852+
lapack_int* jpvt, double* tau, double* work,
1853+
lapack_int *info );
1854+
1855+
#define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
1856+
void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
1857+
lapack_int* lda, lapack_int* jpvt,
1858+
lapack_complex_float* tau, lapack_complex_float* work,
1859+
float* rwork, lapack_int *info );
1860+
1861+
#define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
1862+
void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
1863+
lapack_int* lda, lapack_int* jpvt,
1864+
lapack_complex_double* tau, lapack_complex_double* work,
1865+
double* rwork, lapack_int *info );
1866+
18451867
#define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
18461868
void LAPACK_cgeqp3(
18471869
lapack_int const* m, lapack_int const* n,
@@ -3617,6 +3639,47 @@ void LAPACK_zggrqf(
36173639
lapack_complex_double* work, lapack_int const* lwork,
36183640
lapack_int* info );
36193641

3642+
#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
3643+
lapack_int LAPACKE_sggsvd( int matrix_layout, char jobu, char jobv, char jobq,
3644+
lapack_int m, lapack_int n, lapack_int p,
3645+
lapack_int* k, lapack_int* l, float* a,
3646+
lapack_int lda, float* b, lapack_int ldb,
3647+
float* alpha, float* beta, float* u, lapack_int ldu,
3648+
float* v, lapack_int ldv, float* q, lapack_int ldq,
3649+
lapack_int* iwork );
3650+
3651+
#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
3652+
lapack_int LAPACKE_dggsvd( int matrix_layout, char jobu, char jobv, char jobq,
3653+
lapack_int m, lapack_int n, lapack_int p,
3654+
lapack_int* k, lapack_int* l, double* a,
3655+
lapack_int lda, double* b, lapack_int ldb,
3656+
double* alpha, double* beta, double* u,
3657+
lapack_int ldu, double* v, lapack_int ldv, double* q,
3658+
lapack_int ldq, lapack_int* iwork );
3659+
3660+
#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
3661+
lapack_int LAPACKE_cggsvd( int matrix_layout, char jobu, char jobv, char jobq,
3662+
lapack_int m, lapack_int n, lapack_int p,
3663+
lapack_int* k, lapack_int* l,
3664+
lapack_complex_float* a, lapack_int lda,
3665+
lapack_complex_float* b, lapack_int ldb,
3666+
float* alpha, float* beta, lapack_complex_float* u,
3667+
lapack_int ldu, lapack_complex_float* v,
3668+
lapack_int ldv, lapack_complex_float* q,
3669+
lapack_int ldq, lapack_int* iwork );
3670+
3671+
#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
3672+
lapack_int LAPACKE_zggsvd( int matrix_layout, char jobu, char jobv, char jobq,
3673+
lapack_int m, lapack_int n, lapack_int p,
3674+
lapack_int* k, lapack_int* l,
3675+
lapack_complex_double* a, lapack_int lda,
3676+
lapack_complex_double* b, lapack_int ldb,
3677+
double* alpha, double* beta,
3678+
lapack_complex_double* u, lapack_int ldu,
3679+
lapack_complex_double* v, lapack_int ldv,
3680+
lapack_complex_double* q, lapack_int ldq,
3681+
lapack_int* iwork );
3682+
36203683
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
36213684
void LAPACK_cggsvd3(
36223685
char const* jobu, char const* jobv, char const* jobq,
@@ -3679,6 +3742,43 @@ void LAPACK_zggsvd3(
36793742
lapack_int* iwork,
36803743
lapack_int* info );
36813744

3745+
#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
3746+
lapack_int LAPACKE_sggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3747+
lapack_int m, lapack_int p, lapack_int n, float* a,
3748+
lapack_int lda, float* b, lapack_int ldb, float tola,
3749+
float tolb, lapack_int* k, lapack_int* l, float* u,
3750+
lapack_int ldu, float* v, lapack_int ldv, float* q,
3751+
lapack_int ldq );
3752+
3753+
#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
3754+
lapack_int LAPACKE_dggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3755+
lapack_int m, lapack_int p, lapack_int n, double* a,
3756+
lapack_int lda, double* b, lapack_int ldb,
3757+
double tola, double tolb, lapack_int* k,
3758+
lapack_int* l, double* u, lapack_int ldu, double* v,
3759+
lapack_int ldv, double* q, lapack_int ldq );
3760+
3761+
#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
3762+
lapack_int LAPACKE_cggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3763+
lapack_int m, lapack_int p, lapack_int n,
3764+
lapack_complex_float* a, lapack_int lda,
3765+
lapack_complex_float* b, lapack_int ldb, float tola,
3766+
float tolb, lapack_int* k, lapack_int* l,
3767+
lapack_complex_float* u, lapack_int ldu,
3768+
lapack_complex_float* v, lapack_int ldv,
3769+
lapack_complex_float* q, lapack_int ldq );
3770+
3771+
#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
3772+
lapack_int LAPACKE_zggsvp( int matrix_layout, char jobu, char jobv, char jobq,
3773+
lapack_int m, lapack_int p, lapack_int n,
3774+
lapack_complex_double* a, lapack_int lda,
3775+
lapack_complex_double* b, lapack_int ldb,
3776+
double tola, double tolb, lapack_int* k,
3777+
lapack_int* l, lapack_complex_double* u,
3778+
lapack_int ldu, lapack_complex_double* v,
3779+
lapack_int ldv, lapack_complex_double* q,
3780+
lapack_int ldq );
3781+
36823782
#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3)
36833783
void LAPACK_cggsvp3(
36843784
char const* jobu, char const* jobv, char const* jobq,

0 commit comments

Comments
 (0)