Updated SMPprint and SMPprintRHS for KLU, SuperLU and UMFPACK

src/maths/KLU/klusmp.c

@@ -448,16 +448,31 @@ SMPpreOrder (SMPmatrix *Matrix)
     }
 }
 
+/*
+ * SMPprintRHS()
+ */
+
+void
+SMPprintRHS (SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
+{
+    if (!Matrix->CKTkluMODE)
+        spFileVector (Matrix->SPmatrix, Filename, RHS, iRHS) ;
+}
+
 /*
  * SMPprint()
  */
-/*ARGSUSED*/
-void
-SMPprint (SMPmatrix *Matrix, FILE *File)
-{
-    NG_IGNORE (File) ;
 
-    spPrint (Matrix->SPmatrix, 0, 1, 1) ;
+void
+SMPprint (SMPmatrix *Matrix, char *Filename)
+{
+    if (!Matrix->CKTkluMODE)
+    {
+        if (Filename)
+            spFileMatrix (Matrix->SPmatrix, Filename, "Circuit Matrix", 0, 1, 1) ;
+        else
+            spPrint (Matrix->SPmatrix, 0, 1, 1) ;
+    }
 }
 
 /*

src/maths/SuperLU/superlusmp.c

@@ -416,16 +416,31 @@ SMPpreOrder (SMPmatrix *Matrix)
     }
 }
 
+/*
+ * SMPprintRHS()
+ */
+
+void
+SMPprintRHS (SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
+{
+    if (!Matrix->CKTsuperluMODE)
+        spFileVector (Matrix->SPmatrix, Filename, RHS, iRHS) ;
+}
+
 /*
  * SMPprint()
  */
-/*ARGSUSED*/
-void
-SMPprint (SMPmatrix *Matrix, FILE *File)
-{
-    NG_IGNORE (File) ;
 
-    spPrint (Matrix->SPmatrix, 0, 1, 1) ;
+void
+SMPprint (SMPmatrix *Matrix, char *Filename)
+{
+    if (!Matrix->CKTsuperluMODE)
+    {
+        if (Filename)
+            spFileMatrix (Matrix->SPmatrix, Filename, "Circuit Matrix", 0, 1, 1) ;
+        else
+            spPrint (Matrix->SPmatrix, 0, 1, 1) ;
+    }
 }
 
 /*

src/maths/UMFPACK/umfpacksmp.c

@@ -395,16 +395,31 @@ SMPpreOrder (SMPmatrix *Matrix)
     }
 }
 
+/*
+ * SMPprintRHS()
+ */
+
+void
+SMPprintRHS (SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
+{
+    if (!Matrix->CKTumfpackMODE)
+        spFileVector (Matrix->SPmatrix, Filename, RHS, iRHS) ;
+}
+
 /*
  * SMPprint()
  */
-/*ARGSUSED*/
-void
-SMPprint (SMPmatrix *Matrix, FILE *File)
-{
-    NG_IGNORE (File) ;
 
-    spPrint (Matrix->SPmatrix, 0, 1, 1) ;
+void
+SMPprint (SMPmatrix *Matrix, char *Filename)
+{
+    if (!Matrix->CKTumfpackMODE)
+    {
+        if (Filename)
+            spFileMatrix (Matrix->SPmatrix, Filename, "Circuit Matrix", 0, 1, 1) ;
+        else
+            spPrint (Matrix->SPmatrix, 0, 1, 1) ;
+    }
 }
 
 /*

src/maths/sparse/spsmp.c

@@ -275,7 +275,7 @@ SMPpreOrder(SMPmatrix *Matrix)
 }
 
 /*
- * SMPprint()
+ * SMPprintRHS()
  */
 
 void