diff options
| author | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-05-10 11:56:15 +0000 |
|---|---|---|
| committer | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-05-10 11:56:15 +0000 |
| commit | adc21805703b593168640665489ba966b61ddaa7 (patch) | |
| tree | bf6e9b9046e39bdcb4f593c79e311273222cef2b | |
| parent | 33e7c3f0de5895fe874935d2369cc39eac985a1b (diff) | |
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
| -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); |