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

make the error detection work properly

This commit is contained in:
Holger Vogt 2021-03-28 11:36:29 +02:00
parent ec986b3fbc
commit 41ead284f3
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/spicelib/analysis/optran.c
View File

@ -62,24 +62,30 @@ static double opramptime = 0.;
void com_optran(wordlist* wl) { void com_optran(wordlist* wl) {
wordlist* wltmp = wl; wordlist* wltmp = wl;
char* stpstr; char* stpstr;
int err; int err, optrancom;
/* current circuit */ /* current circuit */
if (!ft_curckt) { if (!ft_curckt) {
fprintf(cp_err, "Error: no circuit loaded\n"); fprintf(cp_err, "Error: no circuit loaded\n");
return; return;
} }
/* wordlist with 6 parameters */ /* wordlist with 6 parameters */
ft_curckt->ci_defTask->TSKnoOpIter = strtol(wltmp->wl_word, &stpstr, 10); optrancom = strtol(wltmp->wl_word, &stpstr, 10);
if ((errno == ERANGE) || (*stpstr != '\0')) if ((errno == ERANGE) || (*stpstr != '\0'))
goto bugquit; goto bugquit;
if (optrancom == 0)
ft_curckt->ci_defTask->TSKnoOpIter = 1;
else
ft_curckt->ci_defTask->TSKnoOpIter = 0;
wltmp = wltmp->wl_next; wltmp = wltmp->wl_next;
ft_curckt->ci_defTask->TSKnumGminSteps = strtol(wltmp->wl_word, &stpstr, 10); optrancom = strtol(wltmp->wl_word, &stpstr, 10);
if ((errno == ERANGE) || (*stpstr != '\0')) if ((errno == ERANGE) || (*stpstr != '\0'))
goto bugquit; goto bugquit;
ft_curckt->ci_defTask->TSKnumGminSteps = optrancom;
wltmp = wltmp->wl_next; wltmp = wltmp->wl_next;
ft_curckt->ci_defTask->TSKnumSrcSteps = strtol(wltmp->wl_word, &stpstr, 10); optrancom = strtol(wltmp->wl_word, &stpstr, 10);
if ((errno == ERANGE) || (*stpstr != '\0')) if ((errno == ERANGE) || (*stpstr != '\0'))
goto bugquit; goto bugquit;
ft_curckt->ci_defTask->TSKnumSrcSteps = optrancom;
wltmp = wltmp->wl_next; wltmp = wltmp->wl_next;
stpstr = wltmp->wl_word; stpstr = wltmp->wl_word;
opstepsize = INPevaluate(&stpstr, &err, 1); opstepsize = INPevaluate(&stpstr, &err, 1);