diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-10-08 20:43:33 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-10-08 20:43:33 +0000 |
commit | 9882f6095edcfe85002713856243046620f1df17 (patch) | |
tree | 78c075b78b7409dc806b29be0e75f1e70f5a5d5f /src/AHFinder_dat.F | |
parent | ca51933e7c9468e7830cdb67c204895a5c1bd001 (diff) |
minor cleaning up, plus a stupid fix to a problem with the absoft compiler.
It turns out I needed to change the order of two definitions to stop the
damm compiler from inventing a non-existent NaN. &%$#*!
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@316 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_dat.F')
-rw-r--r-- | src/AHFinder_dat.F | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F index 4e31ed8..a7fc589 100644 --- a/src/AHFinder_dat.F +++ b/src/AHFinder_dat.F @@ -49,6 +49,8 @@ CCTK_REAL hw,cw,nw CCTK_REAL dx,dy,dz + CCTK_REAL avgx,avgy,avgz + CCTK_REAL, allocatable, dimension (:) :: c0,c0_0,c0_1,c0_2,c0_old CCTK_REAL, allocatable, dimension (:,:) :: cc,cc_0,cc_1,cc_2,cc_old CCTK_REAL, allocatable, dimension (:,:) :: cs,cs_0,cs_1,cs_2,cs_old @@ -59,8 +61,6 @@ character*200 filestr - CCTK_REAL avgx, avgy - data ahf_ncall / 0 / data status_old / .false. / data status_old_0 / .false. / @@ -163,9 +163,11 @@ ! ! inside_min_neg_count Number of elements in integral that have ! negative expansion. +! +! avgx X-position of centroid of apparent horizon +! avgy Y-position of centroid of apparent horizon +! avgz Z-position of centroid of apparent horizon -! avgx X-position of centroid of apparent horizon -! avgy Y-position of centroid of apparent horizon ! *************** ! *** END *** |