Calculation.m: Add parameters used in partial derivative definitions …

…to GetCalculationParameters
ianhinder · Feb 2, 2012 · 988885a · 988885a
1 parent b03b756
commit 988885a
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Tools/CodeGen/Calculation.m b/Tools/CodeGen/Calculation.m
@@ -64,13 +64,18 @@
   GetEquations[calc_List] :=
   lookup[calc,Equations]];
 
+DefFn[
+  GetPartialDerivatives[calc_List] :=
+  lookup[calc,PartialDerivatives]];
+
 DefFn[
   GetCalculationParameters[calc_List] :=
   Module[
-    {syms,params},
+    {syms,pdSyms,params},
     syms = Cases[GetEquations[calc], _?AtomQ|_String, {-1}];
+    pdSyms = Cases[GetPartialDerivatives[calc], _?AtomQ|_String, {-1}];
     params = lookup[calc,Parameters];
-    Join[Intersection[params,syms],{Global`fdOrder}]]];
+    Intersection[params,Join[syms,pdSyms]]]];
 
 DefFn[
   GetCalculationName[calc_List] :=