use the type SMPmatrix instead of char *

remove some redundant forward function declarations
remove some redundant nested function declarations

ChangeLog

@@ -1,3 +1,14 @@
+2010-07-23  Robert Larice
+ * src/ciderlib/oned/onecont.c ,
+ * src/ciderlib/oned/onepoiss.c ,
+ * src/ciderlib/twod/twocont.c ,
+ * src/ciderlib/twod/twoncont.c ,
+ * src/ciderlib/twod/twopcont.c ,
+ * src/ciderlib/twod/twopoiss.c :
+    use the type SMPmatrix instead of char *
+    remove some redundant forward function declarations
+    remove some redundant nested function declarations
+
 2010-07-23  Robert Larice
  * src/ngmultidec.c ,
  * src/include/onedev.h ,

src/ciderlib/oned/onecont.c

@@ -17,11 +17,6 @@ $Id$
 #include "../../maths/misc/bernoull.h"
 
 
-/* Forward Declarations */
-
-void  ONE_commonTerms( ONEdevice *, BOOLEAN, BOOLEAN, ONEtranInfo *);
-
-
 /* functions to setup and solve the continuity equations */
 /* Both continuity equations are solved */
 
@@ -29,7 +24,7 @@ void  ONE_commonTerms( ONEdevice *, BOOLEAN, BOOLEAN, ONEtranInfo *);
 void 
 ONE_jacBuild(ONEdevice *pDevice)
 {
-  char *matrix = pDevice->matrix;
+  SMPmatrix *matrix = pDevice->matrix;
   ONEelem *pElem;
   ONEnode *pNode;
   int index, eIndex;

src/ciderlib/oned/onepoiss.c

@@ -16,13 +16,10 @@ $Id$
 /* Functions to setup and solve the 1D poisson equation. */
 
 
-/* Forward Declarations */
-void ONEQcommonTerms(ONEdevice *pDevice);
-
 void
 ONEQjacBuild(ONEdevice *pDevice)
 {
-  char *matrix = pDevice->matrix;
+  SMPmatrix *matrix = pDevice->matrix;
   ONEelem *pElem;
   ONEnode *pNode, *pNode1;
   int index;

src/ciderlib/twod/twocont.c

@@ -32,8 +32,7 @@ $Id$
 void 
   TWO_jacBuild(TWOdevice *pDevice)
 {
-  char *matrix = pDevice->matrix;
-  double *spGetElement();
+  SMPmatrix *matrix = pDevice->matrix;
   TWOelem *pElem;
   TWOnode *pNode;
   TWOchannel *pCh;
@@ -304,7 +303,7 @@ void
   double ds;
   double dPsiT, dPsiB, dPsiL, dPsiR;
   double rhsN, rhsP;
-  double generation, TWOavalanche();
+  double generation;
   double nConc, pConc;
   double perTime = 0.0;
   
@@ -518,7 +517,6 @@ void
   int nextIndex;			/* index of node to find next element */
   double dx, dy, dxdy, dyOverDx, dxOverDy;
   double ds;
-  void spClear(), TWO_commonTerms();
   
   /* first compute the currents and derivatives */
   TWO_commonTerms( pDevice, FALSE, FALSE, NIL(TWOtranInfo) );
@@ -675,10 +673,9 @@ void
   double dx, dy, dxdy, dyOverDx, dxOverDy;
   double dPsiT, dPsiB, dPsiL, dPsiR;
   double rhsN, rhsP;
-  double generation, TWOavalanche();
+  double generation;
   double nConc, pConc;
   double perTime;
-  void TWO_commonTerms();
   
   /* first compute the currents */
   TWO_commonTerms( pDevice, TRUE, tranAnalysis, info );

src/ciderlib/twod/twoncont.c

@@ -33,7 +33,7 @@ $Id$
 void 
   TWONjacBuild(TWOdevice *pDevice)
 {
-  char *matrix = pDevice->matrix;
+  SMPmatrix *matrix = pDevice->matrix;
   TWOelem *pElem;
   TWOnode *pNode;
   TWOchannel *pCh;

src/ciderlib/twod/twopcont.c

@@ -32,7 +32,7 @@ $Id$
 void 
   TWOPjacBuild(TWOdevice *pDevice)
 {
-  char *matrix = pDevice->matrix;
+  SMPmatrix *matrix = pDevice->matrix;
   TWOelem *pElem;
   TWOnode *pNode;
   TWOchannel *pCh;

src/ciderlib/twod/twopoiss.c

@@ -20,7 +20,7 @@ $Id$
 void 
 TWOQjacBuild(TWOdevice *pDevice)
 {
-  char *matrix = pDevice->matrix;
+  SMPmatrix *matrix = pDevice->matrix;
   TWOelem *pElem;
   TWOnode *pNode, *pNode1;
   int eIndex, nIndex;