From 0bfdaad90c504d90b02ffcaf9dfa0468e41cc1f6 Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Mon, 27 Sep 1999 15:43:19 +0000
Subject: Restructuring a litte

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@31 4451c3c6-1034-4891-99ea-21147727ccdf
---
 interface.ccl   | 6 +-----
 schedule.ccl    | 2 +-
 src/WaveToy.F77 | 4 ++--
 3 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/interface.ccl b/interface.ccl
index c23b8a0..1237dc6 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -8,12 +8,8 @@ public:
 cctk_real scalarevolve type = GF
 {
   phi
-} "The evolved scalar field"
-
-cctk_real scalarold type = GF
-{
   phi_old
-} "The scalar field at the last timestep"
+} "The evolved scalar field"
 
 private:
 
diff --git a/schedule.ccl b/schedule.ccl
index a78fd34..b611c4a 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,7 +1,7 @@
 # Schedule definitions for thorn WaveToy77
 # $Header$
 
-STORAGE: scalarevolve,scalarold
+STORAGE: scalarevolve
 
 schedule WaveToyF77_Startup at STARTUP
 {
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 63df689..53cd99f 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -108,7 +108,7 @@ c     -----------------
    @desc 
                Boundary conditions for the wave equation
    @enddesc 
-   @calls      ApplySymmetry,ApplyFlatBC,ApplyRadiativeBC 
+   @calls      CartSymBCGroup,FlatBC,RadiativeBC 
    @history 
  
    @endhistory 
@@ -144,7 +144,7 @@ c     ---------------------
 
 c     Apply the symmetry boundary conditions on any coordinate axes
 c     -------------------------------------------------------------
-      call ApplySymmetry(cctkGH,"wavetoyf77::scalartmps")
+      call CartSymBCGroup(ierr,cctkGH,"wavetoyf77::scalartmps")
 
 c     Apply the outer boundary conditions
 c     -----------------------------------
-- 
cgit v1.2.3