diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-02 14:28:25 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-02 14:28:25 +0000 |
| commit | 50d5e8466223ca0c924541c93ae11e1d987338ea (patch) | |
| tree | b35a937bc79723024cccecbcb45de0cad6d03305 /src/AHFinder.F | |
| parent | e37f577a4c106d837ffd31f368689b47274eab0c (diff) | |
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
Diffstat (limited to 'src/AHFinder.F')
| -rw-r--r-- | src/AHFinder.F | 3 |
1 files changed, 2 insertions, 1 deletions
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 |