diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2006-01-10 15:37:08 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2006-01-10 15:37:08 +0000 |
| commit | a1ff15bd67bbd22c6fcc986eb623866e545bc629 (patch) | |
| tree | 50f8fccb752820a1b9db17c84c537da8b001a58c /src/EHFinder_Constants.F90 | |
| parent | 6155a4231cf69c74670edecc6765beceb96b78f9 (diff) | |
Changed the grid function used in the flooding alogrithm (to find the number
of separate surfaces) from integer to real type in preparation to get the
area calculation to work with Carpet. Introduced a module with fuzzy
comparison routines. Testsuite still passes. Still needs to be tested in
more complicated circumstances. Please report any problems.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@199 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/EHFinder_Constants.F90')
| -rw-r--r-- | src/EHFinder_Constants.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/EHFinder_Constants.F90 b/src/EHFinder_Constants.F90 index 2162631..c2c316e 100644 --- a/src/EHFinder_Constants.F90 +++ b/src/EHFinder_Constants.F90 @@ -16,4 +16,6 @@ module EHFinder_Constants CCTK_REAL, parameter :: fourthirds = four / three CCTK_REAL, parameter :: quarter = 0.25d0 CCTK_REAL, parameter :: pi = 3.1415926535897932385d0 + CCTK_REAL, parameter :: small = 1.0d-10 + integer, parameter :: wp = kind(zero) end module EHFinder_Constants |