allow selection of loop order from n-point functions

FlexibleSUSY · Mar 21, 2017 · e44a8c3 · e44a8c3
1 parent 0d99e87
commit e44a8c3
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/meta/SelfEnergies.m b/meta/SelfEnergies.m
@@ -54,17 +54,17 @@
 
 Begin["`Private`"];
 
-GetExpression[selfEnergy_SelfEnergies`FSSelfEnergy] :=
-    selfEnergy[[2]];
+GetExpression[selfEnergy_SelfEnergies`FSSelfEnergy, loops_:1] :=
+    selfEnergy[[1 + loops]];
 
-GetExpression[selfEnergy_SelfEnergies`FSHeavySelfEnergy] :=
-    selfEnergy[[2]];
+GetExpression[selfEnergy_SelfEnergies`FSHeavySelfEnergy, loops_:1] :=
+    selfEnergy[[1 + loops]];
 
-GetExpression[selfEnergy_SelfEnergies`FSHeavyRotatedSelfEnergy] :=
-    selfEnergy[[2]];
+GetExpression[selfEnergy_SelfEnergies`FSHeavyRotatedSelfEnergy, loops_:1] :=
+    selfEnergy[[1 + loops]];
 
-GetExpression[tadpole_SelfEnergies`Tadpole] :=
-    tadpole[[2]];
+GetExpression[tadpole_SelfEnergies`Tadpole, loops_:1] :=
+    tadpole[[1 + loops]];
 
 GetField[selfEnergy_SelfEnergies`FSSelfEnergy] :=
     selfEnergy[[1]];