diff options
| author | shawley <shawley@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-03-06 17:01:25 +0000 |
|---|---|---|
| committer | shawley <shawley@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-03-06 17:01:25 +0000 |
| commit | cdcf6e6f02b9860a9d7ca143c0835812600f4ece (patch) | |
| tree | 408e3fc8acfddb9b79002c9d4519faa6015ee215 /src | |
| parent | e17eb9f828c826926bd608d31b3960812101723f (diff) | |
moved the place where ahf_centroid get set to outside "if (driftcorrect.."
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@282 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
| -rw-r--r-- | src/AHFinder_gau.F | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index f76d144..6389f8d 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -638,15 +638,16 @@ if ((.not.find3).or. . (find3.and.(mfind-1.eq.drift_correct_horizon))) then + ahf_centroid_x = avgx + ahf_centroid_y = avgy + write(0,*) 'AHFinder_gau: ahf_centroid_x = ',ahf_centroid_x + write(0,*) 'AHFinder_gau: ahf_centroid_y = ',ahf_centroid_y + if (drift_correct_on.eq.1) then - ahf_centroid_x = avgx - ahf_centroid_y = avgy xi_new = atan2(avgx,avgy) - write(0,*) 'AHFinder_gau: ahf_centroid_x = ',ahf_centroid_x - write(0,*) 'AHFinder_gau: ahf_centroid_y = ',ahf_centroid_y write(0,*) 'AHFinder_gau: xi_new = ',xi_new write(0,*) 'AHFinder_gau: ahf_omega_cum = ',ahf_omega_cum @@ -786,7 +787,7 @@ radvel_corr = radvel_corr_all -! ahf_radvel_corr = radvel_corr + ahf_radvel_corr = radvel_corr if (ahf_ncall.gt.1) then |