adding helper functions returning SM goldstone bosons

FlexibleSUSY · Nov 20, 2015 · a13f10d · a13f10d
1 parent 97d9707
commit a13f10d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/meta/TreeMasses.m b/meta/TreeMasses.m
@@ -130,6 +130,7 @@
 IsVector::usage="";
 IsGhost::usage="";
 IsGoldstone::usage="";
+IsSMGoldstone::usage="";
 IsAuxiliary::usage="";
 IsVEV::usage="";
 IsMajoranaFermion::usage="";
@@ -154,6 +155,7 @@
 GetSMUpQuarks::usage="";
 GetSMDownQuarks::usage="";
 GetSMQuarks::usage="";
+GetSMGoldstoneBosons::usage="";
 
 GetUpQuark::usage="";
 GetDownQuark::usage="";
@@ -230,6 +232,12 @@
 
 IsGoldstone[sym_] := MemberQ[GetGoldstoneBosons[] /. a_[{idx__}] :> a[idx], sym];
 
+GetSMGoldstones[] :=
+    Cases[SARAH`GoldstoneGhost /. a_[{idx__}] :> a[idx], {v_?SARAH`SMQ, goldstone_} :> goldstone];
+
+IsSMGoldstone[sym_] :=
+    MemberQ[GetSMGoldstones[], sym];
+
 IsChargino[p_] :=
     p === Parameters`GetParticleFromDescription["Charginos"];