omit index on tadpole function call if only one Higgs exists

FlexibleSUSY · Aug 21, 2014 · 0b7128a · 0b7128a
1 parent a02ca2d
commit 0b7128a
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/meta/SelfEnergies.m b/meta/SelfEnergies.m
@@ -467,9 +467,14 @@
                field = higgsAndIdx[[v,1]];
                idx = higgsAndIdx[[v,2]];
                functionName = CreateTadpoleFunctionName[field];
-               body = body <> arrayName <> "[" <> ToString[v-1] <> "] -= " <>
-                      "Re(model->" <> functionName <>
-                      "(" <> ToString[idx - 1] <> "));\n";
+               If[Length[higgsAndIdx] == 1,
+                  body = body <> arrayName <> "[" <> ToString[v-1] <> "] -= " <>
+                         "Re(model->" <> functionName <> "());\n";
+                  ,
+                  body = body <> arrayName <> "[" <> ToString[v-1] <> "] -= " <>
+                         "Re(model->" <> functionName <>
+                         "(" <> ToString[idx - 1] <> "));\n";
+                 ];
               ];
            Return[IndentText[body]];
           ];