diff options
| -rw-r--r-- | src/WaveToy.F | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index b234128..f409e5c 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -35,14 +35,14 @@ DECLARE_CCTK_PARAMETERS ! Declare local variables - INTEGER :: i,j,k - INTEGER :: istart, jstart, kstart, iend, jend, kend + INTEGER i,j,k + INTEGER istart, jstart, kstart, iend, jend, kend - CCTK_REAL :: dx,dy,dz,dt - CCTK_REAL :: dx2,dy2,dz2,dt2 - CCTK_REAL :: dx2i,dy2i,dz2i + CCTK_REAL dx,dy,dz,dt + CCTK_REAL dx2,dy2,dz2,dt2 + CCTK_REAL dx2i,dy2i,dz2i - CCTK_REAL :: factor + CCTK_REAL factor ! Set up shorthands ! ----------------- @@ -114,8 +114,8 @@ integer :: ierr integer,dimension(3):: sw=1 - CCTK_REAL,parameter :: zero = 0.0 - CCTK_REAL,parameter :: one = 1.0 + double precision,parameter :: zero = 0.0 + double precision,parameter :: one = 1.0 call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") |