From 6c48657896c7f80cade49e4c00cdff6703fb0131 Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sat, 22 Jul 2023 17:10:30 +0200
Subject: [PATCH] Make status report (MS Windows only) a little smarter.

---
 src/spicelib/analysis/cktop.c  |  3 ++-
 src/spicelib/analysis/optran.c | 11 +++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/spicelib/analysis/cktop.c b/src/spicelib/analysis/cktop.c
index 50f2dd374..d46cf1024 100644
--- a/src/spicelib/analysis/cktop.c
+++ b/src/spicelib/analysis/cktop.c
@@ -30,7 +30,8 @@ CKTop (CKTcircuit *ckt, long int firstmode, long int continuemode,
     int converged;
 
 #ifdef HAS_PROGREP
-    SetAnalyse("op", 0);
+    if (!ckt->CKTnoOpIter || ckt->CKTnumGminSteps >= 1 || ckt->CKTnumSrcSteps >= 1)
+        SetAnalyse("op", 0);
 #endif
 
     ckt->CKTmode = firstmode;
diff --git a/src/spicelib/analysis/optran.c b/src/spicelib/analysis/optran.c
index 8aba4e1a9..f0c7dd76e 100644
--- a/src/spicelib/analysis/optran.c
+++ b/src/spicelib/analysis/optran.c
@@ -319,9 +319,9 @@ OPtran(CKTcircuit *ckt, int oldconverged)
     NOISEAN *nojob = (NOISEAN *) ckt->CKTcurJob;
 */
     if(optime == 0) {
-
-//        int type = ckt->CKTcurJob->JOBtype;
-
+#ifdef HAS_PROGREP
+        SetAnalyse("optran init", 0);
+#endif
         SPfrontEnd->IFerrorf(ERR_INFO, "Transient op started");
         if (opramptime > 0) {
             CKTnode* n;
@@ -483,11 +483,10 @@ OPtran(CKTcircuit *ckt, int oldconverged)
 
 resume:
 #ifdef HAS_PROGREP
-    if (optime == 0.)
-        SetAnalyse( "optran init", 0);
-    else
+    if (optime > 0)
         SetAnalyse( "optran", (int)((optime * 1000.) / opfinaltime + 0.5));
 #endif
+
     ckt->CKTdelta =
             MIN(ckt->CKTdelta,ckt->CKTmaxStep);
 #ifdef XSPICE