diff options
-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 |