diff options
| -rw-r--r-- | src/CoordinateStuff.c | 4 |
1 files 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); |