PULSE: allow time < 0.0

ChangeLog

@@ -1,3 +1,7 @@
+2010-11-20
+ * vsracct.c: allow time < 0.0 if no XSPICE A device
+   FIXME has to be investigated further!
+ 
 2010-11-19  Robert Larice
  * */** :
     Nr 5/5 (x = ...) == NULL , swallow warnings

src/spicelib/devices/vsrc/vsrcacct.c

@@ -74,8 +74,11 @@ VSRCaccept(CKTcircuit *ckt, GENmodel *inModel)
                     /* offset time by delay  and limit to zero */
                     time = ckt->CKTtime - TD;
 #ifdef XSPICE
-                    if(time < 0.0)
-                        time = 0.0;
+                  /* FIXME Why is this here? 
+                     For now: Add it only if A devices are present. 
+                     h_vogt */
+                    if ((ckt->CKTadevFlag == 1) && (time < 0.0))
+                      time = 0.0;
 #endif
 
 #ifdef XSPICE