diff options
| author | goodale <goodale@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-05-16 09:23:01 +0000 |
|---|---|---|
| committer | goodale <goodale@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-05-16 09:23:01 +0000 |
| commit | 8618c461870ad75d3a58176f52c41ee2ee4c753e (patch) | |
| tree | 447771c9c9c181a06e343310510c950b4fea4873 | |
| parent | 9f7f2c282ac2c2f3521c022a84c7f12a2f073030 (diff) | |
Some f90 compilers (e.g. NEC) don't like REAL*8 :: , i.e. a mix
of f77 and f90.
Tom
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@46 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -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") |