two small bugfixes

This commit is contained in:
mariok 2020-04-27 17:36:19 +02:00
parent b02c763ed1
commit 3b0551c544
2 changed files with 6 additions and 17 deletions

View File

@ -25,6 +25,10 @@ HICUMask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFval
HICUMinstance *here = (HICUMinstance*)instPtr;
NG_IGNORE(select);
double g_be;
IFvalue *IC, *IB, *RPIi, *RPIx, *GMi;
IFvalue *CPIi, *CPIx, *CMUi, *CMUx;
IFvalue *rcx_t, *re_t, *rb, *BETAAC;
switch(which) {
case HICUM_AREA:
@ -126,8 +130,6 @@ HICUMask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFval
/* transconductances and capacitances */
case HICUM_QUEST_BETADC:
// HICUMask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFvalue *select)
IFvalue* IC;
IFvalue* IB;
HICUMask(ckt, instPtr, HICUM_QUEST_CC, IC, select);
HICUMask(ckt, instPtr, HICUM_QUEST_CB, IB, select);
if (IB->rValue != 0.0) {
@ -177,10 +179,6 @@ HICUMask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFval
return(OK);
case HICUM_QUEST_BETAAC:
// HICUMask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFvalue *select)
double g_be;
IFvalue* RPIi;
IFvalue* RPIx;
IFvalue* GMi;
HICUMask(ckt, instPtr, HICUM_QUEST_RPII, RPIi, select);
HICUMask(ckt, instPtr, HICUM_QUEST_RPIX, RPIx, select);
HICUMask(ckt, instPtr, HICUM_QUEST_GMI, GMi, select);
@ -197,23 +195,14 @@ HICUMask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFval
return(OK);
case HICUM_QUEST_FT:
// FT = GMi/(2*`M_PI*(CPIi+CPIx+CMUi+CMUx+(rcx_t+re_t+(re_t+rb)/BETAAC)*GMi*(CMUi+CMUx)));
IFvalue* GMi;
HICUMask(ckt, instPtr, HICUM_QUEST_GMI, GMi, select);
IFvalue* CPIi;
HICUMask(ckt, instPtr, HICUM_QUEST_CPII, CPIi, select);
IFvalue* CPIx;
HICUMask(ckt, instPtr, HICUM_QUEST_CPIX, CPIx, select);
IFvalue* CMUi;
HICUMask(ckt, instPtr, HICUM_QUEST_CMUI, CMUi, select);
IFvalue* CMUx;
HICUMask(ckt, instPtr, HICUM_QUEST_CMUX, CMUx, select);
IFvalue* rcx_t;
HICUMask(ckt, instPtr, HICUM_QUEST_RCX_T, rcx_t, select);
IFvalue* re_t;
HICUMask(ckt, instPtr, HICUM_QUEST_RE_T, re_t, select);
IFvalue* rb;
HICUMask(ckt, instPtr, HICUM_QUEST_RB, rb, select);
IFvalue* BETAAC;
HICUMask(ckt, instPtr, HICUM_QUEST_BETAAC, BETAAC, select);
value->rValue = GMi->rValue/(

View File

@ -929,8 +929,6 @@ HICUMload(GENmodel *inModel, CKTcircuit *ckt)
cbepar2 = model->HICUMfbepar * model->HICUMcbepar;
cbepar1 = model->HICUMcbepar - cbepar2;
here->HICUMcbepar = model->HICUMcbepar;
here->HICUMcbcpar = model->HICUMcbcpar;
// Avoid divide-by-zero and define infinity other way
// High current correction for 2D and 3D effects
@ -970,6 +968,8 @@ HICUMload(GENmodel *inModel, CKTcircuit *ckt)
Icth = 0.0, Icth_Vrth = 0.0;
// SCALE = here->HICUMarea * here->HICUMm;
here->HICUMcbepar = model->HICUMcbepar;
here->HICUMcbcpar = model->HICUMcbcpar;
/*
* initialization