diff options
author | pollney <pollney@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-07-15 11:12:40 +0000 |
---|---|---|
committer | pollney <pollney@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-07-15 11:12:40 +0000 |
commit | 70840b9b6f6fcf7ce3fd23b6f48edfbe809013ce (patch) | |
tree | 810f79e1fa066bdc138d4d368386d958af72642a /src/AHFinder_gau.F | |
parent | 5faffa4d9898bd195d817bb79cb545c6cf422812 (diff) |
Added explicit array bounds to avoid triggering fp exception on Alphas
(Peter and Frank's fix).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@314 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_gau.F')
-rw-r--r-- | src/AHFinder_gau.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 9e8ca67..05160c3 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -595,8 +595,8 @@ ahf_centroid_y = avgy if (verbose) then - write(1,*) 'AHFinder_gau: ahf_centroid_x = ', ahf_centroid_x - write(1,*) 'AHFinder_gau: ahf_centroid_y = ', ahf_centroid_y + write(6,*) 'AHFinder_gau: ahf_centroid_x = ', ahf_centroid_x + write(6,*) 'AHFinder_gau: ahf_centroid_y = ', ahf_centroid_y end if endif |