From 581792efdd113669c0baefa66c85ef773b090dea Mon Sep 17 00:00:00 2001
From: Francesc Vila <francesc.vila@imb-cnm.csic.es>
Date: Tue, 18 Feb 2014 14:46:51 +0100
Subject: [PATCH] Modified af:print:expression to prepend to analog function
 calls

---
 .../devices/adms/admst/ngspiceMODULEanalogfunction.c.xml      | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEanalogfunction.c.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEanalogfunction.c.xml
index 238046760..594462b16 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEanalogfunction.c.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEanalogfunction.c.xml
@@ -592,7 +592,7 @@ static inline double _d1_pow(double x,double y)       { return (x==0.0)?0.0:((lo
             </admst:for-each>
           </admst:when>
           <admst:otherwise>
-            <admst:return name="x" value="$function($args)"/>
+            <admst:return name="x" value="$(module)_$function($args)"/>
             <admst:for-each select="$globalanalogfunction/variable[input='yes']">
               <admst:value-of select="name"/> <admst:variable name="name" select="%s"/>
               <admst:variable name="darg" select=""/>
@@ -601,7 +601,7 @@ static inline double _d1_pow(double x,double y)       { return (x==0.0)?0.0:((lo
                 <admst:variable name="index" select="%s"/>
                 <admst:variable name="darg" select="$darg,($(arg$(index)_$name))"/>
               </admst:for-each>
-              <admst:return name="dx.$name" value="d_$function($args$darg)"/>
+              <admst:return name="dx.$name" value="d_$(module)_$function($args$darg)"/>
             </admst:for-each>
           </admst:otherwise>
         </admst:choose>