diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-13 18:51:27 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-13 18:51:27 +0200 |
| commit | b558b23da60f5a0ea65fe78b468a67f070b8c386 (patch) | |
| tree | 1583edc0fa1164dcf1b5325384f8b27566f697aa | |
| parent | a9281ab7ebe4aaadd6384e8dbca6e52a63fcfba2 (diff) | |
KrancThorn.m: Move calculation splitting call to separate function
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index eae4a76..16f783f 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -78,6 +78,10 @@ DefFn[ c = AppendObjectField[c, "InheritedImplementations", "GenericFD"]; c]]; +DefFn[ + splitCalculationsProcessCode[cIn_Code, opts___] := + ApplyToObjectField[cIn, "Calculations", SplitCalculations]]; + (* -------------------------------------------------------------------------- Thorn generation (main entry point for non-tensorial thorns) -------------------------------------------------------------------------- *) @@ -237,7 +241,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Split calculations according to SplitVars option ------------------------------------------------------------------------ *) - c = ApplyToObjectField[c, "Calculations", SplitCalculations]; + c = splitCalculationsProcessCode[c, opts]; (* ------------------------------------------------------------------------ Symmetries |