diff --git a/meta/FSMathLink.m b/meta/FSMathLink.m index 1fec1c7d3..71da14ec0 100644 --- 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 index ce51c677f..ac408353c 100644 --- 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 index 8711696da..a775849a4 100644 --- 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]}];