From 582028ec9bb2a7d509f2a93fec560d4b918e5611 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 10 May 2000 11:56:18 +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/WaveToyFreeF90/trunk@19 daab82bb-f315-4ad1-b6d0-9353ff8b6e27 --- src/InitSymBound.F90 | 5 +++-- src/WaveToy.F90 | 8 ++++---- 2 files changed, 7 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90 index 2e8be89..8822a73 100644 --- a/src/InitSymBound.F90 +++ b/src/InitSymBound.F90 @@ -30,9 +30,10 @@ subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS) implicit none 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 WaveToyFreeF90_InitSymbound diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 58e337f..c4e1f87 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -48,14 +48,14 @@ subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS) CCTK_REAL :: dx2i,dy2i,dz2i CCTK_REAL :: factor - + ! Set up shorthands ! ----------------- dx = CCTK_DELTA_SPACE(1) dy = CCTK_DELTA_SPACE(2) dz = CCTK_DELTA_SPACE(3) dt = CCTK_DELTA_TIME - + dx2 = dx*dx dy2 = dy*dy dz2 = dz*dz @@ -101,7 +101,7 @@ end subroutine WaveToyFreeF90_Evolution @desc Boundary conditions for the wave equation @enddesc - @calls FlatBC,RadiativeBC + @calls CartSymGH,FlatBC,RadiativeBC @calledby @history @@ -122,7 +122,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) 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