From 6f379f5eb02af3483861b7f8ae597062b050a885 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Wed, 11 Sep 2013 15:28:27 +0200
Subject: Param.m: Remove unneeded arguments from CreateKrancParam

---
 Tools/CodeGen/KrancThorn.m | 14 ++++++++------
 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},
 
-- 
cgit v1.2.3