diff options
author | rideout <rideout@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-02-26 18:20:34 +0000 |
---|---|---|
committer | rideout <rideout@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-02-26 18:20:34 +0000 |
commit | 53ff8496fe918ac216cc465f553dc69af78451e6 (patch) | |
tree | bea9b3df80c496ae2422e4293d9cebb53beffea3 | |
parent | ab8c7a1a93b2c4949329c055af93f9a810320df1 (diff) |
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
-rw-r--r-- | interface.ccl | 7 |
1 files 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 |