diff options
author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-07-12 12:49:42 +0000 |
---|---|---|
committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-07-12 12:49:42 +0000 |
commit | 69c53ffe621e6d6f9ea2635605e9ec817e400d71 (patch) | |
tree | 1cfb7cad27a1f4a97b7acec5c0f9cf3666d36e6a /src | |
parent | cab695bb52a140b7bf91105866763aaeea750750 (diff) |
Beta 8 name changes
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@19 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src')
-rw-r--r-- | src/Extract.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Extract.F b/src/Extract.F index 658721a..bc527b1 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -253,9 +253,9 @@ c 3. Find maximum radius of extraction on grid c c ------------------------------------------------------------------ - call CCTK_CoordRange(ierr,cctkGH,xmin,xmax,"x") - call CCTK_CoordRange(ierr,cctkGH,ymin,ymax,"y") - call CCTK_CoordRange(ierr,cctkGH,zmin,zmax,"z") + call CCTK_CoordRange(ierr,cctkGH,xmin,xmax,-1,"x","cart3d") + call CCTK_CoordRange(ierr,cctkGH,ymin,ymax,-1,"y","cart3d") + call CCTK_CoordRange(ierr,cctkGH,zmin,zmax,-1,"z","cart3d") IF (igrid == 2) THEN r_max = MIN(xmax-two*Dx-orig(1), |