aboutsummaryrefslogtreecommitdiff
path: root/src/benchmarks/cfrac/psqrt.c
diff options
context:
space:
mode:
authorFlorian Fischer <florian.fl.fischer@fau.de>2020-05-06 16:56:32 +0200
committerFlorian Fischer <florian.fl.fischer@fau.de>2020-06-02 11:18:47 +0200
commit8174a918ea3b7cb216bf7ea98cfdc10661b5c37d (patch)
tree0747ec3ccb9f8d7eeccfac35977fc17855ca3bbb /src/benchmarks/cfrac/psqrt.c
parent8f52e8fc02dd235582f5961941bcd564e9a681cd (diff)
downloadallocbench-8174a918ea3b7cb216bf7ea98cfdc10661b5c37d.tar.gz
allocbench-8174a918ea3b7cb216bf7ea98cfdc10661b5c37d.zip
make the whole project more python idiomatic
* rename src directory to allocbench * make global variable names UPPERCASE * format a lot of code using yapf * use lowercase ld_preload and ld_library_path as Allocator members * name expected Errors 'err' and don't raise a new Exception * disable some pylint messages
Diffstat (limited to 'src/benchmarks/cfrac/psqrt.c')
-rw-r--r--src/benchmarks/cfrac/psqrt.c29
1 files changed, 0 insertions, 29 deletions
diff --git a/src/benchmarks/cfrac/psqrt.c b/src/benchmarks/cfrac/psqrt.c
deleted file mode 100644
index 00531a6..0000000
--- a/src/benchmarks/cfrac/psqrt.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include "precision.h"
-
-/*
- * Square root
- */
-precision psqrt(y)
- precision y;
-{
- int i;
- precision x = pUndef, lastx = pUndef;
-
- i = pcmpz(pparm(y));
- if (i == 0) { /* if y == 0 */
- pset(&lastx, pzero);
- } else if (i < 0) { /* if y negative */
- pset(&x, errorp(PDOMAIN, "psqrt", "negative argument"));
- } else {
- pset(&x, y);
- do {
- pset(&lastx, x);
- pset(&x, phalf(padd(x, pdiv(y, x))));
- } while (plt(x, lastx));
- }
-
- pdestroy(x);
-
- pdestroy(y);
- return presult(lastx);
-}