From 9b004cc7b108150ef6a4a7dd7b4d3a5a69bd7a10 Mon Sep 17 00:00:00 2001
From: rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4>
Date: Fri, 14 Feb 2003 12:10:37 +0000
Subject: Provide Boundary_SelectVarForBC to Fortran via an explicit Fortran
 wrapper, rather than function aliasing, since the latter is not working
 properly yet.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@200 6a38eb6e-646e-4a02-a296-d141613ad6c4
---
 src/Boundary.c | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

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
-- 
cgit v1.2.3