epilectrik
/
pyNgSpice
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

spiceif.c, cleanup (checked for code invariance)

rlar 14 years ago
parent
0c230b2970
commit
64139a243c
1 changed files with 75 additions and 77 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 152
      src/frontend/spiceif.c

152
src/frontend/spiceif.c
View File

@ -138,8 +138,7 @@ if_inpdeck(struct line *deck, INPtables **tab)
} }
if (which != -1) { if (which != -1) {
err = IFnewUid(ckt, &optUid, NULL, "options", UID_ANALYSIS,
NULL);
err = IFnewUid(ckt, &optUid, NULL, "options", UID_ANALYSIS, NULL);
if (err) { if (err) {
ft_sperror(err, "newUid"); ft_sperror(err, "newUid");
return(NULL); return(NULL);
@ -239,12 +238,10 @@ if_run(CKTcircuit *ckt, char *what, wordlist *args, INPtables *tab)
/*CDHW Delete any previous special task CDHW*/ /*CDHW Delete any previous special task CDHW*/
if (ft_curckt->ci_specTask) { if (ft_curckt->ci_specTask) {
if (ft_curckt->ci_specTask == ft_curckt->ci_defTask) { /*CDHW*/
if (ft_curckt->ci_specTask == ft_curckt->ci_defTask) /*CDHW*/
printf("Oh dear...something bad has happened to the options.\n"); printf("Oh dear...something bad has happened to the options.\n");
}
err = ft_sim->deleteTask (ft_curckt->ci_ckt,
ft_curckt->ci_specTask);
err = ft_sim->deleteTask (ft_curckt->ci_ckt, ft_curckt->ci_specTask);
if (err) { if (err) {
ft_sperror(err, "deleteTask"); ft_sperror(err, "deleteTask");
return(2); return(2);
@ -278,12 +275,11 @@ if_run(CKTcircuit *ckt, char *what, wordlist *args, INPtables *tab)
/*CDHW which options available for this simulator? CDHW*/ /*CDHW which options available for this simulator? CDHW*/
for (j = 0; j < ft_sim->numAnalyses; j++) {
for (j = 0; j < ft_sim->numAnalyses; j++)
if (strcmp(ft_sim->analyses[j]->name, "options") == 0) { if (strcmp(ft_sim->analyses[j]->name, "options") == 0) {
which = j; which = j;
break; break;
} }
}
if (which != -1) { /*CDHW options are available CDHW*/ if (which != -1) { /*CDHW options are available CDHW*/
err = IFnewUid(ft_curckt->ci_ckt, &optUid, NULL, "options", err = IFnewUid(ft_curckt->ci_ckt, &optUid, NULL, "options",
@ -373,8 +369,7 @@ if_run(CKTcircuit *ckt, char *what, wordlist *args, INPtables *tab)
return(2); return(2);
} }
} else { } else {
fprintf(cp_err, "if_run: Internal Error: bad run type %s\n",
what);
fprintf(cp_err, "if_run: Internal Error: bad run type %s\n", what);
return(2); return(2);
} }
@ -435,12 +430,11 @@ if_option(CKTcircuit *ckt, char *name, enum cp_types type, void *value)
return 0; return 0;
} }
for (i = 0; i < ft_sim->numAnalyses; i++) {
for (i = 0; i < ft_sim->numAnalyses; i++)
if (strcmp(ft_sim->analyses[i]->name, "options") == 0) { if (strcmp(ft_sim->analyses[i]->name, "options") == 0) {
which = i; which = i;
break; break;
} }
}
if (which == -1) { if (which == -1) {
fprintf(cp_err, "Warning: .options line unsupported\n"); fprintf(cp_err, "Warning: .options line unsupported\n");
@ -670,8 +664,10 @@ spif_getparam_special(CKTcircuit *ckt, char **name, char *param, int ind, int do
/* It is a device */ /* It is a device */
for (i = 0; i < *(device->numInstanceParms); i++) { for (i = 0; i < *(device->numInstanceParms); i++) {
opt = &device->instanceParms[i]; opt = &device->instanceParms[i];
if (opt->dataType & IF_REDUNDANT || !opt->description) continue;
if (!(opt->dataType & IF_ASK)) continue;
if (opt->dataType & IF_REDUNDANT || !opt->description)
continue;
if (!(opt->dataType & IF_ASK))
continue;
pv = doask(ckt, typecode, dev, mod, opt, ind); pv = doask(ckt, typecode, dev, mod, opt, ind);
if (pv) { if (pv) {
tv = parmtovar(pv, opt); tv = parmtovar(pv, opt);
@ -684,7 +680,8 @@ spif_getparam_special(CKTcircuit *ckt, char **name, char *param, int ind, int do
free(aux_pointer); free(aux_pointer);
tv->va_name = copy(auxiliar); tv->va_name = copy(auxiliar);
} }
if (vv) tv->va_next = vv;
if (vv)
tv->va_next = vv;
vv = tv; vv = tv;
} else } else
fprintf(cp_err, "Internal Error: no parameter '%s' on device '%s'\n", fprintf(cp_err, "Internal Error: no parameter '%s' on device '%s'\n",
@ -695,7 +692,8 @@ spif_getparam_special(CKTcircuit *ckt, char **name, char *param, int ind, int do
/* It is a model */ /* It is a model */
for (i = 0; i < *(device->numModelParms); i++) { for (i = 0; i < *(device->numModelParms); i++) {
opt = &device->modelParms[i]; opt = &device->modelParms[i];
if (opt->dataType & IF_REDUNDANT || !opt->description) continue;
if (opt->dataType & IF_REDUNDANT || !opt->description)
continue;
/* We check that the parameter is interesting and therefore is /* We check that the parameter is interesting and therefore is
* implemented in the corresponding function ModelAsk. Originally * implemented in the corresponding function ModelAsk. Originally
@ -705,7 +703,8 @@ spif_getparam_special(CKTcircuit *ckt, char **name, char *param, int ind, int do
*/ */
/* if (!(opt->dataType & IF_ASK ) || (opt->dataType & IF_UNINTERESTING ) || (opt->dataType & IF_STRING)) continue; */ /* if (!(opt->dataType & IF_ASK ) || (opt->dataType & IF_UNINTERESTING ) || (opt->dataType & IF_STRING)) continue; */
if (!(opt->dataType & IF_ASK ) || (opt->dataType & IF_UNINTERESTING )) continue;
if (!(opt->dataType & IF_ASK ) || (opt->dataType & IF_UNINTERESTING ))
continue;
pv = doask(ckt, typecode, dev, mod, opt, ind); pv = doask(ckt, typecode, dev, mod, opt, ind);
if (pv) { if (pv) {
tv = parmtovar(pv, opt); tv = parmtovar(pv, opt);
@ -728,9 +727,8 @@ spif_getparam_special(CKTcircuit *ckt, char **name, char *param, int ind, int do
/* strcpy(aux_pointer, auxiliar); */ /* strcpy(aux_pointer, auxiliar); */
} }
/* tv->va_string = device->modelParms[i].keyword; Put the name of the variable */ /* tv->va_string = device->modelParms[i].keyword; Put the name of the variable */
if (vv) {
if (vv)
tv->va_next = vv; tv->va_next = vv;
}
vv = tv; vv = tv;
} else } else
fprintf(cp_err, "Internal Error: no parameter '%s' on device '%s'\n", device->modelParms[i].keyword, device->name); fprintf(cp_err, "Internal Error: no parameter '%s' on device '%s'\n", device->modelParms[i].keyword, device->name);
@ -794,7 +792,8 @@ spif_getparam(CKTcircuit *ckt, char **name, char *param, int ind, int do_model)
opt = &device->instanceParms[i]; opt = &device->instanceParms[i];
if (opt->dataType & IF_REDUNDANT || !opt->description) if (opt->dataType & IF_REDUNDANT || !opt->description)
continue; continue;
if (!(opt->dataType & IF_ASK)) continue;
if (!(opt->dataType & IF_ASK))
continue;
pv = doask(ckt, typecode, dev, mod, opt, ind); pv = doask(ckt, typecode, dev, mod, opt, ind);
if (pv) { if (pv) {
tv = parmtovar(pv, opt); tv = parmtovar(pv, opt);
@ -866,9 +865,8 @@ if_setparam_model(CKTcircuit *ckt, char **name, char *val)
*/ */
INPgetMod(ckt, modname, &inpmod, ft_curckt->ci_symtab); INPgetMod(ckt, modname, &inpmod, ft_curckt->ci_symtab);
/* check if using model binning -- pass in line since need 'l' and 'w' */ /* check if using model binning -- pass in line since need 'l' and 'w' */
if (inpmod == NULL) {
if (inpmod == NULL)
INPgetModBin(ckt, modname, &inpmod, ft_curckt->ci_symtab, val); INPgetModBin(ckt, modname, &inpmod, ft_curckt->ci_symtab, val);
}
tfree(modname); tfree(modname);
if (inpmod == NULL) { if (inpmod == NULL) {
fprintf(cp_err, "Error: no such model %s.\n", val); fprintf(cp_err, "Error: no such model %s.\n", val);
@ -877,9 +875,8 @@ if_setparam_model(CKTcircuit *ckt, char **name, char *val)
newMod = inpmod->INPmodfast; newMod = inpmod->INPmodfast;
/* see if new model name same as current model name */ /* see if new model name same as current model name */
if (newMod->GENmodName != curMod->GENmodName) {
if (newMod->GENmodName != curMod->GENmodName)
printf("Notice: model has changed from %s to %s.\n", curMod->GENmodName, newMod->GENmodName); printf("Notice: model has changed from %s to %s.\n", curMod->GENmodName, newMod->GENmodName);
}
if (newMod->GENmodType != curMod->GENmodType) { if (newMod->GENmodType != curMod->GENmodType) {
fprintf(cp_err, "Error: new model %s must be same type as current model.\n", val); fprintf(cp_err, "Error: new model %s must be same type as current model.\n", val);
return; return;
@ -887,12 +884,14 @@ if_setparam_model(CKTcircuit *ckt, char **name, char *val)
/* fix current model linked list */ /* fix current model linked list */
prevDev = NULL; prevDev = NULL;
for (iter = curMod->GENinstances; iter != NULL; iter = iter->GENnextInstance) {
for (iter = curMod->GENinstances; iter; iter = iter->GENnextInstance) {
if (iter->GENname == dev->GENname) { if (iter->GENname == dev->GENname) {
/* see if at beginning of linked list */ /* see if at beginning of linked list */
if (prevDev == NULL) curMod->GENinstances = iter->GENnextInstance;
else prevDev->GENnextInstance = iter->GENnextInstance;
if (prevDev == NULL)
curMod->GENinstances = iter->GENnextInstance;
else
prevDev->GENnextInstance = iter->GENnextInstance;
/* update model for device */ /* update model for device */
dev->GENmodPtr = newMod; dev->GENmodPtr = newMod;
@ -905,12 +904,14 @@ if_setparam_model(CKTcircuit *ckt, char **name, char *val)
/* see if any devices remaining that reference current model */ /* see if any devices remaining that reference current model */
if (curMod->GENinstances == NULL) { if (curMod->GENinstances == NULL) {
prevMod = NULL; prevMod = NULL;
for (mods = ckt->CKThead[typecode]; mods != NULL; mods = mods->GENnextModel) {
for (mods = ckt->CKThead[typecode]; mods; mods = mods->GENnextModel) {
if (mods->GENmodName == curMod->GENmodName) { if (mods->GENmodName == curMod->GENmodName) {
/* see if at beginning of linked list */ /* see if at beginning of linked list */
if (prevMod == NULL) ckt->CKThead[typecode] = mods->GENnextModel;
else prevMod->GENnextModel = mods->GENnextModel;
if (prevMod == NULL)
ckt->CKThead[typecode] = mods->GENnextModel;
else
prevMod->GENnextModel = mods->GENnextModel;
INPgetMod(ckt, mods->GENmodName, &inpmod, ft_curckt->ci_symtab); INPgetMod(ckt, mods->GENmodName, &inpmod, ft_curckt->ci_symtab);
inpmod->INPmodUsed = 0; inpmod->INPmodUsed = 0;
@ -1067,16 +1068,16 @@ parmlookup(IFdevice *dev, GENinstance **inptr, char *param, int do_model, int in
return NULL; return NULL;
} }
if (dev->numModelParms) {
if (dev->numModelParms)
for (i = 0; i < *(dev->numModelParms); i++) for (i = 0; i < *(dev->numModelParms); i++)
if ((((dev->modelParms[i].dataType & IF_SET) && inout == 1)
|| ((dev->modelParms[i].dataType & IF_ASK) && inout == 0))
&& eq(dev->modelParms[i].keyword, param)) {
if ((((dev->modelParms[i].dataType & IF_SET) && inout == 1) ||
((dev->modelParms[i].dataType & IF_ASK) && inout == 0)) &&
eq(dev->modelParms[i].keyword, param))
{
if (dev->modelParms[i].dataType & IF_REDUNDANT) if (dev->modelParms[i].dataType & IF_REDUNDANT)
i -= 1; i -= 1;
return(&dev->modelParms[i]); return(&dev->modelParms[i]);
} }
}
return(NULL); return(NULL);
} }
@ -1099,11 +1100,9 @@ doask(CKTcircuit *ckt, int typecode, GENinstance *dev, GENmodel *mod, IFparm *op
/* fprintf(cp_err, "Calling doask(%d, %x, %x, %x)\n", /* fprintf(cp_err, "Calling doask(%d, %x, %x, %x)\n",
typecode, dev, mod, opt); */ typecode, dev, mod, opt); */
if (dev) if (dev)
err = ft_sim->askInstanceQuest (ckt, dev,
opt->id, &pv, NULL);
err = ft_sim->askInstanceQuest (ckt, dev, opt->id, &pv, NULL);
else else
err = ft_sim->askModelQuest (ckt, mod,
opt->id, &pv, NULL);
err = ft_sim->askModelQuest (ckt, mod, opt->id, &pv, NULL);
if (err != OK) { if (err != OK) {
ft_sperror(err, "if_getparam"); ft_sperror(err, "if_getparam");
@ -1185,11 +1184,9 @@ doset(CKTcircuit *ckt, int typecode, GENinstance *dev, GENmodel *mod, IFparm *op
typecode, dev, mod, opt); */ typecode, dev, mod, opt); */
if (dev) if (dev)
err = ft_sim->setInstanceParm (ckt, dev,
opt->id, &nval, NULL);
err = ft_sim->setInstanceParm (ckt, dev, opt->id, &nval, NULL);
else else
err = ft_sim->setModelParm (ckt, mod,
opt->id, &nval, NULL);
err = ft_sim->setModelParm (ckt, mod, opt->id, &nval, NULL);
return err; return err;
} }
@ -1207,13 +1204,15 @@ finddev(CKTcircuit *ck, char *name, GENinstance **devptr, GENmodel **modptr)
int type = -1; int type = -1;
err = ft_sim->findInstance (ck, &type, devptr, name, NULL, NULL); err = ft_sim->findInstance (ck, &type, devptr, name, NULL, NULL);
if (err == OK) return(type);
if (err == OK)
return(type);
type = -1; type = -1;
*devptr = NULL; *devptr = NULL;
err = ft_sim->findModel (ck, &type, modptr, name); err = ft_sim->findModel (ck, &type, modptr, name);
if (err == OK) return(type);
if (err == OK)
return(type);
*modptr = NULL; *modptr = NULL;
return(-1); return(-1);
@ -1225,13 +1224,10 @@ int
if_analQbyName(CKTcircuit *ckt, int which, JOB *anal, char *name, IFvalue *parm) if_analQbyName(CKTcircuit *ckt, int which, JOB *anal, char *name, IFvalue *parm)
{ {
int i; int i;
for (i = 0; i < ft_sim->analyses[which]->numParms; i++) {
if (strcmp(ft_sim->analyses[which]->analysisParms[i].keyword, name) == 0) {
return(ft_sim->askAnalysisQuest (ckt, anal,
ft_sim->analyses[which]->analysisParms[i].id, parm,
NULL));
}
}
for (i = 0; i < ft_sim->analyses[which]->numParms; i++)
if (strcmp(ft_sim->analyses[which]->analysisParms[i].keyword, name) == 0)
return(ft_sim->askAnalysisQuest
(ckt, anal, ft_sim->analyses[which]->analysisParms[i].id, parm, NULL));
return(E_BADPARM); return(E_BADPARM);
} }
@ -1249,7 +1245,8 @@ if_tranparams(struct circ *ci, double *start, double *stop, double *step)
JOB *anal; JOB *anal;
IFuid tranUid; IFuid tranUid;
if (!ci->ci_curTask) return(FALSE);
if (!ci->ci_curTask)
return(FALSE);
for (i = 0; i < ft_sim->numAnalyses; i++) { for (i = 0; i < ft_sim->numAnalyses; i++) {
if (strcmp(ft_sim->analyses[i]->name, "TRAN") == 0) { if (strcmp(ft_sim->analyses[i]->name, "TRAN") == 0) {
@ -1257,28 +1254,34 @@ if_tranparams(struct circ *ci, double *start, double *stop, double *step)
break; break;
} }
} }
if (which == -1) return(FALSE);
if (which == -1)
return(FALSE);
err = IFnewUid(ci->ci_ckt, &tranUid, NULL, "Transient Analysis", err = IFnewUid(ci->ci_ckt, &tranUid, NULL, "Transient Analysis",
UID_ANALYSIS, NULL); UID_ANALYSIS, NULL);
if (err != OK) return(FALSE);
if (err != OK)
return(FALSE);
err = ft_sim->findAnalysis (ci->ci_ckt, &which, &anal, tranUid, err = ft_sim->findAnalysis (ci->ci_ckt, &which, &anal, tranUid,
ci->ci_curTask, NULL); ci->ci_curTask, NULL);
if (err != OK) return(FALSE);
if (err != OK)
return(FALSE);
err = if_analQbyName(ci->ci_ckt, which, anal, "tstart", &tmp); err = if_analQbyName(ci->ci_ckt, which, anal, "tstart", &tmp);
if (err != OK) return(FALSE);
if (err != OK)
return(FALSE);
*start = tmp.rValue; *start = tmp.rValue;
err = if_analQbyName(ci->ci_ckt, which, anal, "tstop", &tmp); err = if_analQbyName(ci->ci_ckt, which, anal, "tstop", &tmp);
if (err != OK) return(FALSE);
if (err != OK)
return(FALSE);
*stop = tmp.rValue; *stop = tmp.rValue;
err = if_analQbyName(ci->ci_ckt, which, anal, "tstep", &tmp); err = if_analQbyName(ci->ci_ckt, which, anal, "tstep", &tmp);
if (err != OK) return(FALSE);
if (err != OK)
return(FALSE);
*step = tmp.rValue; *step = tmp.rValue;
return(TRUE); return(TRUE);
@ -1295,12 +1298,11 @@ if_getstat(CKTcircuit *ckt, char *name) {
IFvalue parm; IFvalue parm;
int which = -1; int which = -1;
for (i = 0; i < ft_sim->numAnalyses; i++) {
for (i = 0; i < ft_sim->numAnalyses; i++)
if (strcmp(ft_sim->analyses[i]->name, "options") == 0) { if (strcmp(ft_sim->analyses[i]->name, "options") == 0) {
which = i; which = i;
break; break;
} }
}
if (which == -1) { if (which == -1) {
fprintf(cp_err, "Warning: statistics unsupported\n"); fprintf(cp_err, "Warning: statistics unsupported\n");
@ -1315,7 +1317,8 @@ if_getstat(CKTcircuit *ckt, char *name) {
return(NULL); return(NULL);
if (ft_sim->askAnalysisQuest (ckt, &(ft_curckt->ci_curTask->taskOptions), if (ft_sim->askAnalysisQuest (ckt, &(ft_curckt->ci_curTask->taskOptions),
ft_sim->analyses[which]->analysisParms[i].id, &parm, ft_sim->analyses[which]->analysisParms[i].id, &parm,
NULL) == -1) {
NULL) == -1)
{
fprintf(cp_err, fprintf(cp_err,
"if_getstat: Internal Error: can't get %s\n", "if_getstat: Internal Error: can't get %s\n",
name); name);
@ -1324,9 +1327,8 @@ if_getstat(CKTcircuit *ckt, char *name) {
return(parmtovar(&parm, &(ft_sim->analyses[which]->analysisParms[i]))); return(parmtovar(&parm, &(ft_sim->analyses[which]->analysisParms[i])));
} else { } else {
for (i = 0, vars = v = NULL; i < ft_sim->analyses[which]->numParms; i++) { for (i = 0, vars = v = NULL; i < ft_sim->analyses[which]->numParms; i++) {
if (!(ft_sim->analyses[which]->analysisParms[i].dataType&IF_ASK)) {
if (!(ft_sim->analyses[which]->analysisParms[i].dataType & IF_ASK))
continue; continue;
}
if (ft_sim->askAnalysisQuest (ckt, &(ft_curckt->ci_curTask->taskOptions), if (ft_sim->askAnalysisQuest (ckt, &(ft_curckt->ci_curTask->taskOptions),
ft_sim->analyses[which]->analysisParms[i].id, ft_sim->analyses[which]->analysisParms[i].id,
&parm, NULL) == -1) { &parm, NULL) == -1) {
@ -1336,12 +1338,12 @@ if_getstat(CKTcircuit *ckt, char *name) {
return(NULL); return(NULL);
} }
if (v) { if (v) {
v->va_next = parmtovar(&parm,
&(ft_sim->analyses[which]->analysisParms[i]));
v->va_next =
parmtovar(&parm, &(ft_sim->analyses[which]->analysisParms[i]));
v = v->va_next; v = v->va_next;
} else { } else {
vars = v = parmtovar(&parm,
&(ft_sim->analyses[which]->analysisParms[i]));
vars = v =
parmtovar(&parm, &(ft_sim->analyses[which]->analysisParms[i]));
} }
} }
return(vars); return(vars);
@ -1389,9 +1391,8 @@ void com_loadsnap(wordlist *wl)
/* source the circuit */ /* source the circuit */
inp_source(wl->wl_word); inp_source(wl->wl_word);
if (!ft_curckt) {
if (!ft_curckt)
return; return;
}
/* allocate all the vectors, with luck! */ /* allocate all the vectors, with luck! */
if (!error) if (!error)
@ -1530,9 +1531,8 @@ void com_loadsnap(wordlist *wl)
} while(0) } while(0)
for (i = 0; i <= ckt->CKTmaxOrder+1; i++) {
for (i = 0; i <= ckt->CKTmaxOrder+1; i++)
_foo(ckt->CKTstates[i], double, ckt->CKTnumStates); _foo(ckt->CKTstates[i], double, ckt->CKTnumStates);
}
size = SMPmatSize(ckt->CKTmatrix) + 1; size = SMPmatSize(ckt->CKTmatrix) + 1;
_foo(ckt->CKTrhs, double, size); _foo(ckt->CKTrhs, double, size);
@ -1605,8 +1605,7 @@ void com_loadsnap(wordlist *wl)
fprintf(cp_err, "error in CKTnames\n"); fprintf(cp_err, "error in CKTnames\n");
return; return;
} }
SPfrontEnd->IFnewUid (ckt, &timeUid, NULL,
"time", UID_OTHER, NULL);
SPfrontEnd->IFnewUid (ckt, &timeUid, NULL, "time", UID_OTHER, NULL);
error = SPfrontEnd->OUTpBeginPlot ( error = SPfrontEnd->OUTpBeginPlot (
ckt, ckt->CKTcurJob, ckt, ckt->CKTcurJob,
ckt->CKTcurJob->JOBname, ckt->CKTcurJob->JOBname,
@ -1631,7 +1630,7 @@ void com_savesnap(wordlist *wl)
if (!ft_curckt) { if (!ft_curckt) {
fprintf(cp_err, "Error: there is no circuit loaded.\n"); fprintf(cp_err, "Error: there is no circuit loaded.\n");
return; return;
} else if (ft_curckt->ci_ckt == NULL) { /* Set noparse? */
} else if (!ft_curckt->ci_ckt) { /* Set noparse? */
fprintf(cp_err, "Error: circuit not parsed.\n"); fprintf(cp_err, "Error: circuit not parsed.\n");
return; return;
} }
@ -1701,9 +1700,8 @@ void com_savesnap(wordlist *wl)
*/ */
for (i = 0; i <= ckt->CKTmaxOrder+1; i++) {
for (i = 0; i <= ckt->CKTmaxOrder+1; i++)
_foo(ckt->CKTstates[i], double, ckt->CKTnumStates); _foo(ckt->CKTstates[i], double, ckt->CKTnumStates);
}
size = SMPmatSize(ckt->CKTmatrix) + 1; size = SMPmatSize(ckt->CKTmatrix) + 1;

Write Preview
Loading…
Cancel
Save