From 97193f88afab414256103894cd4488f255c37b36 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Wed, 9 Nov 2011 11:27:15 +0100
Subject: get_hkl: Only expand phases we have

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

diff --git a/src/get_hkl.c b/src/get_hkl.c
index 7d3b5181..cb0446d8 100644
--- a/src/get_hkl.c
+++ b/src/get_hkl.c
@@ -264,6 +264,8 @@ static RefList *expand_reflections(RefList *in, const SymOpList *target,
 
 			signed int he, ke, le;
 			Reflection *new;
+			int have_phase;
+			double ph;
 
 			/* Get the equivalent */
 			get_equiv(initial, m, j, h, k, l, &he, &ke, &le);
@@ -277,6 +279,10 @@ static RefList *expand_reflections(RefList *in, const SymOpList *target,
 
 			/* FIXME: Make phase negative if the reflection is
 			 * separated from the original via an inversion */
+			get_phase(refl, &have_phase);
+			if ( have_phase ) {
+				set_ph(new, -ph);
+			}
 
 		}
 
-- 
cgit v1.2.3