From c6f86b9067c10ee23d38e66116cee31f8602df53 Mon Sep 17 00:00:00 2001
From: dwarning <dwarning>
Date: Thu, 27 Dec 2007 16:18:48 +0000
Subject: [PATCH] only forms

---
 src/spicelib/devices/bsim3/b3par.c       | 9 +++------
 src/spicelib/devices/bsim3v0/b3v0par.c   | 3 ++-
 src/spicelib/devices/bsim3v1/b3v1par.c   | 3 ++-
 src/spicelib/devices/bsim3v1a/b3v1apar.c | 3 ++-
 src/spicelib/devices/bsim3v1s/b3v1spar.c | 3 ++-
 src/spicelib/devices/bsim3v32/b3v32par.c | 3 ++-
 src/spicelib/devices/bsim4/b4par.c       | 3 ++-
 src/spicelib/devices/bsim4v2/b4v2par.c   | 3 ++-
 src/spicelib/devices/bsim4v3/b4v3par.c   | 3 ++-
 src/spicelib/devices/bsim4v4/b4v4par.c   | 3 ++-
 src/spicelib/devices/bsim4v5/b4v5par.c   | 3 ++-
 11 files changed, 23 insertions(+), 16 deletions(-)

diff --git a/src/spicelib/devices/bsim3/b3par.c b/src/spicelib/devices/bsim3/b3par.c
index edfbf53a6..123959bd6 100644
--- a/src/spicelib/devices/bsim3/b3par.c
+++ b/src/spicelib/devices/bsim3/b3par.c
@@ -16,17 +16,14 @@
 #include "fteext.h"
 
 int
-BSIM3param(param,value,inst,select)
-int param;
-IFvalue *value;
-GENinstance *inst;
-IFvalue *select;
+BSIM3param (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;
diff --git a/src/spicelib/devices/bsim3v0/b3v0par.c b/src/spicelib/devices/bsim3v0/b3v0par.c
index cb0027f6a..6ad2dc1c2 100644
--- a/src/spicelib/devices/bsim3v0/b3v0par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim3v1/b3v1par.c b/src/spicelib/devices/bsim3v1/b3v1par.c
index 001748a5a..cac6f8df8 100644
--- a/src/spicelib/devices/bsim3v1/b3v1par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim3v1a/b3v1apar.c b/src/spicelib/devices/bsim3v1a/b3v1apar.c
index ee07f43ee..dbbd6e11b 100644
--- a/src/spicelib/devices/bsim3v1a/b3v1apar.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim3v1s/b3v1spar.c b/src/spicelib/devices/bsim3v1s/b3v1spar.c
index 24b6e51c6..0fb4d04aa 100644
--- a/src/spicelib/devices/bsim3v1s/b3v1spar.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim3v32/b3v32par.c b/src/spicelib/devices/bsim3v32/b3v32par.c
index dad48b501..410291d68 100644
--- a/src/spicelib/devices/bsim3v32/b3v32par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim4/b4par.c b/src/spicelib/devices/bsim4/b4par.c
index ac4afcb40..b42cbd0d2 100644
--- a/src/spicelib/devices/bsim4/b4par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim4v2/b4v2par.c b/src/spicelib/devices/bsim4v2/b4v2par.c
index 2d38e0da9..5af3ebf86 100644
--- a/src/spicelib/devices/bsim4v2/b4v2par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim4v3/b4v3par.c b/src/spicelib/devices/bsim4v3/b4v3par.c
index 08b751133..e2004bfdf 100644
--- a/src/spicelib/devices/bsim4v3/b4v3par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim4v4/b4v4par.c b/src/spicelib/devices/bsim4v4/b4v4par.c
index ed2d1f3c1..a3566bc2b 100644
--- a/src/spicelib/devices/bsim4v4/b4v4par.c
+++ b/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;
diff --git a/src/spicelib/devices/bsim4v5/b4v5par.c b/src/spicelib/devices/bsim4v5/b4v5par.c
index 1e3989138..f2f0c68b4 100644
--- a/src/spicelib/devices/bsim4v5/b4v5par.c
+++ b/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;