From bdf522d3ea037c4d507694a35a210a79b1217675 Mon Sep 17 00:00:00 2001 From: diener Date: Mon, 4 Aug 2003 12:00:37 +0000 Subject: 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 --- param.ccl | 4 ++-- src/AHFinder_gau.F | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/param.ccl b/param.ccl index aaba9a5..debc0b0 100644 --- a/param.ccl +++ b/param.ccl @@ -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) -- cgit v1.2.3