From f1709c4e5d77fb1674bfa0cb6b1ebff137349a21 Mon Sep 17 00:00:00 2001
From: allen <allen@edbb7e70-9571-45d5-a481-0a560a9b4751>
Date: Wed, 10 May 2000 12:01:50 +0000
Subject: 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
---
 src/Slicing.c | 4 ++--
 1 file 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)
-- 
cgit v1.2.3