diff options
| author | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-06-25 09:33:43 +0000 |
|---|---|---|
| committer | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-06-25 09:33:43 +0000 |
| commit | 813f88567ff43f38692ec43f1a5a93a69dd34c5a (patch) | |
| tree | d9c8842ddb8dc5620e2c39ef94dca8405071de70 /src/AHFinder_initguess.F | |
| parent | 91cef16950abc8508421b44eb9e4a60c6a01dc99 (diff) | |
FARGUMENTS -> ARGUMENTS
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@211 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_initguess.F')
| -rw-r--r-- | src/AHFinder_initguess.F | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/AHFinder_initguess.F b/src/AHFinder_initguess.F index cf0a8b2..b094a1f 100644 --- a/src/AHFinder_initguess.F +++ b/src/AHFinder_initguess.F @@ -11,13 +11,13 @@ #include "cctk_Parameters.h" #include "cctk_Arguments.h" - subroutine AHFinder_initguess(CCTK_FARGUMENTS,rmx) + subroutine AHFinder_initguess(CCTK_ARGUMENTS,rmx) use AHFinder_dat implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS integer i,j @@ -98,8 +98,8 @@ c0(2) = (0.5D0*dble(j)/dble(nn2) - 0.25D0)*aux - call AHFinder_fun(CCTK_FARGUMENTS) - call AHFinder_exp(CCTK_FARGUMENTS) + call AHFinder_fun(CCTK_ARGUMENTS) + call AHFinder_exp(CCTK_ARGUMENTS) do i=0,nn0 @@ -108,7 +108,7 @@ a0(i,j) = c0(0) a2(i,j) = c0(2) - call AHFinder_int(CCTK_FARGUMENTS) + call AHFinder_int(CCTK_ARGUMENTS) if (minarea) then aa(i,j) = intarea @@ -190,8 +190,8 @@ else - call AHFinder_fun(CCTK_FARGUMENTS) - call AHFinder_exp(CCTK_FARGUMENTS) + call AHFinder_fun(CCTK_ARGUMENTS) + call AHFinder_exp(CCTK_ARGUMENTS) do i=0,nn0 @@ -199,7 +199,7 @@ a0(i,0) = c0(0) - call AHFinder_int(CCTK_FARGUMENTS) + call AHFinder_int(CCTK_ARGUMENTS) if (minarea) then aa(i,0) = intarea |