Skip to content

Commit

Permalink
remove redundant function
Browse files Browse the repository at this point in the history
  • Loading branch information
Alexander Voigt authored and Alexander Voigt committed May 18, 2016
1 parent 82cd3fd commit 46030e7
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 94 deletions.
5 changes: 0 additions & 5 deletions meta/FlexibleSUSY.m
View file
Expand Up @@ -909,7 +909,6 @@ corresponding tadpole is real or imaginary (only in models with CP
solveEWSBTemporarily,
copyDRbarMassesToPoleMasses = "",
reorderDRbarMasses = "", reorderPoleMasses = "",
getDRbarMassesVector = "", setDRbarMassesVector = "",
checkPoleMassesForTachyons = "",
higgsToEWSBEqAssociation,
twoLoopHiggsHeaders = "", threeLoopHiggsHeaders = "",
Expand Down Expand Up @@ -1061,8 +1060,6 @@ corresponding tadpole is real or imaginary (only in models with CP
ewsbParametersInitializationList = EWSB`CreateEWSBParametersInitializationList[parametersFixedByEWSB];
reorderDRbarMasses = TreeMasses`ReorderGoldstoneBosons[""];
reorderPoleMasses = TreeMasses`ReorderGoldstoneBosons["PHYSICAL"];
getDRbarMassesVector = TreeMasses`GetRunningMassesVector[massMatrices];
setDRbarMassesVector = TreeMasses`SetRunningMassesVector[massMatrices];
checkPoleMassesForTachyons = TreeMasses`CheckPoleMassesForTachyons["PHYSICAL"];
WriteOut`ReplaceInFiles[files,
{ "@lspGetters@" -> IndentText[lspGetters],
Expand All @@ -1086,8 +1083,6 @@ corresponding tadpole is real or imaginary (only in models with CP
"@copyDRbarMassesToPoleMasses@" -> IndentText[copyDRbarMassesToPoleMasses],
"@reorderDRbarMasses@" -> IndentText[reorderDRbarMasses],
"@reorderPoleMasses@" -> IndentText[reorderPoleMasses],
"@getDRbarMassesVector@" -> IndentText[getDRbarMassesVector],
"@setDRbarMassesVector@" -> IndentText[setDRbarMassesVector],
"@checkPoleMassesForTachyons@" -> IndentText[checkPoleMassesForTachyons],
"@ewsbInitialGuess@" -> IndentText[ewsbInitialGuess],
"@physicalMassesDef@" -> IndentText[physicalMassesDef],
Expand Down
86 changes: 0 additions & 86 deletions meta/TreeMasses.m
View file
Expand Up @@ -193,9 +193,6 @@
CreateHiggsMassGetters::usage="";
CallPseudoscalarHiggsMassGetterFunction::usage="";

GetRunningMassesVector::usage="";
SetRunningMassesVector::usage="";

GetCorrespondingVectorBosons::usage="returns list of vector bosons
corresponding to a given goldstone boson";

Expand Down Expand Up @@ -2108,89 +2105,6 @@ the fundamental representation of SU(3) in SARAH.
Return[set];
];

GetRunningMassesVector[p:FSMassMatrix[_,massESSymbols_List,_], idx_Integer, vec_String] :=
Module[{massMatrices, i, r, c, result = "", count = 0},
massMatrices = DeleteDuplicates[TreeMasses`FSMassMatrix[0, #, Null]& /@ massESSymbols];
For[i = 0, i < Length[massMatrices], i++,
{r, c} = GetRunningMassesVector[massMatrices[[i+1]],idx+i,vec];
count += c;
result = result <> r;
];
{result, count}
];

GetRunningMassesVector[p:FSMassMatrix[___], idx_Integer, vec_String] :=
Module[{dim = GetDimension[GetMassEigenstate[p]], i, result = ""},
If[dim == 1,
result = vec <> "(" <> ToString[idx] <> ") = " <>
CConversion`ToValidCSymbolString[FlexibleSUSY`M[GetMassEigenstate[p]]] <> ";\n";
,
For[i = 0, i < dim, i++,
result = result <>
vec <> "(" <> ToString[idx + i] <> ") = " <>
CConversion`ToValidCSymbolString[FlexibleSUSY`M[GetMassEigenstate[p]]] <> "(" <> ToString[i] <> ");\n";
];
];
{result, dim}
];

GetRunningMassesVector[massMatrices_List] :=
Module[{nMasses = CountNumberOfMasses[massMatrices], result = "", i, count = 0, c, r},
For[i = 0, i < Length[massMatrices], i++,
{r, c} = GetRunningMassesVector[massMatrices[[i+1]], count, "masses"];
count += c;
result = result <> r;
];
If[count != nMasses,
Print["Error: count (", count , ") != nMasses (", nMasses, ")"];
Quit[1];
];
"Eigen::ArrayXd masses(" <> ToString[nMasses] <> ");\n\n" <>
result <> "\n" <>
"return masses;"
];

SetRunningMassesVector[p:FSMassMatrix[_,massESSymbols_List,_], idx_Integer, vec_String] :=
Module[{massMatrices, i, r, c, result = "", count = 0},
massMatrices = DeleteDuplicates[TreeMasses`FSMassMatrix[0, #, Null]& /@ massESSymbols];
For[i = 0, i < Length[massMatrices], i++,
{r, c} = SetRunningMassesVector[massMatrices[[i+1]],idx+i,vec];
count += c;
result = result <> r;
];
{result, count}
];

SetRunningMassesVector[p:FSMassMatrix[___], idx_Integer, vec_String] :=
Module[{dim = GetDimension[GetMassEigenstate[p]], i, result = ""},
If[dim == 1,
result =
CConversion`ToValidCSymbolString[FlexibleSUSY`M[GetMassEigenstate[p]]] <> " = " <>
vec <> "(" <> ToString[idx] <> ");\n";
,
For[i = 0, i < dim, i++,
result = result <>
CConversion`ToValidCSymbolString[FlexibleSUSY`M[GetMassEigenstate[p]]] <>
"(" <> ToString[i] <> ") = " <> vec <> "(" <> ToString[idx + i] <> ");\n";
];
];
{result, dim}
];

SetRunningMassesVector[massMatrices_List, vec_String:"masses"] :=
Module[{result = "", i, count = 0, c, r},
For[i = 0, i < Length[massMatrices], i++,
{r, c} = SetRunningMassesVector[massMatrices[[i+1]], count, vec];
count += c;
result = result <> r;
];
If[count != CountNumberOfMasses[massMatrices],
Print["Error: count (", count , ") != nMasses (", CountNumberOfMasses[massMatrices], ")"];
Quit[1];
];
result
];

End[];

EndPackage[];
6 changes: 3 additions & 3 deletions templates/mass_eigenstates.cpp.in
View file
Expand Up @@ -653,14 +653,14 @@ void CLASSNAME::clear()
problems.clear();
}

void CLASSNAME::set_DRbar_masses(const Eigen::ArrayXd& masses)
void CLASSNAME::set_DRbar_masses(const Eigen::ArrayXd& pars)
{
@setDRbarMassesVector@
@setMasses@
}

Eigen::ArrayXd CLASSNAME::get_DRbar_masses() const
{
@getDRbarMassesVector@
@getMasses@
}

std::string CLASSNAME::name() const
Expand Down

0 comments on commit 46030e7

Please sign in to comment.