OPAL (Object Oriented Parallel Accelerator Library)  2.2.0
OPAL
Truncate.cpp
Go to the documentation of this file.
1 // ------------------------------------------------------------------------
2 // $RCSfile: Truncate.cpp,v $
3 // ------------------------------------------------------------------------
4 // $Revision: 1.1.1.1 $
5 // ------------------------------------------------------------------------
6 // Copyright: see Copyright.readme
7 // ------------------------------------------------------------------------
8 //
9 // Function: double Truncate(double)
10 // Truncate towards zero.
11 //
12 // ------------------------------------------------------------------------
13 //
14 // $Date: 2000/03/27 09:33:48 $
15 // $Author: Andreas Adelmann $
16 //
17 // ------------------------------------------------------------------------
18 
19 #include "Utilities/Truncate.h"
20 #include <cmath>
21 
22 
23 double Truncate(double value) {
24  return (value < 0.0) ? ceil(value) : floor(value);
25 }
PETE_TUTree< FnCeil, typename T::PETE_Expr_t > ceil(const PETE_Expr< T > &l)
Definition: PETE.h:811
double Truncate(double value)
Truncate.
Definition: Truncate.cpp:23
PETE_TUTree< FnFloor, typename T::PETE_Expr_t > floor(const PETE_Expr< T > &l)
Definition: PETE.h:816