#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