From ab51e412417a0c80ddafdb7877929b5eaed7c298 Mon Sep 17 00:00:00 2001 From: David Wells 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 +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