From c82d837a6a56e80113435f2430e7c558130597cb Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@7ec00dc9-1e7a-42ad-bf73-a299ee168e72>
Date: Thu, 5 Nov 2009 04:32:54 +0000
Subject: Correct Gaussian initial data for R=0

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveCXX/trunk@52 7ec00dc9-1e7a-42ad-bf73-a299ee168e72
---
 src/InitialData.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/InitialData.cc b/src/InitialData.cc
index 2ffa8b8..7cc6f76 100644
--- a/src/InitialData.cc
+++ b/src/InitialData.cc
@@ -82,7 +82,7 @@ extern "C" void IDScalarWaveCXX_InitialData(CCTK_ARGUMENTS)
           phi[vindex] = amplitude*exp( - square( (R - radius) / sigma ) );
            if (R == 0.0)
           {
-            phi_p[vindex] = amplitude*(1.0 - 2.0*dt*dt/sigma)*exp(-dt*dt/sigma);
+            phi_p[vindex] = amplitude*(1.0 - 2.0*dt*dt/sigma/sigma)*exp(-dt*dt/sigma/sigma);
           }
           else
           {
-- 
cgit v1.2.3