From 1478cd3442978751eebae2ef6c23d9c3feb180f7 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@c78560ca-4b45-4335-b268-5f3340f3cb52>
Date: Tue, 9 Mar 2004 13:43:38 +0000
Subject: Use the new SymBase infrastructure to find out about symmetry
 boundaries.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@195 c78560ca-4b45-4335-b268-5f3340f3cb52
---
 interface.ccl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'interface.ccl')

diff --git a/interface.ccl b/interface.ccl
index 3c44d2c..c18370f 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -32,6 +32,33 @@ USES FUNCTION ConvertFromPhysicalBoundary
 
 
 
+# Register the symmetry boundaries
+CCTK_INT FUNCTION SymmetryRegister (CCTK_STRING IN sym_name)
+USES FUNCTION SymmetryRegister
+
+CCTK_INT FUNCTION                                  \
+    SymmetryRegisterGrid                           \
+         (CCTK_POINTER IN cctkGH,                  \
+          CCTK_INT IN sym_handle,                  \
+          CCTK_INT IN ARRAY which_faces,           \ # array [N_FACES]
+          CCTK_INT IN ARRAY symmetry_zone_width)     # array [N_FACES]
+USES FUNCTION SymmetryRegisterGrid
+
+
+
+# Apply the symmetry boundary conditions
+CCTK_INT FUNCTION Boundary_SelectedGVs \
+  (CCTK_POINTER_TO_CONST IN  GH, \
+   CCTK_INT IN  array_size, \
+   CCTK_INT ARRAY OUT var_indicies, \
+   CCTK_INT ARRAY OUT faces, \
+   CCTK_INT ARRAY OUT boundary_widths, \
+   CCTK_INT ARRAY OUT table_handles, \
+   CCTK_STRING IN  bc_name)
+USES FUNCTION Boundary_SelectedGVs
+
+
+
 public:
 
 REAL gridspacings type=SCALAR
-- 
cgit v1.2.3