From 56bfadeeb6da3d84fdac72a4c36a32c4e1a6da57 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f5a6acaf-da7d-456b-b0a8-35edbc60b392>
Date: Fri, 16 Jan 2004 11:32:31 +0000
Subject: Use double precision value for pi

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@62 f5a6acaf-da7d-456b-b0a8-35edbc60b392
---
 src/InitialData.F77 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/InitialData.F77 b/src/InitialData.F77
index 1dae892..7cbf7a0 100644
--- a/src/InitialData.F77
+++ b/src/InitialData.F77
@@ -36,11 +36,13 @@
       DECLARE_CCTK_PARAMETERS
       DECLARE_CCTK_FUNCTIONS
 
+      CCTK_REAL  one
+      parameter  (one = 1)
       INTEGER    i,j,k
       CCTK_REAL  dt,omega, pi
       CCTK_REAL  xp,yp,zp,rp
 
-      pi = 4.0*atan(1.0)
+      pi = 4*atan(one)
 
       dt = CCTK_DELTA_TIME
 
-- 
cgit v1.2.3