diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 15:28:27 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 15:28:27 +0200 |
| commit | 6f379f5eb02af3483861b7f8ae597062b050a885 (patch) | |
| tree | ee0946e38f6af465ca1002be3253fa2fb40c1834 | |
| parent | 9aece0e0b635e788fb58079419fde8686cf8fce8 (diff) | |
Param.m: Remove unneeded arguments from CreateKrancParam
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 14 | ||||
| -rw-r--r-- | Tools/CodeGen/Param.m | 9 |
2 files changed, 12 insertions, 11 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index 7377505..543b6c0 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -228,12 +228,14 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ (* Construct the param file *) InfoMessage[Terse, "Creating param file"]; - param = CreateKrancParam[evolvedGroups, nonevolvedGroups, - evolvedODEGroups, nonevolvedODEGroups, - groups, thornName, - parameters, - evolutionTimelevels, defaultEvolutionTimelevels, - calcs, opts]; + param = CreateKrancParam[evolvedGroups, + evolvedODEGroups, + groups, + thornName, + parameters, + evolutionTimelevels, + defaultEvolutionTimelevels, + calcs, opts]; (* Construct the schedule file *) InfoMessage[Terse, "Creating schedule file"]; diff --git a/Tools/CodeGen/Param.m b/Tools/CodeGen/Param.m index fcc0d3d..2f2f796 100644 --- a/Tools/CodeGen/Param.m +++ b/Tools/CodeGen/Param.m @@ -357,11 +357,10 @@ DefFn[ calcs]]]; Options[CreateKrancParam] = ThornOptions; -CreateKrancParam[evolvedGroups_, nonevolvedGroups_, - evolvedODEGroups_, nonevolvedODEGroups_, groups_, thornName_, - parameters_, - evolutionTimelevels_, defaultEvolutionTimelevels_, - calcs_, opts:OptionsPattern[]] := + +CreateKrancParam[evolvedGroups_, evolvedODEGroups_, groups_, + thornName_, parameters_, evolutionTimelevels_, + defaultEvolutionTimelevels_, calcs_, opts:OptionsPattern[]] := Module[ {params, paramspec, param}, |