diff options
-rw-r--r-- | src/InitSymBound.F77 | 4 | ||||
-rw-r--r-- | src/WaveToy.F77 | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/InitSymBound.F77 b/src/InitSymBound.F77 index 6cfd6d5..423b35c 100644 --- a/src/InitSymBound.F77 +++ b/src/InitSymBound.F77 @@ -25,11 +25,11 @@ @@*/ - subroutine WaveToyF77_InitSymBound(CCTK_FARGUMENTS) + subroutine WaveToyF77_InitSymBound(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS INTEGER one PARAMETER (one = 1) diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 0cc5612..13e1fad 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -11,10 +11,10 @@ c Using Cactus infrastructure #include "cctk.h" c Using Cactus parameters -#include "cctk_Parameters.h" +#include "cctk_parameters.h" c Using Cactus arguments lists -#include "cctk_Arguments.h" +#include "cctk_arguments.h" /*@@ @@ -32,12 +32,12 @@ c Using Cactus arguments lists @@*/ - subroutine WaveToyF77_Evolution(CCTK_FARGUMENTS) + subroutine WaveToyF77_Evolution(CCTK_ARGUMENTS) implicit none c Declare variables in argument list - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS INTEGER i,j,k,ierr INTEGER istart, jstart, kstart, iend, jend, kend @@ -115,12 +115,12 @@ c ----------------- @@*/ - subroutine WaveToyF77_Boundaries(CCTK_FARGUMENTS) + subroutine WaveToyF77_Boundaries(CCTK_ARGUMENTS) implicit none c Declare arguement list - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS c Declare parameters DECLARE_CCTK_PARAMETERS |