From: David Wells <wellsd2@rpi.edu>
Date: Wed, 30 May 2018 01:46:22 +0000 (-0400)
Subject: Add in manually generated dlamch/slamch wrappers.
X-Git-Tag: v9.1.0-rc1~1013^2
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ab51e412417a0c80ddafdb7877929b5eaed7c298;p=dealii.git

Add in manually generated dlamch/slamch wrappers.
---

diff --git a/include/deal.II/lac/lapack_templates.h b/include/deal.II/lac/lapack_templates.h
index f29205370b..a6a4e124e9 100644
--- a/include/deal.II/lac/lapack_templates.h
+++ b/include/deal.II/lac/lapack_templates.h
@@ -5909,6 +5909,49 @@ trtrs(const char *                   uplo,
   Assert(false, LAPACKSupport::ExcMissing("ztrtrs"));
 #endif // DEAL_II_WITH_LAPACK
 }
+
+
+
+// These overloads of lamch were added for 9.0 but are replaced by the
+// automatically generated versions provided above. These are manual additions
+// and should be kept even if this file is regenerated.
+template <typename number>
+DEAL_II_DEPRECATED inline void
+lamch(const char *, number &)
+{
+  Assert(false, ExcNotImplemented());
+}
+
+
+
+DEAL_II_DEPRECATED
+inline void
+lamch(const char *cmach, float &precision)
+{
+#ifdef DEAL_II_WITH_LAPACK
+  precision = slamch_(cmach);
+#else
+  (void)cmach;
+  (void)precision;
+  Assert(false, LAPACKSupport::ExcMissing("slamch"));
+#endif // DEAL_II_WITH_LAPACK
+}
+
+
+
+DEAL_II_DEPRECATED
+inline void
+lamch(const char *cmach, double &precision)
+{
+#ifdef DEAL_II_WITH_LAPACK
+  precision = dlamch_(cmach);
+#else
+  (void)cmach;
+  (void)precision;
+  Assert(false, LAPACKSupport::ExcMissing("dlamch"));
+#endif // DEAL_II_WITH_LAPACK
+}
+
 DEAL_II_NAMESPACE_CLOSE
 
 #endif