From 4ee05bf4578c570efc208ffe1f12b939528a54ce Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Thu, 12 Sep 2013 15:33:21 +0200 Subject: KrancThorn.m: Edit comments --- Tools/CodeGen/KrancThorn.m | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index e1434d6..cd80d30 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -108,6 +108,10 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ partialDerivs = Join[partialDerivs, ConservationDifferencingOperators[]]]; reflectionSymmetries = OptionValue[ReflectionSymmetries]; + (* ------------------------------------------------------------------------ + Process calculations for CaKernel + ------------------------------------------------------------------------ *) + (* Make the CaKernel option calculation-specific *) calcs = Map[Append[#,UseCaKernel -> OptionValue[UseCaKernel]] &, calcs]; @@ -116,7 +120,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ If[!And@@Map[ListQ, calcs], Print[Short[calcs//InputForm]]; ThrowError["Result of WithHostCalculations is not a list of lists"]]; - calcs = Map[Append[#, PartialDerivatives -> partialDerivs] &, calcs]; (* ------------------------------------------------------------------------ @@ -360,11 +363,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ If[OptionValue[UseOpenCL], diffHeader = OpenCLProcessDifferencingHeader[diffHeader]]; AppendTo[sources, {Filename -> "Differencing.h", Contents -> diffHeader}]]; - (* ------------------------------------------------------------------------ - Add predefinitions to calculations - ------------------------------------------------------------------------ *) - - (* ------------------------------------------------------------------------ Create calculation source files ------------------------------------------------------------------------ *) -- cgit v1.2.3