From 1b5b7caf5fe5d28854af85fe7d4995e391093fa7 Mon Sep 17 00:00:00 2001 From: allen Date: Sun, 20 Feb 2000 00:23:21 +0000 Subject: Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@30 f5a6acaf-da7d-456b-b0a8-35edbc60b392 --- src/CheckParameters.F77 | 4 ++-- src/InitialData.F77 | 4 ++-- 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 -- cgit v1.2.3