From 020b175c9d88d9b858447b26ff55863a4841de7a Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Wed, 10 May 2000 11:56:17 +0000
Subject: New names for macros calling fortran from C

Fixing names of deprecated symmetry boundary condition routines which
will be removed now


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

diff --git a/src/InitSymBound.F77 b/src/InitSymBound.F77
index cf5c2b4..9cc9271 100644
--- a/src/InitSymBound.F77
+++ b/src/InitSymBound.F77
@@ -33,13 +33,14 @@
       
       INTEGER one
       PARAMETER (one = 1)
+      INTEGER ierr
       INTEGER sym(3)
 
       sym(1) = one
       sym(2) = one
       sym(3) = one
 
-      call SetCartSymmetry(cctkGH, sym,'wavetoy::phi')
+      call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::phi')
 
       return
       end 
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 4a363a5..cb5092f 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -100,7 +100,7 @@ c     ----------------
    @desc 
                Boundary conditions for the wave equation
    @enddesc 
-   @calls      CartSymBCGroup,FlatBC,RadiativeBC 
+   @calls      CartSymGN,FlatBC,RadiativeBC 
    @history 
  
    @endhistory 
@@ -130,13 +130,13 @@ c     Local declarations
 
 c     Set the stencil width
 c     ---------------------
-      sw(1)=1
+      sw(1)=1  
       sw(2)=1
       sw(3)=1
 
 c     Apply the symmetry boundary conditions on any coordinate axes
 c     -------------------------------------------------------------
-      call CartSymBCGroup(ierr,cctkGH,"wavetoy::scalarevolve")
+      call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve")
 
 c     Apply the outer boundary conditions
 c     -----------------------------------
-- 
cgit v1.2.3