From f6d95bc7f26a5900d001e98d7cf36e9a1981b7f0 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Fri, 11 May 2018 13:18:04 +0200 Subject: Fix up scaling definitions --- src/scaling.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/scaling.c') diff --git a/src/scaling.c b/src/scaling.c index 7f9b4cff..cabc5952 100644 --- a/src/scaling.c +++ b/src/scaling.c @@ -267,7 +267,7 @@ int scale_one_crystal(Crystal *cr, const RefList *listR, int flags) } x[n] = s*s; - y[n] = log(IhR) - log(pS) + log(LS) - log(IhS); + y[n] = log(LS) + log(IhS) -log(pS) - log(IhR); w[n] = pS; n++; @@ -329,7 +329,7 @@ int scale_one_crystal(Crystal *cr, const RefList *listR, int flags) } crystal_set_osf(cr, exp(G)); - crystal_set_Bfac(cr, B); + crystal_set_Bfac(cr, -B); free(x); free(y); -- cgit v1.2.3