diff options
author | allen <allen@edbb7e70-9571-45d5-a481-0a560a9b4751> | 2000-05-10 12:01:50 +0000 |
---|---|---|
committer | allen <allen@edbb7e70-9571-45d5-a481-0a560a9b4751> | 2000-05-10 12:01:50 +0000 |
commit | f1709c4e5d77fb1674bfa0cb6b1ebff137349a21 (patch) | |
tree | fb148c7b44d341c641b0e7c1f8043cd38eb6f06d /src | |
parent | e7d2623d32fa5481c3b0a874813e52f1502f23d9 (diff) |
New names for symmetry boundary conditions
New macros for calling fortran from C
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/CoordGauge/trunk@27 edbb7e70-9571-45d5-a481-0a560a9b4751
Diffstat (limited to 'src')
-rw-r--r-- | src/Slicing.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Slicing.c b/src/Slicing.c index ccb7cd7..a81096e 100644 --- a/src/Slicing.c +++ b/src/Slicing.c @@ -135,7 +135,7 @@ int Einstein_RegisterSlicing(const char *slice_name) @@*/ -int FMODIFIER FORTRAN_NAME(Einstein_RegisterSlicing)(ONE_FORTSTRING_ARG) +int CCTK_FCALL CCTK_FNAME(Einstein_RegisterSlicing)(ONE_FORTSTRING_ARG) { int handle; ONE_FORTSTRING_CREATE(name) @@ -399,7 +399,7 @@ int Einstein_GetSlicingHandle(const char *name) { @@*/ -int FMODIFIER FORTRAN_NAME(Einstein_GetSlicingHandle)(ONE_FORTSTRING_ARG) +int CCTK_FCALL CCTK_FNAME(Einstein_GetSlicingHandle)(ONE_FORTSTRING_ARG) { int handle; ONE_FORTSTRING_CREATE(name) |