1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| #ifndef TH_GENERIC_FILE
| #define TH_GENERIC_FILE "TH/generic/THLapack.h"
| #else
|
| /* ||AX-B|| */
| TH_API void THLapack_(gels)(char trans, int m, int n, int nrhs, scalar_t *a, int lda, scalar_t *b, int ldb, scalar_t *work, int lwork, int *info);
| /* Non-sym eigenvals */
| TH_API void THLapack_(geev)(char jobvl, char jobvr, int n, scalar_t *a, int lda, scalar_t *wr, scalar_t *wi, scalar_t* vl, int ldvl, scalar_t *vr, int ldvr, scalar_t *work, int lwork, int *info);
|
| /* Positive Definite matrices */
| /* Matrix inverse based on Cholesky factorization */
| TH_API void THLapack_(potri)(char uplo, int n, scalar_t *a, int lda, int *info);
|
| /* QR decomposition */
| TH_API void THLapack_(geqrf)(int m, int n, scalar_t *a, int lda, scalar_t *tau, scalar_t *work, int lwork, int *info);
| /* Build Q from output of geqrf */
| TH_API void THLapack_(orgqr)(int m, int n, int k, scalar_t *a, int lda, scalar_t *tau, scalar_t *work, int lwork, int *info);
| /* Multiply Q with a matrix from output of geqrf */
| TH_API void THLapack_(ormqr)(char side, char trans, int m, int n, int k, scalar_t *a, int lda, scalar_t *tau, scalar_t *c, int ldc, scalar_t *work, int lwork, int *info);
|
| #endif
|
|
