X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Freal%2Fmisc%2Fcl_R_abs.cc;fp=src%2Freal%2Fmisc%2Fcl_R_abs.cc;h=8c8601cddd5c3569dcec4b444fd6789f63879742;hb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;hp=0000000000000000000000000000000000000000;hpb=d57000b193438122b366aa0d450674be9402d06c;p=cln.git

diff --git a/src/real/misc/cl_R_abs.cc b/src/real/misc/cl_R_abs.cc
new file mode 100644
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;
+}