diff options
author | lanfer <lanfer@b9286e40-80fe-41ab-903a-d6b447012e1e> | 2000-07-14 15:40:18 +0000 |
---|---|---|
committer | lanfer <lanfer@b9286e40-80fe-41ab-903a-d6b447012e1e> | 2000-07-14 15:40:18 +0000 |
commit | 628a64bf31942a259685630f46c65306a2d148a2 (patch) | |
tree | 590eb1db3e1e1479df341145dffcf50caef7b17e /src | |
parent | 8eab75fea7ac7990ca6cc50aac79223df00676e4 (diff) |
new CoordRange Syntax
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveBinarySource/trunk@5 b9286e40-80fe-41ab-903a-d6b447012e1e
Diffstat (limited to 'src')
-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; |