]> www.ginac.de Git - cln.git/blob - src/real/elem/cl_R_zerop.cc
c300b7e7934552604fe2d4471f72ac3a64a204f3
[cln.git] / src / real / elem / cl_R_zerop.cc
1 // zerop().
2
3 // General includes.
4 #include "cl_sysdep.h"
5
6 // Specification.
7 #include "cln/real.h"
8
9
10 // Implementation.
11
12 #define zerop zerop_inline
13 #include "cl_R.h"
14 #include "cl_RA.h"
15 #include "cl_I.h"
16 #undef zerop
17 #include "cl_F.h"
18
19 #include "cl_inline.h"
20 #include "cl_SF_zerop.cc"
21 #include "cl_FF_zerop.cc"
22 #include "cl_DF_zerop.cc"
23 #include "cl_LF_zerop.cc"
24
25 namespace cln {
26
27 bool CL_FLATTEN zerop (const cl_R& x)
28 #if 0
29 GEN_R_OP1_2(x, zerop, return)
30 #else // fully inlined, faster
31 GEN_R_OP1_7(x, zerop_inline, return)
32 #endif
33
34 }  // namespace cln