From f0498f53f32d76f3b4c8413191fa205c8ce0fc4e Mon Sep 17 00:00:00 2001 From: allen Date: Sun, 20 Feb 2000 00:23:27 +0000 Subject: Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@12 daab82bb-f315-4ad1-b6d0-9353ff8b6e27 --- src/InitSymBound.F90 | 4 ++-- src/WaveToy.F90 | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90 index 9142825..958aafa 100644 --- a/src/InitSymBound.F90 +++ b/src/InitSymBound.F90 @@ -25,11 +25,11 @@ @@*/ -subroutine WaveToyFreeF90_InitSymBound(CCTK_FARGUMENTS) +subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS INTEGER, DIMENSION(3) :: sym = 1 diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index ea6b410..eaa279c 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -32,11 +32,11 @@ @@*/ -subroutine WaveToyFreeF90_Evolution(CCTK_FARGUMENTS) +subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS ! Declare local variables @@ -109,11 +109,11 @@ end subroutine WaveToyFreeF90_Evolution @@*/ -subroutine WaveToyFreeF90_Boundaries(CCTK_FARGUMENTS) +subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -125,7 +125,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_FARGUMENTS) call CartSymBCGroup(ierr,cctkGH,"wavetoyfreef90::temps") if (CCTK_EQUALS(bound,"flat")) then - call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyfreef90::phi_tmp") + call FlatBCVar(ierr,cctkGH,sw,"wavetoyfreef90::phi_tmp") else if (CCTK_EQUALS(bound,"radiation")) then call RadiativeBCVar(ierr,cctkGH,zero,one,sw, & "wavetoyfreef90::phi_tmp","wavetoy::phi") -- cgit v1.2.3