diff options
| author | schnetter <schnetter@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2004-04-13 17:19:45 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2004-04-13 17:19:45 +0000 |
| commit | c8946e72fe4a81906a4a97d7c56f016b5e1f3629 (patch) | |
| tree | c1b1a697ace9cce23dcce4cba374caf9d4b964ad /interface.ccl | |
| parent | d25673061d63055b0e2eef0175c73a84fda9d328 (diff) | |
Apply boundary condition after setting mask to a fixed region.
Allow two fixed regions.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@43 f75ba9e5-694f-0410-ac2c-87ea7ce7132b
Diffstat (limited to 'interface.ccl')
| -rw-r--r-- | interface.ccl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 7010b37..792f43e 100644 --- a/interface.ccl +++ b/interface.ccl @@ -39,3 +39,11 @@ SUBROUTINE ExcisionFindNormals(CCTK_INT OUT ierr, \ CCTK_INT IN nk) PROVIDES FUNCTION ExcisionFindNormals WITH excision_findnormals \ LANGUAGE Fortran + + + +CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER IN GH, \ + CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ + CCTK_STRING IN group_name, CCTK_STRING IN bc_name) + +USES FUNCTION Boundary_SelectGroupForBC |