diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-01-23 16:56:16 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-01-23 16:56:16 +0000 |
| commit | c051ea5a424e578271c17b90f769167eaac0ed36 (patch) | |
| tree | 85f0b10bfe200f70a8f04f93872c49dbd9dd4c5d /src | |
| parent | 6feaa907f43a57823a41f27a6727faeb29169cf4 (diff) | |
First pass at finding points on the level set surface, just to test
feasibility of the algorithm. Now it needs to be parallelized using
grid-arrays instead of using local arrays and generelized to more than
full mode.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@77 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src')
| -rw-r--r-- | src/EHFinder_Constants.F90 | 2 | ||||
| -rw-r--r-- | src/EHFinder_Integrate.F90 | 1 | ||||
| -rw-r--r-- | src/make.code.defn | 1 | ||||
| -rw-r--r-- | src/make.code.deps | 1 |
4 files changed, 4 insertions, 1 deletions
diff --git a/src/EHFinder_Constants.F90 b/src/EHFinder_Constants.F90 index c3238ef..0a72481 100644 --- a/src/EHFinder_Constants.F90 +++ b/src/EHFinder_Constants.F90 @@ -10,7 +10,9 @@ module EHFinder_Constants CCTK_REAL, parameter :: three = 3.0d0 CCTK_REAL, parameter :: four = 4.0d0 CCTK_REAL, parameter :: eight = 8.0d0 + CCTK_REAL, parameter :: ten = 10.0d0 CCTK_REAL, parameter :: half = 0.5d0 + CCTK_REAL, parameter :: quarter = 0.25d0 CCTK_REAL, parameter :: tenth = 0.1d0 CCTK_REAL, parameter :: huge = 1d23 CCTK_REAL, parameter :: pi = 3.1415926535897932385 diff --git a/src/EHFinder_Integrate.F90 b/src/EHFinder_Integrate.F90 index 1deba9d..c46a43a 100644 --- a/src/EHFinder_Integrate.F90 +++ b/src/EHFinder_Integrate.F90 @@ -321,4 +321,3 @@ subroutine cubic ( a, b, c, x1, x2, x3 ) print*,q,r pause end subroutine cubic - diff --git a/src/make.code.defn b/src/make.code.defn index 8f9c8c8..2d63268 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -15,6 +15,7 @@ SRCS = EHFinder_mod.F90 \ EHFinder_SetSym.F90 \ EHFinder_Check.F90 \ EHFinder_Integrate.F90 \ + EHFinder_FindSurface.F90 \ EHFinder_ReadData.F90 # Subdirectories containing source files diff --git a/src/make.code.deps b/src/make.code.deps index 07978ca..c487d7d 100644 --- a/src/make.code.deps +++ b/src/make.code.deps @@ -13,3 +13,4 @@ EHFinder_SetSym.F90.o: EHFinder_mod.F90.o EHFinder_ReadData.F90.o: EHFinder_mod.F90.o EHFinder_Check.F90.o: EHFinder_mod.F90.o EHFinder_Integrate.F90.o: EHFinder_mod.F90.o +EHFinder_FindSurface.F90.o: EHFinder_mod.F90.o |