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

devices/asrc, rewrite asrc_vals, asrc_derivs allocation

This commit is contained in:
rlar 2016-07-29 18:37:46 +02:00
parent 4d79617cf1
commit b92b25950e
3 changed files with 9 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/spicelib/devices/asrc/asrcconv.c
View File

@ -26,13 +26,9 @@ ASRCconvTest(GENmodel *inModel, CKTcircuit *ckt)
i = here->ASRCtree->numVars;
if (asrc_nvals < i) {
if (asrc_nvals) {
FREE(asrc_vals);
FREE(asrc_derivs);
}
asrc_nvals = i;
asrc_vals = TMALLOC(double, i);
asrc_derivs = TMALLOC(double, i);
asrc_vals = TREALLOC(double, asrc_vals, i);
asrc_derivs = TREALLOC(double, asrc_derivs, i);
}
for (i = 0; i < here->ASRCtree->numVars; i++)

13
src/spicelib/devices/asrc/asrcload.c
View File

@ -10,8 +10,9 @@ Author: 1987 Kanwar Jit Singh
#include "ngspice/suffix.h"
double *asrc_vals, *asrc_derivs;
int asrc_nvals;
int asrc_nvals = 0;
double *asrc_vals = NULL;
double *asrc_derivs = NULL;
/* actually load the current voltage value into the
@ -44,13 +45,9 @@ ASRCload(GENmodel *inModel, CKTcircuit *ckt)
*/
i = here->ASRCtree->numVars;
if (asrc_nvals < i) {
if (asrc_nvals) {
FREE(asrc_vals);
FREE(asrc_derivs);
}
asrc_nvals = i;
asrc_vals = TMALLOC(double, i);
asrc_derivs = TMALLOC(double, i);
asrc_vals = TREALLOC(double, asrc_vals, i);
asrc_derivs = TREALLOC(double, asrc_derivs, i);
}
j = 0;

8
src/spicelib/devices/asrc/asrcpzld.c
View File

@ -43,13 +43,9 @@ ASRCpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
/* Get the function evaluated and the derivatives too */
i = here->ASRCtree->numVars;
if (asrc_nvals < i) {
if (asrc_nvals) {
FREE(asrc_vals);
FREE(asrc_derivs);
}
asrc_nvals = i;
asrc_vals = TMALLOC(double, i);
asrc_derivs = TMALLOC(double, i);
asrc_vals = TREALLOC(double, asrc_vals, i);
asrc_derivs = TREALLOC(double, asrc_derivs, i);
}
/* Fill the vector of values from the previous solution */