From 8618c461870ad75d3a58176f52c41ee2ee4c753e Mon Sep 17 00:00:00 2001
From: goodale <goodale@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Tue, 16 May 2000 09:23:01 +0000
Subject: 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
---
 src/WaveToy.F | 16 ++++++++--------
 1 file 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")
 
-- 
cgit v1.2.3