adding helper function to check if an output parameter is defined

FlexibleSUSY · Apr 18, 2015 · f8d1551 · f8d1551
1 parent 2fd879e
commit f8d1551
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -35,6 +35,7 @@
 IsRealExpression::usage="";
 IsMatrix::usage="returns true if parameter is a matrix";
 IsSymmetricMatrixParameter::usage="returns true if parameter is a matrix";
+IsOutputParameter::usage="returns true if parameter is a defined output parameter";
 
 SetInputParameters::usage="";
 SetModelParameters::usage="";
@@ -242,6 +243,9 @@
 
 IsRealExpression[otherwise_] := False;
 
+IsOutputParameter[lst_List] := And @@ (IsOutputParameter /@ lst);
+IsOutputParameter[sym_]     := MemberQ[GetOutputParameters[],sym];
+
 HasPhase[particle_] :=
     MemberQ[#[[1]]& /@ SARAH`ParticlePhases, particle];