diff options
| -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 |