diff options
| author | allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-02-20 00:23:27 +0000 |
|---|---|---|
| committer | allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-02-20 00:23:27 +0000 |
| commit | f0498f53f32d76f3b4c8413191fa205c8ce0fc4e (patch) | |
| tree | 062deb572836c6e7b89374453da764547b6f38fe | |
| parent | 5c59daa5c6829fc28f4e1bce711ef4694b6535be (diff) | |
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
| -rw-r--r-- | src/InitSymBound.F90 | 4 | ||||
| -rw-r--r-- | 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") |