From f034cc153fc7c4a0b98918958a7cc9688dbdd62f Mon Sep 17 00:00:00 2001
From: dwarning <dwarning>
Date: Mon, 6 Mar 2006 16:36:55 +0000
Subject: [PATCH] Macros for exp() limiting added.

---
 src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
index 5aedb47f9..0dabb23c7 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
@@ -3,7 +3,10 @@
 <!--
   $Id$
   $Log$
-  Revision 1.8  2006-03-06 12:50:52  r29173
+  Revision 1.9  2006-03-06 16:36:55  dwarning
+  Macros for exp() limiting added.
+
+  Revision 1.8  2006/03/06 12:50:52  r29173
   added support to 'analog functions'
 
   Revision 1.7  2006/03/05 09:38:41  pnenzi
@@ -196,8 +199,8 @@ if(isinf(var)) \\
 #define _pow(xy,x,y)             xy = pow(x,y);
 #define _dx_pow(dx,xy,x,y)       dx = (x==0.0)?0.0:((y/x)*xy);
 #define _dy_pow(dy,xy,x,y)       dy = (x==0.0)?0.0:((log(x)/exp(0.0))*xy);
-#define _limexp(val,arg)         _exp(val,arg)
-#define _d_limexp(val,dval,arg)  _d_exp(val,dval,arg)
+#define _limexp(val,arg)         val = ((arg)<(50)) ? (exp(arg)) : (exp(50)*(1.0+(arg-50)));
+#define _d_limexp(val,dval,arg)  val = ((arg)<(80)) ? (exp(arg)) : (exp(80)*(1.0+(arg-80))); dval = val;
 #define _fabs(val,arg)           val = fabs(arg);
 #define _d_fabs(val,dval,arg)    val = fabs(arg);    dval = (((val)&gt;=0)?(+1.0):(-1.0));
 #define _abs(val)                ((val)&lt;(0) ? (-(val)):(val))