From 53ff8496fe918ac216cc465f553dc69af78451e6 Mon Sep 17 00:00:00 2001 From: rideout Date: Wed, 26 Feb 2003 18:20:34 +0000 Subject: Include aliased functions, which now work from Fortran. git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@92 4451c3c6-1034-4891-99ea-21147727ccdf --- interface.ccl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/interface.ccl b/interface.ccl index cdfebdc..9d94878 100644 --- a/interface.ccl +++ b/interface.ccl @@ -13,7 +13,6 @@ cctk_real scalarevolve type = GF Timelevels=3 phi } "The evolved scalar field" -# Function aliasing from Fortran does not work at the moment... -#CCTK_INT FUNCTION Boundary_SelectVarForBC CCTK_POINTER GH, CCTK_INT faces, \ -# CCTK_INT table_handle, CCTK_STRING var_name, CCTK_STRING bc_name -#USES FUNCTION Boundary_SelectVarForBC +CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER GH, CCTK_INT faces, \ + CCTK_INT table_handle, CCTK_STRING var_name, CCTK_STRING bc_name) +USES FUNCTION Boundary_SelectVarForBC -- cgit v1.2.3