From adc21805703b593168640665489ba966b61ddaa7 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 10 May 2000 11:56:15 +0000 Subject: New names for macros calling fortran from C Fixing names of deprecated symmetry boundary condition routines which will be removed now git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@37 f5a6acaf-da7d-456b-b0a8-35edbc60b392 --- src/CoordinateStuff.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/CoordinateStuff.c b/src/CoordinateStuff.c index 56befe6..c630e4e 100644 --- a/src/CoordinateStuff.c +++ b/src/CoordinateStuff.c @@ -147,7 +147,7 @@ int IndexCeil(cGH *GH, CCTK_REAL coord_value, int d) return(index_up); } -void FMODIFIER FORTRAN_NAME(IndexFloor) +void CCTK_FCALL CCTK_FNAME(IndexFloor) (cGH *GH, CCTK_REAL *coord_value, int *index_low, int *fdim) { /* note the increase/decrease of indeces for fortran compatability */ @@ -155,7 +155,7 @@ void FMODIFIER FORTRAN_NAME(IndexFloor) if ((*index_low)>=0) (*index_low)++; } -void FMODIFIER FORTRAN_NAME(IndexCeil) +void CCTK_FCALL CCTK_FNAME(IndexCeil) (cGH *GH, CCTK_REAL *coord_value, int *index_up, int *fdim) { /* note the increase/decrease of indeces for fortran compatability */ *index_up = IndexCeil(GH, *coord_value, (*fdim)-1); -- cgit v1.2.3