diff options
author | Thomas Grill <xovo@users.sourceforge.net> | 2003-03-14 04:36:57 +0000 |
---|---|---|
committer | Thomas Grill <xovo@users.sourceforge.net> | 2003-03-14 04:36:57 +0000 |
commit | 0e1b013af77442311cd3708ec4bdbedb197a28e2 (patch) | |
tree | b78bdeb16ac023ce8cbff7f8319762eb29827729 /externals/grill/vasp/source/ops_flt.cpp | |
parent | aee82b636f867865ba00cb25d2a021f9f4e2aab4 (diff) |
""
svn path=/trunk/; revision=468
Diffstat (limited to 'externals/grill/vasp/source/ops_flt.cpp')
-rw-r--r-- | externals/grill/vasp/source/ops_flt.cpp | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/externals/grill/vasp/source/ops_flt.cpp b/externals/grill/vasp/source/ops_flt.cpp index fae66f56..f92f585e 100644 --- a/externals/grill/vasp/source/ops_flt.cpp +++ b/externals/grill/vasp/source/ops_flt.cpp @@ -209,27 +209,4 @@ VASP_ANYOP("vasp.int",int,0,true,VASP_ARG_I(1),"Integration") VASP_ANYOP("vasp.dif",dif,0,true,VASP_ARG_I(1),"Differentiation") - -/*! \brief Bashes denormals and NANs to zero - - \param arg argument list - \param dst destination vasp (NULL for in-place operation) - \return normalized destination vasp -*/ -template<class T> inline V f_fix(T &v,T a) -{ - if(a != a) // NAN - v = 0; - else { - // denormal bashing (doesn't propagate to the next stage) - - static const F anti_denormal = 1e-18F; - a += anti_denormal; - a -= anti_denormal; - v = a; - } -} - -BL VecOp::d_fix(OpParam &p) { D__run(f_fix<S>,p); } - VASP_UNARY("vasp.fix",fix,true,"Bashes denormals/NANs to zero") |