diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-09-21 07:30:35 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-09-21 07:30:35 +0000 |
commit | 6f6d7c8478cb7ba95c637826de71961e80782b88 (patch) | |
tree | 9e4ff56e7d5197921a49062443b85302a01c6e67 /src/AHFinder_mask.F | |
parent | 328f1e9e69aedbe49d8ea537c634cf8c641a6a79 (diff) |
Fixing bug found by Mark.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@115 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_mask.F')
-rw-r--r-- | src/AHFinder_mask.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/AHFinder_mask.F b/src/AHFinder_mask.F index a23faaf..32fb5dc 100644 --- a/src/AHFinder_mask.F +++ b/src/AHFinder_mask.F @@ -68,7 +68,7 @@ if (ahfgrid(i,j,k).ge.(ahf_maskshrink-one)*c0(0)) then aux = dsqrt((x(i,j,k)-xc)**2 + (y(i,j,k)-yc)**2 - . + (z(i,j,k)-xc)**2) + . + (z(i,j,k)-zc)**2) if (rhor.gt.aux) rhor = aux else if (ahf_maskcube.eq.0) then ahmask(i,j,k) = zero |