]> https://gitweb.dealii.org/ - dealii.git/commitdiff
Add in manually generated dlamch/slamch wrappers. 6695/head
authorDavid Wells <wellsd2@rpi.edu>
Wed, 30 May 2018 01:46:22 +0000 (21:46 -0400)
committerDavid Wells <wellsd2@rpi.edu>
Wed, 30 May 2018 10:00:09 +0000 (06:00 -0400)
include/deal.II/lac/lapack_templates.h

index f29205370b73f7989031418890a39e33b3fa9356..a6a4e124e9d85f8e4bb1a24e23b19476faa4c206 100644 (file)
@@ -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

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.