From 2544135897b6e920d74f824c26bbf9a75df6d275 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.org.uk>
Date: Mon, 10 Mar 2014 10:44:03 +0100
Subject: Free the crystals

---
 src/ambigator.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/ambigator.c b/src/ambigator.c
index 42838b41..3b83d749 100644
--- a/src/ambigator.c
+++ b/src/ambigator.c
@@ -885,7 +885,14 @@ int main(int argc, char *argv[])
 	}
 	STATUS("Mean number of correlations per crystal: %.1f\n", mean_nac);
 
-	/* FIXME: Free crystals */
+	for ( i=0; i<n_crystals; i++ ) {
+		free(crystals[i]->s);
+		free(crystals[i]->i);
+		free(crystals[i]->s_reidx);
+		free(crystals[i]->i_reidx);
+		free(crystals[i]);
+	}
+	free(crystals);
 
 	for ( i=0; i<n_iter; i++ ) {
 		detwin(ccs, n_crystals, assignments, fgfh, crystals);
@@ -915,7 +922,6 @@ int main(int argc, char *argv[])
 	       n_dif);
 
 	free(assignments);
-	free(crystals);
 	gsl_rng_free(rng);
 
 	return 0;
-- 
cgit v1.2.3