You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
690 lines
26 KiB
690 lines
26 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Thomas L. Quarles
|
|
Model Author: 1995 Colin McAndrew Motorola
|
|
Spice3 Implementation: 2003 Dietmar Warning DAnalyse GmbH
|
|
**********/
|
|
|
|
/*
|
|
* This routine should only be called when circuit topology
|
|
* changes, since its computations do not depend on most
|
|
* device or model parameters, only on topology (as
|
|
* affected by emitter, collector, and base resistances)
|
|
*/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/cktdefs.h"
|
|
#include "ngspice/smpdefs.h"
|
|
#include "vbicdefs.h"
|
|
#include "ngspice/const.h"
|
|
#include "ngspice/sperror.h"
|
|
#include "ngspice/ifsim.h"
|
|
#include "ngspice/suffix.h"
|
|
|
|
int
|
|
VBICsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
|
/* load the VBIC structure with those pointers needed later
|
|
* for fast matrix loading
|
|
*/
|
|
{
|
|
VBICmodel *model = (VBICmodel*)inModel;
|
|
VBICinstance *here;
|
|
int error;
|
|
CKTnode *tmp;
|
|
|
|
/* loop through all the transistor models */
|
|
for( ; model != NULL; model = VBICnextModel(model)) {
|
|
|
|
if(model->VBICtype != NPN && model->VBICtype != PNP) {
|
|
model->VBICtype = NPN;
|
|
}
|
|
if(!model->VBICtnomGiven) {
|
|
model->VBICtnom = 27.0;
|
|
}
|
|
if(!model->VBICextCollResistGiven) {
|
|
model->VBICextCollResist = 0.0;
|
|
}
|
|
if(!model->VBICintCollResistGiven) {
|
|
model->VBICintCollResist = 0.1;
|
|
}
|
|
if(!model->VBICepiSatVoltageGiven) {
|
|
model->VBICepiSatVoltage = 0.0;
|
|
}
|
|
if(!model->VBICepiDopingGiven) {
|
|
model->VBICepiDoping = 0.0;
|
|
}
|
|
if(!model->VBIChighCurFacGiven) {
|
|
model->VBIChighCurFac = 1.0;
|
|
}
|
|
if(!model->VBICextBaseResistGiven) {
|
|
model->VBICextBaseResist = 0.0;
|
|
}
|
|
if(!model->VBICintBaseResistGiven) {
|
|
model->VBICintBaseResist = 0.1;
|
|
}
|
|
if(!model->VBICemitterResistGiven) {
|
|
model->VBICemitterResist = 0.0;
|
|
}
|
|
if(!model->VBICsubstrateResistGiven) {
|
|
model->VBICsubstrateResist = 0.0;
|
|
}
|
|
if(!model->VBICparBaseResistGiven) {
|
|
model->VBICparBaseResist = 0.1;
|
|
}
|
|
if(!model->VBICsatCurGiven) {
|
|
model->VBICsatCur = 1e-16;
|
|
}
|
|
if(!model->VBICemissionCoeffFGiven) {
|
|
model->VBICemissionCoeffF = 1.0;
|
|
}
|
|
if(!model->VBICemissionCoeffRGiven) {
|
|
model->VBICemissionCoeffR = 1.0;
|
|
}
|
|
if(!model->VBICdeplCapLimitFGiven) {
|
|
model->VBICdeplCapLimitF = 0.9;
|
|
}
|
|
if(!model->VBICextOverlapCapBEGiven) {
|
|
model->VBICextOverlapCapBE = 0.0;
|
|
}
|
|
if(!model->VBICdepletionCapBEGiven) {
|
|
model->VBICdepletionCapBE = 0.0;
|
|
}
|
|
if(!model->VBICpotentialBEGiven) {
|
|
model->VBICpotentialBE = 0.75;
|
|
}
|
|
if(!model->VBICjunctionExpBEGiven) {
|
|
model->VBICjunctionExpBE = 0.33;
|
|
}
|
|
if(!model->VBICsmoothCapBEGiven) {
|
|
model->VBICsmoothCapBE = -0.5;
|
|
}
|
|
if(!model->VBICextOverlapCapBCGiven) {
|
|
model->VBICextOverlapCapBC = 0.0;
|
|
}
|
|
if(!model->VBICdepletionCapBCGiven) {
|
|
model->VBICdepletionCapBC = 0.0;
|
|
}
|
|
if(!model->VBICepiChargeGiven) {
|
|
model->VBICepiCharge = 0.0;
|
|
}
|
|
if(!model->VBICextCapBCGiven) {
|
|
model->VBICextCapBC = 0.0;
|
|
}
|
|
if(!model->VBICpotentialBCGiven) {
|
|
model->VBICpotentialBC = 0.75;
|
|
}
|
|
if(!model->VBICjunctionExpBCGiven) {
|
|
model->VBICjunctionExpBC = 0.33;
|
|
}
|
|
if(!model->VBICsmoothCapBCGiven) {
|
|
model->VBICsmoothCapBC = -0.5;
|
|
}
|
|
if(!model->VBICextCapSCGiven) {
|
|
model->VBICextCapSC = 0.0;
|
|
}
|
|
if(!model->VBICpotentialSCGiven) {
|
|
model->VBICpotentialSC = 0.75;
|
|
}
|
|
if(!model->VBICjunctionExpSCGiven) {
|
|
model->VBICjunctionExpSC = 0.33;
|
|
}
|
|
if(!model->VBICsmoothCapSCGiven) {
|
|
model->VBICsmoothCapSC = -0.5;
|
|
}
|
|
if(!model->VBICidealSatCurBEGiven) {
|
|
model->VBICidealSatCurBE = 1e-18;
|
|
}
|
|
if(!model->VBICportionIBEIGiven) {
|
|
model->VBICportionIBEI = 1.0;
|
|
}
|
|
if(!model->VBICidealEmissCoeffBEGiven) {
|
|
model->VBICidealEmissCoeffBE = 1.0;
|
|
}
|
|
if(!model->VBICnidealSatCurBEGiven) {
|
|
model->VBICnidealSatCurBE = 0.0;
|
|
}
|
|
if(!model->VBICnidealEmissCoeffBEGiven) {
|
|
model->VBICnidealEmissCoeffBE = 2.0;
|
|
}
|
|
if(!model->VBICidealSatCurBCGiven) {
|
|
model->VBICidealSatCurBC = 1e-16;
|
|
}
|
|
if(!model->VBICidealEmissCoeffBCGiven) {
|
|
model->VBICidealEmissCoeffBC = 1.0;
|
|
}
|
|
if(!model->VBICnidealSatCurBCGiven) {
|
|
model->VBICnidealSatCurBC = 0.0;
|
|
}
|
|
if(!model->VBICnidealEmissCoeffBCGiven) {
|
|
model->VBICnidealEmissCoeffBC = 2.0;
|
|
}
|
|
if(!model->VBICavalanchePar1BCGiven) {
|
|
model->VBICavalanchePar1BC = 0.0;
|
|
}
|
|
if(!model->VBICavalanchePar2BCGiven) {
|
|
model->VBICavalanchePar2BC = 0.0;
|
|
}
|
|
if(!model->VBICparasitSatCurGiven) {
|
|
model->VBICparasitSatCur = 0.0;
|
|
}
|
|
if(!model->VBICportionICCPGiven) {
|
|
model->VBICportionICCP = 1.0;
|
|
}
|
|
if(!model->VBICparasitFwdEmissCoeffGiven) {
|
|
model->VBICparasitFwdEmissCoeff = 1.0;
|
|
}
|
|
if(!model->VBICidealParasitSatCurBEGiven) {
|
|
model->VBICidealParasitSatCurBE = 0.0;
|
|
}
|
|
if(!model->VBICnidealParasitSatCurBEGiven) {
|
|
model->VBICnidealParasitSatCurBE = 0.0;
|
|
}
|
|
if(!model->VBICidealParasitSatCurBCGiven) {
|
|
model->VBICidealParasitSatCurBC = 0.0;
|
|
}
|
|
if(!model->VBICidealParasitEmissCoeffBCGiven) {
|
|
model->VBICidealParasitEmissCoeffBC = 1.0;
|
|
}
|
|
if(!model->VBICnidealParasitSatCurBCGiven) {
|
|
model->VBICnidealParasitSatCurBC = 0.0;
|
|
}
|
|
if(!model->VBICnidealParasitEmissCoeffBCGiven) {
|
|
model->VBICnidealParasitEmissCoeffBC = 2.0;
|
|
}
|
|
if(!model->VBICearlyVoltFGiven) {
|
|
model->VBICearlyVoltF = 0.0;
|
|
}
|
|
if(!model->VBICearlyVoltRGiven) {
|
|
model->VBICearlyVoltR = 0.0;
|
|
}
|
|
if(!model->VBICrollOffFGiven) {
|
|
model->VBICrollOffF = 0.0;
|
|
}
|
|
if(!model->VBICrollOffRGiven) {
|
|
model->VBICrollOffR = 0.0;
|
|
}
|
|
if(!model->VBICparRollOffGiven) {
|
|
model->VBICparRollOff = 0.0;
|
|
}
|
|
if(!model->VBICtransitTimeFGiven) {
|
|
model->VBICtransitTimeF = 0.0;
|
|
}
|
|
if(!model->VBICvarTransitTimeFGiven) {
|
|
model->VBICvarTransitTimeF = 0.0;
|
|
}
|
|
if(!model->VBICtransitTimeBiasCoeffFGiven) {
|
|
model->VBICtransitTimeBiasCoeffF = 0.0;
|
|
}
|
|
if(!model->VBICtransitTimeFVBCGiven) {
|
|
model->VBICtransitTimeFVBC = 0.0;
|
|
}
|
|
if(!model->VBICtransitTimeHighCurrentFGiven) {
|
|
model->VBICtransitTimeHighCurrentF = 0.0;
|
|
}
|
|
if(!model->VBICtransitTimeRGiven) {
|
|
model->VBICtransitTimeR = 0.0;
|
|
}
|
|
if(!model->VBICdelayTimeFGiven) {
|
|
model->VBICdelayTimeF = 0.0;
|
|
}
|
|
if(!model->VBICfNcoefGiven) {
|
|
model->VBICfNcoef = 0.0;
|
|
}
|
|
if(!model->VBICfNexpAGiven) {
|
|
model->VBICfNexpA = 1.0;
|
|
}
|
|
if(!model->VBICfNexpBGiven) {
|
|
model->VBICfNexpB = 1.0;
|
|
}
|
|
if(!model->VBICtempExpREGiven) {
|
|
model->VBICtempExpRE = 0.0;
|
|
}
|
|
if(!model->VBICtempExpRBIGiven) {
|
|
model->VBICtempExpRBI = 0.0;
|
|
}
|
|
if(!model->VBICtempExpRCIGiven) {
|
|
model->VBICtempExpRCI = 0.0;
|
|
}
|
|
if(!model->VBICtempExpRSGiven) {
|
|
model->VBICtempExpRS = 0.0;
|
|
}
|
|
if(!model->VBICtempExpVOGiven) {
|
|
model->VBICtempExpVO = 0.0;
|
|
}
|
|
if(!model->VBICactivEnergyEAGiven) {
|
|
model->VBICactivEnergyEA = 1.12;
|
|
}
|
|
if(!model->VBICactivEnergyEAIEGiven) {
|
|
model->VBICactivEnergyEAIE = 1.12;
|
|
}
|
|
if(!model->VBICactivEnergyEAICGiven) {
|
|
model->VBICactivEnergyEAIC = 1.12;
|
|
}
|
|
if(!model->VBICactivEnergyEAISGiven) {
|
|
model->VBICactivEnergyEAIS = 1.12;
|
|
}
|
|
if(!model->VBICactivEnergyEANEGiven) {
|
|
model->VBICactivEnergyEANE = 1.12;
|
|
}
|
|
if(!model->VBICactivEnergyEANCGiven) {
|
|
model->VBICactivEnergyEANC = 1.12;
|
|
}
|
|
if(!model->VBICactivEnergyEANSGiven) {
|
|
model->VBICactivEnergyEANS = 1.12;
|
|
}
|
|
if(!model->VBICtempExpISGiven) {
|
|
model->VBICtempExpIS = 3.0;
|
|
}
|
|
if(!model->VBICtempExpIIGiven) {
|
|
model->VBICtempExpII = 3.0;
|
|
}
|
|
if(!model->VBICtempExpINGiven) {
|
|
model->VBICtempExpIN = 3.0;
|
|
}
|
|
if(!model->VBICtempExpNFGiven) {
|
|
model->VBICtempExpNF = 0.0;
|
|
}
|
|
if(!model->VBICtempExpAVCGiven) {
|
|
model->VBICtempExpAVC = 0.0;
|
|
}
|
|
if(!model->VBICthermalResistGiven) {
|
|
model->VBICthermalResist = 0.0;
|
|
}
|
|
if(!model->VBICthermalCapacitanceGiven) {
|
|
model->VBICthermalCapacitance = 0.0;
|
|
}
|
|
if(!model->VBICpunchThroughVoltageBCGiven) {
|
|
model->VBICpunchThroughVoltageBC = 0.0;
|
|
}
|
|
if(!model->VBICdeplCapCoeff1Given) {
|
|
model->VBICdeplCapCoeff1 = 0.1;
|
|
}
|
|
if(!model->VBICfixedCapacitanceCSGiven) {
|
|
model->VBICfixedCapacitanceCS = 0.0;
|
|
}
|
|
if(!model->VBICsgpQBselectorGiven) {
|
|
model->VBICsgpQBselector = 0.0;
|
|
}
|
|
if(!model->VBIChighCurrentBetaRolloffGiven) {
|
|
model->VBIChighCurrentBetaRolloff = 0.5;
|
|
}
|
|
if(!model->VBICtempExpIKFGiven) {
|
|
model->VBICtempExpIKF = 0.0;
|
|
}
|
|
if(!model->VBICtempExpRCXGiven) {
|
|
model->VBICtempExpRCX = 0.0;
|
|
}
|
|
if(!model->VBICtempExpRBXGiven) {
|
|
model->VBICtempExpRBX = 0.0;
|
|
}
|
|
if(!model->VBICtempExpRBPGiven) {
|
|
model->VBICtempExpRBP = 0.0;
|
|
}
|
|
if(!model->VBICsepISRRGiven) {
|
|
model->VBICsepISRR = 1.0;
|
|
}
|
|
if(!model->VBICtempExpXISRGiven) {
|
|
model->VBICtempExpXISR = 0.0;
|
|
}
|
|
if(!model->VBICdearGiven) {
|
|
model->VBICdear = 0.0;
|
|
}
|
|
if(!model->VBICeapGiven) {
|
|
model->VBICeap = 1.12;
|
|
}
|
|
if(!model->VBICvbbeGiven) {
|
|
model->VBICvbbe = 0.0;
|
|
}
|
|
if(!model->VBICnbbeGiven) {
|
|
model->VBICnbbe = 1.0;
|
|
}
|
|
if(!model->VBICibbeGiven) {
|
|
model->VBICibbe = 1e-06;
|
|
}
|
|
if(!model->VBICtvbbe1Given) {
|
|
model->VBICtvbbe1 = 0.0;
|
|
}
|
|
if(!model->VBICtvbbe2Given) {
|
|
model->VBICtvbbe2 = 0.0;
|
|
}
|
|
if(!model->VBICtnbbeGiven) {
|
|
model->VBICtnbbe = 0.0;
|
|
}
|
|
if(!model->VBICebbeGiven) {
|
|
model->VBICebbe = 0.0;
|
|
}
|
|
if(!model->VBIClocTempDiffGiven) {
|
|
model->VBIClocTempDiff = 0.0;
|
|
}
|
|
if(!model->VBICrevVersionGiven) {
|
|
model->VBICrevVersion = 1.2;
|
|
}
|
|
if(!model->VBICrefVersionGiven) {
|
|
model->VBICrefVersion = 0.0;
|
|
}
|
|
|
|
if(!model->VBICvbeMaxGiven) {
|
|
model->VBICvbeMax = 1e99;
|
|
}
|
|
if(!model->VBICvbcMaxGiven) {
|
|
model->VBICvbcMax = 1e99;
|
|
}
|
|
if(!model->VBICvceMaxGiven) {
|
|
model->VBICvceMax = 1e99;
|
|
}
|
|
if(!model->VBICvsubMaxGiven) {
|
|
model->VBICvsubMax = 1e99;
|
|
}
|
|
if (!model->VBICvbefwdMaxGiven) {
|
|
model->VBICvbefwdMax = 0.2;
|
|
}
|
|
if (!model->VBICvbcfwdMaxGiven) {
|
|
model->VBICvbcfwdMax = 0.2;
|
|
}
|
|
if (!model->VBICvsubfwdMaxGiven) {
|
|
model->VBICvsubfwdMax = 0.2;
|
|
}
|
|
if(!model->VBICselftGiven) {
|
|
model->VBICselft = 0;
|
|
}
|
|
|
|
/* loop through all the instances of the model */
|
|
for (here = VBICinstances(model); here != NULL ;
|
|
here=VBICnextInstance(here)) {
|
|
CKTnode *tmpNode;
|
|
IFuid tmpName;
|
|
|
|
if(!here->VBICareaGiven) {
|
|
here->VBICarea = 1.0;
|
|
}
|
|
if(!here->VBICmGiven) {
|
|
here->VBICm = 1.0;
|
|
}
|
|
if(!here->VBICdtempGiven) {
|
|
here->VBICdtemp = 0.0;
|
|
}
|
|
|
|
here->VBICstate = *states;
|
|
*states += VBICnumStates;
|
|
|
|
if(model->VBICextCollResist == 0) {
|
|
here->VBICcollCXNode = here->VBICcollNode;
|
|
} else if(here->VBICcollCXNode == 0) {
|
|
error = CKTmkVolt(ckt,&tmp,here->VBICname,"collector");
|
|
if(error) return(error);
|
|
here->VBICcollCXNode = tmp->number;
|
|
if (ckt->CKTcopyNodesets) {
|
|
if (CKTinst2Node(ckt,here,1,&tmpNode,&tmpName)==OK) {
|
|
if (tmpNode->nsGiven) {
|
|
tmp->nodeset=tmpNode->nodeset;
|
|
tmp->nsGiven=tmpNode->nsGiven;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if(model->VBICextBaseResist == 0) {
|
|
here->VBICbaseBXNode = here->VBICbaseNode;
|
|
} else if(here->VBICbaseBXNode == 0){
|
|
error = CKTmkVolt(ckt,&tmp,here->VBICname, "base");
|
|
if(error) return(error);
|
|
here->VBICbaseBXNode = tmp->number;
|
|
if (ckt->CKTcopyNodesets) {
|
|
if (CKTinst2Node(ckt,here,2,&tmpNode,&tmpName)==OK) {
|
|
if (tmpNode->nsGiven) {
|
|
tmp->nodeset=tmpNode->nodeset;
|
|
tmp->nsGiven=tmpNode->nsGiven;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if(model->VBICemitterResist == 0) {
|
|
here->VBICemitEINode = here->VBICemitNode;
|
|
} else if(here->VBICemitEINode == 0) {
|
|
error = CKTmkVolt(ckt,&tmp,here->VBICname, "emitter");
|
|
if(error) return(error);
|
|
here->VBICemitEINode = tmp->number;
|
|
if (ckt->CKTcopyNodesets) {
|
|
if (CKTinst2Node(ckt,here,3,&tmpNode,&tmpName)==OK) {
|
|
if (tmpNode->nsGiven) {
|
|
tmp->nodeset=tmpNode->nodeset;
|
|
tmp->nsGiven=tmpNode->nsGiven;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if(model->VBICsubstrateResist == 0) {
|
|
here->VBICsubsSINode = here->VBICsubsNode;
|
|
} else if(here->VBICsubsSINode == 0) {
|
|
error = CKTmkVolt(ckt,&tmp,here->VBICname, "substrate");
|
|
if(error) return(error);
|
|
here->VBICsubsSINode = tmp->number;
|
|
if (ckt->CKTcopyNodesets) {
|
|
if (CKTinst2Node(ckt,here,4,&tmpNode,&tmpName)==OK) {
|
|
if (tmpNode->nsGiven) {
|
|
tmp->nodeset=tmpNode->nodeset;
|
|
tmp->nsGiven=tmpNode->nsGiven;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if(model->VBICselftGiven)
|
|
if((model->VBICselft == 1) && (model->VBICthermalResistGiven) && (model->VBICthermalResist > 0.0))
|
|
here->VBIC_selfheat = 1;
|
|
else
|
|
here->VBIC_selfheat = 0;
|
|
else
|
|
if((model->VBICthermalResistGiven) && (model->VBICthermalResist > 0.0))
|
|
here->VBIC_selfheat = 1;
|
|
else
|
|
here->VBIC_selfheat = 0;
|
|
|
|
if((model->VBICthermalResistGiven) && (model->VBICthermalCapacitance < 1e-12))
|
|
model->VBICthermalCapacitance = 1e-12;
|
|
|
|
if((model->VBICdelayTimeFGiven) && (model->VBICdelayTimeF > 0.0)) {
|
|
here->VBIC_excessPhase = 1;
|
|
} else {
|
|
here->VBIC_excessPhase = 0;
|
|
}
|
|
|
|
if(here->VBICcollCINode == 0) {
|
|
error = CKTmkVolt(ckt, &tmp, here->VBICname, "collCI");
|
|
if(error) return(error);
|
|
here->VBICcollCINode = tmp->number;
|
|
}
|
|
|
|
if(here->VBICbaseBPNode == 0) {
|
|
error = CKTmkVolt(ckt, &tmp, here->VBICname, "baseBP");
|
|
if(error) return(error);
|
|
here->VBICbaseBPNode = tmp->number;
|
|
}
|
|
|
|
if(here->VBICbaseBINode == 0) {
|
|
error = CKTmkVolt(ckt, &tmp, here->VBICname, "baseBI");
|
|
if(error) return(error);
|
|
here->VBICbaseBINode = tmp->number;
|
|
}
|
|
|
|
if (here->VBIC_excessPhase) {
|
|
if(here->VBICxf1Node == 0) {
|
|
error = CKTmkVolt(ckt, &tmp, here->VBICname, "xf1");
|
|
if(error) return(error);
|
|
here->VBICxf1Node = tmp->number;
|
|
}
|
|
if(here->VBICxf2Node == 0) {
|
|
error = CKTmkVolt(ckt, &tmp, here->VBICname, "xf2");
|
|
if(error) return(error);
|
|
here->VBICxf2Node = tmp->number;
|
|
}
|
|
} else {
|
|
here->VBICxf1Node = 0;
|
|
here->VBICxf2Node = 0;
|
|
}
|
|
|
|
/* macro to make elements with built in test for out of memory */
|
|
#define TSTALLOC(ptr,first,second) \
|
|
do { if((here->ptr = SMPmakeElt(matrix, here->first, here->second)) == NULL){\
|
|
return(E_NOMEM);\
|
|
} } while(0)
|
|
TSTALLOC(VBICcollCollPtr,VBICcollNode,VBICcollNode);
|
|
TSTALLOC(VBICbaseBasePtr,VBICbaseNode,VBICbaseNode);
|
|
TSTALLOC(VBICemitEmitPtr,VBICemitNode,VBICemitNode);
|
|
TSTALLOC(VBICsubsSubsPtr,VBICsubsNode,VBICsubsNode);
|
|
TSTALLOC(VBICcollCXCollCXPtr,VBICcollCXNode,VBICcollCXNode);
|
|
TSTALLOC(VBICcollCICollCIPtr,VBICcollCINode,VBICcollCINode);
|
|
TSTALLOC(VBICbaseBXBaseBXPtr,VBICbaseBXNode,VBICbaseBXNode);
|
|
TSTALLOC(VBICbaseBIBaseBIPtr,VBICbaseBINode,VBICbaseBINode);
|
|
TSTALLOC(VBICemitEIEmitEIPtr,VBICemitEINode,VBICemitEINode);
|
|
TSTALLOC(VBICbaseBPBaseBPPtr,VBICbaseBPNode,VBICbaseBPNode);
|
|
TSTALLOC(VBICsubsSISubsSIPtr,VBICsubsSINode,VBICsubsSINode);
|
|
|
|
TSTALLOC(VBICbaseEmitPtr,VBICbaseNode,VBICemitNode);
|
|
TSTALLOC(VBICemitBasePtr,VBICemitNode,VBICbaseNode);
|
|
TSTALLOC(VBICbaseCollPtr,VBICbaseNode,VBICcollNode);
|
|
TSTALLOC(VBICcollBasePtr,VBICcollNode,VBICbaseNode);
|
|
TSTALLOC(VBICcollCollCXPtr,VBICcollNode,VBICcollCXNode);
|
|
TSTALLOC(VBICbaseBaseBXPtr,VBICbaseNode,VBICbaseBXNode);
|
|
TSTALLOC(VBICemitEmitEIPtr,VBICemitNode,VBICemitEINode);
|
|
TSTALLOC(VBICsubsSubsSIPtr,VBICsubsNode,VBICsubsSINode);
|
|
TSTALLOC(VBICcollCXCollCIPtr,VBICcollCXNode,VBICcollCINode);
|
|
TSTALLOC(VBICcollCXBaseBXPtr,VBICcollCXNode,VBICbaseBXNode);
|
|
TSTALLOC(VBICcollCXBaseBIPtr,VBICcollCXNode,VBICbaseBINode);
|
|
TSTALLOC(VBICcollCXBaseBPPtr,VBICcollCXNode,VBICbaseBPNode);
|
|
TSTALLOC(VBICcollCIBaseBIPtr,VBICcollCINode,VBICbaseBINode);
|
|
TSTALLOC(VBICcollCIEmitEIPtr,VBICcollCINode,VBICemitEINode);
|
|
TSTALLOC(VBICbaseBXBaseBIPtr,VBICbaseBXNode,VBICbaseBINode);
|
|
TSTALLOC(VBICbaseBXEmitEIPtr,VBICbaseBXNode,VBICemitEINode);
|
|
TSTALLOC(VBICbaseBXBaseBPPtr,VBICbaseBXNode,VBICbaseBPNode);
|
|
TSTALLOC(VBICbaseBXSubsSIPtr,VBICbaseBXNode,VBICsubsSINode);
|
|
TSTALLOC(VBICbaseBIEmitEIPtr,VBICbaseBINode,VBICemitEINode);
|
|
TSTALLOC(VBICbaseBPSubsSIPtr,VBICbaseBPNode,VBICsubsSINode);
|
|
|
|
TSTALLOC(VBICcollCXCollPtr,VBICcollCXNode,VBICcollNode);
|
|
TSTALLOC(VBICbaseBXBasePtr,VBICbaseBXNode,VBICbaseNode);
|
|
TSTALLOC(VBICemitEIEmitPtr,VBICemitEINode,VBICemitNode);
|
|
TSTALLOC(VBICsubsSISubsPtr,VBICsubsSINode,VBICsubsNode);
|
|
TSTALLOC(VBICcollCICollCXPtr,VBICcollCINode,VBICcollCXNode);
|
|
TSTALLOC(VBICbaseBICollCXPtr,VBICbaseBINode,VBICcollCXNode);
|
|
TSTALLOC(VBICbaseBPCollCXPtr,VBICbaseBPNode,VBICcollCXNode);
|
|
TSTALLOC(VBICbaseBXCollCIPtr,VBICbaseBXNode,VBICcollCINode);
|
|
TSTALLOC(VBICbaseBICollCIPtr,VBICbaseBINode,VBICcollCINode);
|
|
TSTALLOC(VBICemitEICollCIPtr,VBICemitEINode,VBICcollCINode);
|
|
TSTALLOC(VBICbaseBPCollCIPtr,VBICbaseBPNode,VBICcollCINode);
|
|
TSTALLOC(VBICbaseBIBaseBXPtr,VBICbaseBINode,VBICbaseBXNode);
|
|
TSTALLOC(VBICemitEIBaseBXPtr,VBICemitEINode,VBICbaseBXNode);
|
|
TSTALLOC(VBICbaseBPBaseBXPtr,VBICbaseBPNode,VBICbaseBXNode);
|
|
TSTALLOC(VBICsubsSIBaseBXPtr,VBICsubsSINode,VBICbaseBXNode);
|
|
TSTALLOC(VBICemitEIBaseBIPtr,VBICemitEINode,VBICbaseBINode);
|
|
TSTALLOC(VBICbaseBPBaseBIPtr,VBICbaseBPNode,VBICbaseBINode);
|
|
TSTALLOC(VBICsubsSICollCIPtr,VBICsubsSINode,VBICcollCINode);
|
|
TSTALLOC(VBICsubsSIBaseBIPtr,VBICsubsSINode,VBICbaseBINode);
|
|
TSTALLOC(VBICsubsSIBaseBPPtr,VBICsubsSINode,VBICbaseBPNode);
|
|
|
|
if (here->VBIC_selfheat) {
|
|
TSTALLOC(VBICcollTempPtr,VBICcollNode,VBICtempNode);
|
|
TSTALLOC(VBICbaseTempPtr,VBICbaseNode,VBICtempNode);
|
|
TSTALLOC(VBICemitTempPtr,VBICemitNode,VBICtempNode);
|
|
TSTALLOC(VBICsubsTempPtr,VBICsubsNode,VBICtempNode);
|
|
TSTALLOC(VBICcollCItempPtr,VBICcollCINode,VBICtempNode);
|
|
TSTALLOC(VBICcollCXtempPtr,VBICcollCXNode,VBICtempNode);
|
|
TSTALLOC(VBICbaseBItempPtr,VBICbaseBINode,VBICtempNode);
|
|
TSTALLOC(VBICbaseBXtempPtr,VBICbaseBXNode,VBICtempNode);
|
|
TSTALLOC(VBICbaseBPtempPtr,VBICbaseBPNode,VBICtempNode);
|
|
TSTALLOC(VBICemitEItempPtr,VBICemitEINode,VBICtempNode);
|
|
TSTALLOC(VBICsubsSItempPtr,VBICsubsSINode,VBICtempNode);
|
|
TSTALLOC(VBICtempCollPtr,VBICtempNode,VBICcollNode);
|
|
TSTALLOC(VBICtempCollCIPtr,VBICtempNode,VBICcollCINode);
|
|
TSTALLOC(VBICtempCollCXPtr,VBICtempNode,VBICcollCXNode);
|
|
TSTALLOC(VBICtempBaseBIPtr,VBICtempNode,VBICbaseBINode);
|
|
TSTALLOC(VBICtempBasePtr,VBICtempNode,VBICbaseNode);
|
|
TSTALLOC(VBICtempBaseBXPtr,VBICtempNode,VBICbaseBXNode);
|
|
TSTALLOC(VBICtempBaseBPPtr,VBICtempNode,VBICbaseBPNode);
|
|
TSTALLOC(VBICtempEmitPtr,VBICtempNode,VBICemitNode);
|
|
TSTALLOC(VBICtempEmitEIPtr,VBICtempNode,VBICemitEINode);
|
|
TSTALLOC(VBICtempSubsPtr,VBICtempNode,VBICsubsNode);
|
|
TSTALLOC(VBICtempSubsSIPtr,VBICtempNode,VBICsubsSINode);
|
|
TSTALLOC(VBICtempTempPtr,VBICtempNode,VBICtempNode);
|
|
if (here->VBIC_excessPhase) {
|
|
TSTALLOC(VBICxf1TempPtr ,VBICxf1Node ,VBICtempNode);
|
|
}
|
|
}
|
|
|
|
if (here->VBIC_excessPhase) {
|
|
TSTALLOC(VBICxf1Xf1Ptr ,VBICxf1Node ,VBICxf1Node);
|
|
TSTALLOC(VBICxf1BaseBIPtr,VBICxf1Node ,VBICbaseBINode);
|
|
TSTALLOC(VBICxf1EmitEIPtr,VBICxf1Node ,VBICemitEINode);
|
|
TSTALLOC(VBICxf1CollCIPtr,VBICxf1Node ,VBICcollCINode);
|
|
TSTALLOC(VBICxf1Xf2Ptr ,VBICxf1Node ,VBICxf2Node);
|
|
|
|
TSTALLOC(VBICxf2Xf1Ptr ,VBICxf2Node ,VBICxf1Node);
|
|
TSTALLOC(VBICxf2Xf2Ptr ,VBICxf2Node ,VBICxf2Node);
|
|
TSTALLOC(VBICemitEIXf2Ptr,VBICemitEINode,VBICxf2Node);
|
|
TSTALLOC(VBICcollCIXf2Ptr,VBICcollCINode,VBICxf2Node);
|
|
}
|
|
|
|
}
|
|
}
|
|
return(OK);
|
|
}
|
|
|
|
int
|
|
VBICunsetup(
|
|
GENmodel *inModel,
|
|
CKTcircuit *ckt)
|
|
{
|
|
VBICmodel *model;
|
|
VBICinstance *here;
|
|
|
|
for (model = (VBICmodel *)inModel; model != NULL;
|
|
model = VBICnextModel(model))
|
|
{
|
|
for (here = VBICinstances(model); here != NULL;
|
|
here=VBICnextInstance(here))
|
|
{
|
|
if (here->VBICbaseBINode > 0)
|
|
CKTdltNNum(ckt, here->VBICbaseBINode);
|
|
here->VBICbaseBINode = 0;
|
|
|
|
if (here->VBICbaseBPNode > 0)
|
|
CKTdltNNum(ckt, here->VBICbaseBPNode);
|
|
here->VBICbaseBPNode = 0;
|
|
|
|
if (here->VBICcollCINode > 0)
|
|
CKTdltNNum(ckt, here->VBICcollCINode);
|
|
here->VBICcollCINode = 0;
|
|
|
|
if (here->VBICsubsSINode > 0
|
|
&& here->VBICsubsSINode != here->VBICsubsNode)
|
|
CKTdltNNum(ckt, here->VBICsubsSINode);
|
|
here->VBICsubsSINode = 0;
|
|
|
|
if (here->VBICemitEINode > 0
|
|
&& here->VBICemitEINode != here->VBICemitNode)
|
|
CKTdltNNum(ckt, here->VBICemitEINode);
|
|
here->VBICemitEINode = 0;
|
|
|
|
if (here->VBICbaseBXNode > 0
|
|
&& here->VBICbaseBXNode != here->VBICbaseNode)
|
|
CKTdltNNum(ckt, here->VBICbaseBXNode);
|
|
here->VBICbaseBXNode = 0;
|
|
|
|
if (here->VBICcollCXNode > 0
|
|
&& here->VBICcollCXNode != here->VBICcollNode)
|
|
CKTdltNNum(ckt, here->VBICcollCXNode);
|
|
here->VBICcollCXNode = 0;
|
|
|
|
if (here->VBIC_excessPhase) {
|
|
if(here->VBICxf1Node > 0)
|
|
CKTdltNNum(ckt, here->VBICxf1Node);
|
|
here->VBICxf1Node = 0;
|
|
|
|
if(here->VBICxf2Node > 0)
|
|
CKTdltNNum(ckt, here->VBICxf2Node);
|
|
here->VBICxf2Node = 0;
|
|
}
|
|
|
|
}
|
|
}
|
|
return OK;
|
|
}
|