diff options
-rw-r--r-- | src/Boundary.c | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/Boundary.c b/src/Boundary.c index 79e578a..b4724c8 100644 --- a/src/Boundary.c +++ b/src/Boundary.c @@ -304,27 +304,6 @@ 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 |