diff options
| author | rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-02-14 12:10:37 +0000 |
|---|---|---|
| committer | rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-02-14 12:10:37 +0000 |
| commit | 9b004cc7b108150ef6a4a7dd7b4d3a5a69bd7a10 (patch) | |
| tree | 6d819837522d0cf6bb734ce67cdbefc98ce69f5e | |
| parent | 5353389790b6dfff12ec9cb9746803961507e48b (diff) | |
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
| -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 |