diff options
| author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2000-02-20 00:23:23 +0000 |
|---|---|---|
| committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2000-02-20 00:23:23 +0000 |
| commit | 8ea9b2ed5643c2431a6c00e799d06da23515a0e5 (patch) | |
| tree | d51afbaeab20a242f835f200f04c7261d7e47999 | |
| parent | 7496700b1585d3d169e116858d4c9adaea7ed12c (diff) | |
Replacing CCTK_CARGUMENTS with CCTK_ARGUMENTS etc and some tidying
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@25 41e88fdd-2190-4c69-9c84-4659c8cf322e
| -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 |