From d0ae918b47535d9f5b3b1188b0e3f54e62500692 Mon Sep 17 00:00:00 2001 From: rideout Date: Wed, 19 Feb 2003 13:26:10 +0000 Subject: Removing temporary Fortran wrapper for Boundary_SelectVarForBC(). git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@207 6a38eb6e-646e-4a02-a296-d141613ad6c4 --- src/Boundary.c | 21 --------------------- 1 file changed, 21 deletions(-) (limited to 'src') 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 -- cgit v1.2.3