noacct supresses printing of 'Initial transient solution'

ChangeLog

@@ -1,3 +1,7 @@
+2009-03-08 Holger Vogt
+  * dctran.c no printout of 'Initial transient solution' if 
+    .options noacct is set
+
 2009-03-08 Holger Vogt
   * plotit.c fcn plotit(): add quotes again for xlabel, ylabel, title
    in cline

src/spicelib/analysis/dctran.c

@@ -181,8 +181,8 @@ DCtran(CKTcircuit *ckt,
                 ckt->CKTdcMaxIter);
                 
          if(converged != 0) {
-			fprintf(stdout,"\nTransient solution failed -\n");
-			CKTncDump(ckt);
+            fprintf(stdout,"\nTransient solution failed -\n");
+            CKTncDump(ckt);
      /*      CKTnode *node;
            double new, old, tol;
            int i=1;
@@ -213,7 +213,9 @@ DCtran(CKTcircuit *ckt,
              };
              i++;
            } */
-        } else {
+           fprintf(stdout,"\n");
+           fflush(stdout);   
+        } else if (!ft_noacctprint) {
            fprintf(stdout,"\nInitial Transient Solution\n");
            fprintf(stdout,"--------------------------\n\n");
            fprintf(stdout,"%-30s %15s\n", "Node", "Voltage");
@@ -223,9 +225,10 @@ DCtran(CKTcircuit *ckt,
                  fprintf(stdout,"%-30s %15g\n", node->name,
                                              *(ckt->CKTrhsOld+node->number));
            };
+           fprintf(stdout,"\n");
+           fflush(stdout);        
         };
-        fprintf(stdout,"\n");
-        fflush(stdout);
+
         if(converged != 0) return(converged);
 #ifdef XSPICE
 /* gtri - add - wbk - 12/19/90 - Add IPC stuff */