From f18ca6b9d89738650c6d53340044c6b44048df75 Mon Sep 17 00:00:00 2001
From: allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Mon, 27 Sep 1999 15:43:21 +0000
Subject: Restructuring a litte

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@22 f80f6fb6-8356-4fd4-90bc-d84ad503c100
---
 src/WaveToy.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/WaveToy.F b/src/WaveToy.F
index 1c9bc8f..d493fe3 100644
--- a/src/WaveToy.F
+++ b/src/WaveToy.F
@@ -101,7 +101,7 @@
    @desc 
                Boundary conditions for the wave equation
    @enddesc 
-   @calls      ApplyFlatBC,ApplyRadiativeBC 
+   @calls      FlatBC,RadiativeBC 
    @calledby   
    @history 
  
@@ -122,7 +122,7 @@
       CCTK_REAL,parameter :: zero = 0.0
       CCTK_REAL,parameter :: one = 1.0
       
-      call ApplySymmetry(cctkGH,"wavetoyf90::temps")
+      call CartSymBCGroup(ierr,cctkGH,"wavetoyf90::temps")
 
       if (CCTK_EQUALS(bound,"flat")) then
          call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyf90::phi_tmp")
-- 
cgit v1.2.3