diff options
| author | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2001-06-25 09:33:47 +0000 |
|---|---|---|
| committer | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2001-06-25 09:33:47 +0000 |
| commit | 0f801cca9757d29e2da4753dde2b5a03a3ff0c83 (patch) | |
| tree | d9165ce919c8f2166aba734b21be816a48dd96eb | |
| parent | e2514bd7c8e4e4ae218b25fed1e86e16b3ae1554 (diff) | |
FARGUMENTS -> ARGUMENTS
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@56 a678b1cf-93e1-4b43-a69d-d43939e66649
| -rw-r--r-- | src/brilldata.F | 10 | ||||
| -rw-r--r-- | src/finishbrilldata.F | 4 | ||||
| -rw-r--r-- | src/setupbrilldata2D.F | 4 | ||||
| -rw-r--r-- | 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 |