diff options
| author | rideout <rideout@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-02-26 18:23:36 +0000 |
|---|---|---|
| committer | rideout <rideout@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-02-26 18:23:36 +0000 |
| commit | de96e52dba135ae69e8eb1bfbdadb64eaeb6ae2a (patch) | |
| tree | 09ecce5f783c7eb71ad68c0d0e2cc4c61aab9315 | |
| parent | c09540927c25c13db8000a64f561c748bb72e373 (diff) | |
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
| -rw-r--r-- | interface.ccl | 4 |
1 files changed, 4 insertions, 0 deletions
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 |