diff options
Diffstat (limited to 'Tools/CodeGen/KrancThorn.m')
-rw-r--r-- | Tools/CodeGen/KrancThorn.m | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index f930d1f..679cd26 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -197,6 +197,12 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ rhsGroups = Map[groupName, rhsGroupDefinitions]; rhsODEGroups = Map[groupName, rhsODEGroupDefinitions]; + calcs = Map[Join[#, + {ODEGroups -> Join[odeGroups, rhsODEGroups], + Parameters -> allParams, + PartialDerivatives -> partialDerivs, + Implementation -> implementation}] &, calcs]; + (* Construct the configuration file *) InfoMessage[Terse, "Creating configuration file"]; configuration = CreateConfiguration[opts]; @@ -275,12 +281,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ InfoMessage[Terse, "Creating calculation source files"]; - calcs = Map[Join[#, - {ODEGroups -> Join[odeGroups, rhsODEGroups], - Parameters -> allParams, - PartialDerivatives -> partialDerivs, - Implementation -> implementation}] &, calcs]; - If[!OptionValue[UseCaKernel], calcSources = Map[CreateSetterSource[{#}, False, {}, opts] &, calcs]; calcFilenames = Map[lookup[#, Name] <> ext &, calcs], |