From dc6d57bfb43bd27a5e835f6850d6b9ae7122ce9b Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Wed, 25 Apr 2012 16:14:19 +0200
Subject: Calculation.m: Add BoundaryCalculationQ

---
 Tools/CodeGen/Calculation.m | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Tools')

diff --git a/Tools/CodeGen/Calculation.m b/Tools/CodeGen/Calculation.m
index 20f3eaa..3d62c37 100644
--- a/Tools/CodeGen/Calculation.m
+++ b/Tools/CodeGen/Calculation.m
@@ -36,6 +36,7 @@ SeparateDerivatives;
 AddCondition;
 AddConditionSuffix;
 InNewScheduleGroup;
+BoundaryCalculationQ;
 
 Begin["`Private`"];
 
@@ -104,6 +105,13 @@ DefFn[
   GetCalculationWhere[calc_List] :=
   lookup[calc,Where, Everywhere]];
 
+DefFn[
+  BoundaryCalculationQ[calc_List] :=
+  (* NB: CaKernel does not distinguish between these two.  It
+     ALWAYS computes everywhere that it can, based on the stencil
+     description.  *)
+  MemberQ[{Boundary,BoundaryWithGhosts}, GetCalculationWhere[calc]]];
+
 DefFn[
   CalculationStencilSize[calc_List] :=
   Module[
-- 
cgit v1.2.3