From 50d5e8466223ca0c924541c93ae11e1d987338ea Mon Sep 17 00:00:00 2001
From: miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Tue, 2 Nov 1999 14:28:25 +0000
Subject: Changing REAL to CCTK_REAL in a few places.  Should make little
 difference.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@26 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 src/AHFinder.F | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/AHFinder.F')

diff --git a/src/AHFinder.F b/src/AHFinder.F
index d7aee7b..d55eef1 100644
--- a/src/AHFinder.F
+++ b/src/AHFinder.F
@@ -7,7 +7,6 @@ c             Find an apparent horizon.
 c  @enddesc 
 c@@*/
 
-
 #include "cctk.h"
 #include "cctk_parameters.h"
 #include "cctk_arguments.h"
@@ -596,11 +595,13 @@ c@@*/
 
          xc = zero
          yc = zero
+
          rmx = min(xmx,zmx-zc,zc-zmn)
 
 !     Octant.
 
       else if (CCTK_Equals(domain,"octant").eq.1) then
+
          if ((xc.eq.zero).and.(yc.eq.zero).and.(zc.eq.zero)) then
             rmx = min(xmx,ymx,zmx)
          else if ((xc.eq.zero).and.(yc.eq.zero)) then
-- 
cgit v1.2.3