variables are assigned values twice successively

src/frontend/subckt.c

@@ -224,7 +224,7 @@ inp_subcktexpand(struct card *deck) {
     if (!cp_getvar("modelline", CP_STRING, model, sizeof(model)))
         strcpy(model, ".model");
 
-    use_numparams = cp_getvar("numparams", CP_BOOL, NULL, 0);
+/*    use_numparams = cp_getvar("numparams", CP_BOOL, NULL, 0); */
 
     use_numparams = TRUE;
 

src/spicelib/devices/bjt/bjtdset.c

@@ -467,7 +467,6 @@ int BJTdSetup(GENmodel *inModel, CKTcircuit *ckt)
             /* ib term */
 
             EqualDeriv(&d_ib, &d_p);
-            d_ib.d1_p = 0.0;
             d_ib.value = cb;
             d_ib.d1_p = gbe/here->BJTtBetaF + gben;
             d_ib.d2_p2 = gbe2/here->BJTtBetaF + gben2;

src/spicelib/devices/bsimsoi/b4soild.c

@@ -610,7 +610,7 @@ int B4SOILoadOMP(B4SOIinstance *here, CKTcircuit *ckt) {
             if ((vds == 0.0) && (vgs == 0.0) && (vbs == 0.0) &&
                     ((ckt->CKTmode & (MODETRAN | MODEAC|MODEDCOP |
                                       MODEDCTRANCURVE)) || (!(ckt->CKTmode & MODEUIC))))
-            {   vbs = 0.0;
+            {
                 /*                vgs = model->B4SOItype*0.1 + here->B4SOIvth0; */
                 vgs = model->B4SOItype * here->B4SOIvth0 + 0.1; /* v4.0 */
                 vds = 0.0;

src/spicelib/devices/dio/diodset.c

@@ -100,13 +100,12 @@ DIOdSetup(DIOmodel *model, CKTcircuit *ckt)
 				/* why using csat instead of breakdowncurrent? */
 				evrev=exp(-(here->DIOtBrkdwnV+vd)/vt);
 				cd = -csat*evrev;
-                                gd = csat*evrev/vte;
+				gd = csat*evrev/vt;
 				/*
                       * cd = -csat*(evrev-1+here->DIOtBrkdwnV/vt);
                       */
 				/* should there be a minus here above? 
 		      */
-				gd=csat*evrev/vt;
 				g2 = -gd/2/vt;
 				g3 = -g2/3/vt;
 				cdiff3 = cdiff2 = 0;

src/spicelib/devices/numd2/nud2load.c

@@ -81,7 +81,7 @@ NUMD2load(GENmodel *inModel, CKTcircuit *ckt)
       }
     } else if (ckt->CKTmode & MODEINITTRAN) {
       model->NUMD2pInfo->order = ckt->CKTorder;
-      model->NUMD2pInfo->method = GEAR;
+/*      model->NUMD2pInfo->method = GEAR; */
       model->NUMD2pInfo->method = ckt->CKTintegrateMethod;
       for (i = 0; i <= ckt->CKTmaxOrder; i++) {
 	deltaNorm[i] = ckt->CKTdeltaOld[i] / TNorm;