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 --- src/AHFinder_gau.F | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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