diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-08-20 19:02:20 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-08-20 19:02:20 +0000 |
| commit | f1cfca91b8d2e196c2c5d96ce9832446aed27aa4 (patch) | |
| tree | c42eb169588b35f28151910db37ae1c700b51890 /src/IsoSurface_mod.F90 | |
| parent | 61bd55cb591fab224f7d125bfc3d4ca9ba0b54ce (diff) | |
The beginning of adding Florin's isosurfacer to calculate triangulations
of the EH and calculate it's area. Don't use it yet. This is still in
a development phase.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@183 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/IsoSurface_mod.F90')
| -rw-r--r-- | src/IsoSurface_mod.F90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/IsoSurface_mod.F90 b/src/IsoSurface_mod.F90 new file mode 100644 index 0000000..b2c29c1 --- /dev/null +++ b/src/IsoSurface_mod.F90 @@ -0,0 +1,13 @@ +! Module with various common variable. +! $Header$ +#include "cctk.h" + +module IsoSurface_mod + + use EHFinder_Constants + + CCTK_REAL,dimension(:),allocatable:: coord_x,coord_y,coord_z + CCTK_INT,dimension (:),allocatable::triangle_index + CCTK_INT,dimension(:),allocatable::resize_triangle_index + CCTK_REAL,dimension(:),allocatable::resize_coord_x,resize_coord_y,resize_coord_z +end module IsoSurface_mod |