diff options
| author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-02-20 00:23:27 +0000 |
|---|---|---|
| committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-02-20 00:23:27 +0000 |
| commit | 35df63e10dc326578441fed2f9d67a54255dded3 (patch) | |
| tree | bd7cb899cb8286c2073cbe404aa204f30a1ccf07 | |
| parent | 5cd040d3fda1635075dd2850f6d2141712560e52 (diff) | |
Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@38 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/InitSymBound.F | 4 | ||||
| -rw-r--r-- | src/WaveToy.F | 13 |
2 files changed, 6 insertions, 11 deletions
diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 8f946cf..3b44602 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -25,11 +25,11 @@ @@*/ - subroutine WaveToyF90_InitSymBound(CCTK_FARGUMENTS) + subroutine WaveToyF90_InitSymBound(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS INTEGER, DIMENSION(3) :: sym = 1 diff --git a/src/WaveToy.F b/src/WaveToy.F index d9b150f..17022d3 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -7,13 +7,8 @@ @enddesc @@*/ -! Using Cactus infrastructure #include "cctk.h" - -! Using Cactus parameters #include "cctk_Parameters.h" - -! Using Cactus arguments lists #include "cctk_Arguments.h" @@ -32,11 +27,11 @@ @@*/ - subroutine WaveToyf90_Evolution(CCTK_FARGUMENTS) + subroutine WaveToyf90_Evolution(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS ! Declare local variables @@ -109,11 +104,11 @@ @@*/ - subroutine WaveToyF90_Boundaries(CCTK_FARGUMENTS) + subroutine WaveToyF90_Boundaries(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS |