diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-30 14:50:41 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-30 14:50:41 +0000 |
commit | 6eb1b34f27f5fd93685dfc0668e116f1badec590 (patch) | |
tree | 6c715f53a2c1594378ab577944070310cde9e217 /src/AHFinder_dat.F | |
parent | f84da6ab05c8008e9a871dc06b897e49c5a7f986 (diff) |
Making the global coordinate ranges global variables declared in the
module AHFinder_dat.F to avoid calculating them several times.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@147 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_dat.F')
-rw-r--r-- | src/AHFinder_dat.F | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F index 10c12ac..ee9af89 100644 --- a/src/AHFinder_dat.F +++ b/src/AHFinder_dat.F @@ -39,6 +39,7 @@ integer inside_min_count,inside_min_neg_count CCTK_REAL xc,yc,zc + CCTK_REAL xmn,ymn,zmn,xmx,ymx,zmx CCTK_REAL xc_old,yc_old,zc_old CCTK_REAL intexp,intexp2,intexpdel2,intarea CCTK_REAL rhmax,rhmin @@ -111,6 +112,15 @@ ! yc Coordinate y of centre of surface. ! zc Coordinate z of centre of surface. ! +! xmn Minimum value of x over the grid. +! xmx Maximum value of x over the grid. +! +! ymn Minimum value of y over the grid. +! ymx Maximum value of y over the grid. +! +! zmn Minimum value of z over the grid. +! zmx Maximum value of z over the grid. +! ! intexp Integral of expansion over the surface. ! intexp2 Integral of expansion squared over the surface. ! intarea Area of the surface. |