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

white spaces

pre-master-46
dwarning 3 years ago
committed by Holger Vogt
parent
d053fbda93
commit
f33e899fda
5 changed files with 98 additions and 98 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. 18
      src/spicelib/devices/vbic/vbic.c
  2. 2
      src/spicelib/devices/vbic/vbicdefs.h
  3. 142
      src/spicelib/devices/vbic/vbicload.c
  4. 28
      src/spicelib/devices/vbic/vbicsetup.c
  5. 6
      src/spicelib/devices/vbic/vbictemp.c

18
src/spicelib/devices/vbic/vbic.c
View File

@ -128,10 +128,10 @@ IFparm VBICmPTable[] = { /* model parameters */
IOP("tf", VBIC_MOD_TF, IF_REAL, "Ideal forward transit time"), IOP("tf", VBIC_MOD_TF, IF_REAL, "Ideal forward transit time"),
IOP("qtf", VBIC_MOD_QTF, IF_REAL, "Variation of TF with base-width modulation"), IOP("qtf", VBIC_MOD_QTF, IF_REAL, "Variation of TF with base-width modulation"),
IOP("xtf", VBIC_MOD_XTF, IF_REAL, "Coefficient for bias dependence of TF"), IOP("xtf", VBIC_MOD_XTF, IF_REAL, "Coefficient for bias dependence of TF"),
IOP("vtf", VBIC_MOD_VTF, IF_REAL, "Voltage giving VBC dependence of TF"),
IOP("itf", VBIC_MOD_ITF, IF_REAL, "High current dependence of TF"),
IOP("tr", VBIC_MOD_TR, IF_REAL, "Ideal reverse transit time"),
IOP("td", VBIC_MOD_TD, IF_REAL, "Forward excess-phase delay time"),
IOP("vtf", VBIC_MOD_VTF, IF_REAL, "Voltage giving VBC dependence of TF"),
IOP("itf", VBIC_MOD_ITF, IF_REAL, "High current dependence of TF"),
IOP("tr", VBIC_MOD_TR, IF_REAL, "Ideal reverse transit time"),
IOP("td", VBIC_MOD_TD, IF_REAL, "Forward excess-phase delay time"),
IOP("kfn", VBIC_MOD_KFN, IF_REAL, "B-E Flicker Noise Coefficient"), IOP("kfn", VBIC_MOD_KFN, IF_REAL, "B-E Flicker Noise Coefficient"),
IOP("afn", VBIC_MOD_AFN, IF_REAL, "B-E Flicker Noise Exponent"), IOP("afn", VBIC_MOD_AFN, IF_REAL, "B-E Flicker Noise Exponent"),
IOP("bfn", VBIC_MOD_BFN, IF_REAL, "B-E Flicker Noise 1/f dependence"), IOP("bfn", VBIC_MOD_BFN, IF_REAL, "B-E Flicker Noise 1/f dependence"),
@ -202,8 +202,8 @@ char *VBICnames[] = {
}; };
int VBICnSize = NUMELEMS(VBICnames);
int VBICpTSize = NUMELEMS(VBICpTable);
int VBICmPTSize = NUMELEMS(VBICmPTable);
int VBICiSize = sizeof(VBICinstance);
int VBICmSize = sizeof(VBICmodel);
int VBICnSize = NUMELEMS(VBICnames);
int VBICpTSize = NUMELEMS(VBICpTable);
int VBICmPTSize = NUMELEMS(VBICmPTable);
int VBICiSize = sizeof(VBICinstance);
int VBICmSize = sizeof(VBICmodel);

2
src/spicelib/devices/vbic/vbicdefs.h
View File

@ -751,7 +751,7 @@ enum {
VBIC_MOD_SELFT, VBIC_MOD_SELFT,
}; };
/* device questions */
/* device questions */
enum { enum {
VBIC_QUEST_FT = 221, VBIC_QUEST_FT = 221,
VBIC_QUEST_COLLNODE, VBIC_QUEST_COLLNODE,

142
src/spicelib/devices/vbic/vbicload.c
View File

@ -40,8 +40,8 @@ int vbic_4T_et_cf_fj(double *,
int int
VBICload(GENmodel *inModel, CKTcircuit *ckt) VBICload(GENmodel *inModel, CKTcircuit *ckt)
/* actually load the current resistance value into the
* sparse matrix previously provided
/* actually load the current resistance value into the
* sparse matrix previously provided
*/ */
{ {
VBICmodel *model = (VBICmodel*)inModel; VBICmodel *model = (VBICmodel*)inModel;
@ -292,7 +292,7 @@ VBICload(GENmodel *inModel, CKTcircuit *ckt)
*(ckt->CKTrhsOld+here->VBICsubsSINode)); *(ckt->CKTrhsOld+here->VBICsubsSINode));
if (here->VBIC_selfheat) if (here->VBIC_selfheat)
Vrth = *(ckt->CKTstate1 + here->VBICvrth); Vrth = *(ckt->CKTstate1 + here->VBICvrth);
} else if((ckt->CKTmode & MODEINITJCT) &&
} else if((ckt->CKTmode & MODEINITJCT) &&
(ckt->CKTmode & MODETRANOP) && (ckt->CKTmode & MODEUIC)){ (ckt->CKTmode & MODETRANOP) && (ckt->CKTmode & MODEUIC)){
Vbe=model->VBICtype*here->VBICicVBE; Vbe=model->VBICtype*here->VBICicVBE;
Vbei=Vbex=Vbe; Vbei=Vbex=Vbe;
@ -348,104 +348,104 @@ VBICload(GENmodel *inModel, CKTcircuit *ckt)
*(ckt->CKTstate0 + here->VBICvrth) = *(ckt->CKTstate0 + here->VBICvrth) =
*(ckt->CKTstate1 + here->VBICvrth); *(ckt->CKTstate1 + here->VBICvrth);
} }
*(ckt->CKTstate0 + here->VBICvbei) =
*(ckt->CKTstate0 + here->VBICvbei) =
*(ckt->CKTstate1 + here->VBICvbei); *(ckt->CKTstate1 + here->VBICvbei);
*(ckt->CKTstate0 + here->VBICvbex) =
*(ckt->CKTstate0 + here->VBICvbex) =
*(ckt->CKTstate1 + here->VBICvbex); *(ckt->CKTstate1 + here->VBICvbex);
*(ckt->CKTstate0 + here->VBICvbci) =
*(ckt->CKTstate0 + here->VBICvbci) =
*(ckt->CKTstate1 + here->VBICvbci); *(ckt->CKTstate1 + here->VBICvbci);
*(ckt->CKTstate0 + here->VBICvbcx) =
*(ckt->CKTstate0 + here->VBICvbcx) =
*(ckt->CKTstate1 + here->VBICvbcx); *(ckt->CKTstate1 + here->VBICvbcx);
*(ckt->CKTstate0 + here->VBICvbep) =
*(ckt->CKTstate0 + here->VBICvbep) =
*(ckt->CKTstate1 + here->VBICvbep); *(ckt->CKTstate1 + here->VBICvbep);
*(ckt->CKTstate0 + here->VBICvrci) =
*(ckt->CKTstate0 + here->VBICvrci) =
*(ckt->CKTstate1 + here->VBICvrci); *(ckt->CKTstate1 + here->VBICvrci);
*(ckt->CKTstate0 + here->VBICvrbi) =
*(ckt->CKTstate0 + here->VBICvrbi) =
*(ckt->CKTstate1 + here->VBICvrbi); *(ckt->CKTstate1 + here->VBICvrbi);
*(ckt->CKTstate0 + here->VBICvrbp) =
*(ckt->CKTstate0 + here->VBICvrbp) =
*(ckt->CKTstate1 + here->VBICvrbp); *(ckt->CKTstate1 + here->VBICvrbp);
*(ckt->CKTstate0 + here->VBICvbcp) =
*(ckt->CKTstate0 + here->VBICvbcp) =
*(ckt->CKTstate1 + here->VBICvbcp); *(ckt->CKTstate1 + here->VBICvbcp);
*(ckt->CKTstate0 + here->VBICibe) =
*(ckt->CKTstate0 + here->VBICibe) =
*(ckt->CKTstate1 + here->VBICibe); *(ckt->CKTstate1 + here->VBICibe);
*(ckt->CKTstate0 + here->VBICibe_Vbei) =
*(ckt->CKTstate0 + here->VBICibe_Vbei) =
*(ckt->CKTstate1 + here->VBICibe_Vbei); *(ckt->CKTstate1 + here->VBICibe_Vbei);
*(ckt->CKTstate0 + here->VBICibex) =
*(ckt->CKTstate0 + here->VBICibex) =
*(ckt->CKTstate1 + here->VBICibex); *(ckt->CKTstate1 + here->VBICibex);
*(ckt->CKTstate0 + here->VBICibex_Vbex) =
*(ckt->CKTstate0 + here->VBICibex_Vbex) =
*(ckt->CKTstate1 + here->VBICibex_Vbex); *(ckt->CKTstate1 + here->VBICibex_Vbex);
*(ckt->CKTstate0 + here->VBICitzf) =
*(ckt->CKTstate0 + here->VBICitzf) =
*(ckt->CKTstate1 + here->VBICitzf); *(ckt->CKTstate1 + here->VBICitzf);
*(ckt->CKTstate0 + here->VBICitzf_Vbei) =
*(ckt->CKTstate0 + here->VBICitzf_Vbei) =
*(ckt->CKTstate1 + here->VBICitzf_Vbei); *(ckt->CKTstate1 + here->VBICitzf_Vbei);
*(ckt->CKTstate0 + here->VBICitzf_Vbci) =
*(ckt->CKTstate0 + here->VBICitzf_Vbci) =
*(ckt->CKTstate1 + here->VBICitzf_Vbci); *(ckt->CKTstate1 + here->VBICitzf_Vbci);
*(ckt->CKTstate0 + here->VBICitzr) =
*(ckt->CKTstate0 + here->VBICitzr) =
*(ckt->CKTstate1 + here->VBICitzr); *(ckt->CKTstate1 + here->VBICitzr);
*(ckt->CKTstate0 + here->VBICitzr_Vbei) =
*(ckt->CKTstate0 + here->VBICitzr_Vbei) =
*(ckt->CKTstate1 + here->VBICitzf_Vbei); *(ckt->CKTstate1 + here->VBICitzf_Vbei);
*(ckt->CKTstate0 + here->VBICitzr_Vbci) =
*(ckt->CKTstate0 + here->VBICitzr_Vbci) =
*(ckt->CKTstate1 + here->VBICitzr_Vbci); *(ckt->CKTstate1 + here->VBICitzr_Vbci);
*(ckt->CKTstate0 + here->VBICibc) =
*(ckt->CKTstate0 + here->VBICibc) =
*(ckt->CKTstate1 + here->VBICibc); *(ckt->CKTstate1 + here->VBICibc);
*(ckt->CKTstate0 + here->VBICibc_Vbci) =
*(ckt->CKTstate0 + here->VBICibc_Vbci) =
*(ckt->CKTstate1 + here->VBICibc_Vbci); *(ckt->CKTstate1 + here->VBICibc_Vbci);
*(ckt->CKTstate0 + here->VBICibc_Vbei) =
*(ckt->CKTstate0 + here->VBICibc_Vbei) =
*(ckt->CKTstate1 + here->VBICibc_Vbei); *(ckt->CKTstate1 + here->VBICibc_Vbei);
*(ckt->CKTstate0 + here->VBICibep) =
*(ckt->CKTstate0 + here->VBICibep) =
*(ckt->CKTstate1 + here->VBICibep); *(ckt->CKTstate1 + here->VBICibep);
*(ckt->CKTstate0 + here->VBICibep_Vbep) =
*(ckt->CKTstate0 + here->VBICibep_Vbep) =
*(ckt->CKTstate1 + here->VBICibep_Vbep); *(ckt->CKTstate1 + here->VBICibep_Vbep);
*(ckt->CKTstate0 + here->VBICirci) =
*(ckt->CKTstate0 + here->VBICirci) =
*(ckt->CKTstate1 + here->VBICirci); *(ckt->CKTstate1 + here->VBICirci);
*(ckt->CKTstate0 + here->VBICirci_Vrci) =
*(ckt->CKTstate0 + here->VBICirci_Vrci) =
*(ckt->CKTstate1 + here->VBICirci_Vrci); *(ckt->CKTstate1 + here->VBICirci_Vrci);
*(ckt->CKTstate0 + here->VBICirci_Vbci) =
*(ckt->CKTstate0 + here->VBICirci_Vbci) =
*(ckt->CKTstate1 + here->VBICirci_Vbci); *(ckt->CKTstate1 + here->VBICirci_Vbci);
*(ckt->CKTstate0 + here->VBICirci_Vbcx) =
*(ckt->CKTstate0 + here->VBICirci_Vbcx) =
*(ckt->CKTstate1 + here->VBICirci_Vbcx); *(ckt->CKTstate1 + here->VBICirci_Vbcx);
*(ckt->CKTstate0 + here->VBICirbi) =
*(ckt->CKTstate0 + here->VBICirbi) =
*(ckt->CKTstate1 + here->VBICirbi); *(ckt->CKTstate1 + here->VBICirbi);
*(ckt->CKTstate0 + here->VBICirbi_Vrbi) =
*(ckt->CKTstate0 + here->VBICirbi_Vrbi) =
*(ckt->CKTstate1 + here->VBICirbi_Vrbi); *(ckt->CKTstate1 + here->VBICirbi_Vrbi);
*(ckt->CKTstate0 + here->VBICirbi_Vbei) =
*(ckt->CKTstate0 + here->VBICirbi_Vbei) =
*(ckt->CKTstate1 + here->VBICirbi_Vbei); *(ckt->CKTstate1 + here->VBICirbi_Vbei);
*(ckt->CKTstate0 + here->VBICirbi_Vbci) =
*(ckt->CKTstate0 + here->VBICirbi_Vbci) =
*(ckt->CKTstate1 + here->VBICirbi_Vbci); *(ckt->CKTstate1 + here->VBICirbi_Vbci);
*(ckt->CKTstate0 + here->VBICirbp) =
*(ckt->CKTstate0 + here->VBICirbp) =
*(ckt->CKTstate1 + here->VBICirbp); *(ckt->CKTstate1 + here->VBICirbp);
*(ckt->CKTstate0 + here->VBICirbp_Vrbp) =
*(ckt->CKTstate0 + here->VBICirbp_Vrbp) =
*(ckt->CKTstate1 + here->VBICirbp_Vrbp); *(ckt->CKTstate1 + here->VBICirbp_Vrbp);
*(ckt->CKTstate0 + here->VBICirbp_Vbep) =
*(ckt->CKTstate0 + here->VBICirbp_Vbep) =
*(ckt->CKTstate1 + here->VBICirbp_Vbep); *(ckt->CKTstate1 + here->VBICirbp_Vbep);
*(ckt->CKTstate0 + here->VBICirbp_Vbci) =
*(ckt->CKTstate0 + here->VBICirbp_Vbci) =
*(ckt->CKTstate1 + here->VBICirbp_Vbci); *(ckt->CKTstate1 + here->VBICirbp_Vbci);
*(ckt->CKTstate0 + here->VBICibcp) =
*(ckt->CKTstate0 + here->VBICibcp) =
*(ckt->CKTstate1 + here->VBICibcp); *(ckt->CKTstate1 + here->VBICibcp);
*(ckt->CKTstate0 + here->VBICibcp_Vbcp) =
*(ckt->CKTstate0 + here->VBICibcp_Vbcp) =
*(ckt->CKTstate1 + here->VBICibcp_Vbcp); *(ckt->CKTstate1 + here->VBICibcp_Vbcp);
*(ckt->CKTstate0 + here->VBICiccp) =
*(ckt->CKTstate0 + here->VBICiccp) =
*(ckt->CKTstate1 + here->VBICiccp); *(ckt->CKTstate1 + here->VBICiccp);
*(ckt->CKTstate0 + here->VBICiccp_Vbep) =
*(ckt->CKTstate0 + here->VBICiccp_Vbep) =
*(ckt->CKTstate1 + here->VBICiccp_Vbep); *(ckt->CKTstate1 + here->VBICiccp_Vbep);
*(ckt->CKTstate0 + here->VBICiccp_Vbci) =
*(ckt->CKTstate0 + here->VBICiccp_Vbci) =
*(ckt->CKTstate1 + here->VBICiccp_Vbci); *(ckt->CKTstate1 + here->VBICiccp_Vbci);
*(ckt->CKTstate0 + here->VBICiccp_Vbcp) =
*(ckt->CKTstate0 + here->VBICiccp_Vbcp) =
*(ckt->CKTstate1 + here->VBICiccp_Vbcp); *(ckt->CKTstate1 + here->VBICiccp_Vbcp);
*(ckt->CKTstate0 + here->VBICgqbeo) =
*(ckt->CKTstate0 + here->VBICgqbeo) =
*(ckt->CKTstate1 + here->VBICgqbeo); *(ckt->CKTstate1 + here->VBICgqbeo);
*(ckt->CKTstate0 + here->VBICgqbco) =
*(ckt->CKTstate0 + here->VBICgqbco) =
*(ckt->CKTstate1 + here->VBICgqbco); *(ckt->CKTstate1 + here->VBICgqbco);
*(ckt->CKTstate0 + here->VBICircx_Vrcx) =
*(ckt->CKTstate0 + here->VBICircx_Vrcx) =
*(ckt->CKTstate1 + here->VBICircx_Vrcx); *(ckt->CKTstate1 + here->VBICircx_Vrcx);
*(ckt->CKTstate0 + here->VBICirbx_Vrbx) =
*(ckt->CKTstate0 + here->VBICirbx_Vrbx) =
*(ckt->CKTstate1 + here->VBICirbx_Vrbx); *(ckt->CKTstate1 + here->VBICirbx_Vrbx);
*(ckt->CKTstate0 + here->VBICirs_Vrs) =
*(ckt->CKTstate0 + here->VBICirs_Vrs) =
*(ckt->CKTstate1 + here->VBICirs_Vrs); *(ckt->CKTstate1 + here->VBICirs_Vrs);
*(ckt->CKTstate0 + here->VBICire_Vre) =
*(ckt->CKTstate0 + here->VBICire_Vre) =
*(ckt->CKTstate1 + here->VBICire_Vre); *(ckt->CKTstate1 + here->VBICire_Vre);
if (here->VBIC_selfheat) if (here->VBIC_selfheat)
*(ckt->CKTstate0 + here->VBICqcth) =
*(ckt->CKTstate0 + here->VBICqcth) =
*(ckt->CKTstate1 + here->VBICqcth); *(ckt->CKTstate1 + here->VBICqcth);
} else { } else {
#endif /* PREDICTOR */ #endif /* PREDICTOR */
@ -515,17 +515,17 @@ VBICload(GENmodel *inModel, CKTcircuit *ckt)
if (here->VBIC_selfheat) if (here->VBIC_selfheat)
Vrth = *(ckt->CKTrhsOld + here->VBICtempNode); Vrth = *(ckt->CKTrhsOld + here->VBICtempNode);
ibehat = *(ckt->CKTstate0 + here->VBICibe) +
ibehat = *(ckt->CKTstate0 + here->VBICibe) +
*(ckt->CKTstate0 + here->VBICibe_Vbei)*delvbei; *(ckt->CKTstate0 + here->VBICibe_Vbei)*delvbei;
ibexhat = *(ckt->CKTstate0 + here->VBICibex) +
ibexhat = *(ckt->CKTstate0 + here->VBICibex) +
*(ckt->CKTstate0 + here->VBICibex_Vbex)*delvbex; *(ckt->CKTstate0 + here->VBICibex_Vbex)*delvbex;
itzfhat = *(ckt->CKTstate0 + here->VBICitzf) +
itzfhat = *(ckt->CKTstate0 + here->VBICitzf) +
*(ckt->CKTstate0 + here->VBICitzf_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICitzf_Vbci)*delvbci; *(ckt->CKTstate0 + here->VBICitzf_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICitzf_Vbci)*delvbci;
itzrhat = *(ckt->CKTstate0 + here->VBICitzr) +
itzrhat = *(ckt->CKTstate0 + here->VBICitzr) +
*(ckt->CKTstate0 + here->VBICitzr_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICitzr_Vbci)*delvbci; *(ckt->CKTstate0 + here->VBICitzr_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICitzr_Vbci)*delvbci;
ibchat = *(ckt->CKTstate0 + here->VBICibc) +
ibchat = *(ckt->CKTstate0 + here->VBICibc) +
*(ckt->CKTstate0 + here->VBICibc_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICibc_Vbci)*delvbci; *(ckt->CKTstate0 + here->VBICibc_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICibc_Vbci)*delvbci;
ibephat = *(ckt->CKTstate0 + here->VBICibep) +
ibephat = *(ckt->CKTstate0 + here->VBICibep) +
*(ckt->CKTstate0 + here->VBICibep_Vbep)*delvbep; *(ckt->CKTstate0 + here->VBICibep_Vbep)*delvbep;
ircihat = *(ckt->CKTstate0 + here->VBICirci) + *(ckt->CKTstate0 + here->VBICirci_Vrci)*delvrci + ircihat = *(ckt->CKTstate0 + here->VBICirci) + *(ckt->CKTstate0 + here->VBICirci_Vrci)*delvrci +
*(ckt->CKTstate0 + here->VBICirci_Vbcx)*delvbcx + *(ckt->CKTstate0 + here->VBICirci_Vbci)*delvbci; *(ckt->CKTstate0 + here->VBICirci_Vbcx)*delvbcx + *(ckt->CKTstate0 + here->VBICirci_Vbci)*delvbci;
@ -533,9 +533,9 @@ VBICload(GENmodel *inModel, CKTcircuit *ckt)
*(ckt->CKTstate0 + here->VBICirbi_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICirbi_Vbci)*delvbci; *(ckt->CKTstate0 + here->VBICirbi_Vbei)*delvbei + *(ckt->CKTstate0 + here->VBICirbi_Vbci)*delvbci;
irbphat = *(ckt->CKTstate0 + here->VBICirbp) + *(ckt->CKTstate0 + here->VBICirbp_Vrbp)*delvrbp + irbphat = *(ckt->CKTstate0 + here->VBICirbp) + *(ckt->CKTstate0 + here->VBICirbp_Vrbp)*delvrbp +
*(ckt->CKTstate0 + here->VBICirbp_Vbep)*delvbep + *(ckt->CKTstate0 + here->VBICirbp_Vbci)*delvbci; *(ckt->CKTstate0 + here->VBICirbp_Vbep)*delvbep + *(ckt->CKTstate0 + here->VBICirbp_Vbci)*delvbci;
ibcphat = *(ckt->CKTstate0 + here->VBICibcp) +
ibcphat = *(ckt->CKTstate0 + here->VBICibcp) +
*(ckt->CKTstate0 + here->VBICibcp_Vbcp)*delvbcp; *(ckt->CKTstate0 + here->VBICibcp_Vbcp)*delvbcp;
iccphat = *(ckt->CKTstate0 + here->VBICiccp) + *(ckt->CKTstate0 + here->VBICiccp_Vbep)*delvbep +
iccphat = *(ckt->CKTstate0 + here->VBICiccp) + *(ckt->CKTstate0 + here->VBICiccp_Vbep)*delvbep +
*(ckt->CKTstate0 + here->VBICiccp_Vbci)*delvbci + *(ckt->CKTstate0 + here->VBICiccp_Vbcp)*delvbcp; *(ckt->CKTstate0 + here->VBICiccp_Vbci)*delvbci + *(ckt->CKTstate0 + here->VBICiccp_Vbcp)*delvbcp;
/* /*
* bypass if solution has not changed * bypass if solution has not changed
@ -573,47 +573,47 @@ VBICload(GENmodel *inModel, CKTcircuit *ckt)
if( (fabs(delvbcp) < ckt->CKTreltol*MAX(fabs(Vbcp), if( (fabs(delvbcp) < ckt->CKTreltol*MAX(fabs(Vbcp),
fabs(*(ckt->CKTstate0 + here->VBICvbcp)))+ fabs(*(ckt->CKTstate0 + here->VBICvbcp)))+
ckt->CKTvoltTol) ) ckt->CKTvoltTol) )
if( (fabs(ibehat-*(ckt->CKTstate0 + here->VBICibe)) <
if( (fabs(ibehat-*(ckt->CKTstate0 + here->VBICibe)) <
ckt->CKTreltol* MAX(fabs(ibehat), ckt->CKTreltol* MAX(fabs(ibehat),
fabs(*(ckt->CKTstate0 + here->VBICibe)))+ fabs(*(ckt->CKTstate0 + here->VBICibe)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(ibexhat-*(ckt->CKTstate0 + here->VBICibex)) <
if( (fabs(ibexhat-*(ckt->CKTstate0 + here->VBICibex)) <
ckt->CKTreltol* MAX(fabs(ibexhat), ckt->CKTreltol* MAX(fabs(ibexhat),
fabs(*(ckt->CKTstate0 + here->VBICibex)))+ fabs(*(ckt->CKTstate0 + here->VBICibex)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(itzfhat-*(ckt->CKTstate0 + here->VBICitzf)) <
if( (fabs(itzfhat-*(ckt->CKTstate0 + here->VBICitzf)) <
ckt->CKTreltol* MAX(fabs(itzfhat), ckt->CKTreltol* MAX(fabs(itzfhat),
fabs(*(ckt->CKTstate0 + here->VBICitzf)))+ fabs(*(ckt->CKTstate0 + here->VBICitzf)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(itzrhat-*(ckt->CKTstate0 + here->VBICitzr)) <
if( (fabs(itzrhat-*(ckt->CKTstate0 + here->VBICitzr)) <
ckt->CKTreltol* MAX(fabs(itzrhat), ckt->CKTreltol* MAX(fabs(itzrhat),
fabs(*(ckt->CKTstate0 + here->VBICitzr)))+ fabs(*(ckt->CKTstate0 + here->VBICitzr)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(ibchat-*(ckt->CKTstate0 + here->VBICibc)) <
if( (fabs(ibchat-*(ckt->CKTstate0 + here->VBICibc)) <
ckt->CKTreltol* MAX(fabs(ibchat), ckt->CKTreltol* MAX(fabs(ibchat),
fabs(*(ckt->CKTstate0 + here->VBICibc)))+ fabs(*(ckt->CKTstate0 + here->VBICibc)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(ibephat-*(ckt->CKTstate0 + here->VBICibep)) <
if( (fabs(ibephat-*(ckt->CKTstate0 + here->VBICibep)) <
ckt->CKTreltol* MAX(fabs(ibephat), ckt->CKTreltol* MAX(fabs(ibephat),
fabs(*(ckt->CKTstate0 + here->VBICibep)))+ fabs(*(ckt->CKTstate0 + here->VBICibep)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(ircihat-*(ckt->CKTstate0 + here->VBICirci)) <
if( (fabs(ircihat-*(ckt->CKTstate0 + here->VBICirci)) <
ckt->CKTreltol* MAX(fabs(ircihat), ckt->CKTreltol* MAX(fabs(ircihat),
fabs(*(ckt->CKTstate0 + here->VBICirci)))+ fabs(*(ckt->CKTstate0 + here->VBICirci)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(irbihat-*(ckt->CKTstate0 + here->VBICirbi)) <
if( (fabs(irbihat-*(ckt->CKTstate0 + here->VBICirbi)) <
ckt->CKTreltol* MAX(fabs(irbihat), ckt->CKTreltol* MAX(fabs(irbihat),
fabs(*(ckt->CKTstate0 + here->VBICirbi)))+ fabs(*(ckt->CKTstate0 + here->VBICirbi)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(irbphat-*(ckt->CKTstate0 + here->VBICirbp)) <
if( (fabs(irbphat-*(ckt->CKTstate0 + here->VBICirbp)) <
ckt->CKTreltol* MAX(fabs(irbphat), ckt->CKTreltol* MAX(fabs(irbphat),
fabs(*(ckt->CKTstate0 + here->VBICirbp)))+ fabs(*(ckt->CKTstate0 + here->VBICirbp)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(ibcphat-*(ckt->CKTstate0 + here->VBICibcp)) <
if( (fabs(ibcphat-*(ckt->CKTstate0 + here->VBICibcp)) <
ckt->CKTreltol* MAX(fabs(ibcphat), ckt->CKTreltol* MAX(fabs(ibcphat),
fabs(*(ckt->CKTstate0 + here->VBICibcp)))+ fabs(*(ckt->CKTstate0 + here->VBICibcp)))+
ckt->CKTabstol) ) ckt->CKTabstol) )
if( (fabs(iccphat-*(ckt->CKTstate0 + here->VBICiccp)) <
if( (fabs(iccphat-*(ckt->CKTstate0 + here->VBICiccp)) <
ckt->CKTreltol* MAX(fabs(iccphat), ckt->CKTreltol* MAX(fabs(iccphat),
fabs(*(ckt->CKTstate0 + here->VBICiccp)))+ fabs(*(ckt->CKTstate0 + here->VBICiccp)))+
ckt->CKTabstol) ) { ckt->CKTabstol) ) {

28
src/spicelib/devices/vbic/vbicsetup.c
View File

@ -5,7 +5,7 @@ Model Author: 1995 Colin McAndrew Motorola
Spice3 Implementation: 2003 Dietmar Warning DAnalyse GmbH Spice3 Implementation: 2003 Dietmar Warning DAnalyse GmbH
**********/ **********/
/*
/*
* This routine should only be called when circuit topology * This routine should only be called when circuit topology
* changes, since its computations do not depend on most * changes, since its computations do not depend on most
* device or model parameters, only on topology (as * device or model parameters, only on topology (as
@ -23,8 +23,8 @@ Spice3 Implementation: 2003 Dietmar Warning DAnalyse GmbH
int int
VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states) VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
/* load the VBIC structure with those pointers needed later
* for fast matrix loading
/* load the VBIC structure with those pointers needed later
* for fast matrix loading
*/ */
{ {
VBICmodel *model = (VBICmodel*)inModel; VBICmodel *model = (VBICmodel*)inModel;
@ -435,8 +435,8 @@ VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
if (ckt->CKTcopyNodesets) { if (ckt->CKTcopyNodesets) {
if (CKTinst2Node(ckt,here,1,&tmpNode,&tmpName)==OK) { if (CKTinst2Node(ckt,here,1,&tmpNode,&tmpName)==OK) {
if (tmpNode->nsGiven) { if (tmpNode->nsGiven) {
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
} }
} }
} }
@ -450,8 +450,8 @@ VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
if (ckt->CKTcopyNodesets) { if (ckt->CKTcopyNodesets) {
if (CKTinst2Node(ckt,here,2,&tmpNode,&tmpName)==OK) { if (CKTinst2Node(ckt,here,2,&tmpNode,&tmpName)==OK) {
if (tmpNode->nsGiven) { if (tmpNode->nsGiven) {
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
} }
} }
} }
@ -465,8 +465,8 @@ VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
if (ckt->CKTcopyNodesets) { if (ckt->CKTcopyNodesets) {
if (CKTinst2Node(ckt,here,3,&tmpNode,&tmpName)==OK) { if (CKTinst2Node(ckt,here,3,&tmpNode,&tmpName)==OK) {
if (tmpNode->nsGiven) { if (tmpNode->nsGiven) {
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
} }
} }
} }
@ -480,8 +480,8 @@ VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
if (ckt->CKTcopyNodesets) { if (ckt->CKTcopyNodesets) {
if (CKTinst2Node(ckt,here,4,&tmpNode,&tmpName)==OK) { if (CKTinst2Node(ckt,here,4,&tmpNode,&tmpName)==OK) {
if (tmpNode->nsGiven) { if (tmpNode->nsGiven) {
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
tmp->nodeset=tmpNode->nodeset;
tmp->nsGiven=tmpNode->nsGiven;
} }
} }
} }
@ -505,19 +505,19 @@ VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
if(here->VBICcollCINode == 0) { if(here->VBICcollCINode == 0) {
error = CKTmkVolt(ckt, &tmp, here->VBICname, "collCI"); error = CKTmkVolt(ckt, &tmp, here->VBICname, "collCI");
if(error) return(error); if(error) return(error);
here->VBICcollCINode = tmp->number;
here->VBICcollCINode = tmp->number;
} }
if(here->VBICbaseBPNode == 0) { if(here->VBICbaseBPNode == 0) {
error = CKTmkVolt(ckt, &tmp, here->VBICname, "baseBP"); error = CKTmkVolt(ckt, &tmp, here->VBICname, "baseBP");
if(error) return(error); if(error) return(error);
here->VBICbaseBPNode = tmp->number;
here->VBICbaseBPNode = tmp->number;
} }
if(here->VBICbaseBINode == 0) { if(here->VBICbaseBINode == 0) {
error = CKTmkVolt(ckt, &tmp, here->VBICname, "baseBI"); error = CKTmkVolt(ckt, &tmp, here->VBICname, "baseBI");
if(error) return(error); if(error) return(error);
here->VBICbaseBINode = tmp->number;
here->VBICbaseBINode = tmp->number;
} }
/* macro to make elements with built in test for out of memory */ /* macro to make elements with built in test for out of memory */

6
src/spicelib/devices/vbic/vbictemp.c
View File

@ -41,7 +41,7 @@ VBICtemp(GENmodel *inModel, CKTcircuit *ckt)
if(here->VBICdtempGiven) here->VBICtemp = here->VBICtemp + here->VBICdtemp; if(here->VBICdtempGiven) here->VBICtemp = here->VBICtemp + here->VBICdtemp;
TAMB = here->VBICtemp - CONSTCtoK; TAMB = here->VBICtemp - CONSTCtoK;
pnom[0] = model->VBICtnom; pnom[0] = model->VBICtnom;
pnom[1] = model->VBICextCollResist; pnom[1] = model->VBICextCollResist;
pnom[2] = model->VBICintCollResist; pnom[2] = model->VBICintCollResist;
@ -150,9 +150,9 @@ VBICtemp(GENmodel *inModel, CKTcircuit *ckt)
pnom[105] = model->VBIClocTempDiff; pnom[105] = model->VBIClocTempDiff;
pnom[106] = model->VBICrevVersion; pnom[106] = model->VBICrevVersion;
pnom[107] = model->VBICrefVersion; pnom[107] = model->VBICrefVersion;
iret = vbic_4T_et_cf_t(p,pnom,&TAMB); iret = vbic_4T_et_cf_t(p,pnom,&TAMB);
here->VBICtextCollResist = p[1]; here->VBICtextCollResist = p[1];
here->VBICtintCollResist = p[2]; here->VBICtintCollResist = p[2];
here->VBICtepiSatVoltage = p[3]; here->VBICtepiSatVoltage = p[3];

Write Preview
Loading…
Cancel
Save