From de96e52dba135ae69e8eb1bfbdadb64eaeb6ae2a Mon Sep 17 00:00:00 2001
From: rideout <rideout@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Wed, 26 Feb 2003 18:23:36 +0000
Subject: Include aliased functions, which now work from Fortran.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@78 f80f6fb6-8356-4fd4-90bc-d84ad503c100
---
 interface.ccl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/interface.ccl b/interface.ccl
index 1e724d9..1a0403d 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -12,3 +12,7 @@ cctk_real scalarevolve type = GF Timelevels=3
 {
   phi
 } "The evolved scalar field"
+
+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