only forms

src/spicelib/devices/bsim3/b3par.c

@@ -16,17 +16,14 @@
 #include "fteext.h"
 
 int
-BSIM3param(param,value,inst,select)
+BSIM3param (int param, IFvalue *value, GENinstance *inst, IFvalue *select)
-int param;
-IFvalue *value;
-GENinstance *inst;
-IFvalue *select;
 {
     double scale;
 
+    BSIM3instance *here = (BSIM3instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM3instance *here = (BSIM3instance*)inst;
     switch(param) 
     {   case BSIM3_W:
             here->BSIM3w = value->rValue*scale;

src/spicelib/devices/bsim3v0/b3v0par.c

@@ -16,9 +16,10 @@ BSIM3v0param(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
 {
     double scale;
 
+    BSIM3v0instance *here = (BSIM3v0instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM3v0instance *here = (BSIM3v0instance*)inst;
     switch(param) 
     {   case BSIM3v0_W:
             here->BSIM3v0w = value->rValue*scale;

src/spicelib/devices/bsim3v1/b3v1par.c

@@ -22,9 +22,10 @@ BSIM3v1param(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
 {
     double scale;
 
+    BSIM3v1instance *here = (BSIM3v1instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM3v1instance *here = (BSIM3v1instance*)inst;
     switch(param) 
     {   case BSIM3v1_W:
             here->BSIM3v1w = value->rValue*scale;

src/spicelib/devices/bsim3v1a/b3v1apar.c

@@ -17,9 +17,10 @@ BSIM3v1Aparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
 {
     double scale;
 
+    BSIM3v1Ainstance *here = (BSIM3v1Ainstance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM3v1Ainstance *here = (BSIM3v1Ainstance*)inst;
     switch(param) 
     {   case BSIM3v1A_W:
             here->BSIM3v1Aw = value->rValue*scale;

src/spicelib/devices/bsim3v1s/b3v1spar.c

@@ -17,9 +17,10 @@ BSIM3v1Sparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
 {
     double scale;
 
+    BSIM3v1Sinstance *here = (BSIM3v1Sinstance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM3v1Sinstance *here = (BSIM3v1Sinstance*)inst;
     switch(param) 
     {   case BSIM3v1S_W:
             here->BSIM3v1Sw = value->rValue*scale;

src/spicelib/devices/bsim3v32/b3v32par.c

@@ -21,9 +21,10 @@ BSIM3v32param (int param, IFvalue *value, GENinstance *inst, IFvalue *select)
 {
     double scale;
 
+    BSIM3v32instance *here = (BSIM3v32instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM3v32instance *here = (BSIM3v32instance*)inst;
     switch(param) 
     {   case BSIM3v32_W:
             here->BSIM3v32w = value->rValue*scale;

src/spicelib/devices/bsim4/b4par.c

@@ -30,9 +30,10 @@ IFvalue *select;
 {
     double scale;
 
+    BSIM4instance *here = (BSIM4instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM4instance *here = (BSIM4instance*)inst;
     switch(param) 
     {   case BSIM4_W:
             here->BSIM4w = value->rValue*scale;

src/spicelib/devices/bsim4v2/b4v2par.c

@@ -23,9 +23,10 @@ IFvalue *select;
 {
     double scale;
 
+    BSIM4v2instance *here = (BSIM4v2instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM4v2instance *here = (BSIM4v2instance*)inst;
     switch(param) 
     {   case BSIM4v2_W:
             here->BSIM4v2w = value->rValue*scale;

src/spicelib/devices/bsim4v3/b4v3par.c

@@ -26,9 +26,10 @@ IFvalue *select;
 {
     double scale;
 
+    BSIM4v3instance *here = (BSIM4v3instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM4v3instance *here = (BSIM4v3instance*)inst;
     switch(param) 
     {   case BSIM4v3_W:
             here->BSIM4v3w = value->rValue*scale;

src/spicelib/devices/bsim4v4/b4v4par.c

@@ -27,9 +27,10 @@ IFvalue *select;
 {
     double scale;
 
+    BSIM4v4instance *here = (BSIM4v4instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM4v4instance *here = (BSIM4v4instance*)inst;
     switch(param) 
     {   case BSIM4v4_W:
             here->BSIM4v4w = value->rValue*scale;

src/spicelib/devices/bsim4v5/b4v5par.c

@@ -28,9 +28,10 @@ IFvalue *select;
 {
     double scale;
 
+    BSIM4v5instance *here = (BSIM4v5instance*)inst;
+
     if ( !cp_getvar( "scale", CP_REAL, (double*) &scale ) ) scale = 1;
 
-    BSIM4v5instance *here = (BSIM4v5instance*)inst;
     switch(param) 
     {   case BSIM4v5_W:
             here->BSIM4v5w = value->rValue*scale;