diff options
author | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-08-04 12:00:37 +0000 |
---|---|---|
committer | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-08-04 12:00:37 +0000 |
commit | bdf522d3ea037c4d507694a35a210a79b1217675 (patch) | |
tree | 00c8a581e0e48069e1bbe0ac13758b8a9c9c8e44 | |
parent | 6687c44ec86e4aaf48b14a5ee9a4d2638b515d42 (diff) |
Changed the new driftcorrect parameters to conform with the Fortran 90
standard of variable names being maximum 31 characters (instead of
conforming to Jonathans long parameter convention used in AHFinderDirect).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@353 89daf98e-ef62-4674-b946-b8ff9de2216c
-rw-r--r-- | param.ccl | 4 | ||||
-rw-r--r-- | src/AHFinder_gau.F | 8 |
2 files changed, 6 insertions, 6 deletions
@@ -375,14 +375,14 @@ REAL ahf_minchange "Minimum relative difference between 1 big and 2 small steps" ###################################### ### Parameters related to centroid ### ###################################### -INT which_horizon_to_announce_centroid \ +INT horizon_to_announce_centroid \ "For which horizon should we announce the centroid to driftcorrect" { 0 :: "don't announce the centroid" 1:3 :: "announce this horizon's centroid each time we find it" } 0 -INT which_horizon_to_output_centroid \ +INT horizon_to_output_centroid \ "For which horizon should we output the centroid" { 0 :: "don't output any centroids" diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 5de6103..3785e6d 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -659,8 +659,8 @@ call CCTK_WARN(1,"Reduction failed!") end if - if ( ( which_horizon_to_announce_centroid .gt. 0 ) .and. - . ( which_horizon_to_announce_centroid .eq. mfind ) ) then + if ( ( horizon_to_announce_centroid .gt. 0 ) .and. + . ( horizon_to_announce_centroid .eq. mfind ) ) then call CCTK_IsFunctionAliased(ierror, . "SetDriftCorrectPosition") @@ -672,8 +672,8 @@ end if end if - if ( ( which_horizon_to_output_centroid .gt. 0 ) .and. - . ( which_horizon_to_output_centroid .eq. mfind ) ) then + if ( ( horizon_to_output_centroid .gt. 0 ) .and. + . ( horizon_to_output_centroid .eq. mfind ) ) then ahf_centroid_x = rahf_centroid(1) ahf_centroid_y = rahf_centroid(2) |