other fixes

src/maths/KLU/klusmp.c

@@ -454,19 +454,20 @@ SMPnewMatrix (SMPmatrix *Matrix, int size)
 void
 SMPdestroy (SMPmatrix *Matrix)
 {
+    spDestroy (Matrix->SPmatrix) ;
+
     if (Matrix->CKTkluMODE)
     {
-        spDestroy (Matrix->SPmatrix) ;
         klu_free_numeric (&(Matrix->CKTkluNumeric), Matrix->CKTkluCommon) ;
         klu_free_symbolic (&(Matrix->CKTkluSymbolic), Matrix->CKTkluCommon) ;
         free (Matrix->CKTkluAp) ;
         free (Matrix->CKTkluAi) ;
         free (Matrix->CKTkluAx) ;
-        free (Matrix->CKTdiag_CSC) ;
         free (Matrix->CKTkluIntermediate) ;
+        free (Matrix->CKTbindStruct) ;
+        free (Matrix->CKTdiag_CSC) ;
+        free (Matrix->CKTkluAx_Complex) ;
         free (Matrix->CKTkluIntermediate_Complex) ;
-    } else {
-        spDestroy (Matrix->SPmatrix) ;
     }
 }
 
@@ -532,8 +533,8 @@ SMPgetError (SMPmatrix *Matrix, int *Col, int *Row)
 {
     if (Matrix->CKTkluMODE)
     {
-        *Row = Matrix->SPmatrix->IntToExtRowMap [Matrix->CKTkluCommon->singular_col] ;
-        *Col = Matrix->SPmatrix->IntToExtColMap [Matrix->CKTkluCommon->singular_col] ;
+        *Row = Matrix->SPmatrix->IntToExtRowMap [Matrix->CKTkluCommon->singular_col + 1] ;
+        *Col = Matrix->SPmatrix->IntToExtColMap [Matrix->CKTkluCommon->singular_col + 1] ;
     } else {
         spWhereSingular (Matrix->SPmatrix, Row, Col) ;
     }

src/spicelib/analysis/cktsetup.c

@@ -123,11 +123,6 @@ CKTsetup(CKTcircuit *ckt)
         }
     }
 
-#ifdef KLU
-    if (ckt->CKTmatrix->CKTkluMODE)
-        SMPnnz (ckt->CKTmatrix) ;
-#endif
-
 #ifdef KLU
     if (ckt->CKTmatrix->CKTkluMODE)
     {
@@ -137,6 +132,7 @@ CKTsetup(CKTcircuit *ckt)
         int n = SMPmatSize (ckt->CKTmatrix) ;
         ckt->CKTmatrix->CKTkluN = n ;
 
+        SMPnnz (ckt->CKTmatrix) ;
         int nz = ckt->CKTmatrix->CKTklunz ;
 
         ckt->CKTmatrix->CKTkluAp           = TMALLOC (int, n + 1) ;