Fixed code for BJT devices with less than 5 nodes.

ChangeLog

@@ -1,3 +1,8 @@
+2007-01-21 Paolo Nenzi <p.nenzi@ieee.org>
+
+ *    src/spicelib/parser/inp2q.c: Added patch from Hitoshi Tanaka to
+      fix error in old BJT devices (that do not have fifth node).
+
 2006-02-21 Paolo Nenzi <p.nenzi@ieee.org>
 
  *   src/frontend/subckt.c, src/spicelib/parser/inp2q.c, 

src/spicelib/parser/inp2q.c

@@ -145,11 +145,17 @@ void INP2Q(void *ckt, INPtables * tab, card * current, void *gnode)
     IFC(bindNode, (ckt, fast, 2, node2));
     IFC(bindNode, (ckt, fast, 3, node3));
     IFC(bindNode, (ckt, fast, 4, node4));
-    if (nodeflag) {
-      IFC(bindNode, (ckt, fast, 5, node5));
-    } else {
-      ((GENinstance *) fast)->GENnode5 = -1;
-    }
+
+     if ((type == INPtypelook ("hicum0")) ||
+        (type == INPtypelook ("hicum2")) ||
+        (type == INPtypelook ("mextram")) )
+        {
+            if (nodeflag) {
+            IFC(bindNode, (ckt, fast, 5, node5));
+            } else {
+              ((GENinstance *) fast)->GENnode5 = -1;
+            }
+     }
     PARSECALL((&line, ckt, type, fast, &leadval, &waslead, tab));
     if (waslead) {
 #ifdef CIDER