luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

cktop.c, #11/14, cleanup

This commit is contained in:
rlar 2016-07-25 18:43:47 +02:00
parent 64fadb90cc
commit 8d843ecec5
1 changed files with 12 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/spicelib/analysis/cktop.c
View File

@ -35,12 +35,9 @@ CKTop (CKTcircuit *ckt, long int firstmode, long int continuemode,
if (!ckt->CKTnoOpIter) { if (!ckt->CKTnoOpIter) {
#ifdef XSPICE #ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */ /* gtri - wbk - add convergence problem reporting flags */
if ((ckt->CKTnumGminSteps <= 0) && (ckt->CKTnumSrcSteps <= 0)) ckt->enh->conv_debug.last_NIiter_call =
ckt->enh->conv_debug.last_NIiter_call = MIF_TRUE; (ckt->CKTnumGminSteps <= 0) && (ckt->CKTnumSrcSteps <= 0);
else
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif #endif
converged = NIiter (ckt, iterlim); converged = NIiter (ckt, iterlim);
if (converged == 0) if (converged == 0)
@ -173,9 +170,8 @@ dynamic_gmin (CKTcircuit *ckt, long int firstmode,
SPfrontEnd->IFerrorf (ERR_INFO, SPfrontEnd->IFerrorf (ERR_INFO,
"One successful gmin step"); "One successful gmin step");
if (ckt->CKTdiagGmin <= gtarget) { if (ckt->CKTdiagGmin <= gtarget)
break; /* successfull */ break; /* successfull */
}
for (i = 0, n = ckt->CKTnodes; n; n = n->next) for (i = 0, n = ckt->CKTnodes; n; n = n->next)
OldRhsOld[i++] = ckt->CKTrhsOld[n->number]; OldRhsOld[i++] = ckt->CKTrhsOld[n->number];
@ -224,12 +220,8 @@ dynamic_gmin (CKTcircuit *ckt, long int firstmode,
FREE (OldCKTstate0); FREE (OldCKTstate0);
#ifdef XSPICE #ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */ /* gtri - wbk - add convergence problem reporting flags */
if (ckt->CKTnumSrcSteps <= 0) ckt->enh->conv_debug.last_NIiter_call = (ckt->CKTnumSrcSteps <= 0);
ckt->enh->conv_debug.last_NIiter_call = MIF_TRUE;
else
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif #endif
converged = NIiter (ckt, iterlim); converged = NIiter (ckt, iterlim);
@ -273,10 +265,8 @@ spice3_gmin (CKTcircuit *ckt, long int firstmode,
SPfrontEnd->IFerrorf (ERR_INFO, SPfrontEnd->IFerrorf (ERR_INFO,
"Starting gmin stepping"); "Starting gmin stepping");
if (ckt->CKTgshunt == 0) ckt->CKTdiagGmin =
ckt->CKTdiagGmin = ckt->CKTgmin; (ckt->CKTgshunt == 0) ? ckt->CKTgmin : ckt->CKTgshunt;
else
ckt->CKTdiagGmin = ckt->CKTgshunt;
for (i = 0; i < ckt->CKTnumGminSteps; i++) for (i = 0; i < ckt->CKTnumGminSteps; i++)
ckt->CKTdiagGmin *= ckt->CKTgminFactor; ckt->CKTdiagGmin *= ckt->CKTgminFactor;
@ -304,12 +294,8 @@ spice3_gmin (CKTcircuit *ckt, long int firstmode,
ckt->CKTdiagGmin = ckt->CKTgshunt; ckt->CKTdiagGmin = ckt->CKTgshunt;
#ifdef XSPICE #ifdef XSPICE
/* gtri - begin - wbk - add convergence problem reporting flags */ /* gtri - wbk - add convergence problem reporting flags */
if (ckt->CKTnumSrcSteps <= 0) ckt->enh->conv_debug.last_NIiter_call = (ckt->CKTnumSrcSteps <= 0);
ckt->enh->conv_debug.last_NIiter_call = MIF_TRUE;
else
ckt->enh->conv_debug.last_NIiter_call = MIF_FALSE;
/* gtri - end - wbk - add convergence problem reporting flags */
#endif #endif
converged = NIiter (ckt, iterlim); converged = NIiter (ckt, iterlim);
@ -377,11 +363,8 @@ gillespie_src (CKTcircuit *ckt, long int firstmode,
if (converged != 0) { if (converged != 0) {
fprintf (stderr, "\n"); fprintf (stderr, "\n");
if (ckt->CKTgshunt <= 0) { ckt->CKTdiagGmin =
ckt->CKTdiagGmin = ckt->CKTgmin; (ckt->CKTgshunt <= 0) ? ckt->CKTgmin : ckt->CKTgshunt;
} else {
ckt->CKTdiagGmin = ckt->CKTgshunt;
}
for (i = 0; i < 10; i++) for (i = 0; i < 10; i++)
ckt->CKTdiagGmin *= 10; ckt->CKTdiagGmin *= 10;