diff options
Diffstat (limited to 'src/setupbrilldata3D.F')
| -rw-r--r-- | src/setupbrilldata3D.F | 4 |
1 files changed, 2 insertions, 2 deletions
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 |