Quit[];

$FeynRulesPath=SetDirectory["/Users/maina/FeynRules/feynrules-current"];
<<FeynRules`;
SetDirectory[$FeynRulesPath<>"/Models/1HDpSM_NoCKM_ggH"];

LoadModel["1HDpSM_NoCKM_ggH.fr"];

CheckDiagonalMassTerms[L1HDpSM, ScreenOutput -> True];

(* vert = FeynmanRules[LHiggs, ScreenOutput -> True]; *)

vertsHiggs = FeynmanRules[LHiggs, ScreenOutput -> True]

vertsGauge=FeynmanRules[LGauge, ScreenOutput -> True];

vertsFermi=FeynmanRules[LFermions, ScreenOutput -> True];

vertsGhost=FeynmanRules[LGhost, ScreenOutput -> True];

vertsYukawa=FeynmanRules[LYukawa, ScreenOutput -> True];

vertsggH = FeynmanRules[LCPEven, ScreenOutput -> True];

WriteUFO[L1HDpSM];

WriteLaTeXOutput[{Subscript[V,Gauge],vertsGauge},   {Subscript[V,Higgs],vertsHiggs},{Subscript[V,Fermion],vertsFermi},{Subscript[V,Yukawa],vertsYukawa},{Subscript[V,ggH], vertsggH},
{Subscript[V,Ghost],vertsGhost}, Paper -> a4]