* src/devices/bsim3v1/b3v1ld.c src/devices/bsim3v1/b3v1noi.c

26 years ago · ceef3b5e8a
11 changed files with 68 additions and 80 deletions
--- a/src/spicelib/devices/bsim3v1/b3v1ld.c
+++ b/src/spicelib/devices/bsim3v1/b3v1ld.c
@ -42,54 +42,48 @@ double czbd, czbdsw, czbdswg, czbs, czbssw, czbsswg, evbd, evbs, arg, sarg;
 double delvbd, delvbs, delvds, delvgd, delvgs;
 double Vfbeff, dVfbeff_dVg, dVfbeff_dVd, dVfbeff_dVb, V3, V4;
 double gcbdb, gcbgb, gcbsb, gcddb, gcdgb, gcdsb, gcgdb, gcggb, gcgsb, gcsdb;
-double gcsgb, gcssb, tol, PhiB, PhiBSW, MJ, MJSW, PhiBSWG, MJSWG;
+double gcsgb, gcssb, PhiB, PhiBSW, MJ, MJSW, PhiBSWG, MJSWG;
 double vbd, vbs, vds, vgb, vgd, vgs, vgdo, xfact;
 double qgate=0.0, qbulk=0.0, qdrn=0.0, qsrc=0.0, cqgate=0.0, cqbulk=0.0, cqdrn=0.0;
 double Vds, Vgs, Vbs, Gmbs, FwdSum, RevSum;
-double Vgs_eff, Vfb, dVfb_dVb, dVfb_dVd, dVbs_dVb;
+double Vgs_eff, Vfb, dVfb_dVb, dVfb_dVd;
 double Phis, dPhis_dVb, sqrtPhis, dsqrtPhis_dVb, Vth, dVth_dVb, dVth_dVd;
 double Vgst, dVgst_dVg, dVgst_dVb, dVgs_eff_dVg, Nvtm;
-double Vgdt, Vgsaddvth, Vgsaddvth2, Vgsaddvth1o3, n, dn_dVb, Vtm;
-double ExpArg, ExpArg1, V0;
+double n, dn_dVb, Vtm;
+double ExpArg, V0;
 double Denomi, dDenomi_dVg, dDenomi_dVd, dDenomi_dVb;
 double ueff, dueff_dVg, dueff_dVd, dueff_dVb; 
-double Esat, dEsat_dVg, dEsat_dVd, dEsat_dVb, Vdsat, Vdsat0;
+double Esat, Vdsat;
 double EsatL, dEsatL_dVg, dEsatL_dVd, dEsatL_dVb;
-double Ilimit, Iexp, dIexp_dVg, dIexp_dVd, dIexp_dVb;
 double dVdsat_dVg, dVdsat_dVb, dVdsat_dVd, Vasat, dAlphaz_dVg, dAlphaz_dVb; 
-double dVasat_dVg, dVasat_dVb, dVasat_dVd, Va, Va2, dVa_dVd, dVa_dVg, dVa_dVb; 
+double dVasat_dVg, dVasat_dVb, dVasat_dVd, Va, dVa_dVd, dVa_dVg, dVa_dVb; 
 double Vbseff, dVbseff_dVb, VbseffCV, dVbseffCV_dVb; 
-double Arg1, Arg2, One_Third_CoxWL, Two_Third_CoxWL, Alphaz, CoxWL; 
-double dqbulk_dVb, dVgdt_dVg, dVgdt_dVd, dVgdt_dVb; 
+double Arg1, One_Third_CoxWL, Two_Third_CoxWL, Alphaz, CoxWL; 
 double T0, dT0_dVg, dT0_dVd, dT0_dVb;
 double T1, dT1_dVg, dT1_dVd, dT1_dVb;
 double T2, dT2_dVg, dT2_dVd, dT2_dVb;
 double T3, dT3_dVg, dT3_dVd, dT3_dVb;
-double T4, dT4_dVg, dT4_dVd, dT4_dVb;
-double T5, dT5_dVg, dT5_dVd, dT5_dVb;
-double T6, dT6_dVg, dT6_dVd, dT6_dVb;
+double T4;
+double T5;
+double T6;
 double T7, dT7_dVg, dT7_dVd, dT7_dVb;
-double T8, dT8_dVg, dT8_dVd, dT8_dVb;
-double T9, dT9_dVg, dT9_dVd, dT9_dVb;
-double T10, dT10_dVg, dT10_dVb, dT10_dVd; 
+double T8;
+double T9;
+double T10;
 double T11, T12;
 double tmp, Abulk, dAbulk_dVb, Abulk0, dAbulk0_dVb;
-double T100, T101;  
 double VACLM, dVACLM_dVg, dVACLM_dVd, dVACLM_dVb;
 double VADIBL, dVADIBL_dVg, dVADIBL_dVd, dVADIBL_dVb;
-double VAHCE,  dVAHCE_dVg, dVAHCE_dVd, dVAHCE_dVb;
 double Xdep, dXdep_dVb, lt1, dlt1_dVb, ltw, dltw_dVb, Delt_vth, dDelt_vth_dVb;
-double Theta0, dTheta0_dVb, Theta1, dTheta1_dVb;
-double Thetarout, dThetarout_dVb, TempRatio, tmp1, tmp2, tmp3, tmp4;
-double DIBL_Sft, dDIBL_Sft_dVd, DIBL_fact, Lambda, dLambda_dVg;
-double Rout_Vgs_factor, dRout_Vgs_factor_dVg, dRout_Vgs_factor_dVb;
-double dRout_Vgs_factor_dVd;
+double Theta0, dTheta0_dVb;
+double TempRatio, tmp1, tmp2, tmp3, tmp4;
+double DIBL_Sft, dDIBL_Sft_dVd, Lambda, dLambda_dVg;
 double tempv, a1;

 double Vgsteff, dVgsteff_dVg, dVgsteff_dVd, dVgsteff_dVb; 
 double Vdseff, dVdseff_dVg, dVdseff_dVd, dVdseff_dVb; 
 double VdseffCV, dVdseffCV_dVg, dVdseffCV_dVd, dVdseffCV_dVb; 
-double diffVds, diffVdsCV;  
+double diffVds;  
 double dAbulk_dVg, dn_dVd ;
 double beta, dbeta_dVg, dbeta_dVd, dbeta_dVb;
 double gche, dgche_dVg, dgche_dVd, dgche_dVb;
@ -98,29 +92,28 @@ double fgche2, dfgche2_dVg, dfgche2_dVd, dfgche2_dVb;
 double Idl, dIdl_dVg, dIdl_dVd, dIdl_dVb;
 double Idsa, dIdsa_dVg, dIdsa_dVd, dIdsa_dVb;
 double Ids, Gm, Gds, Gmb;
-double Isub, Isubd, Isubs, Gbd, Gbg, Gbb;
+double Isub, Gbd, Gbg, Gbb;
 double VASCBE, dVASCBE_dVg, dVASCBE_dVd, dVASCBE_dVb;
 double CoxWovL;
 double Rds, dRds_dVg, dRds_dVb, WVCox, WVCoxRds;
-double Vgst2Vtm, VdsatCV, dVdsatCV_dVd, dVdsatCV_dVg, dVdsatCV_dVb;
+double Vgst2Vtm, VdsatCV, dVdsatCV_dVg, dVdsatCV_dVb;
 double Leff, Weff, dWeff_dVg, dWeff_dVb;
 double AbulkCV, dAbulkCV_dVb;
 double qgdo, qgso, cgdo, cgso;

-double qcheq, qdef, gqdef, cqdef, cqcheq, gtau_diff, gtau_drift, csreq;
-double gcqdb,gcqsb,gcqgb,gcqbb,vss;
+double qcheq, qdef, gqdef, cqdef, cqcheq, gtau_diff, gtau_drift;
+double gcqdb,gcqsb,gcqgb,gcqbb;
 double dxpart, sxpart;

 double gbspsp, gbbdp, gbbsp, gbspg, gbspb, gbspdp; 
 double gbdpdp, gbdpg, gbdpb, gbdpsp; 
-double Cgg, Cgd, Cgs, Cgb, Cdg, Cdd, Cds, Cdb, Qg, Qd;
-double Csg, Csd, Css, Csb, Cbg, Cbd, Cbs, Cbb, Qs, Qb;
-double Cgg1, Cgb1, Cgd1, Cbg1, Cbb1, Cbd1, Csg1, Csd1, Csb1, Qac0, Qsub0;
+double Cgg, Cgd, Cgb;
+double Csg, Csd, Csb, Cbg, Cbd, Cbb;
+double Cgg1, Cgb1, Cgd1, Cbg1, Cbb1, Cbd1, Qac0, Qsub0;
 double dQac0_dVg, dQac0_dVd, dQac0_dVb, dQsub0_dVg, dQsub0_dVd, dQsub0_dVb;
   
 struct bsim3v1SizeDependParam *pParam;
-int ByPass, Check, ChargeComputationNeeded, J, error, I;
-double junk[50];
+int ByPass, Check, ChargeComputationNeeded, error;

 for (; model != NULL; model = model->BSIM3V1nextModel)
 {  for (here = model->BSIM3V1instances; here != NULL; 
--- a/src/spicelib/devices/bsim3v1/b3v1noi.c
+++ b/src/spicelib/devices/bsim3v1/b3v1noi.c
@ -51,7 +51,8 @@ BSIM3V1instance *here;
 {
 struct bsim3v1SizeDependParam *pParam;
 double cd, esat, DelClm, EffFreq, N0, Nl, Vgst;
-double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, Ssi;
+double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9;
+double Ssi;

    pParam = here->pParam;
    cd = fabs(here->BSIM3V1cd);
@ -109,11 +110,10 @@ double noizDens[BSIM3V1NSRCS];
 double lnNdens[BSIM3V1NSRCS];

 double vgs, vds, Slimit;
-double N0, Nl;
-double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13;
-double n, ExpArg, Ssi, Swi;
+double T1, T10, T11;
+double Ssi, Swi;

-int error, i;
+int i;

    /* define the names of the noise sources */
    static char *BSIM3V1nNames[BSIM3V1NSRCS] =
--- a/src/spicelib/devices/bsim3v1/b3v1temp.c
+++ b/src/spicelib/devices/bsim3v1/b3v1temp.c
@ -35,8 +35,8 @@ CKTcircuit *ckt;
 register BSIM3V1model *model = (BSIM3V1model*) inModel;
 register BSIM3V1instance *here;
 struct bsim3v1SizeDependParam *pSizeDependParamKnot, *pLastKnot, *pParam;
-double tmp, tmp1, tmp2, Eg, Eg0, ni, T0, T1, T2, T3, T4, T5, Ldrn, Wdrn;
-double Temp, TRatio, Inv_L, Inv_W, Inv_LW, Dw, Dl, Vtm0, Tnom;
+double tmp1, tmp2, Eg, Eg0, ni, T0, T1, T2, T3, Ldrn, Wdrn;
+double Temp, TRatio, Inv_L, Inv_W, Inv_LW, Vtm0, Tnom;
 int Size_Not_Found;

    /*  loop through all the BSIM3V1 device models */
--- a/src/spicelib/devices/bsim3v2/b3v2acld.c
+++ b/src/spicelib/devices/bsim3v2/b3v2acld.c
@ -29,7 +29,7 @@ double gbspsp, gbbdp, gbbsp, gbspg, gbspb;
 double gbspdp, gbdpdp, gbdpg, gbdpb, gbdpsp;
 double ddxpart_dVd, ddxpart_dVg, ddxpart_dVb, ddxpart_dVs;
 double dsxpart_dVd, dsxpart_dVg, dsxpart_dVb, dsxpart_dVs;
-double T1, CoxWL, qcheq, Cdg, Cdd, Cds, Cdb, Csg, Csd, Css, Csb;
+double T1, CoxWL, qcheq, Cdg, Cdd, Cds, Csg, Csd, Css;

    omega = ckt->CKTomega;
    for (; model != NULL; model = model->BSIM3V2nextModel) 
--- a/src/spicelib/devices/bsim3v2/b3v2ld.c
+++ b/src/spicelib/devices/bsim3v2/b3v2ld.c
@ -125,8 +125,7 @@ double Cgg1, Cgb1, Cgd1, Cbg1, Cbb1, Cbd1, Csg1, Csd1, Csb1, Qac0, Qsub0;
 double dQac0_dVg, dQac0_dVd, dQac0_dVb, dQsub0_dVg, dQsub0_dVd, dQsub0_dVb;
   
 struct BSIM3V2SizeDependParam *pParam;
-int ByPass, Check, ChargeComputationNeeded, J, error, I;
-double junk[50];
+int ByPass, Check, ChargeComputationNeeded, error;

 ScalingFactor = 1.0e-9;
 ChargeComputationNeeded =  
--- a/src/spicelib/devices/bsim4/b4acld.c
+++ b/src/spicelib/devices/bsim4/b4acld.c
@ -40,13 +40,13 @@ double gIgtotg, gIgtotd, gIgtots, gIgtotb;
 double cgso, cgdo, cgbo;
 double gbspsp, gbbdp, gbbsp, gbspg, gbspb;
 double gbspdp, gbdpdp, gbdpg, gbdpb, gbdpsp;
-double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11;
-double Csg, Csd, Css, Csb;
+double T0, T1, T2, T3;
+double Csg, Csd, Css;
 double Cdgr, Cddr, Cdsr, Cdbr, Csgr, Csdr, Cssr, Csbr;
 double Cdgi, Cddi, Cdsi, Cdbi, Csgi, Csdi, Cssi, Csbi;
 double gmr, gmi, gmbsr, gmbsi, gdsr, gdsi;
-double FwdSumr, RevSumr, Gmr, Gmbsr, Gdsr;
-double FwdSumi, RevSumi, Gmi, Gmbsi, Gdsi;
+double FwdSumr, RevSumr, Gmr, Gmbsr;
+double FwdSumi, RevSumi, Gmi, Gmbsi;
 struct bsim4SizeDependParam *pParam;

    omega = ckt->CKTomega;
--- a/src/spicelib/devices/bsim4/b4ld.c
+++ b/src/spicelib/devices/bsim4/b4ld.c
@ -46,7 +46,6 @@ double dRs_dvg, dRd_dvg, dRs_dvb, dRd_dvb;
 double dT0_dvg, dT1_dvb, dT3_dvg, dT3_dvb;
 double vses, vdes, vdedo, delvses, delvded, delvdes;
 double Isestot, cseshat, Idedtot, cdedhat;
-double tol0, tol1, tol2, tol3, tol4, tol5, tol6;

 double geltd, gcrg, gcrgg, gcrgd, gcrgs, gcrgb, ceqgcrg;
 double vges, vgms, vgedo, vgmdo, vged, vgmd, delvged, delvgmd;
@ -60,7 +59,7 @@ double delvdbs, delvdbd, delvsbs;
 double delvbd_jct, delvbs_jct, vbs_jct, vbd_jct;

 double SourceSatCurrent, DrainSatCurrent;
-double ag0, qgd, qgs, qgb, von, cbhat, VgstNVt, ExpVgst;
+double ag0, qgb, von, cbhat, VgstNVt, ExpVgst;
 double ceqqb, ceqqd, ceqqg, ceqqjd, ceqqjs, ceq, geq;
 double cdrain, cdhat, ceqdrn, ceqbd, ceqbs, ceqjd, ceqjs, gjbd, gjbs;
 double czbd, czbdsw, czbdswg, czbs, czbssw, czbsswg, evbd, evbs, arg, sarg;
@ -80,41 +79,39 @@ double Igc, dIgc_dVg, dIgc_dVd, dIgc_dVb;
 double Igcs, dIgcs_dVg, dIgcs_dVd, dIgcs_dVb;
 double Igcd, dIgcd_dVg, dIgcd_dVd, dIgcd_dVb;
 double Igs, dIgs_dVg, dIgs_dVs, Igd, dIgd_dVg, dIgd_dVd;
-double Igbacc, dIgbacc_dVg, dIgbacc_dVd, dIgbacc_dVb;
+double Igbacc, dIgbacc_dVg, dIgbacc_dVb;
 double Igbinv, dIgbinv_dVg, dIgbinv_dVd, dIgbinv_dVb;
-double Igb, dIgb_dVg, dIgb_dVd, dIgb_dVb;
 double Istoteq, gIstotg, gIstotd, gIstots, gIstotb;
 double Idtoteq, gIdtotg, gIdtotd, gIdtots, gIdtotb;
 double Ibtoteq, gIbtotg, gIbtotd, gIbtots, gIbtotb;
 double Igtoteq, gIgtotg, gIgtotd, gIgtots, gIgtotb;
 double Igstot, cgshat, Igdtot, cgdhat, Igbtot, cgbhat;
-double Vgs_eff, Vfb, dVbs_dVb, Vth_NarrowW;
+double Vgs_eff, Vfb, Vth_NarrowW;
 double Phis, dPhis_dVb, sqrtPhis, dsqrtPhis_dVb, Vth, dVth_dVb, dVth_dVd;
 double Vgst, dVgst_dVg, dVgst_dVb, dVgs_eff_dVg, Nvtms, Nvtmd;
-double Vgdt, Vgsaddvth, Vgsaddvth2, Vgsaddvth1o3, Vtm;
+double Vtm;
 double n, dn_dVb, dn_dVd, voffcv, noff, dnoff_dVd, dnoff_dVb;
-double ExpArg, ExpArg1, V0, CoxWLcen, QovCox, LINK;
+double V0, CoxWLcen, QovCox, LINK;
 double DeltaPhi, dDeltaPhi_dVg;
 double Cox, Tox, Tcen, dTcen_dVg, dTcen_dVd, dTcen_dVb;
 double Ccen, Coxeff, dCoxeff_dVd, dCoxeff_dVg, dCoxeff_dVb;
 double Denomi, dDenomi_dVg, dDenomi_dVd, dDenomi_dVb;
 double ueff, dueff_dVg, dueff_dVd, dueff_dVb; 
-double Esat, dEsat_dVg, dEsat_dVd, dEsat_dVb, Vdsat, Vdsat0;
+double Esat, Vdsat;
 double EsatL, dEsatL_dVg, dEsatL_dVd, dEsatL_dVb;
-double Ilimit, Iexp, dIexp_dVg, dIexp_dVd, dIexp_dVb;
 double dVdsat_dVg, dVdsat_dVb, dVdsat_dVd, Vasat, dAlphaz_dVg, dAlphaz_dVb; 
-double dVasat_dVg, dVasat_dVb, dVasat_dVd, Va, Va2, dVa_dVd, dVa_dVg, dVa_dVb; 
+double dVasat_dVg, dVasat_dVb, dVasat_dVd, Va, dVa_dVd, dVa_dVg, dVa_dVb; 
 double Vbseff, dVbseff_dVb, VbseffCV, dVbseffCV_dVb; 
-double Arg1, Arg2, One_Third_CoxWL, Two_Third_CoxWL, Alphaz, CoxWL; 
+double Arg1, One_Third_CoxWL, Two_Third_CoxWL, Alphaz, CoxWL; 
 double T0, dT0_dVg, dT0_dVd, dT0_dVb;
 double T1, dT1_dVg, dT1_dVd, dT1_dVb;
 double T2, dT2_dVg, dT2_dVd, dT2_dVb;
 double T3, dT3_dVg, dT3_dVd, dT3_dVb;
-double T4, dT4_dVg, dT4_dVd, dT4_dVb;
-double T5, dT5_dVg, dT5_dVd, dT5_dVb;
+double T4, dT4_dVd;
+double T5, dT5_dVb;
 double T6, dT6_dVg, dT6_dVd, dT6_dVb;
-double T7, dT7_dVg, dT7_dVd, dT7_dVb;
-double T8, dT8_dVg, dT8_dVd, dT8_dVb;
+double T7, dT7_dVg;
+double T8, dT8_dVd;
 double T9, dT9_dVg, dT9_dVd, dT9_dVb;
 double T10, dT10_dVg, dT10_dVb, dT10_dVd; 
 double T11, T12;
@ -122,19 +119,19 @@ double tmp, Abulk, dAbulk_dVb, Abulk0, dAbulk0_dVb;
 double Cclm, dCclm_dVg, dCclm_dVd, dCclm_dVb;
 double FP, dFP_dVg, PvagTerm, dPvagTerm_dVg, dPvagTerm_dVd, dPvagTerm_dVb;
 double VADITS, dVADITS_dVg, dVADITS_dVd;
-double Lpe_Vb, DITS_Sft, dDITS_Sft_dVb, dDITS_Sft_dVd;
+double Lpe_Vb, dDITS_Sft_dVb, dDITS_Sft_dVd;
 double VACLM, dVACLM_dVg, dVACLM_dVd, dVACLM_dVb;
 double VADIBL, dVADIBL_dVg, dVADIBL_dVd, dVADIBL_dVb;
 double Xdep, dXdep_dVb, lt1, dlt1_dVb, ltw, dltw_dVb, Delt_vth, dDelt_vth_dVb;
-double Theta0, dTheta0_dVb, Theta1, dTheta1_dVb;
-double Thetarout, dThetarout_dVb, TempRatio, tmp1, tmp2, tmp3, tmp4;
-double DIBL_Sft, dDIBL_Sft_dVd, DIBL_fact, Lambda, dLambda_dVg;
+double Theta0, dTheta0_dVb;
+double TempRatio, tmp1, tmp2, tmp3, tmp4;
+double DIBL_Sft, dDIBL_Sft_dVd, Lambda, dLambda_dVg;
 double Idtot, Ibtot, a1, ScalingFactor;

 double Vgsteff, dVgsteff_dVg, dVgsteff_dVd, dVgsteff_dVb; 
 double Vdseff, dVdseff_dVg, dVdseff_dVd, dVdseff_dVb; 
 double VdseffCV, dVdseffCV_dVg, dVdseffCV_dVd, dVdseffCV_dVb; 
-double diffVds, diffVdsCV, dAbulk_dVg;
+double diffVds, dAbulk_dVg;
 double beta, dbeta_dVg, dbeta_dVd, dbeta_dVb;
 double gche, dgche_dVg, dgche_dVd, dgche_dVb;
 double fgche1, dfgche1_dVg, dfgche1_dVd, dfgche1_dVb;
@ -146,7 +143,7 @@ double Isub, Gbd, Gbg, Gbb;
 double VASCBE, dVASCBE_dVg, dVASCBE_dVd, dVASCBE_dVb;
 double CoxeffWovL;
 double Rds, dRds_dVg, dRds_dVb, WVCox, WVCoxRds;
-double Vgst2Vtm, VdsatCV, dVdsatCV_dVd, dVdsatCV_dVg, dVdsatCV_dVb;
+double Vgst2Vtm, VdsatCV;
 double Leff, Weff, dWeff_dVg, dWeff_dVb;
 double AbulkCV, dAbulkCV_dVb;
 double qcheq, qdef, gqdef, cqdef, cqcheq;
@ -156,10 +153,10 @@ double ddxpart_dVd, ddxpart_dVg, ddxpart_dVb, ddxpart_dVs;
 double dsxpart_dVd, dsxpart_dVg, dsxpart_dVb, dsxpart_dVs;
 double gbspsp, gbbdp, gbbsp, gbspg, gbspb, gbspdp; 
 double gbdpdp, gbdpg, gbdpb, gbdpsp; 
-double qgdo, qgso, cgdo, cgso, cqbs, cqbd;
-double Cgg, Cgd, Cgs, Cgb, Cdg, Cdd, Cds, Cdb, Qg, Qd;
-double Csg, Csd, Css, Csb, Cbg, Cbd, Cbs, Cbb, Qs, Qb;
-double Cgg1, Cgb1, Cgd1, Cbg1, Cbb1, Cbd1, Csg1, Csd1, Csb1, Qac0, Qsub0;
+double qgdo, qgso, cgdo, cgso;
+double Cgg, Cgd, Cgb, Cdg, Cdd, Cds;
+double Csg, Csd, Css, Csb, Cbg, Cbd, Cbb;
+double Cgg1, Cgb1, Cgd1, Cbg1, Cbb1, Cbd1, Qac0, Qsub0;
 double dQac0_dVg, dQac0_dVb, dQsub0_dVg, dQsub0_dVd, dQsub0_dVb;
   
 struct bsim4SizeDependParam *pParam;
--- a/src/spicelib/devices/bsim4/b4noi.c
+++ b/src/spicelib/devices/bsim4/b4noi.c
@ -34,7 +34,8 @@ BSIM4instance *here;
 {
 struct bsim4SizeDependParam *pParam;
 double cd, esat, DelClm, EffFreq, N0, Nl;
-double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, Ssi;
+double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9;
+double Ssi;

    pParam = here->pParam;
    cd = fabs(here->BSIM4cd);
@ -83,12 +84,11 @@ double tempInoise;
 double noizDens[BSIM4NSRCS];
 double lnNdens[BSIM4NSRCS];

-double N0, Nl;
-double T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13;
-double Vds, n, ExpArg, Ssi, Swi;
+double T0, T1, T2, T5, T10, T11;
+double Vds, Ssi, Swi;
 double tmp, gdpr, gspr, npart_theta, npart_beta, igsquare;

-int error, i;
+int i;

    /* define the names of the noise sources */
    static char *BSIM4nNames[BSIM4NSRCS] =
--- a/src/spicelib/devices/bsim4/b4pzld.c
+++ b/src/spicelib/devices/bsim4/b4pzld.c
@ -27,7 +27,7 @@ register BSIM4instance *here;
 double gjbd, gjbs, geltd, gcrg, gcrgg, gcrgd, gcrgs, gcrgb;
 double xcggb, xcgdb, xcgsb, xcgbb, xcbgb, xcbdb, xcbsb, xcbbb;
 double xcdgb, xcddb, xcdsb, xcdbb, xcsgb, xcsdb, xcssb, xcsbb;
-double gds, gbd, gbs, capbd, capbs, FwdSum, RevSum, Gm, Gmbs;
+double gds, capbd, capbs, FwdSum, RevSum, Gm, Gmbs;
 double gstot, gstotd, gstotg, gstots, gstotb, gspr;
 double gdtot, gdtotd, gdtotg, gdtots, gdtotb, gdpr;
 double gIstotg, gIstotd, gIstots, gIstotb;
@ -42,7 +42,7 @@ double gbspsp, gbbdp, gbbsp, gbspg, gbspb;
 double gbspdp, gbdpdp, gbdpg, gbdpb, gbdpsp;
 double ddxpart_dVd, ddxpart_dVg, ddxpart_dVb, ddxpart_dVs;
 double dsxpart_dVd, dsxpart_dVg, dsxpart_dVb, dsxpart_dVs;
-double T0, T1, CoxWL, qcheq, Cdg, Cdd, Cds, Cdb, Csg, Csd, Css, Csb;
+double T0, T1, CoxWL, qcheq, Cdg, Cdd, Cds, Csg, Csd, Css;
 double ScalingFactor = 1.0e-9;
 struct bsim4SizeDependParam *pParam;

--- a/src/spicelib/devices/bsim4/b4set.c
+++ b/src/spicelib/devices/bsim4/b4set.c
@ -37,7 +37,6 @@ register BSIM4instance *here;
 int error;
 CKTnode *tmp;

-double tmp1, tmp2;

    /*  loop through all the BSIM4 device models */
    for( ; model != NULL; model = model->BSIM4nextModel )
--- a/src/spicelib/devices/bsim4/b4temp.c
+++ b/src/spicelib/devices/bsim4/b4temp.c
@ -52,7 +52,7 @@ register BSIM4instance *here;
 struct bsim4SizeDependParam *pSizeDependParamKnot, *pLastKnot, *pParam;
 double tmp, tmp1, tmp2, tmp3, Eg, Eg0, ni;
 double T0, T1, T2, T3, T4, T5, T8, T9, Ldrn, Wdrn;
-double delTemp, Temp, TRatio, Inv_L, Inv_W, Inv_LW, Dw, Dl, Vtm0, Tnom;
+double delTemp, Temp, TRatio, Inv_L, Inv_W, Inv_LW, Vtm0, Tnom;
 double dumPs, dumPd, dumAs, dumAd, PowWeffWr;
 double DMCGeff, DMCIeff, DMDGeff;
 double Nvtms, Nvtmd, SourceSatCurrent, DrainSatCurrent;