adding IsTensor[] helper function

FlexibleSUSY · Feb 5, 2016 · f4a2fb9 · f4a2fb9
1 parent adc25a5
commit f4a2fb9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -47,6 +47,7 @@
 IsRealExpression::usage="";
 IsMatrix::usage="returns true if parameter is a matrix";
 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";
 IsOutputParameter::usage="returns True if parameter is a defined output parameter";
@@ -222,6 +223,12 @@
 IsSymmetricMatrixParameter[sym_] :=
     IsMatrix[sym] && MemberQ[SARAH`ListSoftBreakingScalarMasses, sym];
 
+IsTensor[sym_[Susyno`LieGroups`i1, SARAH`i2, SARAH`i3]] :=
+    IsTensor[sym];
+
+IsTensor[sym_] :=
+    Length[SARAH`getDimParameters[sym]] > 2;
+
 AllModelParametersAreReal[] := MemberQ[SARAH`RealParameters, All];
 
 sarahIndices = {