getfem-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Getfem-commits] r4849 - /trunk/getfem/src/gmm/gmm_lapack_interface.h


From: andriy . andreykiv
Subject: [Getfem-commits] r4849 - /trunk/getfem/src/gmm/gmm_lapack_interface.h
Date: Wed, 28 Jan 2015 11:11:00 -0000

Author: andrico
Date: Wed Jan 28 12:10:59 2015
New Revision: 4849

URL: http://svn.gna.org/viewcvs/getfem?rev=4849&view=rev
Log:
a fall back solution for schur function from Lapack in case Lapack is not 
included

Modified:
    trunk/getfem/src/gmm/gmm_lapack_interface.h

Modified: trunk/getfem/src/gmm/gmm_lapack_interface.h
URL: 
http://svn.gna.org/viewcvs/getfem/trunk/getfem/src/gmm/gmm_lapack_interface.h?rev=4849&r1=4848&r2=4849&view=diff
==============================================================================
--- trunk/getfem/src/gmm/gmm_lapack_interface.h (original)
+++ trunk/getfem/src/gmm/gmm_lapack_interface.h Wed Jan 28 12:10:59 2015
@@ -35,8 +35,6 @@
    @brief gmm interface for LAPACK
 */
 
-#if defined(GMM_USES_LAPACK)
-
 #ifndef GMM_LAPACK_INTERFACE_H
 #define GMM_LAPACK_INTERFACE_H
 
@@ -44,6 +42,8 @@
 #include "gmm_dense_lu.h"
 #include "gmm_dense_qr.h"
 
+
+#if defined(GMM_USES_LAPACK)
 
 namespace gmm {
 
@@ -455,6 +455,19 @@
 
 }
 
+#else
+
+namespace gmm
+{
+template <typename MAT>
+void schur(const MAT &A_, MAT &S, MAT &Q)
+{
+  GMM_ASSERT1(false, "Use of function schur(A,S,Q) requires GetFEM++ "
+              "to be built with Lapack");
+}
+
+}// namespace gmm
+
+#endif // GMM_USES_LAPACK\
+
 #endif // GMM_LAPACK_INTERFACE_H
-
-#endif // GMM_USES_LAPACK




reply via email to

[Prev in Thread] Current Thread [Next in Thread]