diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2014-01-15 00:35:21 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2014-01-15 00:35:21 +0100 |
| commit | ddbd423f54e2fd92659a0d277ee844659eee8ba1 (patch) | |
| tree | 316a82d463009364a6cdf07892bc3e28330698db /src/mylapack.c | |
| parent | remove note in read_data (diff) | |
| download | gensvm-ddbd423f54e2fd92659a0d277ee844659eee8ba1.tar.gz gensvm-ddbd423f54e2fd92659a0d277ee844659eee8ba1.zip | |
added documentation, restart git usage, start implementing kernels
Diffstat (limited to 'src/mylapack.c')
| -rw-r--r-- | src/mylapack.c | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/src/mylapack.c b/src/mylapack.c deleted file mode 100644 index 4a9cf81..0000000 --- a/src/mylapack.c +++ /dev/null @@ -1,49 +0,0 @@ -/** - * @file mylapack.c - * @author Gertjan van den Burg (burg@ese.eur.nl) - * @date August 9, 2013 - * @brief Utility functions for interacting with LAPACK - * - * @details - * Functions in this file are auxiliary functions which make it easier - * to use LAPACK functions from liblapack. - */ - -#include "mylapack.h" - -/** - * @name dposv - * @brief Solve a system of equations AX = B where A is symmetric positive definite. - * @ingroup libMSVMMaj - * - * See the LAPACK documentation at: - * http://www.netlib.org/lapack/explore-html/dc/de9/group__double_p_osolve.html - */ -int dposv(char UPLO, int N, int NRHS, double *A, int LDA, double *B, - int LDB) -{ - extern void dposv_(char *UPLO, int *Np, int *NRHSp, double *A, - int *LDAp, double *B, int *LDBp, int *INFOp); - int INFO; - dposv_(&UPLO, &N, &NRHS, A, &LDA, B, &LDB, &INFO); - return INFO; -} - -/** - * @name dsysv - * @brief Solve a system of equations AX = B where A is symmetric. - * @ingroup libMSVMMaj - * - * See the LAPACK documentation at: - * http://www.netlib.org/lapack/explore-html/d6/d0e/group__double_s_ysolve.html - */ -int dsysv(char UPLO, int N, int NRHS, double *A, int LDA, int *IPIV, - double *B, int LDB, double *WORK, int LWORK) -{ - extern void dsysv_(char *UPLO, int *Np, int *NRHSp, double *A, - int *LDAp, int *IPIV, double *B, int *LDBp, - double *WORK, int *LWORK, int *INFOp); - int INFO; - dsysv_(&UPLO, &N, &NRHS, A, &LDA, IPIV, B, &LDB, WORK, &LWORK, &INFO); - return INFO; -} |
