diff options
author | bentivegna <bentivegna@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-07-10 18:28:54 +0000 |
---|---|---|
committer | bentivegna <bentivegna@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-07-10 18:28:54 +0000 |
commit | f1be0544bed4e542eff57b3d5ae635b48512c5a7 (patch) | |
tree | 7b9389fcec8bdd5c23a1f73cee4e12b6518e43f7 /src | |
parent | edf12996b00fc9c671236c17f4a4a4cabad7b262 (diff) |
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
Diffstat (limited to 'src')
-rw-r--r-- | src/qlm_multipoles.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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) |