Export function testing for extra parameters

and correct list structure for extra parameters
FlexibleSUSY · Dec 7, 2016 · f9aff21 · f9aff21
1 parent f20551d
commit f9aff21
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -61,10 +61,11 @@
 IsSymmetricMatrixParameter::usage="returns true if parameter is a matrix";
 IsTensor::usage="returns true if parameter is a matrix";
 IsModelParameter::usage="returns True if parameter is a model parameter";
-IsInputParameter::usage="returns False if parameter is an input parameter";
+IsInputParameter::usage="returns True if parameter is an input parameter";
 IsOutputParameter::usage="returns True if parameter is a defined output parameter";
 IsIndex::usage="returns true if given symbol is an index";
 IsPhase::usage="returns True if given symbol is a phase";
+IsExtraParameter::usage="return True if parameter is an auxiliary parameter";
 
 GetIndices::usage="returns list of indices from a given parameter";
 
@@ -552,7 +553,7 @@
     Cases[GetInputParametersAndTypes[], {sym, _, type_} :> type][[1]];
 
 GetType[sym_?IsExtraParameter] :=
-    Cases[GetExtraParametersAndTypes[], {sym, _, type_} :> type][[1]];
+    Cases[GetExtraParametersAndTypes[], {sym, type_} :> type][[1]];
 
 GetType[sym_] :=
     GetTypeFromDimension[sym, SARAH`getDimParameters[sym]];