diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-01-22 11:56:47 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-01-22 11:56:47 +0000 |
| commit | 41c9a1b15ac878b2b49f2f31c5fdf568a7313121 (patch) | |
| tree | b0a113ca9f9dfc9d65610c6021fb294244f885da /src/AHFinder_int.F | |
| parent | 760adb1c8d598d230cedffb65385e82dab32eddc (diff) | |
Minor change.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@168 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_int.F')
| -rw-r--r-- | src/AHFinder_int.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index 5bca908..a56fd90 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -857,10 +857,10 @@ inside_min_count = inside_min_count + 1 - if ((exp(i ,j ).le.0.0d0) .and. - . (exp(i+1,j ).le.0.0d0) .and. - . (exp(i ,j+1).le.0.0d0) .and. - . (exp(i+1,j+1).le.0.0d0)) then + if ((exp(i ,j ).lt.0.0D0).and. + . (exp(i+1,j ).lt.0.0D0).and. + . (exp(i ,j+1).lt.0.0D0).and. + . (exp(i+1,j+1).lt.0.0D0)) then inside_min_neg_count = inside_min_neg_count + 1 end if |