From 3684bb0dc691c5b6d7c3f0590737e417295219ee Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 27 Feb 2018 17:06:35 +0100
Subject: Write spectrum graph at end again

---
 src/partialator.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/partialator.c')

diff --git a/src/partialator.c b/src/partialator.c
index b708bd9f..3b489d74 100644
--- a/src/partialator.c
+++ b/src/partialator.c
@@ -1262,7 +1262,9 @@ int main(int argc, char *argv[])
 	/* Write final figures of merit (no rejection any more) */
 	show_all_residuals(crystals, n_crystals, full);
 	write_pgraph(full, crystals, n_crystals, -1, "");
-	STATUS("Final profile radius: %e\n", crystal_get_profile_radius(crystals[0]));
+	for ( i=0; i<n_crystals; i+=20 ) {
+		write_specgraph(crystals[i], full, -1, i);
+	}
 
 	/* Output results */
 	STATUS("Writing overall results to %s\n", outfile);
-- 
cgit v1.2.3