From 69c53ffe621e6d6f9ea2635605e9ec817e400d71 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 12 Jul 2000 12:49:42 +0000 Subject: Beta 8 name changes git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@19 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129 --- src/Extract.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') 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), -- cgit v1.2.3