diff options
| author | rideout <rideout@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-02-26 18:25:32 +0000 |
|---|---|---|
| committer | rideout <rideout@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-02-26 18:25:32 +0000 |
| commit | bfc63cbc948baa67f49b2ae53dcdcd1d94f54f3f (patch) | |
| tree | 42f414993ac82698713e2c77dffea4fade973194 | |
| parent | 0174a082bf0e944b4ec0697dc905643c918cff3a (diff) | |
Include aliased functions, which now work from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@50 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -rw-r--r-- | interface.ccl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 95db442..c99c1aa 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 |