diff options
-rw-r--r-- | src/Boundary.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/Boundary.c b/src/Boundary.c index af9def7..5b74844 100644 --- a/src/Boundary.c +++ b/src/Boundary.c @@ -18,6 +18,8 @@ #include "util_String.h" #include "Boundary.h" +#include "cctk_FortranString.h" /* Needed until Fortran function aliasing is working properly */ + static const char *rcsid = "$Header$"; CCTK_FILEVERSION(CactusBase_Boundary_Boundary_c); @@ -302,6 +304,28 @@ CCTK_INT Bdry_Boundary_SelectVarForBC(CCTK_POINTER GH, return retval; } +/* Fortran wrapper for Bdry_Boundary_SelectVarForBC(), for use while + function aliasing from Fortran is being sorted out... */ +void CCTK_FCALL CCTK_FNAME (Boundary_SelectVarForBC) (int *ierr, + CCTK_POINTER GH, + CCTK_INT *faces, + CCTK_INT *table_handle, + TWO_FORTSTRING_ARG); + +void CCTK_FCALL CCTK_FNAME (Boundary_SelectVarForBC) (int *ierr, + CCTK_POINTER GH, + CCTK_INT *faces, + CCTK_INT *table_handle, + TWO_FORTSTRING_ARG) +{ + TWO_FORTSTRINGS_CREATE(var_name, bc_name) + *ierr = Bdry_Boundary_SelectVarForBC(GH, *faces, *table_handle, var_name, + bc_name); + free(var_name); + free(bc_name); +} + + /*@@ @routine Bdry_Boundary_SelectVarForBCI @date Sun Nov 3 19:51:37 CET 2002 |