Browse Source

cktop.c, #12/14, cleanup

pre-master-46
rlar 10 years ago
parent
commit
65596ce76c
  1. 27
      src/spicelib/analysis/cktop.c

27
src/spicelib/analysis/cktop.c

@ -73,9 +73,8 @@ CKTop (CKTcircuit *ckt, long int firstmode, long int continuemode,
}
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
return (converged);
@ -233,9 +232,8 @@ dynamic_gmin (CKTcircuit *ckt, long int firstmode,
SPfrontEnd->IFerrorf (ERR_INFO,
"Dynamic gmin stepping completed");
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
}
@ -305,9 +303,8 @@ spice3_gmin (CKTcircuit *ckt, long int firstmode,
"gmin stepping completed");
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
} else {
@ -373,9 +370,8 @@ gillespie_src (CKTcircuit *ckt, long int firstmode,
fprintf (stderr, "Trying gmin = %12.4E ", ckt->CKTdiagGmin);
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_TRUE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
ckt->CKTnoncon = 1;
@ -386,9 +382,8 @@ gillespie_src (CKTcircuit *ckt, long int firstmode,
SPfrontEnd->IFerrorf (ERR_WARNING,
"gmin step failed");
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
break;
}
@ -429,9 +424,8 @@ gillespie_src (CKTcircuit *ckt, long int firstmode,
"Supplies reduced to %8.4f%% ", ckt->CKTsrcFact * 100);
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_TRUE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
iters = ckt->CKTstat->STATnumIter;
@ -534,9 +528,8 @@ spice3_src (CKTcircuit *ckt, long int firstmode,
for (i = 0; i <= ckt->CKTnumSrcSteps; i++) {
ckt->CKTsrcFact = ((double) i) / ((double) ckt->CKTnumSrcSteps);
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_TRUE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
converged = NIiter (ckt, ckt->CKTdcTrcvMaxIter);
ckt->CKTmode = continuemode;
@ -546,9 +539,8 @@ spice3_src (CKTcircuit *ckt, long int firstmode,
SPfrontEnd->IFerrorf (ERR_WARNING,
"source stepping failed");
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
return (converged);
}
@ -561,9 +553,8 @@ spice3_src (CKTcircuit *ckt, long int firstmode,
ckt->CKTsrcFact = 1;
#ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */
/* gtri - wbk - add convergence problem reporting flags */
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif
return (0);

Loading…
Cancel
Save