From 47936d3bdc7c0e6bf6c97c0ee00476b1f7723988 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Wed, 25 Jan 2012 16:12:33 -0600 Subject: CaKernel.m: Include Kranc headers and define CCTK_GFINDEX3D macro --- Tools/CodeGen/CaKernel.m | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Tools/CodeGen') diff --git a/Tools/CodeGen/CaKernel.m b/Tools/CodeGen/CaKernel.m index 3b2e159..7350009 100644 --- a/Tools/CodeGen/CaKernel.m +++ b/Tools/CodeGen/CaKernel.m @@ -19,7 +19,7 @@ *) BeginPackage["CaKernel`", {"Errors`", "Helpers`", "Kranc`", "CodeGenCactus`", "MapLookup`", - "Calculation`", "CodeGen`", "CalculationFunction`"}]; + "Calculation`", "CodeGen`", "CalculationFunction`", "CodeGenC`"}]; CaKernelCCL; CaKernelCode; @@ -80,7 +80,8 @@ DefFn[CaKernelCode[calc_List,opts___] := LoopFunction -> (codeBlock[kernel<>"_Computations", #] &), GFAccessFunction -> ({"I3D(",Riffle[{#,0,0,0},","],")"} &)}]; - CreateCalculationFunction[calc2,opts]]]; + {Map[IncludeFile, {"GenericFD.h", "Differencing.h"}], + "\n#define CCTK_GFINDEX3D(u,i,j,k) I3D(u,i,j,k)\n\n", CreateCalculationFunction[calc2,opts]}]]; DefFn[CaKernelEpilogue[] := -- cgit v1.2.3