From 0f801cca9757d29e2da4753dde2b5a03a3ff0c83 Mon Sep 17 00:00:00 2001
From: allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649>
Date: Mon, 25 Jun 2001 09:33:47 +0000
Subject: FARGUMENTS -> ARGUMENTS

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@56 a678b1cf-93e1-4b43-a69d-d43939e66649
---
 src/brilldata.F        | 10 +++++-----
 src/finishbrilldata.F  |  4 ++--
 src/setupbrilldata2D.F |  4 ++--
 src/setupbrilldata3D.F |  4 ++--
 4 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/brilldata.F b/src/brilldata.F
index 5d7906b..a91bbf9 100644
--- a/src/brilldata.F
+++ b/src/brilldata.F
@@ -15,11 +15,11 @@
 #include "CactusEinstein/Einstein/src/Einstein.h"
 #include "CactusElliptic/EllBase/src/EllBase.h"
 
-      subroutine brilldata(CCTK_FARGUMENTS)
+      subroutine brilldata(CCTK_ARGUMENTS)
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
       DECLARE_CCTK_FUNCTIONS
 
@@ -59,9 +59,9 @@ c     Get indices for grid functions.
 c     Set up background metric and coefficients for linear solve.
 
       if (axisym.eq.1) then
-         call setupbrilldata2D(CCTK_FARGUMENTS)
+         call setupbrilldata2D(CCTK_ARGUMENTS)
       else
-         call setupbrilldata3D(CCTK_FARGUMENTS)
+         call setupbrilldata3D(CCTK_ARGUMENTS)
       end if
 
 c     Tolerances for elliptic solve.
@@ -111,7 +111,7 @@ c     Synchronization and symmetry boundaries.
 
 c     Reconstruct physical metric.
 
-      call finishbrilldata(CCTK_FARGUMENTS)
+      call finishbrilldata(CCTK_ARGUMENTS)
 
       return
       end
diff --git a/src/finishbrilldata.F b/src/finishbrilldata.F
index 597c3ae..84de87e 100644
--- a/src/finishbrilldata.F
+++ b/src/finishbrilldata.F
@@ -14,11 +14,11 @@
 
 #include "CactusEinstein/Einstein/src/Einstein.h"
 
-      subroutine finishbrilldata(CCTK_FARGUMENTS)
+      subroutine finishbrilldata(CCTK_ARGUMENTS)
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
 
       integer i,j,k
diff --git a/src/setupbrilldata2D.F b/src/setupbrilldata2D.F
index e81d468..9ec5c68 100644
--- a/src/setupbrilldata2D.F
+++ b/src/setupbrilldata2D.F
@@ -14,7 +14,7 @@
 
 #include "CactusEinstein/Einstein/src/Einstein.h"
 
-      subroutine setupbrilldata2D(CCTK_FARGUMENTS)
+      subroutine setupbrilldata2D(CCTK_ARGUMENTS)
 
 c     Set up axisymmetric Brill data for elliptic solve. The elliptic
 c     equation we need to solve is:
@@ -31,7 +31,7 @@ c       f
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
 
       integer i,j,k
diff --git a/src/setupbrilldata3D.F b/src/setupbrilldata3D.F
index 8a530ce..6babf69 100644
--- a/src/setupbrilldata3D.F
+++ b/src/setupbrilldata3D.F
@@ -14,7 +14,7 @@
 
 #include "CactusEinstein/Einstein/src/Einstein.h"
 
-      subroutine setupbrilldata3D(CCTK_FARGUMENTS)
+      subroutine setupbrilldata3D(CCTK_ARGUMENTS)
 
 c     Set up 3D Brill data for elliptic solve.  The elliptic
 c     equation we need to solve is:
@@ -40,7 +40,7 @@ c      c        \         z      rho                    phi          phi    /
 
       implicit none
 
-      DECLARE_CCTK_FARGUMENTS
+      DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
 
       integer CCTK_Equals
-- 
cgit v1.2.3