diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-05-20 12:43:50 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-05-20 12:43:50 +0000 |
| commit | f4c43aa510c36db424ab465e3b3894aa9463f25b (patch) | |
| tree | d67f42a2b40aeadec5da6261257171a2c4e28fc9 /src/EHFinder_Constants.F90 | |
| parent | d15331dcc9cb3e73e829fe9f4145baf09ed37ed3 (diff) | |
First partial working version. Only re-parametrization with pde using
second order upwinded differences are working. Haven't checked octant or
any other symmetries yet. Approximate re-parametrization was broken when
I tried to add support for octant symmetry. Not yet converted to Einstein 2.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@5 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/EHFinder_Constants.F90')
| -rw-r--r-- | src/EHFinder_Constants.F90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/EHFinder_Constants.F90 b/src/EHFinder_Constants.F90 new file mode 100644 index 0000000..3da3c8e --- /dev/null +++ b/src/EHFinder_Constants.F90 @@ -0,0 +1,12 @@ +#include "cctk.h" + +module EHFinder_Constants + CCTK_REAL, parameter :: zero = 0.0d0 + CCTK_REAL, parameter :: one = 1.0d0 + CCTK_REAL, parameter :: two = 2.0d0 + CCTK_REAL, parameter :: three = 3.0d0 + CCTK_REAL, parameter :: four = 4.0d0 + CCTK_REAL, parameter :: half = 0.5d0 + CCTK_REAL, parameter :: tenth = 0.1d0 + CCTK_REAL, parameter :: huge = 1d23 +end module EHFinder_Constants |