aboutsummaryrefslogtreecommitdiff
path: root/src/lapack.cpp
diff options
context:
space:
mode:
authorPjotr Prins2018-09-27 09:35:13 +0000
committerPjotr Prins2018-09-27 09:35:13 +0000
commitc08e633d2f858b35d2939d92c8a1b82d36168944 (patch)
tree82f7b8785f7af041c48934e89983ef47a8a3b374 /src/lapack.cpp
parent5d74d45b5ade5339bca6090bead2d6b37a70fb63 (diff)
downloadpangemma-c08e633d2f858b35d2939d92c8a1b82d36168944.tar.gz
Inlining GSL calls
Diffstat (limited to 'src/lapack.cpp')
-rw-r--r--src/lapack.cpp4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lapack.cpp b/src/lapack.cpp
index bf73338..eb5b16b 100644
--- a/src/lapack.cpp
+++ b/src/lapack.cpp
@@ -319,8 +319,8 @@ void LUDecomp(gsl_matrix *LU, gsl_permutation *p, int *signum) {
// introductory textbook on numerical linear algebra for details).
void LUInvert(const gsl_matrix *LU, const gsl_permutation *p, gsl_matrix *ret_inverse) {
// debug_msg("entering");
- auto det = LULndet(LU);
- enforce_msg(det != 1.0,"LU determinant is zero -> LU is not invertable");
+ if (is_check_mode())
+ LULndet(LU);
enforce_gsl(gsl_linalg_LU_invert(LU, p, ret_inverse));
}