From: David Wells 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 +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