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