From 14735d1f986801617fae93076b8b25c111d101fd Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Tue, 21 Sep 1999 11:21:17 +0000
Subject: Mainly changing to new IO parameters and synchronising routines

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@26 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/WaveToy.F77 | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index e0a9453..600c65f 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -50,8 +50,6 @@ c     -----------------
       dz = CCTK_DELTA_SPACE(3)
       dt = CCTK_DELTA_TIME
 
-      test = cctk_time
-      call CCTK_OutputVarAsByMethod(ierr,cctkGH,"WaveToyF77::test","IOScalar","Gab")
       istart = 2
       jstart = 2
       kstart = 2
@@ -127,14 +125,14 @@ c     Declare arguement list
 c     Declare parameters
       DECLARE_CCTK_PARAMETERS
 
+c     Declare functions
+      DECLARE_CCTK_FUNCTIONS
+
 c     Local declarations
       CCTK_REAL zero,one
       integer ierr
       integer sw(3)
 
-c     Cactus declarations
-      integer CCTK_Equals
-
       zero = 0.0
       one = 1.0
 
-- 
cgit v1.2.3