adding renormalization scale to list of output parameters

FlexibleSUSY · Jun 25, 2016 · 8cbbdb7 · 8cbbdb7
1 parent d792787
commit 8cbbdb7
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/meta/FSMathLink.m b/meta/FSMathLink.m
@@ -179,6 +179,7 @@
 HeadStr[par_] := "";
 
 ToVaildOutputParStr[FlexibleSUSY`Pole[par_]] := CConversion`ToValidCSymbolString[par];
+ToVaildOutputParStr[FlexibleSUSY`SCALE] := "scale";
 ToVaildOutputParStr[par_] := CConversion`ToValidCSymbolString[par];
 
 WrapMLAround[par_, CConversion`ScalarType[st_], str_String] :=

diff --git a/meta/FlexibleSUSY.m b/meta/FlexibleSUSY.m
@@ -1249,7 +1249,7 @@ corresponding tadpole is real or imaginary (only in models with CP
            setInputParameterArgumentCTypes = FSMathLink`SetInputParameterArgumentCTypes[inputPars];
            setInputParameterArguments = FSMathLink`SetInputParameterArguments[inputPars];
            outPars = Parameters`GetOutputParameters[] /. FlexibleSUSY`M[p_List] :> Sequence @@ (FlexibleSUSY`M /@ p);
-           outPars = Join[outPars, FlexibleSUSY`Pole /@ outPars];
+           outPars = Join[outPars, FlexibleSUSY`Pole /@ outPars, Parameters`GetModelParameters[], {FlexibleSUSY`SCALE}];
            numberOfSpectrumEntries = FSMathLink`GetNumberOfSpectrumEntries[outPars];
            putSpectrum = FSMathLink`PutSpectrum[outPars, "stdlink"];
            WriteOut`ReplaceInFiles[files,

diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -431,6 +431,8 @@
 GetRealTypeFromDimension[{num1_?NumberQ, num2_?NumberQ, num3_?NumberQ, num4_?NumberQ}] :=
     CConversion`TensorType[CConversion`realScalarCType, num1, num2, num3, num4];
 
+GetType[FlexibleSUSY`SCALE] := GetRealTypeFromDimension[{}];
+
 GetType[FlexibleSUSY`M[sym_]] :=
     GetRealTypeFromDimension[{SARAH`getGen[sym, FlexibleSUSY`FSEigenstates]}];