diff options
-rw-r--r-- | src/CoordinateStuff.c | 12 | ||||
-rw-r--r-- | 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; |