From 5b8384308087f9a2cf52a75f4759de1eef65d2d8 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27>
Date: Wed, 5 Nov 2003 20:06:56 +0000
Subject: Apply boundary conditions at POSTRESTRICT.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@59 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
---
 interface.ccl |  2 +-
 schedule.ccl  | 11 ++++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/interface.ccl b/interface.ccl
index 587729d..ed14cde 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -14,7 +14,7 @@ cctk_real scalarevolve type=GF Timelevels=3
 } "The evolved scalar field"
 
 
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER IN GH, \
+CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, \
   CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \
   CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
 USES FUNCTION Boundary_SelectVarForBC
diff --git a/schedule.ccl b/schedule.ccl
index 0e59f65..4693dd3 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -23,7 +23,16 @@ schedule WaveToyFreeF90_Boundaries as WaveToy_Boundaries at EVOL AFTER WaveToy_E
 {
   LANG: Fortran
 } "Boundaries of 3D wave equation"
-  
+
 schedule GROUP ApplyBCs as WaveToyFreeF90_ApplyBCs at EVOL after WaveToy_Boundaries
 {
 } "Apply boundary conditions"
+  
+schedule WaveToyFreeF90_Boundaries as WaveToy_Boundaries at POSTRESTRICT
+{
+  LANG: Fortran
+} "Boundaries of 3D wave equation"
+
+schedule GROUP ApplyBCs as WaveToyFreeF90_ApplyBCs at POSTRESTRICT after WaveToy_Boundaries
+{
+} "Apply boundary conditions"
-- 
cgit v1.2.3