From 67d52e8cbab270f2f887ab9ecd0588769f648205 Mon Sep 17 00:00:00 2001
From: dwarning <dwarning>
Date: Thu, 21 Sep 2017 15:28:18 +0200
Subject: [PATCH] add the atan2 derivatives

---
 src/spicelib/devices/adms/admst/analogfunction.xml    | 3 ++-
 src/spicelib/devices/adms/admst/ngspiceMODULE.hxx.xml | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/spicelib/devices/adms/admst/analogfunction.xml b/src/spicelib/devices/adms/admst/analogfunction.xml
index de3ee913c..47844c06c 100644
--- a/src/spicelib/devices/adms/admst/analogfunction.xml
+++ b/src/spicelib/devices/adms/admst/analogfunction.xml
@@ -76,7 +76,8 @@ inline double _d0_hypot(double x,double y) { return (x)/sqrt((x)*(x)+(y)*(y)); }
 inline double _d1_hypot(double x,double y) { return (y)/sqrt((x)*(x)+(y)*(y)); }
 
 inline double _atan2(double x,double y)    { return atan2(x,y); }
-// TODO atan2 derivatives?
+inline double _d0_atan2(double x,double y) { return (-y)/((x)*(x)+(y)*(y)); }
+inline double _d1_atan2(double x,double y) { return (x)/((x)*(x)+(y)*(y)); }
 
 inline double _max(double x,double y)      { return ((x)&gt;(y))?(x):(y); }
 inline double _d0_max(double x,double y)   { return ((x)&gt;(y))?1.0:0.0; }
diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULE.hxx.xml b/src/spicelib/devices/adms/admst/ngspiceMODULE.hxx.xml
index dee57be57..bed497584 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULE.hxx.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULE.hxx.xml
@@ -65,7 +65,8 @@
 #define m00_limexp(v00,x)       v00 = ((x)&lt;90.0?exp(x):EXP90*(x-89.0));
 #define m10_limexp(v10,v00,x)   v10 = ((x)&lt;90.0?(v00):EXP90);
 #define m00_atan2(v00,x,y)      v00 = atan2(x,y);
-// TODO atan2 derivatives ?
+#define m10_atan2(v10,x,y)      v10 = (-y/(x*x+y*y));
+#define m11_atan2(v11,x,y)      v11 = (x/(x*x+y*y));
 #define m00_acosh(v00,x)        v00 = acosh(x);
 #define m10_acosh(v10,v00,x)    v10 = (1.0/(sqrt(x-1)*sqrt(x+1)));
 #define m00_asinh(v00,x)        v00 = asinh(x);