explicitly initialize every element of the EWSB parameter vector

in order to be able to omit some vector elements, as needed in the
CMSSMCPV for example.

meta/EWSB.m

@@ -48,6 +48,9 @@
 CreateEWSBParametersInitializationComma::usage="Creates initialization
 list with EWSB output parameters";
 
+CreateEWSBParametersInitialization::usage="Creates initialization
+of EWSB output parameters";
+
 Begin["`Private`"];
 
 DebugPrint[msg___] :=
@@ -796,6 +799,12 @@
 CreateEWSBParametersInitializationList[parameters_List] :=
     "{" <> CreateEWSBParametersInitializationComma[parameters] <> "}";
 
+SetEWSBParameter[par_, idx_, array_String] :=
+    array <> "[" <> ToString[idx] <> "] = " <> ConvertToReal[par] <> ";\n";
+
+CreateEWSBParametersInitialization[parameters_List, array_String] :=
+    StringJoin[MapIndexed[SetEWSBParameter[#1,First[#2],array]&, parameters]];
+
 End[];
 
 EndPackage[];

meta/FlexibleSUSY.m

@@ -1063,8 +1063,8 @@ corresponding tadpole is real or imaginary (only in models with CP
            ewsbParametersInitializationList = EWSB`CreateEWSBParametersInitializationList[parametersFixedByEWSB];
            ewsbParametersInitializationComma = EWSB`CreateEWSBParametersInitializationComma[parametersFixedByEWSB];
            If[Length[parametersFixedByEWSB] > 0,
-              ewsbParametersInitialization = IndentText["ewsb_parameters << " <>
-                 EWSB`CreateEWSBParametersInitializationComma[parametersFixedByEWSB] <> ";"];
+              ewsbParametersInitialization = IndentText[
+                 EWSB`CreateEWSBParametersInitialization[parametersFixedByEWSB, "ewsb_parameters"]];
              ];
            reorderDRbarMasses           = TreeMasses`ReorderGoldstoneBosons[""];
            reorderPoleMasses            = TreeMasses`ReorderGoldstoneBosons["PHYSICAL"];