diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-01-26 22:48:13 -0600 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-01-26 22:48:13 -0600 |
commit | c9dec80dd40ea0d0d6a2508eb62697a49e3e93e8 (patch) | |
tree | f2530586425af1cdccf6456626335d6176552824 /Tools/CodeGen | |
parent | 26c4c8c3af39cce3dcd36330b68660c71c075452 (diff) |
CaKernel.m: Define KRANC_C
Diffstat (limited to 'Tools/CodeGen')
-rw-r--r-- | Tools/CodeGen/CaKernel.m | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Tools/CodeGen/CaKernel.m b/Tools/CodeGen/CaKernel.m index 04ce57a..e9d003f 100644 --- a/Tools/CodeGen/CaKernel.m +++ b/Tools/CodeGen/CaKernel.m @@ -92,12 +92,15 @@ DefFn[CaKernelCode[calc_List,opts___] := LoopFunction -> (codeBlock[kernel<>"_Computations", #] &), GFAccessFunction -> ({"I3D(",Riffle[{#,0,0,0},","],")"} &)}]; - {Map[IncludeFile, {"GenericFD.h", "Differencing.h"}], + {"#define KRANC_" <> ToUpperCase[CodeGenC`SOURCELANGUAGE] <> "\n\n", + Map[IncludeFile, {"Differencing.h", "GenericFD.h"}], + "\n#define CCTK_GFINDEX3D(u,i,j,k) I3D(u,i,j,k)\n\n", CreateCalculationFunction[calc2,opts]}]]; DefFn[CaKernelEpilogue[] := " + ############################################################ #CAKERNEL AUTO GENERATED PART. DO NOT EDIT BELOW THIS POINT# ############################################################ |