setup function for diagram generation

FlexibleSUSY · Jan 26, 2017 · 8c9cbb7 · 8c9cbb7
1 parent 3b2bf88
commit 8c9cbb7
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/meta/FlexibleSUSY.m b/meta/FlexibleSUSY.m
@@ -773,6 +773,7 @@ FlexibleSUSY model file (FlexibleSUSY.m).
 
 WriteWeinbergAngleClass[massMatrices_List, files_List] :=
    Module[{},
+          WeinbergAngle`InitGenerationOfDiagrams[];
           WriteOut`ReplaceInFiles[files,
                  { "@DeltaRhoHat2LoopSM@" -> IndentText[IndentText[WrapLines[WeinbergAngle`DeltaRhoHat2LoopSM[massMatrices]]]],
                    "@DeltaRHat2LoopSM@"   -> IndentText[IndentText[WrapLines[WeinbergAngle`DeltaRHat2LoopSM[massMatrices]]]],

diff --git a/meta/WeinbergAngle.m b/meta/WeinbergAngle.m
@@ -8,6 +8,7 @@
 DeltaRhoHat2LoopSM::usage="";
 DeltaRHat2LoopSM::usage="";
 RhoHatTree::usage="";
+InitGenerationOfDiagrams::usage="";
 
 Begin["`Private`"];
 
@@ -160,6 +161,17 @@
            Return[result];
           ];
 
+
+(*functions for creation of wave-function renormalization, vertex and box corrections:*)
+
+InitGenerationOfDiagrams[eigenstates_:FlexibleSUSY`FSEigenstates] :=
+    Module[{},
+           SA`CurrentStates = eigenstates;
+           SARAH`InitVertexCalculation[eigenstates, False];
+           SARAH`ReadVertexList[eigenstates, False, False, True];
+           SARAH`MakeCouplingLists;
+          ];
+
 End[];
 
 EndPackage[];