diff options
-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 |