diff options
| author | rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-02-19 13:26:10 +0000 |
|---|---|---|
| committer | rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-02-19 13:26:10 +0000 |
| commit | d0ae918b47535d9f5b3b1188b0e3f54e62500692 (patch) | |
| tree | 371d446a6ecabd8c51ebda9d3596b11330861917 | |
| parent | a456ccd58e6d04df3053984dbca4b10f6cd9c9fe (diff) | |
Removing temporary Fortran wrapper for Boundary_SelectVarForBC().
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@207 6a38eb6e-646e-4a02-a296-d141613ad6c4
| -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 |