Minor change.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@72 89daf98e-ef62-4674-b946-b8ff9de2216c

1 files changed, 8 insertions, 3 deletions

diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F
index 38f0220..a8147da 100644
--- a/src/AHFinder_dat.F
+++ b/src/AHFinder_dat.F
@@ -40,6 +40,7 @@
       CCTK_REAL xc,yc,zc
       CCTK_REAL xc_old,yc_old,zc_old
       CCTK_REAL intexp,intexp2,intexpdel2,intarea
+      CCTK_REAL rhmax,rhmin
 
       CCTK_REAL hw,cw,nw
       CCTK_REAL dx,dy,dz
@@ -111,6 +112,9 @@
 !     intexp2    Integral of expansion squared over the surface.
 !     intarea    Area of the surface.
 !
+!     rhmax      Maximum radius of horizon.
+!     rhmin      Minimum radius of horizon.
+!
 !     c0(l)      Coefficients of LEGEN(l,0,cos(theta))
 !     cc(l,m)    Coefficients of LEGEN(l,m,cos(theta))*cos(m*phi)
 !     cs(l,m)    Coefficients of LEGEN(l,m,cos(theta))*sin(m*phi)
@@ -124,13 +128,14 @@
 !     interror3  Different from zero if inside mask
 !     interror   True if any of the 3 errors above are non-zero.
 !
+!     find3      Look for 3 horizons?
+!     mfind      Counter to see for which horizon we are looking.
+!
 !     inside_min_count        Number of elements in integral (should always
 !                             be ntheta*nphi)
+!
 !     inside_min_neg_count    Number of elements in integral that have
 !                             negative expansion.
-!
-!     find3      Look for 3 horizons?
-!     mfind
 
 
 !     ***************