From 79144109b1d9b20480b8ed9eeebc111625490a8a Mon Sep 17 00:00:00 2001
From: goodale <goodale@071ba4cb-2270-47cd-a45a-3e542e115664>
Date: Mon, 17 May 2004 12:28:58 +0000
Subject: Untabified.  Please try to adhere to the Cactus coding guidelines
 when modifying or adding files.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveC/trunk@32 071ba4cb-2270-47cd-a45a-3e542e115664
---
 src/InitialData.c | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/InitialData.c b/src/InitialData.c
index 7eaa6a7..2261b97 100644
--- a/src/InitialData.c
+++ b/src/InitialData.c
@@ -4,7 +4,7 @@
    @author    Werner Benger   
    @desc 
               Initial data for the 3D Wave Equation
-	      Derived from Tom Goodale
+              Derived from Tom Goodale
    @enddesc 
    @version $Header$
  @@*/
@@ -98,17 +98,17 @@ void IDScalarWaveC_InitialData(CCTK_ARGUMENTS)
 
           phi[index] = amplitude*exp( - sqr( (R - radius) / sigma ) );
 
- 	  if (R == 0.0) 
-	  {
-	    phi_p[index] = amplitude*(1.0 - 2.0*dt*dt/sigma)*exp(-dt*dt/sigma);
-	  }
-	  else
-	  {
-	    phi_p[index] = amplitude/2.0*(R-dt)/R*
-	      exp( - sqr( (R - radius - dt)/ sigma ) )
-	      + amplitude/2.0*(R+dt)/R*
-	      exp( - sqr( (R - radius + dt)/ sigma ) );
-	  }
+          if (R == 0.0) 
+          {
+            phi_p[index] = amplitude*(1.0 - 2.0*dt*dt/sigma)*exp(-dt*dt/sigma);
+          }
+          else
+          {
+            phi_p[index] = amplitude/2.0*(R-dt)/R*
+              exp( - sqr( (R - radius - dt)/ sigma ) )
+              + amplitude/2.0*(R+dt)/R*
+              exp( - sqr( (R - radius + dt)/ sigma ) );
+          }
         } 
       }
     }
-- 
cgit v1.2.3