diff options
author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-02-20 00:23:26 +0000 |
---|---|---|
committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-02-20 00:23:26 +0000 |
commit | feb3fdae14c161c08825b9c85163008cd8cf19ef (patch) | |
tree | 0182d3e624e20c2a65297a02baff2e5efb473330 /src | |
parent | 5f9dc7ff2aee71833f5f400f8ec27cb96fb10db6 (diff) |
Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@44 4451c3c6-1034-4891-99ea-21147727ccdf
Diffstat (limited to 'src')
-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 |