From 4d95360a68de8e2b0eef95e952b237d3a5e5170e Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Mon, 13 Jun 2016 19:41:17 +0200
Subject: [PATCH] fix abs(-0), which shall evaluate to +0

---
 src/include/ngspice/complex.h | 2 +-
 src/spicelib/parser/ptfuncs.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/include/ngspice/complex.h b/src/include/ngspice/complex.h
index 307663d34..754c65e0e 100644
--- a/src/include/ngspice/complex.h
+++ b/src/include/ngspice/complex.h
@@ -69,7 +69,7 @@ typedef struct {
 #endif
 
 /* Some defines used mainly in cmath.c. */
-#define FTEcabs(d)  (((d) < 0.0) ? - (d) : (d))
+#define FTEcabs(d)  fabs(d)
 #define cph(c)    (atan2(imagpart(c), (realpart(c))))
 #define cmag(c)  (hypot(realpart(c), imagpart(c)))
 #define radtodeg(c) (cx_degrees ? ((c) / 3.14159265358979323846 * 180) : (c))
diff --git a/src/spicelib/parser/ptfuncs.c b/src/spicelib/parser/ptfuncs.c
index 6986f236e..119cc22ef 100644
--- a/src/spicelib/parser/ptfuncs.c
+++ b/src/spicelib/parser/ptfuncs.c
@@ -25,7 +25,7 @@ double PTfudge_factor;
 double
 PTabs(double arg)
 {
-    return arg >= 0.0 ? arg : -arg;
+    return fabs(arg);
 }
 
 double