From 2ac15877ab35dca76569376d180d1bd899e24a54 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Fri, 9 Mar 2012 15:48:41 +0100
Subject: process_hkl: Add polarisation correction and improved scaling

---
 libcrystfel/src/reflist-utils.c | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'libcrystfel/src/reflist-utils.c')

diff --git a/libcrystfel/src/reflist-utils.c b/libcrystfel/src/reflist-utils.c
index 53ab399a..a84371f3 100644
--- a/libcrystfel/src/reflist-utils.c
+++ b/libcrystfel/src/reflist-utils.c
@@ -471,3 +471,34 @@ RefList *res_cutoff(RefList *list, UnitCell *cell, double min, double max)
 	reflist_free(list);
 	return new;
 }
+
+
+/**
+ * copy_reflist:
+ * @list: A %RefList
+ *
+ * Returns: A copy of %RefList.
+ **/
+RefList *copy_reflist(RefList *list)
+{
+	Reflection *refl;
+	RefListIterator *iter;
+	RefList *new;
+
+	new = reflist_new();
+
+	for ( refl = first_refl(list, &iter);
+	      refl != NULL;
+	      refl = next_refl(refl, iter) )
+	{
+		signed int h, k, l;
+		Reflection *n;
+
+		get_indices(refl, &h, &k, &l);
+
+		n = add_refl(new, h, k, l);
+		copy_data(n, refl);
+	}
+
+	return new;
+}
-- 
cgit v1.2.3