From ae8c59bc4c73b1ceaead121f6850234a16f1cea8 Mon Sep 17 00:00:00 2001 From: Richard Roberts Date: Sat, 6 Nov 2010 21:30:14 +0000 Subject: [PATCH] clapack.h not present in Linux --- gtsam/base/cholesky.cpp | 3 ++- gtsam/base/lapack.h | 1 - 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gtsam/base/cholesky.cpp b/gtsam/base/cholesky.cpp index 581cad0c2..a1d8f0d7b 100644 --- a/gtsam/base/cholesky.cpp +++ b/gtsam/base/cholesky.cpp @@ -76,12 +76,13 @@ void choleskyFactorUnderdetermined(MatrixColMajor& Ab) { // Compute the values of R from F'F int info = lapack_dpotrf('U', rank, &R(0,0), Ab.size1()); - if(info != 0) + if(info != 0) { if(info < 0) throw std::domain_error(boost::str(boost::format( "Bad input to choleskyFactorUnderdetermined, dpotrf returned %d.\n")%info)); else throw std::domain_error("The matrix passed into choleskyFactorUnderdetermined is numerically rank-deficient"); + } // Compute S = inv(R') * F' * G, i.e. solve S when R'S = F'G cblas_dtrsm(CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, S.size1(), S.size2(), 1.0, &R(0,0), m, &S(0,0), m); diff --git a/gtsam/base/lapack.h b/gtsam/base/lapack.h index 820d4c934..87aef7d74 100644 --- a/gtsam/base/lapack.h +++ b/gtsam/base/lapack.h @@ -22,7 +22,6 @@ extern "C" { #include -#include /* Subroutine */ int dpotrf_(char *uplo, int *n, double *a, int *lda, int *info);