From 8b320a3c58e8644c32646f79fdc1c65116ea4a0e Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 12 Dec 2017 15:31:40 +0100
Subject: Show the list of reflections if scaling gives NAN (only if the list
 is short)

---
 src/scaling.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/scaling.c')

diff --git a/src/scaling.c b/src/scaling.c
index 02617ba8..168531e8 100644
--- a/src/scaling.c
+++ b/src/scaling.c
@@ -287,6 +287,12 @@ int linear_scale(const RefList *list1, const RefList *list2, double *G)
 	if ( isnan(*G) ) {
 		ERROR("Scaling gave NaN (%i pairs)\n", n);
 		*G = 1.0;
+		if ( n < 10 ) {
+			int i;
+			for ( i=0; i<n; i++ ) {
+				STATUS("%i %e %e %e\n", i, x[i], y[i], w[n]);
+			}
+		}
 		return 1;
 	}
 
-- 
cgit v1.2.3