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

Add entries for the new Householder Reconstruction functions from 3.9.1

This commit is contained in:
Martin Kroeker 2021-05-02 19:56:11 +02:00 committed by GitHub
parent db50b24a4a
commit fb7308b9b5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 154 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2941,6 +2941,42 @@ void LAPACK_zgetsls(
lapack_complex_double* work, lapack_int const* lwork, lapack_complex_double* work, lapack_int const* lwork,
lapack_int* info ); lapack_int* info );
#define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
void LAPACK_cgetsqrhrt(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
lapack_complex_float* A, lapack_int const* lda,
lapack_complex_float* T, lapack_int const* ldt,
lapack_complex_float* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT)
void LAPACK_dgetsqrhrt(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
double* A, lapack_int const* lda,
double* T, lapack_int const* ldt,
double* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT)
void LAPACK_sgetsqrhrt(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
float* A, lapack_int const* lda,
float* T, lapack_int const* ldt,
float* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT)
void LAPACK_zgetsqrhrt(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
lapack_complex_double* A, lapack_int const* lda,
lapack_complex_double* T, lapack_int const* ldt,
lapack_complex_double* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_cggbak LAPACK_GLOBAL(cggbak,CGGBAK) #define LAPACK_cggbak LAPACK_GLOBAL(cggbak,CGGBAK)
void LAPACK_cggbak( void LAPACK_cggbak(
char const* job, char const* side, char const* job, char const* side,
@ -7251,6 +7287,24 @@ void LAPACK_sorgtr(
float* work, lapack_int const* lwork, float* work, lapack_int const* lwork,
lapack_int* info ); lapack_int* info );
#define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
void LAPACK_dorgtsqr_row(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb, lapack_int const* nb,
double* A, lapack_int const* lda,
double const* T, lapack_int const* ldt,
double* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW)
void LAPACK_sorgtsqr_row(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb, lapack_int const* nb,
float* A, lapack_int const* lda,
float const* T, lapack_int const* ldt,
float* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_dormbr LAPACK_GLOBAL(dormbr,DORMBR) #define LAPACK_dormbr LAPACK_GLOBAL(dormbr,DORMBR)
void LAPACK_dormbr( void LAPACK_dormbr(
char const* vect, char const* side, char const* trans, char const* vect, char const* side, char const* trans,
@ -13540,6 +13594,24 @@ void LAPACK_zungtr(
lapack_complex_double* work, lapack_int const* lwork, lapack_complex_double* work, lapack_int const* lwork,
lapack_int* info ); lapack_int* info );
#define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
void LAPACK_cungtsqr_row(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb, lapack_int const* nb,
lapack_complex_float* A, lapack_int const* lda,
lapack_complex_float const* T, lapack_int const* ldt,
lapack_complex_float* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW)
void LAPACK_zungtsqr_row(
lapack_int const* m, lapack_int const* n,
lapack_int const* mb, lapack_int const* nb,
lapack_complex_double* A, lapack_int const* lda,
lapack_complex_double const* T, lapack_int const* ldt,
lapack_complex_double* work, lapack_int const* lwork,
lapack_int* info );
#define LAPACK_cunmbr LAPACK_GLOBAL(cunmbr,CUNMBR) #define LAPACK_cunmbr LAPACK_GLOBAL(cunmbr,CUNMBR)
void LAPACK_cunmbr( void LAPACK_cunmbr(
char const* vect, char const* side, char const* trans, char const* vect, char const* side, char const* trans,

82
lapack-netlib/LAPACKE/include/lapacke.h
View File

@ -2598,6 +2598,15 @@ lapack_int LAPACKE_sorgtr( int matrix_layout, char uplo, lapack_int n, float* a,
lapack_int LAPACKE_dorgtr( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int LAPACKE_dorgtr( int matrix_layout, char uplo, lapack_int n, double* a,
lapack_int lda, const double* tau ); lapack_int lda, const double* tau );
lapack_int LAPACKE_sorgtsqr_row( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
float* a, lapack_int lda,
const float* t, lapack_int ldt );
lapack_int LAPACKE_dorgtsqr_row( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
double* a, lapack_int lda,
const double* t, lapack_int ldt );
lapack_int LAPACKE_sormbr( int matrix_layout, char vect, char side, char trans, lapack_int LAPACKE_sormbr( int matrix_layout, char vect, char side, char trans,
lapack_int m, lapack_int n, lapack_int k, lapack_int m, lapack_int n, lapack_int k,
const float* a, lapack_int lda, const float* tau, const float* a, lapack_int lda, const float* tau,
@ -4577,6 +4586,15 @@ lapack_int LAPACKE_zungtr( int matrix_layout, char uplo, lapack_int n,
lapack_complex_double* a, lapack_int lda, lapack_complex_double* a, lapack_int lda,
const lapack_complex_double* tau ); const lapack_complex_double* tau );
lapack_int LAPACKE_cungtsqr_row( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
lapack_complex_float* a, lapack_int lda,
const lapack_complex_float* t, lapack_int ldt );
lapack_int LAPACKE_zungtsqr_row( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
lapack_complex_double* a, lapack_int lda,
const lapack_complex_double* t, lapack_int ldt );
lapack_int LAPACKE_cunmbr( int matrix_layout, char vect, char side, char trans, lapack_int LAPACKE_cunmbr( int matrix_layout, char vect, char side, char trans,
lapack_int m, lapack_int n, lapack_int k, lapack_int m, lapack_int n, lapack_int k,
const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* a, lapack_int lda,
@ -7880,6 +7898,19 @@ lapack_int LAPACKE_dorgtr_work( int matrix_layout, char uplo, lapack_int n,
double* a, lapack_int lda, const double* tau, double* a, lapack_int lda, const double* tau,
double* work, lapack_int lwork ); double* work, lapack_int lwork );
lapack_int LAPACKE_sorgtsqr_row_work( int matrix_layout,
lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
float* a, lapack_int lda,
const float* t, lapack_int ldt,
float* work, lapack_int lwork );
lapack_int LAPACKE_dorgtsqr_row_work( int matrix_layout,
lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
double* a, lapack_int lda,
const double* t, lapack_int ldt,
double* work, lapack_int lwork );
lapack_int LAPACKE_sormbr_work( int matrix_layout, char vect, char side, lapack_int LAPACKE_sormbr_work( int matrix_layout, char vect, char side,
char trans, lapack_int m, lapack_int n, char trans, lapack_int m, lapack_int n,
lapack_int k, const float* a, lapack_int lda, lapack_int k, const float* a, lapack_int lda,
@ -10281,6 +10312,19 @@ lapack_int LAPACKE_zungtr_work( int matrix_layout, char uplo, lapack_int n,
const lapack_complex_double* tau, const lapack_complex_double* tau,
lapack_complex_double* work, lapack_int lwork ); lapack_complex_double* work, lapack_int lwork );
lapack_int LAPACKE_cungtsqr_row_work( int matrix_layout,
lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
lapack_complex_float* a, lapack_int lda,
const lapack_complex_float* t, lapack_int ldt,
lapack_complex_float* work, lapack_int lwork );
lapack_int LAPACKE_zungtsqr_row_work( int matrix_layout,
lapack_int m, lapack_int n,
lapack_int mb, lapack_int nb,
lapack_complex_double* a, lapack_int lda,
const lapack_complex_double* t, lapack_int ldt,
lapack_complex_double* work, lapack_int lwork );
lapack_int LAPACKE_cunmbr_work( int matrix_layout, char vect, char side, lapack_int LAPACKE_cunmbr_work( int matrix_layout, char vect, char side,
char trans, lapack_int m, lapack_int n, char trans, lapack_int m, lapack_int n,
lapack_int k, const lapack_complex_float* a, lapack_int k, const lapack_complex_float* a,
@ -12026,6 +12070,44 @@ lapack_int LAPACKE_zgetsls_work( int matrix_layout, char trans, lapack_int m,
lapack_complex_double* b, lapack_int ldb, lapack_complex_double* b, lapack_int ldb,
lapack_complex_double* work, lapack_int lwork ); lapack_complex_double* work, lapack_int lwork );
lapack_int LAPACKE_sgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
float* a, lapack_int lda,
float* t, lapack_int ldt );
lapack_int LAPACKE_dgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
double* a, lapack_int lda,
double* t, lapack_int ldt );
lapack_int LAPACKE_cgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
lapack_complex_float* a, lapack_int lda,
lapack_complex_float* t, lapack_int ldt );
lapack_int LAPACKE_zgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
lapack_complex_double* a, lapack_int lda,
lapack_complex_double* t, lapack_int ldt );
lapack_int LAPACKE_sgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
float* a, lapack_int lda,
float* t, lapack_int ldt,
float* work, lapack_int lwork );
lapack_int LAPACKE_dgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
double* a, lapack_int lda,
double* t, lapack_int ldt,
double* work, lapack_int lwork );
lapack_int LAPACKE_cgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
lapack_complex_float* a, lapack_int lda,
lapack_complex_float* t, lapack_int ldt,
lapack_complex_float* work, lapack_int lwork );
lapack_int LAPACKE_zgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n,
lapack_int mb1, lapack_int nb1, lapack_int nb2,
lapack_complex_double* a, lapack_int lda,
lapack_complex_double* t, lapack_int ldt,
lapack_complex_double* work, lapack_int lwork );
lapack_int LAPACKE_ssyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int LAPACKE_ssyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n,
float* a, lapack_int lda, float* w ); float* a, lapack_int lda, float* w );
lapack_int LAPACKE_dsyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int LAPACKE_dsyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n,