From 7198ffd1070a0bd9bca88ae1384aef0e562482a4 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 3 Feb 2011 12:03:43 +0100
Subject: Move show_matrix_eqn() to utils.c

---
 src/hrs-scaling.c | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'src/hrs-scaling.c')

diff --git a/src/hrs-scaling.c b/src/hrs-scaling.c
index c0308483..0b0b700a 100644
--- a/src/hrs-scaling.c
+++ b/src/hrs-scaling.c
@@ -27,23 +27,12 @@
 #include "symmetry.h"
 #include "geometry.h"
 #include "cell.h"
+#include "utils.h"
 
 
 /* Maximum number of iterations of NLSq scaling per macrocycle. */
 #define MAX_CYCLES (30)
 
-static void show_matrix_eqn(gsl_matrix *M, gsl_vector *v, int r)
-{
-	int i, j;
-
-	for ( i=0; i<r; i++ ) {
-		STATUS("[ ");
-		for ( j=0; j<r; j++ ) {
-			STATUS("%+9.3e ", gsl_matrix_get(M, i, j));
-		}
-		STATUS("][ a%2i ] = [ %+9.3e ]\n", i, gsl_vector_get(v, i));
-	}
-}
 
 static double s_uha(signed int hat, signed int kat, signed int lat,
                     struct image *images, int n, const char *sym, int a)
-- 
cgit v1.2.3