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 /src/brilldata.F | |
parent | e2514bd7c8e4e4ae218b25fed1e86e16b3ae1554 (diff) |
FARGUMENTS -> ARGUMENTS
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@56 a678b1cf-93e1-4b43-a69d-d43939e66649
Diffstat (limited to 'src/brilldata.F')
-rw-r--r-- | src/brilldata.F | 10 |
1 files changed, 5 insertions, 5 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 |