From 35df63e10dc326578441fed2f9d67a54255dded3 Mon Sep 17 00:00:00 2001
From: allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Sun, 20 Feb 2000 00:23:27 +0000
Subject: Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@38 f80f6fb6-8356-4fd4-90bc-d84ad503c100
---
 src/InitSymBound.F |  4 ++--
 src/WaveToy.F      | 13 ++++---------
 2 files changed, 6 insertions(+), 11 deletions(-)

diff --git a/src/InitSymBound.F b/src/InitSymBound.F
index 8f946cf..3b44602 100644
--- a/src/InitSymBound.F
+++ b/src/InitSymBound.F
@@ -25,11 +25,11 @@
 
 @@*/
 
-      subroutine WaveToyF90_InitSymBound(CCTK_FARGUMENTS)
+      subroutine WaveToyF90_InitSymBound(CCTK_ARGUMENTS)
 
       implicit none
       
-      DECLARE_CCTK_FARGUMENTS 
+      DECLARE_CCTK_ARGUMENTS 
 
       INTEGER, DIMENSION(3) :: sym = 1
 
diff --git a/src/WaveToy.F b/src/WaveToy.F
index d9b150f..17022d3 100644
--- a/src/WaveToy.F
+++ b/src/WaveToy.F
@@ -7,13 +7,8 @@
    @enddesc 
  @@*/
 
-! Using Cactus infrastructure
 #include "cctk.h" 
-
-! Using Cactus parameters
 #include "cctk_Parameters.h"
-
-! Using Cactus arguments lists
 #include "cctk_Arguments.h"
 
 
@@ -32,11 +27,11 @@
 
 @@*/
 
-      subroutine WaveToyf90_Evolution(CCTK_FARGUMENTS)
+      subroutine WaveToyf90_Evolution(CCTK_ARGUMENTS)
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
 
 !     Declare local variables
@@ -109,11 +104,11 @@
 
 @@*/
 
-      subroutine WaveToyF90_Boundaries(CCTK_FARGUMENTS)
+      subroutine WaveToyF90_Boundaries(CCTK_ARGUMENTS)
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
       DECLARE_CCTK_FUNCTIONS
 
-- 
cgit v1.2.3