From f1be0544bed4e542eff57b3d5ae635b48512c5a7 Mon Sep 17 00:00:00 2001
From: bentivegna <bentivegna@ef6f4158-a8ee-47d1-ba14-cb73256398e0>
Date: Sat, 10 Jul 2010 18:28:54 +0000
Subject: Fixed sign typo in Legendre polynomial derivative dp5. Regenerated
 testsuites to reflect the correct value of J5.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@27 ef6f4158-a8ee-47d1-ba14-cb73256398e0
---
 src/qlm_multipoles.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/qlm_multipoles.F90 b/src/qlm_multipoles.F90
index 9068f89..b8fab9b 100644
--- a/src/qlm_multipoles.F90
+++ b/src/qlm_multipoles.F90
@@ -220,7 +220,7 @@ contains
   function dp5 (z)
     CCTK_REAL, intent(in) :: z
     CCTK_REAL             :: dp5
-    dp5 = 315*eighth * z**4 - 105*fourth * z**2 - 15*eighth
+    dp5 = 315*eighth * z**4 - 105*fourth * z**2 + 15*eighth
   end function dp5
   
   function dp6 (z)
-- 
cgit v1.2.3