remove lapack cholesky function

2 files changed, 0 insertions, 34 deletions

diff --git a/include/msvmmaj_lapack.h b/include/msvmmaj_lapack.h
index 766a475..e2208ca 100644
--- a/include/msvmmaj_lapack.h
+++ b/include/msvmmaj_lapack.h
@@ -18,6 +18,5 @@ int dposv(char UPLO, int N, int NRHS, double *A, int LDA, double *B,
 		int LDB);
 int dsysv(char UPLO, int N, int NRHS, double *A, int LDA, int *IPIV,
 		double *B, int LDB, double *WORK, int LWORK);
-int dpotrf(char UPLO, int N, double *A, int LDA);
 
 #endif
diff --git a/src/msvmmaj_lapack.c b/src/msvmmaj_lapack.c
index 9ca8dab..e8b5d6b 100644
--- a/src/msvmmaj_lapack.c
+++ b/src/msvmmaj_lapack.c
@@ -94,36 +94,3 @@ int dsysv(char UPLO, int N, int NRHS, double *A, int LDA, int *IPIV,
 	dsysv_(&UPLO, &N, &NRHS, A, &LDA, IPIV, B, &LDB, WORK, &LWORK, &INFO);
 	return INFO;
 }
-
-/**
- * @brief Compute the Cholesky factorization of a real symmetric positive 
- *  	  definite matrix.
- *
- * @details
- * This function uses the external LAPACK routine dpotrf.
- *
- * @param[in] 		UPLO 	which triangle of A is stored
- * @param[in] 		N 	order of A
- * @param[in,out] 	A 	double precision array of size (LDA, N). On
- * 				exit contains the factor U or L of the Cholesky
- * 				factorization
- * @param[in] 		LDA 	leading dimension of A
- * @returns 			info parameter which contains the status of the
- * 				computation:
- * 					- =0: 	success
- * 					- <0: 	if -i, the i-th argument had an
- * 						illegal value
- * 					- >0: 	if i, the leading minor of
- * 						order i is not positive
- * 						definite
- *
- * See the LAPACK documentation at:
- * http://www.netlib.org/lapack/explore-html/d0/d8a/dpotrf_8f.html
- */
-int dpotrf(char UPLO, int N, double *A, int LDA)
-{
-	extern void dpotrf_(char *UPLO, int *N, double *A, int *LDA, int *INFOp);
-	int INFO;
-	dpotrf_(&UPLO, &N, A, &LDA, &INFO);
-	return INFO;
-}