diff options
| author | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-02-20 00:23:21 +0000 |
|---|---|---|
| committer | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-02-20 00:23:21 +0000 |
| commit | 1b5b7caf5fe5d28854af85fe7d4995e391093fa7 (patch) | |
| tree | 9336bc3b4fdb7f65ef70c66dd20b7765a0786530 | |
| parent | 343141082de9006539e19ace6e73c94cac6895c0 (diff) | |
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
| -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 |