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

hisim2, add HSM2unsetup()

This commit is contained in:
rlar 2011-05-22 10:23:30 +00:00
parent ae96d59e45
commit d6cb9e0f62
2 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2011-05-22 Robert Larice
* src/spicelib/devices/hisim2/hsm2set.c :
hisim2, add HSM2unsetup()
2011-05-22 Robert Larice
* src/spicelib/devices/hisim2/hsm2def.h :
hisim2, add ngspice specific GENinstance struct slot 'HSM2owner' aka `GENowner'

58
src/spicelib/devices/hisim2/hsm2set.c
View File

@ -772,3 +772,61 @@ if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NULL){\
}
return(OK);
}
int
HSM2unsetup(
GENmodel *inModel,
CKTcircuit *ckt)
{
#ifndef HAS_BATCHSIM
HSM2model *model;
HSM2instance *here;
for (model = (HSM2model *)inModel; model != NULL;
model = model->HSM2nextModel)
{
for (here = model->HSM2instances; here != NULL;
here=here->HSM2nextInstance)
{
if (here->HSM2dNodePrime
&& here->HSM2dNodePrime != here->HSM2dNode)
{
CKTdltNNum(ckt, here->HSM2dNodePrime);
here->HSM2dNodePrime = 0;
}
if (here->HSM2sNodePrime
&& here->HSM2sNodePrime != here->HSM2sNode)
{
CKTdltNNum(ckt, here->HSM2sNodePrime);
here->HSM2sNodePrime = 0;
}
if (here->HSM2gNodePrime
&& here->HSM2gNodePrime != here->HSM2gNode)
{
CKTdltNNum(ckt, here->HSM2gNodePrime);
here->HSM2gNodePrime = 0;
}
if (here->HSM2bNodePrime
&& here->HSM2bNodePrime != here->HSM2bNode)
{
CKTdltNNum(ckt, here->HSM2bNodePrime);
here->HSM2bNodePrime = 0;
}
if (here->HSM2dbNode
&& here->HSM2dbNode != here->HSM2bNode)
{
CKTdltNNum(ckt, here->HSM2dbNode);
here->HSM2dbNode = 0;
}
if (here->HSM2sbNode
&& here->HSM2sbNode != here->HSM2bNode)
{
CKTdltNNum(ckt, here->HSM2sbNode);
here->HSM2sbNode = 0;
}
}
}
#endif
return OK;
}