diff options
author | allen <allen@eec4d7dc-71c2-46d6-addf-10296150bf52> | 2000-05-10 12:20:04 +0000 |
---|---|---|
committer | allen <allen@eec4d7dc-71c2-46d6-addf-10296150bf52> | 2000-05-10 12:20:04 +0000 |
commit | 86b26685b6a92973091ee84eb87bdc318b373551 (patch) | |
tree | 1ffb4ae07acaaa46e6d44851fa898d9f5b5903e1 | |
parent | b7bb16f3efd3faacfef604795aba22050cb011ba (diff) |
New macros for calling C from Fortran
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Cartoon2D/trunk@13 eec4d7dc-71c2-46d6-addf-10296150bf52
-rw-r--r-- | src/Cartoon2DBC.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Cartoon2DBC.c b/src/Cartoon2DBC.c index 564a8c0..8100ed1 100644 --- a/src/Cartoon2DBC.c +++ b/src/Cartoon2DBC.c @@ -32,9 +32,9 @@ CCTK_REAL Cartoon2DInterp(cGH *GH, CCTK_REAL *f, CCTK_INT i, CCTK_INT di, CCTK_INT ijk, CCTK_REAL x); CCTK_REAL interpolate_local(CCTK_INT order, CCTK_REAL x0, CCTK_REAL dx, CCTK_REAL y[], CCTK_REAL x); -void FMODIFIER FORTRAN_NAME(Cartoon2DBCVarI)(CCTK_INT *retval, cGH *GH, +void CCTK_FCALL CCTK_FNAME(Cartoon2DBCVarI)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, CCTK_INT *vi); -void FMODIFIER FORTRAN_NAME(Cartoon2DBCVar)(CCTK_INT *retval, cGH *GH, +void CCTK_FCALL CCTK_FNAME(Cartoon2DBCVar)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, ONE_FORTSTRING_ARG); @@ -207,7 +207,7 @@ CCTK_INT Cartoon2DBCVarI(cGH *GH, CCTK_INT tensortype, CCTK_INT vi) return(0); } -void FMODIFIER FORTRAN_NAME(Cartoon2DBCVarI)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, CCTK_INT *vi) { +void CCTK_FCALL CCTK_FNAME(Cartoon2DBCVarI)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, CCTK_INT *vi) { *retval = Cartoon2DBCVarI(GH, *tensortype, *vi); } @@ -223,7 +223,7 @@ CCTK_INT Cartoon2DBCVar(cGH *GH, CCTK_INT tensortype, const char *impvarname) return(Cartoon2DBCVarI(GH, tensortype, vi)); } -void FMODIFIER FORTRAN_NAME(Cartoon2DBCVar)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, ONE_FORTSTRING_ARG) { +void CCTK_FCALL CCTK_FNAME(Cartoon2DBCVar)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(impvarname) *retval = Cartoon2DBCVar(GH, *tensortype, impvarname); free(impvarname); @@ -262,7 +262,7 @@ CCTK_INT Cartoon2DBCGroup(cGH *GH, CCTK_INT tensortype, const char *group) return(Cartoon2DBCVarI(GH, tensortype, CCTK_FirstVarIndex(group))); } -void FMODIFIER FORTRAN_NAME(Cartoon2DBCGroup)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, ONE_FORTSTRING_ARG) { +void CCTK_FCALL CCTK_FNAME(Cartoon2DBCGroup)(CCTK_INT *retval, cGH *GH, CCTK_INT *tensortype, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(group) *retval = Cartoon2DBCGroup(GH, *tensortype, group); free(group); |