Initial revision

[cln.git] / src / real / misc / cl_R_abs.cc

diff --git a/src/real/misc/cl_R_abs.cc b/src/real/misc/cl_R_abs.cc
new file mode 100644 (file)
index 0000000..8c8601c
--- /dev/null
+++ b/src/real/misc/cl_R_abs.cc
@@ -0,0 +1,20 @@
+// abs().
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_real.h"
+
+
+// Implementation.
+
+const cl_R abs (const cl_R& x)
+{
+       // Methode:
+       // Bei x<0: (- x), sonst x.
+       if (minusp(x))
+               return -x;
+       else
+               return x;
+}