[goffice] GOQuadMatrix: add dump function for debug.

[Morten Welinder <mortenw src gnome org>]

commit 0db627ab62f36cdf47a50e5f60521f110aa67380
Author: Morten Welinder <terra gnome org>
Date:   Sun May 12 17:27:32 2013 -0400

    GOQuadMatrix: add dump function for debug.

 ChangeLog                |    5 +++++
 goffice/math/go-matrix.c |   16 ++++++++++++++--
 goffice/math/go-matrix.h |    4 ++++
 3 files changed, 23 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index d97cd2f..12c4cfa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-12  Morten Welinder  <terra gnome org>
+
+       * goffice/math/go-matrix.c (go_quad_matrix_dump): New function for
+       debugging.
+
 2013-05-11  Morten Welinder  <terra gnome org>
 
        * goffice/component/go-component.c: Fix issue with librsvg includes.
diff --git a/goffice/math/go-matrix.c b/goffice/math/go-matrix.c
index a000a07..7f4f4c0 100644
--- a/goffice/math/go-matrix.c
+++ b/goffice/math/go-matrix.c
@@ -465,7 +465,7 @@ SUFFIX(go_quad_matrix_fwd_solve) (const QMATRIX *R, QUAD *x, const QUAD *b)
        int i, j, n;
 
        g_return_val_if_fail (R != NULL, TRUE);
-       g_return_val_if_fail (R->m == R-> n, TRUE);
+       g_return_val_if_fail (R->m == R->n, TRUE);
        g_return_val_if_fail (x != NULL, TRUE);
        g_return_val_if_fail (b != NULL, TRUE);
 
@@ -504,7 +504,7 @@ SUFFIX(go_quad_matrix_back_solve) (const QMATRIX *R, QUAD *x, const QUAD *b)
        int i, j, n;
 
        g_return_val_if_fail (R != NULL, TRUE);
-       g_return_val_if_fail (R->m == R-> n, TRUE);
+       g_return_val_if_fail (R->m == R->n, TRUE);
        g_return_val_if_fail (x != NULL, TRUE);
        g_return_val_if_fail (b != NULL, TRUE);
 
@@ -555,6 +555,18 @@ SUFFIX(go_quad_matrix_eigen_range) (const QMATRIX *A,
 }
 
 
+void
+SUFFIX(go_quad_matrix_dump) (const QMATRIX *A, const char *fmt)
+{
+       int i, j;
+
+       for (i = 0; i < A->m; i++) {
+               for (j = 0; j < A->n; j++)
+                       g_printerr (fmt, A->data[i][j]);
+               g_printerr ("\n");
+       }
+}
+
 /* -------------------------------------------------------------------------- */
 
 /**
diff --git a/goffice/math/go-matrix.h b/goffice/math/go-matrix.h
index b27aa27..236b271 100644
--- a/goffice/math/go-matrix.h
+++ b/goffice/math/go-matrix.h
@@ -37,6 +37,8 @@ gboolean go_quad_matrix_fwd_solve (const GOQuadMatrix *R, GOQuad *x,
 void go_quad_matrix_eigen_range (const GOQuadMatrix *A,
                                 double *emin, double *emax);
 
+void go_quad_matrix_dump (const GOQuadMatrix *A, const char *fmt);
+
 /* ---------------------------------------- */
 
 GOQuadQR *go_quad_qr_new (const GOQuadMatrix *A);
@@ -80,6 +82,8 @@ gboolean go_quad_matrix_fwd_solvel (const GOQuadMatrixl *R, GOQuadl *x,
 void go_quad_matrix_eigen_rangel (const GOQuadMatrixl *A,
                                  long double *emin, long double *emax);
 
+void go_quad_matrix_dumpl (const GOQuadMatrixl *A, const char *fmt);
+
 /* ---------------------------------------- */
 
 GOQuadQRl *go_quad_qr_newl (const GOQuadMatrixl *A);