From ab51e412417a0c80ddafdb7877929b5eaed7c298 Mon Sep 17 00:00:00 2001
From: David Wells <wellsd2@rpi.edu>
Date: Tue, 29 May 2018 21:46:22 -0400
Subject: [PATCH] Add in manually generated dlamch/slamch wrappers.

---
 include/deal.II/lac/lapack_templates.h | 43 ++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

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
-- 
2.39.5