From 639a4223c85b7de7905cea9932827fa5ff352f53 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Sat, 4 Feb 2012 00:41:27 -0600
Subject: Calculation.m: Add function GetCalculationWhere

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

(limited to 'Tools/CodeGen/Calculation.m')

diff --git a/Tools/CodeGen/Calculation.m b/Tools/CodeGen/Calculation.m
index 0b52fd7..8b5d0ce 100644
--- a/Tools/CodeGen/Calculation.m
+++ b/Tools/CodeGen/Calculation.m
@@ -29,6 +29,7 @@ GetEquations;
 GetCalculationParameters;
 CalculationStencilSize;
 CalculationOnDevice;
+GetCalculationWhere;
 
 Begin["`Private`"];
 
@@ -82,6 +83,10 @@ DefFn[
   GetCalculationName[calc_List] :=
   lookup[calc,Name]];
 
+DefFn[
+  GetCalculationWhere[calc_List] :=
+  lookup[calc,Where, Everywhere]];
+
 DefFn[
   CalculationStencilSize[calc_List] :=
   Module[
-- 
cgit v1.2.3