From 9f7f2c282ac2c2f3521c022a84c7f12a2f073030 Mon Sep 17 00:00:00 2001 From: allen 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/WaveToyF90/trunk@45 f80f6fb6-8356-4fd4-90bc-d84ad503c100 --- src/InitSymBound.F | 3 ++- src/WaveToy.F | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 912f0e2..d077848 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -31,9 +31,10 @@ DECLARE_CCTK_ARGUMENTS + INTEGER :: ierr INTEGER, DIMENSION(3) :: sym = 1 - call SetCartSymmetry(cctkGH, sym, 'wavetoy::phi') + call SetCartSymVN(ierr, cctkGH, sym, 'wavetoy::phi') end subroutine WaveToyF90_InitSymbound diff --git a/src/WaveToy.F b/src/WaveToy.F index 59d52ca..b234128 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -117,7 +117,7 @@ CCTK_REAL,parameter :: zero = 0.0 CCTK_REAL,parameter :: one = 1.0 - call CartSymBCGroup(ierr,cctkGH,"wavetoy::scalarevolve") + call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") if (CCTK_EQUALS(bound,"flat")) then call FlatBCVar(ierr,cctkGH,sw,"wavetoy::phi") -- cgit v1.2.3