From 3e5e03210ed8588666f9ede00b9907524f27634d Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 1 Aug 2013 16:07:28 +0200 Subject: Fix Lorentz gradient --- src/post-refinement.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/post-refinement.c b/src/post-refinement.c index 3082aa74..3716d728 100644 --- a/src/post-refinement.c +++ b/src/post-refinement.c @@ -238,7 +238,7 @@ double l_gradient(Crystal *cr, int k, Reflection *refl, PartialityModel pmodel) ds = 2.0 * resolution(crystal_get_cell(cr), hs, ks, ls); - return 2.0*crystal_get_profile_radius(cr)*ds; + return -ds*pow(get_lorentz(refl), 2.0) / crystal_get_profile_radius(cr); } -- cgit v1.2.3