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

I have added some code from macspice3f4 (from A. Wilson). To enable it, compile with --enable-experimental.

This commit is contained in:
pnenzi 2000-08-22 13:28:56 +00:00
parent 7cbae7037a
commit ae5950eea8
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/spicelib/analysis/traninit.c
View File

@ -18,9 +18,32 @@ int TRANinit(CKTcircuit *ckt, JOB *job)
ckt->CKTstep = ((TRANan*)job)->TRANstep; ckt->CKTstep = ((TRANan*)job)->TRANstep;
ckt->CKTinitTime = ((TRANan*)job)->TRANinitTime; ckt->CKTinitTime = ((TRANan*)job)->TRANinitTime;
ckt->CKTmaxStep = ((TRANan*)job)->TRANmaxStep; ckt->CKTmaxStep = ((TRANan*)job)->TRANmaxStep;
/* The following code has been taken from macspice 3f4 (A. Wilson)
in the file traninit.new.c - Seems interesting */
#ifdef EXPERIMENTAL_CODE
if(ckt->CKTmaxStep == 0)
{
if (ckt->CKTstep < ( ckt->CKTfinalTime - ckt->CKTinitTime )/50.0)
{
ckt->CKTmaxStep = ckt->CKTstep;
}
else
{
ckt->CKTmaxStep = ( ckt->CKTfinalTime - ckt->CKTinitTime )/50.0;
}
}
#else
/* The original spice code */
if(ckt->CKTmaxStep == 0) { if(ckt->CKTmaxStep == 0) {
ckt->CKTmaxStep = (ckt->CKTfinalTime-ckt->CKTinitTime)/50; ckt->CKTmaxStep = (ckt->CKTfinalTime-ckt->CKTinitTime)/50;
} }
#endif
ckt->CKTdelmin = 1e-9*ckt->CKTmaxStep; /* XXX */ ckt->CKTdelmin = 1e-9*ckt->CKTmaxStep; /* XXX */
ckt->CKTmode = ((TRANan*)job)->TRANmode; ckt->CKTmode = ((TRANan*)job)->TRANmode;