From a1832a079cd7d4d9d66c2e4bf2dbe2bf02cc81d6 Mon Sep 17 00:00:00 2001 From: lanfer Date: Mon, 7 Feb 2000 11:33:04 +0000 Subject: avoiding error messages on origin git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@27 f5a6acaf-da7d-456b-b0a8-35edbc60b392 --- src/CoordinateStuff.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/CoordinateStuff.c b/src/CoordinateStuff.c index bce935f..ae8c5cb 100644 --- a/src/CoordinateStuff.c +++ b/src/CoordinateStuff.c @@ -30,7 +30,7 @@ int IndexFloor(cGH *GH, CCTK_REAL coord_value, int d) { - int ierr,index_low,idummy,ugs,lgs; + int index_low,idummy,ugs,lgs; char *message; CCTK_REAL cmin,cmax; @@ -106,11 +106,11 @@ int IndexCeil(cGH *GH, CCTK_REAL coord_value, int d) CCTK_REAL cmin,cmax; if (d==0) - ierr= CCTK_CoordRange(GH,&cmin,&cmax,"x"); + CCTK_CoordRange(GH,&cmin,&cmax,"x"); else if (d==1) - ierr= CCTK_CoordRange(GH,&cmin,&cmax,"y"); + CCTK_CoordRange(GH,&cmin,&cmax,"y"); else if (d==2) - ierr= CCTK_CoordRange(GH,&cmin,&cmax,"z"); + CCTK_CoordRange(GH,&cmin,&cmax,"z"); else CCTK_WARN(0,"IndexCeil: dimension is not valid. Fortran:1..3 C:0..2"); -- cgit v1.2.3