move instance m-factor into ressetup

This commit is contained in:
h_vogt 2013-05-07 23:09:57 +02:00 committed by rlar
parent 4b8f031971
commit 0facd43319
2 changed files with 4 additions and 18 deletions

View File

@ -25,8 +25,6 @@ RESload(GENmodel *inModel, CKTcircuit *ckt)
/* loop through all the instances of the model */
for (here = model->RESinstances; here != NULL ;
here = here->RESnextInstance) {
if(!here->RESmGiven) here->RESm = 1.0;
here->REScurrent = (*(ckt->CKTrhsOld+here->RESposNode) -
*(ckt->CKTrhsOld+here->RESnegNode)) * here->RESconduct;

View File

@ -28,22 +28,10 @@ RESsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit*ckt, int *state)
/* loop through all the instances of the model */
for (here = model->RESinstances; here != NULL ;
here=here->RESnextInstance) {
/*
* Paolo Nenzi 2003
* The following lines are needed if I will move the defaulting code
* from REStemp to RESsetup, as in other (more recent ?) spice devices
*
* ------------------------------------------LEGACY CODE - Francesco Lannutti - October 22, 2012
* if (here->RESowner != ARCHme)
* goto matrixpointers;
*
* matrixpointers:
* ------------------------------------------
*
* put here instance parameter defaulting.
*/
if(!here->RESmGiven)
here->RESm = 1.0;
/* macro to make elements with built in test for out of memory */
#define TSTALLOC(ptr,first,second) \
if((here->ptr = SMPmakeElt(matrix, here->first, here->second)) == NULL){\