diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-04-13 02:26:59 +0100 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-04-13 03:57:49 +0100 |
commit | f93e3e96485903060c7e921a60f851a8fdf44d0b (patch) | |
tree | cf2e47d8ee28dc6136138210fb76cb5a75b815a3 /Tools | |
parent | 6da5942f6b6a6336c2cd78c8129edaf67eda76f7 (diff) |
Cache variables being differentiated in CaKernel
Diffstat (limited to 'Tools')
-rw-r--r-- | Tools/CodeGen/Calculation.m | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Tools/CodeGen/Calculation.m b/Tools/CodeGen/Calculation.m index 7d1b1b1..aacc279 100644 --- a/Tools/CodeGen/Calculation.m +++ b/Tools/CodeGen/Calculation.m @@ -201,7 +201,7 @@ separateDerivativesInCalculation[calc_] := Thread[derivNames -> derivs]]; calc1 = mapReplace[calc1, Schedule, Map[#<>" before "<>lookup[calc,Name] &, lookup[calc,Schedule]]]; calc1 = mapReplace[calc1, Name, lookup[calc,Name]<>"_"<>StringJoin[Riffle[derivGFName2/@derivs,"_"]]]; - (* calc1 = Append[calc1, CachedVariables -> {sepDeriv[[1]]}]; *) + calc1 = Append[calc1, CachedVariables -> (First/@derivs)]; currentGroups = lookup[calc, LocalGroups, {}]; localGroups = Join[currentGroups, Map[{ToString@#<>"_group", {#}} &, derivNames]]; calc1 = mapReplaceAdd[calc1, LocalGroups, localGroups]; |