diff --git a/ChangeLog b/ChangeLog
index 310d8ad2d..a1f1a5082 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2010-06-25  Robert Larice
+ * src/frontend/com_hardcopy.c,
+ * src/maths/sparse/spbuild.c,
+ * src/maths/sparse/spfactor.c,
+ * src/maths/sparse/spoutput.c,
+ * src/maths/sparse/spsolve.c,
+ * src/maths/sparse/sputils.c,
+ * src/spicelib/analysis/dcop.c,
+ * src/spicelib/parser/inppas1.c,
+ * src/xspice/ipc/ipcsockets.c :
+	remove redundant nested function declarations
+	
 2010-06-25  Robert Larice
  * src/frontend/hpgl.h,
  * src/frontend/parser/glob.c,
diff --git a/src/frontend/com_hardcopy.c b/src/frontend/com_hardcopy.c
index 0c68b70f0..faa53b215 100644
--- a/src/frontend/com_hardcopy.c
+++ b/src/frontend/com_hardcopy.c
@@ -27,7 +27,6 @@ void
 com_hardcopy(wordlist *wl)
 {
     char *buf2;
-    wordlist *process(wordlist *wlist);
     char *fname;
     char buf[BSIZE_SP], device[BSIZE_SP];
     bool tempf = FALSE;
diff --git a/src/maths/sparse/spbuild.c b/src/maths/sparse/spbuild.c
index 72810aa2e..714e440fb 100644
--- a/src/maths/sparse/spbuild.c
+++ b/src/maths/sparse/spbuild.c
@@ -185,8 +185,6 @@ spFindElement( void *eMatrix, int Row, int Col )
 {
 MatrixPtr  Matrix = (MatrixPtr)eMatrix;
 RealNumber  *pElement;
-ElementPtr spcFindElementInCol();
-void  Translate();
 
 /* Begin `spFindElement'. */
     assert( IS_SPARSE( Matrix ) AND Row >= 0 AND Col >= 0 );
@@ -270,8 +268,6 @@ spGetElement(void *eMatrix, int Row, int Col)
 {
     MatrixPtr  Matrix = (MatrixPtr)eMatrix;
     RealNumber  *pElement;
-    ElementPtr spcFindElementInCol();
-    void  Translate();
 
     /* Begin `spGetElement'. */
     assert( IS_SPARSE( Matrix ) && Row >= 0 && Col >= 0 );
@@ -371,7 +367,6 @@ spcFindElementInCol(MatrixPtr Matrix, ElementPtr *LastAddr,
 		    int  Row, int  Col, int  CreateIfMissing)
 {
     ElementPtr  pElement;
-    ElementPtr  spcCreateElement();
 
     /* Begin `spcFindElementInCol'. */
     pElement = *LastAddr;
@@ -777,7 +772,7 @@ spcCreateElement(MatrixPtr Matrix, int  Row, int  Col,
 		 ElementPtr  *LastAddr, int Fillin)
 {
     ElementPtr  pElement, pLastElement;
-    ElementPtr  pCreatedElement, spcGetElement(), spcGetFillin();
+    ElementPtr  pCreatedElement;
 
     /* Begin `spcCreateElement'. */
 
diff --git a/src/maths/sparse/spfactor.c b/src/maths/sparse/spfactor.c
index a3b1ac7f5..dc0bfa3bc 100644
--- a/src/maths/sparse/spfactor.c
+++ b/src/maths/sparse/spfactor.c
@@ -195,8 +195,7 @@ spOrderAndFactor(void *eMatrix, RealNumber RHS[], RealNumber RelThreshold,
     MatrixPtr  Matrix = (MatrixPtr)eMatrix;
     ElementPtr  pPivot;
     int  Step, Size, ReorderingRequired;
-    ElementPtr SearchForPivot();
-    RealNumber LargestInCol, FindLargestInCol();
+    RealNumber LargestInCol;
 
     /* Begin `spOrderAndFactor'. */
     assert( IS_VALID(Matrix) && !Matrix->Factored);
@@ -982,10 +981,6 @@ static ElementPtr
 SearchForPivot( MatrixPtr Matrix, int Step, int DiagPivoting )
 {
 ElementPtr  ChosenPivot;
-ElementPtr  SearchForSingleton();
-ElementPtr  QuicklySearchDiagonal();
-ElementPtr  SearchDiagonal();
-ElementPtr  SearchEntireMatrix();
 
  /* Begin `SearchForPivot'. */
 
@@ -1087,7 +1082,7 @@ SearchForSingleton( MatrixPtr Matrix, int Step )
  int  I;
  long  *pMarkowitzProduct;
 int  Singletons;
-RealNumber  PivotMag, FindBiggestInColExclude();
+RealNumber  PivotMag;
 
  /* Begin `SearchForSingleton'. */
  /* Initialize pointer that is to scan through MarkowitzProduct vector. */
@@ -1521,7 +1516,6 @@ long  MinMarkowitzProduct, *pMarkowitzProduct;
 int  I;
 ElementPtr  ChosenPivot, pOtherInRow, pOtherInCol;
 RealNumber  Magnitude, LargestInCol, LargestOffDiagonal;
-RealNumber  FindBiggestInColExclude();
 
  /* Begin `QuicklySearchDiagonal'. */
     ChosenPivot = NULL;
@@ -1697,7 +1691,6 @@ SearchDiagonal( MatrixPtr Matrix, int Step )
     RealNumber  Magnitude, Ratio; 
     RealNumber  RatioOfAccepted = 0;
     RealNumber  LargestInCol;
-    RealNumber  FindBiggestInColExclude();
 
     /* Begin `SearchDiagonal'. */
     ChosenPivot = NULL;
@@ -1827,7 +1820,6 @@ SearchEntireMatrix( MatrixPtr Matrix, int Step )
     RealNumber  Magnitude, LargestElementMag, Ratio;
     RealNumber  RatioOfAccepted = 0;
     RealNumber  LargestInCol;
-    RealNumber  FindLargestInCol();
 
     /* Begin `SearchEntireMatrix'. */
     ChosenPivot = NULL;
@@ -2089,7 +2081,6 @@ ExchangeRowsAndCols( MatrixPtr Matrix, ElementPtr pPivot, int Step )
 {
  int   Row, Col;
 long  OldMarkowitzProd_Step, OldMarkowitzProd_Row, OldMarkowitzProd_Col;
-ElementPtr spcFindElementInCol();
 
  /* Begin `ExchangeRowsAndCols'. */
     Row = pPivot->Row;
@@ -2717,7 +2708,6 @@ RealRowColElimination( MatrixPtr Matrix, ElementPtr pPivot )
     ElementPtr  pSub;
     int  Row;
     ElementPtr  pLower, pUpper;
-    extern ElementPtr  CreateFillin();
 
     /* Begin `RealRowColElimination'. */
 
@@ -2805,7 +2795,6 @@ ComplexRowColElimination( MatrixPtr Matrix, ElementPtr pPivot )
     ElementPtr  pSub;
     int  Row;
     ElementPtr  pLower, pUpper;
-    ElementPtr  CreateFillin();
 
     /* Begin `ComplexRowColElimination'. */
 
@@ -2976,7 +2965,6 @@ static ElementPtr
 CreateFillin( MatrixPtr Matrix, int Row, int Col )
 {
  ElementPtr  pElement, *ppElementAbove;
-ElementPtr  spcCreateElement();
 
  /* Begin `CreateFillin'. */
 
diff --git a/src/maths/sparse/spoutput.c b/src/maths/sparse/spoutput.c
index 59cf44669..098bd5cc7 100644
--- a/src/maths/sparse/spoutput.c
+++ b/src/maths/sparse/spoutput.c
@@ -599,7 +599,6 @@ spFileVector(void *eMatrix, char *File, RealVector RHS, RealVector iRHS)
     MatrixPtr  Matrix = (MatrixPtr)eMatrix;
     int  I, Size, Err;
     FILE  *pMatrixFile;
-    FILE  *fopen();
 
     /* Begin `spFileVector'. */
     assert( IS_SPARSE( Matrix ) && RHS != NULL);
@@ -688,7 +687,7 @@ spFileStats(void *eMatrix, char *File, char *Label)
     ElementPtr  pElement;
     int NumberOfElements;
     RealNumber  Data, LargestElement, SmallestElement;
-    FILE  *pStatsFile, *fopen();
+    FILE  *pStatsFile;
 
     /* Begin `spFileStats'. */
     assert( IS_SPARSE( Matrix ) );
diff --git a/src/maths/sparse/spsolve.c b/src/maths/sparse/spsolve.c
index fefbc7810..809e1ee00 100644
--- a/src/maths/sparse/spsolve.c
+++ b/src/maths/sparse/spsolve.c
@@ -133,7 +133,6 @@ spSolve(void *eMatrix, RealVector RHS, RealVector Solution,
     RealNumber  Temp;
     int  I, *pExtOrder, Size;
     ElementPtr  pPivot;
-    void SolveComplexMatrix();
 
     /* Begin `spSolve'. */
     assert( IS_VALID(Matrix) && IS_FACTORED(Matrix) );
@@ -410,7 +409,6 @@ spSolveTransposed(void *eMatrix, RealVector RHS, RealVector Solution,
     int  I, *pExtOrder, Size;
     ElementPtr  pPivot;
     RealNumber  Temp;
-    void SolveComplexTransposedMatrix();
 
     /* Begin `spSolveTransposed'. */
     assert( IS_VALID(Matrix) && IS_FACTORED(Matrix) );
diff --git a/src/maths/sparse/sputils.c b/src/maths/sparse/sputils.c
index 66d04aff0..03e951d71 100644
--- a/src/maths/sparse/sputils.c
+++ b/src/maths/sparse/sputils.c
@@ -582,7 +582,6 @@ spMultiply(void *eMatrix, RealVector RHS, RealVector Solution,
     RealNumber  Sum;
     int  I, *pExtOrder;
     MatrixPtr  Matrix = (MatrixPtr)eMatrix;
-    extern void ComplexMatrixMultiply();
 
     /* Begin `spMultiply'. */
     assert( IS_SPARSE( Matrix ) && !Matrix->Factored );
@@ -729,7 +728,6 @@ spMultTransposed(void *eMatrix, RealVector RHS, RealVector Solution,
     RealNumber  Sum;
     int  I, *pExtOrder;
     MatrixPtr  Matrix = (MatrixPtr)eMatrix;
-    extern void ComplexTransposedMatrixMultiply();
 
     /* Begin `spMultTransposed'. */
     assert( IS_SPARSE( Matrix ) && !Matrix->Factored );
diff --git a/src/spicelib/analysis/dcop.c b/src/spicelib/analysis/dcop.c
index 9b413a39d..322831199 100644
--- a/src/spicelib/analysis/dcop.c
+++ b/src/spicelib/analysis/dcop.c
@@ -21,7 +21,6 @@ Modified: 2000  AlansFixes
 int
 DCop(CKTcircuit *ckt, int notused)
 {
-    int CKTload(CKTcircuit *ckt);
     int converged;
     int error;
     IFuid *nameList; /* va: tmalloc'ed list */
diff --git a/src/spicelib/parser/inppas1.c b/src/spicelib/parser/inppas1.c
index 96d6f5af8..17833029a 100644
--- a/src/spicelib/parser/inppas1.c
+++ b/src/spicelib/parser/inppas1.c
@@ -17,7 +17,6 @@ Author: 1985 Thomas L. Quarles
 void INPpas1(void *ckt, card * deck, INPtables * tab)
 {
     card *current;
-    char *INPdomodel(void *ckt, card * image, INPtables * tab);
     char *temp, *thisline;
 
     for (current = deck; current != NULL; current = current->nextcard) {
diff --git a/src/xspice/ipc/ipcsockets.c b/src/xspice/ipc/ipcsockets.c
index 9f2977119..fe9d1d9be 100755
--- a/src/xspice/ipc/ipcsockets.c
+++ b/src/xspice/ipc/ipcsockets.c
@@ -171,8 +171,6 @@ Ipc_Status_t ipc_transport_initialize_server (server_name, mode, protocol,
   unsigned int  server_length;          /* Size of server structure        */
   unsigned int  port_num;        /* Port number converted from server_name */
 
-  Ipc_Status_t  ipc_get_line ();
-
   /* assert (protocol == IPC_PROTOCOL_V2); */ /* allow v1 protocol - wbk */
   assert (sock_state == IPC_SOCK_UNINITIALIZED);