diff options
| author | schnetter <schnetter@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2004-01-16 11:32:31 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2004-01-16 11:32:31 +0000 |
| commit | 56bfadeeb6da3d84fdac72a4c36a32c4e1a6da57 (patch) | |
| tree | a9f9449cc4ed74aeee7f52f576800def2faa39ab | |
| parent | c02cf2fedae18719a4192e9fc18bce625692a21f (diff) | |
Use double precision value for pi
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@62 f5a6acaf-da7d-456b-b0a8-35edbc60b392
| -rw-r--r-- | src/InitialData.F77 | 4 |
1 files changed, 3 insertions, 1 deletions
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 |