From 526313390b59fc4bbd6bc5c50aa3c4dd9662a6fb Mon Sep 17 00:00:00 2001
From: arno <arno>
Date: Thu, 12 Oct 2000 21:39:18 +0000
Subject: [PATCH] 	* inpeval.c: Bugfix for subcircuits contributed by
 Michael 	Widlok.

---
 src/spicelib/parser/ChangeLog | 5 +++++
 src/spicelib/parser/inpeval.c | 8 +++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/spicelib/parser/ChangeLog b/src/spicelib/parser/ChangeLog
index a95f19d47..2a81fff41 100644
--- a/src/spicelib/parser/ChangeLog
+++ b/src/spicelib/parser/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-12  Arno W. Peters  <A.W.Peters@ieee.org>
+
+	* inpeval.c: Bugfix for subcircuits contributed by Michael
+	Widlok.
+
 2000-09-09  Arno W. Peters  <A.W.Peters@ieee.org>
 
 	* inp2dot.c: Removed unused static functions dot_ic and
diff --git a/src/spicelib/parser/inpeval.c b/src/spicelib/parser/inpeval.c
index 2c055719e..029487830 100644
--- a/src/spicelib/parser/inpeval.c
+++ b/src/spicelib/parser/inpeval.c
@@ -24,9 +24,11 @@ double INPevaluate(char **line, int *error, int gobble)
     /* setup */
     tmpline = *line;
     if (gobble) {
-	*error = INPgetUTok(line, &token, 1);
-	if (*error)
-	    return ((double) 0.0);
+         /* MW. INPgetUTok should be called with gobble=0 or it make
+	  * errors in v(1,2) exp */
+	 *error = INPgetUTok(line, &token, 0);
+	 if (*error)
+	      return ((double) 0.0);
     } else {
 	token = *line;
 	*error = 0;