[Getfem-commits] r4765 - /trunk/getfem/interface/src/gf_linsolve.cc

[tomas . ligursky]

Author: ligut2am
Date: Thu Sep 11 17:11:05 2014
New Revision: 4765

URL: http://svn.gna.org/viewcvs/getfem?rev=4765&view=rev
Log:
minor fix

Modified:
    trunk/getfem/interface/src/gf_linsolve.cc

Modified: trunk/getfem/interface/src/gf_linsolve.cc
URL: 
http://svn.gna.org/viewcvs/getfem/trunk/getfem/interface/src/gf_linsolve.cc?rev=4765&r1=4764&r2=4765&view=diff
==============================================================================
--- trunk/getfem/interface/src/gf_linsolve.cc   (original)
+++ trunk/getfem/interface/src/gf_linsolve.cc   Thu Sep 11 17:11:05 2014
@@ -96,6 +96,7 @@
     out.pop().from_scalar(rcond ? 1./rcond : 0.);
 }
 
+#if defined(GMM_USES_MUMPS) || defined(HAVE_DMUMPS_C_H)
 template <typename T> static void
 mumps_solver(gsparse &gsp,
              getfemint::mexargs_in& in, getfemint::mexargs_out& out, T) {
@@ -104,6 +105,7 @@
   gsp.to_csc();
   gmm::MUMPS_solve(gsp.csc(T()),x,b);
 }
+#endif
 
 /address@hidden
   Various linear system solvers.
@@ -202,6 +204,7 @@
        else                  superlu_solver(gsp, in, out, scalar_type());
        );
 
+#if defined(GMM_USES_MUMPS) || defined(HAVE_DMUMPS_C_H)
     /address@hidden @CELL{U, cond} = ('mumps', @tsp M, @vec b)
     Solve `M.U = b` using the MUMPS address@hidden/
     sub_command
@@ -213,6 +216,7 @@
        if (gsp.is_complex()) mumps_solver(gsp, in, out, complex_type());
        else                  mumps_solver(gsp, in, out, scalar_type());
        );
+#endif
 
   }