From 628a64bf31942a259685630f46c65306a2d148a2 Mon Sep 17 00:00:00 2001 From: lanfer Date: Fri, 14 Jul 2000 15:40:18 +0000 Subject: new CoordRange Syntax git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveBinarySource/trunk@5 b9286e40-80fe-41ab-903a-d6b447012e1e --- src/CoordinateStuff.c | 12 ++++++------ src/WaveBinary.c | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/CoordinateStuff.c b/src/CoordinateStuff.c index 377b141..4fe763b 100644 --- a/src/CoordinateStuff.c +++ b/src/CoordinateStuff.c @@ -35,11 +35,11 @@ int IndexFloorC(cGH *GH, CCTK_REAL coord_value, int d) CCTK_REAL cmin,cmax; if (d==0) - CCTK_CoordRange(GH,&cmin,&cmax,"x"); + CCTK_CoordRange(GH,&cmin,&cmax, 1, "x", "cart3d"); else if (d==1) - CCTK_CoordRange(GH,&cmin,&cmax,"y"); + CCTK_CoordRange(GH,&cmin,&cmax, 2, "y", "cart3d"); else if (d==2) - CCTK_CoordRange(GH,&cmin,&cmax,"z"); + CCTK_CoordRange(GH,&cmin,&cmax, 3, "z", "cart3d"); else CCTK_WARN(0,"IndexFloor: dimension is not valid. Fortran:1..3 C:0..2"); @@ -106,11 +106,11 @@ int IndexCeilC(cGH *GH, CCTK_REAL coord_value, int d) CCTK_REAL cmin,cmax; if (d==0) - CCTK_CoordRange(GH,&cmin,&cmax,"x"); + CCTK_CoordRange(GH,&cmin,&cmax, -1, "x", "cart3d"); else if (d==1) - CCTK_CoordRange(GH,&cmin,&cmax,"y"); + CCTK_CoordRange(GH,&cmin,&cmax, -1, "y", "cart3d"); else if (d==2) - CCTK_CoordRange(GH,&cmin,&cmax,"z"); + CCTK_CoordRange(GH,&cmin,&cmax, -1, "z", "cart3d"); else CCTK_WARN(0,"IndexCeil: dimension is not valid. Fortran:1..3 C:0..2"); diff --git a/src/WaveBinary.c b/src/WaveBinary.c index 6a8ca79..af4b263 100644 --- a/src/WaveBinary.c +++ b/src/WaveBinary.c @@ -76,7 +76,7 @@ void WaveBinaryC(CCTK_ARGUMENTS) onthisproc = 0; /* calculate the center of a single binary source */ - CCTK_CoordRange(cctkGH, &zmin, &zmax, "z"); + CCTK_CoordRange(cctkGH, &zmin, &zmax, -1, "z", "cart3d"); xs = sign * binary_radius * cos(binary_omega*cctk_time); ys = sign * binary_radius * sin(binary_omega*cctk_time); zs = (zmax-zmin)/2 + zmin; -- cgit v1.2.3