Correct Gaussian initial data for R=0HEADmaster

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveCXX/trunk@52 7ec00dc9-1e7a-42ad-bf73-a299ee168e72

1 files changed, 1 insertions, 1 deletions

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
           {