luke/ngspice
1
0
Fork 0
mirror of https://git.code.sf.net/p/ngspice/ngspice synced 2026-08-28 16:54:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

devices/asrc, rewrite asrc_vals, asrc_derivs allocation

Browse Source
This commit is contained in:
rlar
2016-07-30 21:10:36 +02:00
parent 4d79617cf1
commit b92b25950e
3 changed files with 9 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/spicelib/devices/asrc/asrcconv.c
+2 -6
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++)
src/spicelib/devices/asrc/asrcload.c
+5 -8
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;
src/spicelib/devices/asrc/asrcpzld.c
+2 -6
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 */