From 1665474b3df0b4aabe87c67c61776ac5981cc9d5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marek=20Ne=C4=8Dada?= <marek@necada.org>
Date: Sun, 6 May 2018 20:38:33 +0000
Subject: [PATCH] Fix translation coefficient magnitude factor for power norm.

Former-commit-id: 645b9b3517af9d2c2a9ef3e0223307d21f3c89fa
---
 qpms/translations.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/qpms/translations.c b/qpms/translations.c
index e2003f6..f79f00a 100644
--- a/qpms/translations.c
+++ b/qpms/translations.c
@@ -152,7 +152,9 @@ static inline double qpms_trans_normfac(qpms_normalisation_t norm,
   double normfac = 1.;
   switch(norm) {
     case QPMS_NORMALISATION_KRISTENSSON:
-      normfac *= sqrt((nu*(nu+1.))/(n*(n+1.)));
+      normfac *= sqrt((n*(n+1.))/(nu*(nu+1.)));
+      normfac *= sqrt((2.*n+1)/(2.*nu+1));
+      break;
     case QPMS_NORMALISATION_TAYLOR:
       normfac *= sqrt((2.*n+1)/(2.*nu+1));
       break;