diff options
-rw-r--r-- | src/CheckParameters.F77 | 4 | ||||
-rw-r--r-- | src/InitialData.F77 | 4 | ||||
-rw-r--r-- | src/WaveBinary.F77 | 8 |
3 files changed, 8 insertions, 8 deletions
diff --git a/src/CheckParameters.F77 b/src/CheckParameters.F77 index 91fbf29..6d4539d 100644 --- a/src/CheckParameters.F77 +++ b/src/CheckParameters.F77 @@ -27,11 +27,11 @@ @@*/ - subroutine IDScalarWave_CheckParameters(CCTK_FARGUMENTS) + subroutine IDScalarWave_CheckParameters(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS INTEGER CCTK_Equals diff --git a/src/InitialData.F77 b/src/InitialData.F77 index f560d10..2afb52d 100644 --- a/src/InitialData.F77 +++ b/src/InitialData.F77 @@ -27,11 +27,11 @@ @@*/ - subroutine IDScalarWave_InitialData(CCTK_FARGUMENTS) + subroutine IDScalarWave_InitialData(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS diff --git a/src/WaveBinary.F77 b/src/WaveBinary.F77 index c961647..26f296f 100644 --- a/src/WaveBinary.F77 +++ b/src/WaveBinary.F77 @@ -22,12 +22,12 @@ c Using Cactus arguments lists @calledby @@*/ - subroutine WaveBinarySlow(CCTK_FARGUMENTS) + subroutine WaveBinarySlow(CCTK_ARGUMENTS) implicit none c Declare variables in argument list - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS c Declare parameters DECLARE_CCTK_PARAMETERS @@ -110,12 +110,12 @@ c ----------------- - subroutine WaveBinary(CCTK_FARGUMENTS) + subroutine WaveBinary(CCTK_ARGUMENTS) implicit none c Declare variables in argument list - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS c Declare parameters DECLARE_CCTK_PARAMETERS |