diff options
-rw-r--r-- | src/SourceData.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 5b850fc..41b36ba 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -13,7 +13,7 @@ #include "CactusElliptic/EllBase/src/EllBase.h" - subroutine UniformCharge(CCTK_FARGUMENTS) + subroutine UniformCharge(CCTK_ARGUMENTS) c Find static field for a uniformly charge sphere c @@ -23,7 +23,7 @@ c where Q is the total charge and R is the sphere radius implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS CCTK_REAL pi |