From 8ea9b2ed5643c2431a6c00e799d06da23515a0e5 Mon Sep 17 00:00:00 2001
From: allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e>
Date: Sun, 20 Feb 2000 00:23:23 +0000
Subject: Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@25 41e88fdd-2190-4c69-9c84-4659c8cf322e
---
 src/SourceData.F77 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/SourceData.F77 b/src/SourceData.F77
index 5b850fc..41b36ba 100644
--- a/src/SourceData.F77
+++ b/src/SourceData.F77
@@ -13,7 +13,7 @@
 
 #include "CactusElliptic/EllBase/src/EllBase.h"
 
-      subroutine UniformCharge(CCTK_FARGUMENTS)
+      subroutine UniformCharge(CCTK_ARGUMENTS)
 
 c     Find static field for a uniformly charge sphere
 c
@@ -23,7 +23,7 @@ c     where Q is the total charge and R is the sphere radius
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
 
       CCTK_REAL pi
-- 
cgit v1.2.3