generalize IsIndex[]

FlexibleSUSY · Apr 19, 2015 · 8da3810 · 8da3810
1 parent bb7db3f
commit 8da3810
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -203,6 +203,8 @@
 IsIndex[i_?NumberQ] := True;
 IsIndex[i_ /; MemberQ[sarahIndices,i]] := True;
 IsIndex[_] := False;
+IsIndex[indices_List] := And @@ (IsIndex /@ indices);
+IsIndex[indices__] := IsIndex[{indices}];
 
 GetIndices[parameter_[indices__] /; And @@ (IsIndex /@ {indices})] := {indices};
 GetIndices[parameter_] := {};