From f97dc763fd1147fcb395fa9eab14a1bad257856b Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 24 Nov 2011 16:34:36 +0100
Subject: compare_hkl: Put correct column heading in shells.dat

---
 src/compare_hkl.c | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/compare_hkl.c b/src/compare_hkl.c
index 93584903..4445b182 100644
--- a/src/compare_hkl.c
+++ b/src/compare_hkl.c
@@ -217,7 +217,25 @@ static void plot_shells(RefList *list1, RefList *list2, double scale,
 		return;
 	}
 
-	fprintf(fh, "1/d centre   Rsplit / %%\n");
+	switch ( config_shells ) {
+
+		case R_SHELL_RSPLIT :
+		fprintf(fh, "1/d centre   Rsplit / %%\n");
+		break;
+
+		case R_SHELL_R1I :
+		fprintf(fh, "1/d centre   R1(I) / %%\n");
+		break;
+
+		case R_SHELL_R1F :
+		fprintf(fh, "1/d centre   R1(F) ignoring -ves / %%\n");
+		break;
+
+		default :
+		fprintf(fh, "1/d centre   0.0\n");
+		break;
+
+	}
 
 	for ( i=0; i<NBINS; i++ ) {
 
-- 
cgit v1.2.3