DMGISM0: S2HDM.nb

File S2HDM.nb, 1.2 MB (added by GiorgioBusoni, 2 years ago)

Mathematica notebook

Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 9.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[   1251763,      31825]
14NotebookOptionsPosition[   1109184,      28275]
15NotebookOutlinePosition[   1109540,      28291]
16CellTagsIndexPosition[   1109497,      28288]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.6035389591727333`*^9, 3.6035389606320753`*^9}, {
24  3.608281672604871*^9, 3.608281673651908*^9}, {3.6097575541555*^9,
25  3.609757557300255*^9}, {3.676335303896755*^9, 3.676335334246355*^9}, {
26  3.676335385626495*^9, 3.6763353861604567`*^9}},
27 ExpressionUUID -> "25d87cd0-c9d8-4939-a8dc-ac4a56cb570e"],
28
29Cell[BoxData[
30 RowBox[{"(*",
31  RowBox[{
32   RowBox[{
33   "Use", " ", "LTypeI", " ", "for", " ", "Type", " ", "I", " ", "2", "HDM"}],
34    ",", " ",
35   RowBox[{"LTypeII", " ", "for", " ", "Type", " ", "II"}], ",", " ",
36   "LTypeZ", ",", " ",
37   RowBox[{"for", " ", "Type", " ", "X"}], ",", " ",
38   RowBox[{"LTypeY", " ", "for", " ", "type", " ", "Y"}], ",", " ",
39   RowBox[{"LInert", " ", "for", " ", "Inert"}], ",", " ",
40   RowBox[{"LAlign", " ", "for", " ", "Aligned"}], ",", " ",
41   RowBox[{
42    RowBox[{"and", " ", "L2gen", " ", "for", " ", "2"}], "-", "gen"}]}],
43  "*)"}]], "Input",
44 CellChangeTimes->{{3.6906047948558187`*^9, 3.690604795042328*^9}, {
45  3.6906048399064865`*^9, 3.69060489197194*^9}, {3.6906049368775277`*^9,
46  3.6906049803226256`*^9}},ExpressionUUID->"5d1b9710-816a-4dc8-b87e-\
474b31be8bb0a2"],
48
49Cell[CellGroupData[{
50
51Cell["Load", "Chapter",
52 CellChangeTimes->{{3.653342759310401*^9,
53  3.6533427599244843`*^9}},ExpressionUUID->"3142da3e-be40-4cfc-a821-\
543a9e6bf8ec84"],
55
56Cell[BoxData[{
57 RowBox[{
58  RowBox[{"Off", "[",
59   StyleBox[
60    RowBox[{"LaunchKernels", "::", "nodef"}], "MessageName"],
61   StyleBox["]", "MessageName"]}],
62  StyleBox[";", "MessageName"]}], "\[IndentingNewLine]",
63 RowBox[{
64  RowBox[{
65  "$WinDir", "=",
66   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
67\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]",
68 RowBox[{
69  RowBox[{
70  "$MacDir", "=",
71   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
72current\>\""}], ";"}], "\[IndentingNewLine]",
73 RowBox[{
74  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}],
75  ";"}], "\[IndentingNewLine]",
76 RowBox[{
77  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}],
78  ";"}], "\[IndentingNewLine]",
79 RowBox[{
80  RowBox[{
81  "$FeynArtsMdlWinDir", "=",
82   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
83\\\\FeynArts\\\\Models\>\""}], ";"}], "\[IndentingNewLine]",
84 RowBox[{
85  RowBox[{
86  "$FeynArtsMdlMacDir", "=",
87   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models\>\""}],
88   ";"}], "\[IndentingNewLine]",
89 RowBox[{
90  RowBox[{"Win", "=",
91   RowBox[{"(",
92    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}],
93  ";"}], "\[IndentingNewLine]",
94 RowBox[{
95  RowBox[{"If", "[",
96   RowBox[{"Win", ",",
97    RowBox[{"$FeynRulesPath", "=",
98     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",",
99    RowBox[{"$FeynRulesPath", "=",
100     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}],
101  ";"}]}], "Input",
102 CellChangeTimes->{{3.60353897829296*^9, 3.603539043421093*^9}, {
103   3.633332218679607*^9, 3.6333322194542303`*^9}, 3.633333796845446*^9, {
104   3.64301873415166*^9, 3.64301873665499*^9}, {3.6452720966860647`*^9,
105   3.645272098076991*^9}, {3.647076372652458*^9, 3.647076373114575*^9},
106   3.653342717270969*^9, 3.675137081154721*^9, {3.676084282701885*^9,
107   3.676084294904183*^9}, {3.676100972910183*^9, 3.6761010336739855`*^9}, {
108   3.676103336774192*^9, 3.6761033538826265`*^9}, {3.6763353421414833`*^9,
109   3.67633534662798*^9}, {3.67633539144937*^9, 3.676335439151947*^9}, {
110   3.676336791519855*^9, 3.676336837723803*^9}, {3.676340778137195*^9,
111   3.676340785151307*^9}},ExpressionUUID->"9c815ce5-d6fc-47fd-8968-\
112e63bbf6963db"],
113
114Cell[CellGroupData[{
115
116Cell[BoxData[
117 RowBox[{"<<", "FeynRules`"}]], "Input",
118 CellChangeTimes->{{3.603539048879374*^9, 3.603539054382785*^9}, {
119  3.630748915770712*^9,
120  3.630748916976617*^9}},ExpressionUUID->"c4e14d30-ea79-4266-849a-\
1215b179a21df15"],
122
123Cell[CellGroupData[{
124
125Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
126 CellChangeTimes->CompressedData["
1271:eJwdyGkowwEcxvFZrZBGzPWPxYuFKHnhmNqYbPZiuYs31GZqtJLSXhBqb0jO
128JG0oaSU50pIsQjFHKWtrZdncEqOkNcYcv8eLp0/PN1XVVt0cwmKxCmg37Ip+
129Ua9XYo/Sz8GscaUFpicqP2GaOSgWk7IdQTf8SH61QGOO8Riq1e8eyGiKA3CJ
130rWOKSFvbfAbcX69zw1298Bbqa+0pxaT/qisfligsK6Xkw6/iFF5OiYVScqCo
131nicjE0xaAWzVFHDLyNEJTzTUrp65lGRgWTSgIo94e4uwNTZog4znQtaEPmh5
132GSZHHNcfcHv3IHGc7Avnyg3knDOmkzF4JRN3kdNwUKe9hY2cex/UReb9wIf1
133sa0kMsLHd8yQJ7a9zfNVryRoNVthuVn4+P+lrjcYljsb5yYLK0Oz4ZPpcwP2
134MOJt6BsyHMKlplwn/HZl3sObZPkzDOVP+mF1TUeYh6ziBOJhy4KuARq/StsV
135a17JHwzY8ys=
136  "],ExpressionUUID->"c0188b0a-c7b1-4581-985d-fce232c037cb"],
137
138Cell[BoxData[
139 InterpretationBox[
140  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>",
141   "\[InvisibleSpace]",
142   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}],
143   "\[InvisibleSpace]", "\<\").\"\>"}],
144  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
145  Editable->False]], "Print",
146 CellChangeTimes->CompressedData["
1471:eJwdyGkowwEcxvFZrUwyuf1D82IhSl4MU9tMNnux3MUbao4arZbSXhBqb0jO
148JM1R0kpytJaWRSjmKGVtKcvmlhglLTbN8Xu8ePr0fNObdNWtYSwWq5B2y64Y
149EPf5ZM5owwLMmVDbYGay+gtmWEISCanYEfTAQOqbDU7nTR/DlpZPL2Q0xUG4
150wtYzUtKhW8yC+9Y6D9w1iO6godbJLyY/rrsLYInKtlZKPv6qTuHVjEQkJwel
1519XEKMsmkFcB2TWFUGTk26Y2BWvO5W00GV8WDTeRR3N4ybI8POSDjvVQ0ow/Z
152XkfIUddNAG7vHiRPkP0RUUojuXAW28UYfbLJe94sHNJr72Aj58EP9bz8H/ho
153Hd9KISP9aa458sSxt3lh9slCdosdlltET/9f7n6HXOF8gocsqgzPhc+mrw3Y
154y0i2oX/YeAhXmoVn8Nud/QBvU5UvMDxt6gNW13RyvWQVJ5gI25b0DZDfJ+9Q
155rftkfwWq8jY=
156  "],ExpressionUUID->"95ee9bcf-0a53-4db4-a99c-63d858f2b992"],
157
158Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
159B. Fuks\"\>"], "Print",
160 CellChangeTimes->CompressedData["
1611:eJwdyGkowwEcxvFRq01r5N4/W7wQouQFNmUz2Xix3MUbao4arZbSXhBqb0hz
162taQNpbWSHGlpWYRyl7JIWcw1EqOkNaY5fo8XT5+eb0qTrro1jMViiWl34RUD
163hX0++UmUwQqzTGonTBeov2CaPSSVksrN1B74KXxzQkuO5RC2tHx4IKMpCsKF
164cD0jI1262Qy446i7hFsGiRcaak+Si8jATXc+LFY5l0rIx1/VMbyelEoU5KCs
165PlZJJtq0qbBdI+aXkqPjnmioXT53q8ngYuFgE3kQuz0P2+NCLsh4rpTN6Ebn
1666zA5cnr7CTe29gQmsj+CX2YmrWcxXYzZJx+/j5yCRr3WCxvZD36oj8z7gY+O
167sfUkkucXnU6TR67ttYtlnzy0a9+F5XbJ0/9XuN8hN3cm/pIsqORkw2fb1yrs
168ZaQb0D9k3ocLzbln8Nud+QDvhGUvkCOaCMDqmk6uh6xiBxNg25y+AfL8ig7V
169ik/+Bwg98pc=
170  "],ExpressionUUID->"ae6fa3aa-dd8b-48b2-b346-10a6544226ef"],
171
172Cell[BoxData["\<\" \"\>"], "Print",
173 CellChangeTimes->CompressedData["
1741:eJwdyGkowwEcxvFRCmnk3j8TL4QoeeGY2phsvFiOUbyhxhRaSWkvCLU3tOZq
175LW0orZXkSEuyaBRzlLKmlcVcIzFKWmNrjt/jxdOn55vZ3ivtDGOxWKW0+/C6
176Mf6IV+iIUxlhvlZmgTkcWRBmm0MCASnezRqCX9x3CzQUGk6gXP7phkxXRQCu
177hCuZctLeu5gLDzabr+CeiueBqiZHRgXpvx0sgZUSy1oV+fQrOYM3swKeiFSX
178tySKyVSTIgv2dJWyq8kpnTseKtYvXDIysMpXt5PHifvLsCcpZIeM+1rcga6x
179vE2Qk+d3X9C6d8jRkqPR7Bo9aXQmDDB6r1D3EDsHNUqFB7ZFPPqgMrb4Bz5t
180Tu+kkTG+9PN58tS+v3257hWGbGYbrDXznv+/yPUBo4oWkq/IsvrIAvhiCm7B
181YUZghb5x/RFc6Shywm9X3iO859a8wsj0GT+UNvZHucmGiEAK7F5StsJTubhP
182suEV/gEKU/LI
183  "],ExpressionUUID->"4aa6880d-5a99-4c00-8945-3a298352bc2c"],
184
185Cell[BoxData["\<\"Please cite:\"\>"], "Print",
186 CellChangeTimes->CompressedData["
1871:eJwdyFsowwEcxfFRyiTE3P6xeBCi5GGYMpuYPSz34oXaUKzVUtoDofZCa26t
188pbmU1koy0pIsQjGXUtakLNvcE6OkNaa5/I6H06fzzZSrGjrDWCxWCe02vHak
189bMgncsZpTDBfL7PBnFTZF8y2hgQCUryTNQA/099scLpw+hh2dHx4INMlDEJL
190uJopJx2qhVy4v97shrsa/h3UNDkzhGTgur8YVkhtK5Xk46/0FF7NCPhVpLa8
191hSMmU8zKLKjoKompJicMnnioXL1wycjgcplWTh5x9pagIjHkgIzHK25H19le
192x8jxs5tPuL17kKonh6NiJEbSdJ7Qxxh9IsN97CzUqZV3sC3iwQ/VsUU/8HF9
193ciuNjPZzz+bIE8fe5uWqTxSyW+2wxsp/+v9VrnfI5s0nucnSusgC+Gz+2oCD
194jGAb+keNh9DSzjuH3668B3ibLnmBkdypAGxo7GV7yPqIYDLsXlS3Qq9L3CNd
19584n+AA4W808=
196  "],ExpressionUUID->"37753a6f-ccd6-4a51-9edb-4e0ca7b20735"],
197
198Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
199(arXiv:1310.1921);\"\>"], "Print",
200 CellChangeTimes->CompressedData["
2011:eJwdyGkowwEcxvFRq00yuf1DvBCi5IVjarPJxovlDm+oDTVaLaW9INTekOZK
202S3OUpCRHa0kWsZqzlDWtLObWYpS0xtYcv8eLp0/PN02hrm0PYbFYRbT70Koh
203wYBHbI/ULsCcSbkZZibKAzDDFBQKSeleeh/8Sn43w+m86RPY1vbpgoxS5Ier
204oRqmhLSpl7Lg/mbjFbRo+Q9QW29PFZG+295CWCozr5eR7l/ZGbyZEfIl5HBJ
205U4yUTFhUpcNOZVFEOTmud0VBlfHCKSf9a4JhBXkcY12BnbFBG2Rc19JWdJ35
206bZQcO7/7gruWw8RJcjAsosJALjiiexiDR6x/5M1CnUb1AFvYT16o4RX8QPfm
207xE4SGe5NOZ8jT23W7UujRxw8MB3AShP/+f9LnB+Qmz8fd0UWV3Ny4ctiYAv2
208M8Jd6B0xHMHV1nwH/HZmP8H75IpXyEmZ8sHaum6ui6xh++Nhx7KmGeobyrtk
209Gx7xHwg/8oQ=
210  "],ExpressionUUID->"69f0e795-c7f7-4cd6-95eb-c739f5596253"],
211
212Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
213(arXiv:0806.4194).\"\>"], "Print",
214 CellChangeTimes->CompressedData["
2151:eJwdyFsogwEYxvFRyqQRc/pCXAhRcjE2tTExLpZzcUNto0arpbQLQu2GlmOS
2165lCSkoy0tHwRag5TyppWFnNeYpS0xjSH93Hx9Ov5pyu1dW0hHA5HSLsLrR4U
21793uljmj9AsydULAwK0nxBTPNQYmElO1m9MLPlDcWTudPH8PW1g83ZNQlAWgK
2181THFpF27lA33LY2XcE8vuof6BkdaCem/6SmEpXJ2rYx8/JWfwusZiaicNBQ3
2198WVk4qImA3aohbwKcmzSHQM16+cuBRlYFRuUpI1vXYEdcUE7ZNxXMhX6EPs6
220Qo6e3X7Cnb3DpAlyIIJXaSQXnLHdjNErnXyImoVDOs09bAnz+KAuquAHPlrG
221t5PJSF/q2Rx5YrduXax7pcED8wGsMoue/n+56x1yBfPxl2RRTXgefF782oR9
222jGQH+oaNR9CkEjjhtyvHA+9SKl9geOqUH9bVd3HdZG1YIAG2L+uaodlW0Snf
2238Er/AAxF8xM=
224  "],ExpressionUUID->"0ece6762-75b6-449d-a72a-c0afc324429c"],
225
226Cell[BoxData["\<\" \"\>"], "Print",
227 CellChangeTimes->CompressedData["
2281:eJwdyFsogwEYxvFZFBJiTl+ICyFKLsamNiabXSzn4oaaTaGVlHZBqN3QcmxJ
229G0pSkkNakkUo51LW1sqyz1mLUdLC1hzex8XTr+ef3txR0xLE4XAEtDtu5aCo
2303yOxRevmYK5BaYFZSUo/zDQHxGJStpvRC79S3izQlG86hWr1JwuZ1hIfXOZq
231mWLS2rGQDQ826l1wTye8h7o6W1oJ+XHTUwhLFZbVMtL9qziH11NioZTUFzfw
232ZGTivCYDtrcKIsvJsQk2BmrWLpxK0rci0jeTJ7z9JdgeF7BChr2SqdCHLK8j
2335Kj99gvu7B0lGciB8Ei5kZxzxHYzRo9k4iFqGg5pNfewKeTRC7VRBT/QvTG+
234nUxGeFPtM+SZdX/rcs0jCRyaD2GFWfj0/6XOdxjGn413kUVVoXnwed6/CfsY
2358Q70DhuP4bKK74DfzpxHeJcif4GhqZMfsKa2K4wlq0N8CbBtUdsIg0XyTsW6
236R/IHAw7x2w==
237  "],ExpressionUUID->"4c7a1ffb-ea37-4401-82fb-9a7f538874bd"],
238
239Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
240 CellChangeTimes->CompressedData["
2411:eJwdyFsowwEcxfFRq5FG7vtniwchSh6wKWOy2cNyGcULtZkaraS0B0Lthdbc
2420tKGkpTkkpZkEcq9lGUpy+aykRglLUxz+R0Pp0/nm6ZuV7aEsVgsIc0bXjVQ
2433OeXnMUYZmDOmMoOM3mqL5hhC4nFpGw7vQd+8l/t0JpnPYYazYcHMtrSIFwM
2441zMlpKN9LgvurdW74Y5B5IOGurPUUvL9prsQlinsy+Xkw6/iFF5PiEVS0ljS
245EC8jk2d16bBNK+RWkCNmTyzUrVy4VGRwqdioJo/idxdgW0LIARnPlawZ3WR/
246GSKHnbefcGvngDdG9kdy5RZy5jyui7H4Jea76Elo0ut8sIl9H4D66IIf+LA2
247uplCRgUEzinyxLG7cbnil4T2bfuw0iZ6/P9S1xuMyJ9OdJNF1Zxc+DT7tQ57
248GfEWDAxaDuFic/45/HZl30MvX/4MOYLxd6is7YzwkDXsYBJsndc3QpNN3qFY
2499Uv+AAqB8tg=
250  "],ExpressionUUID->"c963f368-8c44-40e2-9680-a5157518cc38"],
251
252Cell[BoxData["\<\" \"\>"], "Print",
253 CellChangeTimes->CompressedData["
2541:eJwdyFsowwEcxfFZrZAQc9k/xMNClDxgU9tMDLXcixdqQ7FWUtoDofZCy7W1
255NJeSVpKRlpZFo2YupSxSFnNfYpS0MM3ldzycPp1vmrKzti2ExWIJaLfsqiHR
256gE96HK2dh9l6hQ1m8BRfMN0SFItJ2Ra/D34mv9rgVO7UAWxt/fBApr0oAM1s
257DSMhXZ0LmXDH2nABt7XCO6itP04tIt+vewtgsdy2UkI+/MqP4NW0WFhK6iSN
258XBmZaFLzoapdEFlGjhs8MVC9euZWkIFlkU5J7nMdS1AVF3RBxnMpa0Eftr2M
259kmMnN5/Qvr3L05OD4ZHlRnL+NLaHMfqkhvuoGTisUd/BZo7XDzVR+T/wwTqx
260mURG+FNOZslDl2PjfNUnDTotTlhpET7+/1L3GwzLm4u/IAurQ3Pgk+lrHfYz
261Yjv0jxj3oLkl7xR+u7O88Da5/BmGpky+w9q67jAPWcMJJMCORU0TZAoquuRr
262PukfA5rx7A==
263  "],ExpressionUUID->"d0118ed3-bfa7-405f-a7fb-beac96c51c5c"],
264
265Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
266FRPalette[].\"\>"], "Print",
267 CellChangeTimes->CompressedData["
2681:eJwdyGkowwEcxvFRKyTEHPuHeLEQJS+GKbOJoZZjFG+oOWq0Wkp7Qai9oTVX
269kuYoSUlGa0kWRrlLWVvKsrklRklrbM3xe7x4+vR8U5tVsrYgFouVT7sLrhos
2707HeLbVGaeZg1LjfDdK7cD9NMAaGQlOzweuFX0rsZTuVMncDW1k8XZBQiHzQE
271q5ki0qpazID76/VOuKsR3ENNnS1FRHpvevJgsdS8WkI+/UrP4PW0UFBKaosa
272OBIyYUHJgx2K/IgycnTCFQ2VxguHnPStFGqbyWPO3jLsiA1YIeO6krSg68xv
273w+SI/fYLWnYPuePkQFhEuZ6cP4/pZvRu8cRD5AzUqZX3sIn96IHqyNwf+LQ+
274tpVIhnuS7bPkqXVv89LoFgcOTAew0iR4/v+ljg8Yyp+Lc5IF1SHZ8GXBvwH7
275GKEFeob0R9DQwj+H347MR3iXVP4KQ5InvVBW2xXqImvYvnjYvqRuhKLtik7p
276mlv8Bwh08pg=
277  "],ExpressionUUID->"df196a39-2551-4cae-809d-b6ea60329d51"]
278}, Open  ]]
279}, Open  ]],
280
281Cell[BoxData[
282 RowBox[{
283  RowBox[{"If", "[",
284   RowBox[{"Win", ",",
285    RowBox[{"SetDirectory", "[",
286     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",",
287    RowBox[{"SetDirectory", "[",
288     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}],
289  ";"}]], "Input",
290 CellChangeTimes->{{3.603539061006528*^9, 3.603539075359961*^9}, {
291   3.606550370901471*^9, 3.606550372067235*^9}, {3.608280713549712*^9,
292   3.608280720038208*^9}, {3.608280848612903*^9, 3.608280850051903*^9}, {
293   3.610078232055901*^9, 3.610078244162396*^9}, {3.611032810906569*^9,
294   3.611032811729677*^9}, 3.611046032505571*^9, {3.611046080564261*^9,
295   3.6110460835240393`*^9}, {3.616920451742062*^9, 3.616920454335582*^9}, {
296   3.61692081007111*^9, 3.616920811789462*^9}, {3.6169220902135057`*^9,
297   3.6169220916785192`*^9}, {3.627800218613393*^9, 3.6278002208210363`*^9}, {
298   3.630748932272941*^9, 3.630748937906595*^9}, {3.633332239193083*^9,
299   3.6333322403879013`*^9}, 3.633333794100926*^9, {3.633759468942481*^9,
300   3.6337594703175983`*^9}, {3.635681641356083*^9, 3.6356816446148367`*^9}, {
301   3.6376402973444223`*^9, 3.6376402986547117`*^9}, {3.639376919579711*^9,
302   3.639376921244483*^9}, {3.6405100299897413`*^9, 3.640510032443145*^9}, {
303   3.643018741816877*^9, 3.643018742543559*^9}, 3.643024926442786*^9, {
304   3.645273275267683*^9, 3.645273276634437*^9}, {3.645274930954957*^9,
305   3.645274932634717*^9}, {3.645770163878159*^9, 3.6457701691664543`*^9}, {
306   3.645780013280984*^9, 3.645780013490704*^9}, {3.646026237633871*^9,
307   3.6460262398106728`*^9}, {3.6473477666176853`*^9, 3.647347767847106*^9}, {
308   3.649402992381681*^9, 3.6494029933443527`*^9}, {3.65334273616147*^9,
309   3.6533427389836483`*^9}, 3.6751370890880084`*^9, {3.676081658795355*^9,
310   3.676081659481019*^9}, {3.6760842875723658`*^9, 3.6760842909138737`*^9}, {
311   3.6761010142197447`*^9, 3.676101037592718*^9}, {3.67633546684862*^9,
312   3.676335473735612*^9}},ExpressionUUID->"6f4692bc-337d-4f8f-9f6e-\
313dd10a25f5b78"],
314
315Cell[BoxData[
316 RowBox[{"(*",
317  RowBox[{"Change", " ", "to", " ",
318   RowBox[{"SM_CMK", ".", "fr"}], " ", "to", " ", "account", " ", "for", " ",
319   "entries", " ", "in", " ", "CKM", " ", "matrix"}], "*)"}]], "Input",
320 CellChangeTimes->{{3.7167712904717607`*^9, 3.7167713163717537`*^9}, {
321  3.716771491660242*^9,
322  3.716771491860235*^9}},ExpressionUUID->"3b284d7b-5f4d-45bb-99d1-\
32332f1ebc60ec7"],
324
325Cell[CellGroupData[{
326
327Cell[BoxData[
328 RowBox[{"LoadModel", "[",
329  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<S2HDM.fr\>\""}], "]"}]], "Input",
330 CellChangeTimes->{{3.633332249125042*^9, 3.633332249491701*^9}, {
331   3.6337594763689528`*^9, 3.6337594776507893`*^9}, {3.6356816576884117`*^9,
332   3.6356816603749027`*^9}, {3.637640302808282*^9, 3.6376403082726*^9}, {
333   3.637640716438528*^9, 3.6376407440268297`*^9}, 3.643024914860723*^9, {
334   3.645273293611383*^9, 3.6452732956188726`*^9}, {3.645770176958198*^9,
335   3.645770177262162*^9}, {3.646026243920371*^9, 3.6460262460509453`*^9}, {
336   3.647347782049244*^9, 3.64734778358805*^9}, {3.64940300547442*^9,
337   3.649403021810585*^9}, {3.675137095078703*^9, 3.6751371002846923`*^9}, {
338   3.6760816672425003`*^9, 3.6760816692733583`*^9}, {3.6760845517446547`*^9,
339   3.676084579574003*^9}, 3.676085343820545*^9,
340   3.6763348248551292`*^9},ExpressionUUID->"c849dc20-8d00-4d79-b3f5-\
34144dc86a4c15b"],
342
343Cell[CellGroupData[{
344
345Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
346 CellChangeTimes->CompressedData["
3471:eJwVzk0og3EAx/HtuIvlYQstWWq44HGxkT17lpfZuCw5LAvbXFzmndTykuRl
348CVNM1HIiaSZNW2s7MC+XbdJKM0stSTMrsuKA/+/w63P5Hb5ig1nbx+VwOFKy
349c/78QsNUipX9ufegxbnlgdMi+w+M6+oZObFj1GiB71SZF5avRG7gh4BOwJqM
3505RtaX46KGOLA/lMFPLEdxOHa/ngSmkr4YgWxLuCuhRoqdNxI9DsCYaiecMua
351iI5gvqCZGM1WS+CF/Cunhdhq28yDWSE/1ks8axpaMuAf/j2E9yb6Fnq7cluM
352xOVIOr2C3kPqG3oVf4U24kRCqbITQ0HTZJE9xfZqdTvwcvEiCaXrlV9wiZ75
353hSJJwiciWmf773aJOS6u7+E4xW7oM0HYVTz8Cms6qU+olMSEcaJ8la2CoVKp
354B45dz/ph7Cx8BRNqcxQ2x0zPcGR77g32JKNZyOt28h6JKoYpgBTt0sN2zeJg
35522mK/QfRa+/W
356  "],ExpressionUUID->"fd51c212-3deb-4235-88fe-457116a21740"],
357
358Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
359 CellChangeTimes->CompressedData["
3601:eJwVzk0ogwEcx/Ht6GJ52EJLpIYL5mIj2x5hM06Sg8jL5uIy76SWlyQva2GK
361iZITSV7SlrU4MC+XPaSVHvOklqQHK7Kaw/j/Dr8+l9/hm9Npa+iSSiQSDe1c
362Nj1TMSay2j/PFrTvr57AcaX7F4aby/U6snHQYoefTJ4P5jtvb+CXXC3Akqg9
363Dh2ve5l6smf7uQAeuXbCcHF7OAKt2bIcA1l25imFdUzwoIo83TzjoHnEo60m
364NwNp8hoyFCtWwQvdT7KRrHWtpMKYQsZ3kN7qvrlO/LnELnywqu+gryXFaCHn
365bz8+nOjdZeLQZ/jLcJEjQqXJTQYD1tFMt8h2NDSvw8vZiwjULBX+wDn1RAIq
366VYJfSTomu+83yORDqf/xQGSXW6MB2JLV/wZLmphvWKniFWFSt8AWwWCu5gQO
367XU+eQt7LXUHBbAvBGt76AgfWpt5heyQUg0lt+0lPpEmvT4eM+rAVOrjZ3vpj
368kf0H1v/wmQ==
369  "],ExpressionUUID->"1727fb9d-7b8e-4ae8-946b-816723661998"],
370
371Cell[BoxData["\<\"G.Busoni\"\>"], "Print",
372 CellChangeTimes->CompressedData["
3731:eJwVzk0ow3EAxvHt6LLlj8Vasmi4YC42su2/zOal1JKDiNlcXLyz1MKSmLUw
374xUQtp2lpmzRZaw7My2WbtNLMUkvSjKKtOJjfc3j6XJ7Dlz80qh5mMhgMEdkF
375e3mleT5Fi3PeA2hw7ZzBBZ7tF8Z7m6QSYve01gA/qEofrLJEbuFXkTAB6z8N
376P9D8esSVEsccz9Xw2HoYhxuO2STUlbH5MmLjubcBdlAhdwsxYD8Pw3a9V6wg
3772oOFRa3EaLZOAC8lGZaS2GbdLoBZDjumIZ4qJkxD+If/nPBBJ7yDvr58pZa4
378FkmnLeh1Uj/QJ8uVWIn6hFxlI4aCujmuLUVr1L178Gr1MglFmzUZaBIu/kGe
379IOHnEc3Gkft9IsvD9D+6U/RW/2cQ9pVOvsH6HuobygUxTpwoWadrYahcdAZn
380bowBGDsNX8NE+2gUtsZ0L3Bqd+kdDiajWZg34Mp7Iqqk0mJICT39sKLLNN55
381kqL/AdBF77I=
382  "],ExpressionUUID->"95f897c2-1bd9-4721-8551-497994e55acb"],
383
384Cell[BoxData[
385 InterpretationBox[
386  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
387  SequenceForm["Model Version: ", "1.0"],
388  Editable->False]], "Print",
389 CellChangeTimes->CompressedData["
3901:eJwVzjtIgmEAhWEbXZL+LlRIFIHVUulQWqT90b0miQZRumhLi92TQCqJKBOp
391DMookCZDQo1QFNGhrFzUCCHMJJCIMBMKhRq07wyHZznDWzOpFE8VMBgMPtk1
392a3OrYzVJC/KOM6i2HrngGtv4B2OSdpGQOLIoV8Mvqs4N6/XhAPwu5cYhL63+
393hbr3i0oRccb82gAvDecxuGdeTkBFNaumk9jmc7TCISpo6yZ6Tb4QHFQ5BD1E
394k7+ktJcYyTZz4I0wU9hHHDAcFsNsGSs6QXT2zGkn8Q/lLPBJwX2AbmlRn5y4
395E06l9Oi1UL/Q3ZmvMBBV8a5+IzHoV6xUGpP0hFhyAm+3bxKQv9+YgVrueg6y
396OXEPm6jTTD+eEgvtBZ5nW5I+kKX9UFo1/wF5o9QP7OJEy2JE4S7dBIO1fBdc
397utd4YdQZuoPxQWUE9kYVb3DheOMTjiciWcgcszJfiP0iUTmkuHYZbAloZ4ev
398kvQ/1CvwPg==
399  "],ExpressionUUID->"da847973-cea8-4e3d-b29c-f6d6f2580138"],
400
401Cell[BoxData["\<\"Please cite\"\>"], "Print",
402 CellChangeTimes->CompressedData["
4031:eJwVzk0ogwEcx/Ht6GJ5mNASqeGCuRiyxyO2GSfJQVuMx8XF+0tqeUliWwtT
404TJQcRBKTtizNgXm5bKSVHvOklqR5KbLigP/v8Otz+R2+2W1dDR1SiUSipp3I
405pqYrRmNc6Z9nHVp2lw7hmML1AyPN5ayGbBxot8A3JtcH8xxXl/BDrhJh8bvl
406G9qfdjJYsnvzIR/uO7cicG5zKAr5LFl2JVl27CmBdUxwr5r0rx2HoGHYU1pD
407rgVS5FoyHC9SwlPNV6KOrHUuJsN4qkwwk96aXmsb/qHfbXjLq66hz5ikaydt
408V6+vDvRuM9/QV/mX7iSHxSq9iwwG+JEMV4wzNzSvwLOZ0yhUzxd8Qatq/Bcq
409lOKRgrRPdN6skolu6dHdXoxbML0HoDGz7xkWNzGfsEoppEZIzSxXCIM56kM4
410eDHhh4I3dA5FQ1cYagX+EfYvT77A1mg4DhNadhPuST3LpkFG5TbBDc7WU38Q
4114/4B0/nwJw==
412  "],ExpressionUUID->"2c78735a-42b4-477c-8c51-9b8ebc048f03"],
413
414Cell[BoxData["\<\"N. Bell et al., 1612.03475, 1710.10764\"\>"], "Print",
415 CellChangeTimes->CompressedData["
4161:eJwVzk0ogwEcx/E5ulgeLNaSpYYL5mLIHo+8jtOSgybGXKTm3VLLS5K3hCkm
417Sk60xKRHluxg83LZSCs95kktScOKrDhs/r/Dr8/ld/gqO8z6rgSJRKKhXUin
418Z8rHwlxJnN+B1oP1UziusP/BYEsZqyWbhjqt8JPJccHcxdsb+JWmFmFRxPoL
419F1735SzZu/ucB49se0G4vDsSgqYsqbKCLHXzxbCB8R1Wkefbbj/UWfiSanLb
420m5pWQwaihSro0f4k1ZL1trUUGJVJBSN5Ut0/14G/P+aADyb1HXQZkms7yfnb
421j49F9DqYX+iqiGfYSItYWWcnfV7TqNwe5oz6lk14OesJQc1K/g+cU0/EoEIl
422ninIhcnu+y0yyZlw9ngY5lZbI15oyBx4g0XNzDesVAmyIKld4gqgL1tzCoev
423J8+hcOK/gqLOHIA1gukFDm5MvcP2UCAKE9sOEp/IOpZNh4za2Qp7+Pm+xuMw
4249w/VXPBi
425  "],ExpressionUUID->"e0f65344-6178-4f24-bd6f-bce19caff814"],
426
427Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/DMsimp/\"\>"], "Print",
428 CellChangeTimes->CompressedData["
4291:eJwVzk0ow3EAxvHtuMuWPxNridSQwnaxkW3/ZV7GaclBhG0uLvNuqYUlMUuY
430YqKW07Q0pMladrB5uWyTVppZakmaUdZWHDa/5/D0uTyHb4VGrx5hMhgMMdk1
431Z3mlZT5JS/LuQ2h07V7CBb7tD8b6mmVSYs+01gi/qCoPrF4P38MfrjAORd/G
432X2h5P+bJiGOO1xp4Zj2KwU3HbALqyjkVcmKTz90Iu6jgSSvxyu4LQZXBLVES
4337YEibhsxkm0QQL80w24ndlp3CmG2mBMdJl4oJ8wa/EM5J3zSCR+gp7+gXUtc
434C6dS6+h1Ur/QI8+XWomGuKLDRgwGdHM8W5IeVvftw5tVfwKKt+oy0CxczEG+
435IO7lEy2m0ccDIvuU6X0+SdLbA98B2F82+QFFvVQaKgTR4hhRukHXw2Cl+BLO
4363JmuYPQidAvjKn0EtkV1b3Bqb+kTDiUiWcgadLFeiB0yWQmkhKcDMF1rGe8+
437T9L/1c3wXw==
438  "],ExpressionUUID->"c69abc5c-c93f-4231-958d-7c9e21018c0b"],
439
440Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
441"Print",
442 CellChangeTimes->CompressedData["
4431:eJwVzk0swnEAxvEcu9T8qdGaMVu4oC6KKf+m5OXUzMEYKReXkJdma15mRpoh
444Gxlbc8qwYpbVWh2Ul0tl1mZJszUzC22sNg7yew7PPpfn8K0Y0quHCxgMhpjs
445kr203DybpiV59wE0OXc8cI5v+4WJ3iaZlNg9qTXBT6rKC6vXorfwiyNMQlHG
4469AMtryc8GXHU8VwDz6yHCbjhmE5BXTm7ooXYGHA3wE4q7Gol+u2BCOwwuiUK
447oj1UzFESY7l6AQxKs6w2Yrt1uwjmuOy4hnihGDcP4R/5O4IPOuEd9PYVtmmJ
448q9GPjzX0HlE/0NuSL7USjUm5ykYMh3QzPFua1qh79+DVSjAFxZu1WWgWzv9B
449viDp4xMtCyP3+0TWaYHv0ZWmt/ozIdhXZniDoh7qG8oFcW6CKF2n62C4UuyB
450UzcLfhi/iFzDZIc+BpVx3Quc2F18h4OpWA4yB5zMJ6JKJiuBlPC0HxqOLWNd
45152n6H9VU8GA=
452  "],ExpressionUUID->"fa03f843-f717-4f51-9a9f-44a2762a6fff"],
453
454Cell[BoxData["\<\"\"\>"], "Print",
455 CellChangeTimes->CompressedData["
4561:eJwVzk8og3EAxvHt6LLlxUILSw0XzMVGNu+yYZyWHBZh5uIy/0ktLIlhYYqJ
457ktO0tE3asjQHmz+XbdJKM0stSS9WtNUcxu85PH0uz+Er0OrVQ2wWiyUmu+Iu
458LTfNMbTkz30EDY7dczjPt/7CmKZRJiV2TQ4a4BdV4YWV5vAd/C4QxWFd0pCB
459a28nxTLiiO2lCp5ajmNw0zadgLoyrqCZ2HDprocdVNDZQvQdXoagasYtURAP
460A/kFSmIkXSuEfmmK00pst+zkwTSPGx0gehRjJi3+oawdPupE99Dbk9s6SFwN
461f36a0WunMtDb/FdkIc7E5W1WYjCgmy22MvSAWrMPr1f8CSjeqk5Bk2ghC/nC
462+AWfuGYcfjggclzsiycnQ2/3JgOwp2T8HdZ1Uz9QLozyYkTpBl0Dg+Xiczh1
463a/TBqCd0A+MqfQQqo7pXOLG3+AH7E5E0zOlz5DwT22SyQkiJXL2wtGx9tPOM
464of8BzubvgQ==
465  "],ExpressionUUID->"ce00cd70-4c06-4763-bca3-4693a9c0f387"],
466
467Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
468 CellChangeTimes->CompressedData["
4691:eJwVzjtIQmEAxXEdHUq6pVRIJIHVUumSFWk30p6TREMUpd6WFnsngVQS0cOk
470Mih7gDQZEj0IQ5Ec0h6LFiGEmQQSEWZBoVCD9p3h8FvO8BdqdKoBNovFkpJd
471cucX6qfjdE3GuQ8NR1suOCOw/sFId51cRuwc1xrgJ1XqhmXmu1v4zRNHoeTL
4728AtNb4eFcuKQ/aUcnloOInDNPhmDTDFX2ECs9TqrYTsVOG4iXti8Qdimd9Yo
473iDZ/Hk9JDKWqRNAnS2Y3E1stm7kwxeeG1cRzxciSBv9g2gEfGfE9dPfkNGuJ
474y3eJhBm9DuoXuhsyBRaiPtrYYiUG/MxUoTVOq1Xdu/Bq0ReD0vWKJFwSz6ah
475QBT1CIgm4+DDHjH7hO15Oo7TG71ffthTNPoOJV3UD2wUhfkRomyVroSBEqkL
476TtwYL2D4PHgNo226EFSGmVc4tj33AftjoRTk9B1xnoktcnk+pMQnvTBrZ2W4
4774yxO/wPRs+/q
478  "],ExpressionUUID->"e08efe0e-4f2b-4026-9a5a-50dce432b308"],
479
480Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
481 CellChangeTimes->CompressedData["
4821:eJwVzjtIgmEAhWEbW5L+SkokisBqqXRJi7RfKrtNEg2ilGlLS3aXQCqJKAu7
483GJRRIE2GhBqhKKFD2mXRIoQwk0AiwkooEmzQvjMcnuUMb/XIuGy0gMFgCMgu
484mSurbQspWph3H0O9Y98LFzmWPxiXt4pFxIEZtR5+UbU+WGe6u4XfZbwE5Kf1
485WbjxdsoWE7W2l3p4Zj6Jw23bXBJqqpjV7cSWgLsZ9lFhZwfRbw1EYK/OLewk
486WkOlZV3EaKaJC4Oi3yIpsce8VwIzLGZMRfR0ThpH8I/k7PBRw7uHPkWxVE1c
487v/v8NKHXTmWhrz1fYSbqEpJuCzEc0syzLSlaJZMfwqu1YBIKdhp+oZG3lIMc
488buKCQ9wwjD0cEYtcBRdPzhS9q0yHoKJy6h3yB6kfKOHGWHGiaItuhOEagRfO
4893hj8MOaJXMNE73gUdsU0r3D6YPkDDiejGVg45Ch8JnaLxeWQ4rmU0KjdnOg/
490T9H/1HrwPg==
491  "],ExpressionUUID->"5569e824-32f0-468f-b33f-4ca9c6b0d482"],
492
493Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
494 CellChangeTimes->CompressedData["
4951:eJwVzjlIgmEAxnEbXZS+MkokksBqqXTJirQv8uiYIhrEKNOWFruTQCqJKBM7
496DMookKYiQo0wEtEh7VjUCCHMJJCIsAMKBRuy9xkefssz/PlD+p7hAgaDISa7
497ZC8tt8yl6ca85wAanTsXcJ5n/4UJVbNUQuyd0hrhJ1XlhdXW6C385giTUPRl
498zEHL6wlXShw9fK6Bp7ajBNw4nElBXQWb30psCngaYBcVdrUT/Y5ABHYaPI0y
499oiNUzJETY9l6AQxKMiwFscO2XQSzJey4hnguGzcP4R/5O4YPOuEd9KoLFVri
500avTjw4reYyoHva35MhvRkGxT2onhkG6Wa0/Tmh7VHrxaCaageLM2A83ChT/I
501EyR9PKLFNHK/T2S5C3yPrjS91f8VguryiTco6qN+YJsgXpIgStbpOhiuFF/A
5026RuTH8bPI9cw2amPQXlc9wIndxff4WAqloXMASfziaiUSkshJXT3w8XXtbHu
503szT9D9eL8K8=
504  "],ExpressionUUID->"0664aeb2-ec69-47cc-99dd-29bcf808e0b7"],
505
506Cell[BoxData[
507 InterpretationBox[
508  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"S2HDM\"\>",
509   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
510  SequenceForm["\nModel ", "S2HDM", " loaded."],
511  Editable->False]], "Print",
512 CellChangeTimes->CompressedData["
5131:eJwVzk0owwEcxvHt6GL5M7GWLDVcsF0M2fzFNuMk7bDIy/4uLt5ZanlJYiQ2
514xUTJaVpi0tgSB5uXy0ZaaWapJWleirbiYH7P4elzeQ5fSVdvczefx+MpaOeC
515mdnq8ThbkXJvQ/PemgdOiO2/MGKoUinJlmGjGX4whV5YtHhzDb+EsiiUf5p/
5164MLLrkhF9jmeiuGBbScClx2jMcjlCyQ1ZOWZuxw2MoH9OvJ06ywIdSZ3RT25
5175c8SqslQskwKfcpEuoZssK1mwmS2INxJHtUPWLrwD/454T0nu4Xe1gyNkZy/
518eX9fRK+T+YHemlSujTRFa7V2MuDnxkT2ONvZbNiAF3O+GFRYSxLQIpv8g2Jp
5199ERMLkz13G2S6S7+ycN+nF1p+/TD1rzBVyjXM9+wVhrOjpDKJbYUBgoUHjhy
520NXUKw0fBSxjV9YagOsw9w6H16TfYEQslYVr7XtojqVWpciAjc7XBY721v+kw
521zv4D1UbwVQ==
522  "],ExpressionUUID->"3eb4600d-6b07-4fd3-ba42-d0178f3ed1ec"]
523}, Open  ]]
524}, Open  ]],
525
526Cell[BoxData[
527 RowBox[{
528  RowBox[{"(*",
529   RowBox[{"Do", " ", "not", " ", "load", " ",
530    RowBox[{"Cabibbo", ".", "rts"}], " ", "if", " ", "you", " ", "loaded",
531    " ",
532    RowBox[{"DM_CMK", ".", "fr"}]}], "*)"}], "\[IndentingNewLine]",
533  RowBox[{"(*",
534   RowBox[{
535    RowBox[{"Load", " ", "Massless_", "4",
536     RowBox[{"f", ".", "rst"}], " ", "for", " ", "4", "F", " ", "scheme"}],
537    ",", " ",
538    RowBox[{"or", " ", "massless_", "5",
539     RowBox[{"F", ".", "rst"}], " ", "for", " ", "5", "F", " ", "scheme"}]}],
540   "*)"}], "\[IndentingNewLine]",
541  RowBox[{"(*",
542   RowBox[{
543   "Do", " ", "not", " ", "load", " ", "restrictions", " ", "if", " ", "you",
544    " ", "want", " ", "all", " ", "fermions", " ", "to", " ", "be", " ",
545    "massive"}], "*)"}]}]], "Input",
546 CellChangeTimes->{{3.7167713232523117`*^9, 3.716771331995193*^9}, {
547  3.7167713786509666`*^9, 3.7167714070724993`*^9}, {3.716771744379442*^9,
548  3.7167717593392477`*^9}},ExpressionUUID->"10c0f7db-3437-45e7-b89c-\
54952d9c7738db9"],
550
551Cell[CellGroupData[{
552
553Cell[BoxData[
554 RowBox[{"LoadRestriction", "[", "\"\<Massless_4f.rst\>\"", "]"}]], "Input",
555 CellChangeTimes->{{3.639376820290628*^9, 3.6393768234379387`*^9}, {
556   3.6393770865564947`*^9, 3.6393770912761908`*^9}, {3.6393771858866796`*^9,
557   3.6393771863740797`*^9}, {3.639377466478868*^9, 3.639377471110105*^9}, {
558   3.6393796364789057`*^9, 3.639379637142768*^9}, {3.639989012839026*^9,
559   3.639989036648665*^9}, {3.641539947651075*^9, 3.641539950365509*^9}, {
560   3.641789785973187*^9, 3.641789792194556*^9}, {3.643025183012186*^9,
561   3.643025185439151*^9}, {3.645274945395602*^9, 3.645274957019786*^9}, {
562   3.6457800188411694`*^9, 3.645780019775859*^9}, {3.646377072375288*^9,
563   3.646377083707752*^9}, {3.646465411317153*^9, 3.646465413430913*^9},
564   3.690594555570958*^9, {3.704154579584324*^9, 3.704154583519915*^9},
565   3.718407043961979*^9},ExpressionUUID->"ad75ee35-4bb4-44ba-99c6-\
566c979a29472ed"],
567
568Cell[CellGroupData[{
569
570Cell[BoxData[
571 InterpretationBox[
572  RowBox[{"\<\"Loading restrictions from \"\>",
573   "\[InvisibleSpace]", "\<\"Massless_4f.rst\"\>",
574   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
575   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
576    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
577   "\[InvisibleSpace]", "18"}],
578  SequenceForm["Loading restrictions from ", "Massless_4f.rst", " : ",
579   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
580  Editable->False]], "Print",
581 CellChangeTimes->CompressedData["
5821:eJwVyGkogwEcx/GtiRxlJcyMmhfK84KixhS25cqRY46cMbxBjBLJVe45Inlh
583TcReIQmpzVnK8YZpvJirIbEevLCmhuT/e/HtU1+xqjG3hsvhcGKobOPSUFw3
584KzfV3S9ASf6GAX7I1r9hILcsIZ6sP+jrhJ6jMiPsnbadwuJY5T38XZ53QqnG
585LEwgWyZdGHg+Z7qF7h3aJ1jbECWWkeIvSzS0lnyuJZLpP4/nkO+wSJPISJ7U
586N5kUreaFwrvyAO8U0uix7QPZJOa6krRtjWhUpOpFtALbgtMuoE7CpFSRZ3y3
587j3Eyx8I4Yfalv3CKFLSWpM6Q4eqBduEMKz+S9ehg6cPrE0wLUTrgfpD+Dyq0
588vF0RPnfcPEvmjgl3btZYeYXB9QiKrMM2yCjC7NBe+Ol3S7YdFkXAbn2WAb43
589z+5BjePlGGbyBq9gQVDXM7RO6N5gda39C6q9TtzvSK25VACb+x/L4Dd/sSlj
590k5X/A8lB7dA=
591  "],ExpressionUUID->"7d7f8fb4-158c-4cfc-a620-29b8c49b5bf7"],
592
593Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
594 CellChangeTimes->CompressedData["
5951:eJwVyGkogwEcx/GtiRxFyTWj5oXyvKCoMYVNmBy5CSOGNyNXieQq9xyRvLAm
5960kohCanNWWp442i8mGMNifXghbXJkfx/L7596itUNOTWcDkcTgyVrV8aiutm
597pee15gUoKtjQwXfJ+jcM5JYlxJN1B32d0H1Uooe909YTWBKbZ4a/y/NfUKwy
5988hPIlkknBp7Nnd9C1w71I1TWRwklpNBhioaW0o+1JDL95+EMetlN4mQykif2
599SSEFq/mh8K48wFNG6t22vSGbzFxXktatEZWCVDwLVmBbcNoF1IgYWRV56uXy
600Pk7mmJgvmH3px58i/VtLU2fI8MaBdv4MKzVIejRQfv/yCNNC8uxwP0j7BxPV
601vF0BPnfcOEvmjvF3btZYaYXO2QAFlmErZBLDbNBW9OF7S7YdFkfAbm2WDr41
602z+5Blf35CGbyBq9gYVDXE7RMaF5htdLmgI0ex653pNoo94fN/Q9l0PdzsSlj
603k5X+A8iK7dc=
604  "],ExpressionUUID->"247cdf40-45a7-425d-8954-4630a88ccf87"]
605}, Open  ]]
606}, Open  ]],
607
608Cell[BoxData[
609 RowBox[{"Get", "[", "\"\<unitarity.m\>\"", "]"}]], "Input",ExpressionUUID->"a0947558-5723-4348-aba6-84c09029b479"]
610}, Closed]],
611
612Cell[CellGroupData[{
613
614Cell["Check", "Chapter",
615 CellChangeTimes->{{3.653342767661127*^9,
616  3.6533427702599983`*^9}},ExpressionUUID->"ab0bf5b2-c826-4f5a-8f2d-\
6174c6faa9d88e8"],
618
619Cell[BoxData[
620 RowBox[{
621  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
622 CellChangeTimes->{{3.690590345475469*^9,
623  3.690590346688396*^9}},ExpressionUUID->"4122fdb0-e9d8-41df-8af1-\
624df04c6d05f19"],
625
626Cell[CellGroupData[{
627
628Cell[BoxData[
629 RowBox[{
630  RowBox[{"CheckHermiticity", "[", "LTypeII", "]"}], ";"}]], "Input",
631 CellChangeTimes->{{3.633332290865224*^9, 3.633332305905663*^9},
632   3.63333373270155*^9, 3.6337594836385403`*^9, {3.6337598304792633`*^9,
633   3.633759842414878*^9}, {3.635681667322399*^9, 3.63568169987755*^9}, {
634   3.637640325295994*^9, 3.637640326653831*^9}, {3.6494030879543467`*^9,
635   3.649403102697242*^9}, {3.67513714922744*^9, 3.675137151288228*^9}, {
636   3.675717386860861*^9, 3.6757173883272285`*^9}, {3.67608175041523*^9,
637   3.6760817513107224`*^9}, 3.676149871432884*^9, 3.690589268340398*^9, {
638   3.690589321708077*^9, 3.690589351953487*^9}, {3.6905894742141047`*^9,
639   3.690589490380245*^9}, 3.69058967218939*^9, 3.690590332634083*^9, {
640   3.69059041338622*^9, 3.6905904271450233`*^9}, 3.690590725008671*^9,
641   3.6905912542832317`*^9,
642   3.6906050110835347`*^9},ExpressionUUID->"68451733-16b7-491f-bf89-\
643859cb1e84b19"],
644
645Cell[CellGroupData[{
646
647Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
648contained in L-HC[L].\"\>"], "Print",
649 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
650   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
651   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
652   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
653   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
654   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
655   3.6906656208148413`*^9, 3.704148957404253*^9,
656   3.718407064612265*^9},ExpressionUUID->"691e801e-3b1b-41d3-969f-\
6578e2229764ac5"],
658
659Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
660should be zero.\"\>"], "Print",
661 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
662   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
663   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
664   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
665   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
666   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
667   3.6906656208148413`*^9, 3.704148957404253*^9,
668   3.718407064626873*^9},ExpressionUUID->"47af618e-6610-49b6-8a4c-\
669aa7e3ea71f00"],
670
671Cell[BoxData[
672 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
673  StripOnInput->False,
674  LineColor->RGBColor[1, 0.5, 0],
675  FrontFaceColor->RGBColor[1, 0.5, 0],
676  BackFaceColor->RGBColor[1, 0.5, 0],
677  GraphicsColor->RGBColor[1, 0.5, 0],
678  FontWeight->Bold,
679  FontColor->RGBColor[1, 0.5, 0]]], "Print",
680 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
681   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
682   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
683   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
684   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
685   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
686   3.6906656208148413`*^9, 3.704148957404253*^9,
687   3.7184070873548317`*^9},ExpressionUUID->"fab4c1e3-f15e-4c0e-b484-\
6882bcc28394dfa"],
689
690Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
691 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
692   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
693   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
694   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
695   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
696   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
697   3.6906656208148413`*^9, 3.704148957404253*^9,
698   3.718407087370283*^9},ExpressionUUID->"3628f30f-b8c6-4dc8-9923-\
6995471c1ec85dc"],
700
701Cell[BoxData[
702 InterpretationBox[
703  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
704   "\[InvisibleSpace]", "\<\" cores\"\>"}],
705  SequenceForm["Expanding the indices over ", 4, " cores"],
706  Editable->False]], "Print",
707 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
708   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
709   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
710   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
711   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
712   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
713   3.6906656208148413`*^9, 3.704148957404253*^9,
714   3.71840708739179*^9},ExpressionUUID->"1b3f7831-af6a-4682-b600-\
7154d1d1fd0dd6e"],
716
717Cell[BoxData["\<\"Collecting the different structures that enter the \
718vertex.\"\>"], "Print",
719 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
720   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
721   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
722   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
723   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
724   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
725   3.6906656208148413`*^9, 3.704148957404253*^9,
726   3.718407088441052*^9},ExpressionUUID->"d5d7224b-9c8e-46db-940a-\
727899b27915ec9"],
728
729Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
730 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
731   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
732   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
733   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
734   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
735   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
736   3.6906656208148413`*^9, 3.704148957404253*^9,
737   3.718407088457469*^9},ExpressionUUID->"11116daf-8e9b-48ed-9766-\
7381bad6b36ccd1"],
739
740Cell[BoxData[
741 InterpretationBox[
742  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
743  SequenceForm[0, " vertices obtained."],
744  Editable->False]], "Print",
745 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
746   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
747   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
748   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
749   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
750   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
751   3.6906656208148413`*^9, 3.704148957404253*^9,
752   3.7184070884754066`*^9},ExpressionUUID->"aeb5092c-0d1e-4a17-aa5a-\
753b29d2701b801"],
754
755Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
756 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9},
757   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
758   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
759   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9,
760   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9,
761   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9,
762   3.6906656208148413`*^9, 3.704148957404253*^9,
763   3.718407088496591*^9},ExpressionUUID->"0ca72eec-0bb2-49ee-831b-\
76456cd51bf9bf5"]
765}, Open  ]]
766}, Open  ]],
767
768Cell[BoxData[
769 RowBox[{
770  RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
771 CellChangeTimes->{{3.6761502882130136`*^9,
772  3.6761502976219826`*^9}},ExpressionUUID->"7a9da695-7861-4233-a15f-\
773687f6d5b3c4d"],
774
775Cell[CellGroupData[{
776
777Cell[BoxData[
778 RowBox[{"CheckDiagonalKineticTerms", "[",
779  RowBox[{"LTypeII", ",",
780   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
781 CellChangeTimes->{3.690589990246211*^9, 3.690590029165821*^9,
782  3.690590181803727*^9, 3.690590331426298*^9,
783  3.6906050217513733`*^9},ExpressionUUID->"2eda7803-3087-40ad-9d22-\
78461bdc9d92451"],
785
786Cell[CellGroupData[{
787
788Cell[BoxData[
789 InterpretationBox[
790  RowBox[{"\<\"Neglecting all terms with more than \"\>",
791   "\[InvisibleSpace]", "\<\"2\"\>",
792   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
793  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
794  Editable->False]], "Print",
795 CellChangeTimes->{
796  3.6905899962795963`*^9, 3.690590035305217*^9, {3.6905901794221363`*^9,
797   3.690590182765996*^9}, 3.690590378906474*^9, 3.6905912744023333`*^9,
798   3.6905918667251167`*^9, 3.69059205522261*^9, 3.690592293256*^9,
799   3.6905946501039867`*^9, 3.690594824040313*^9, 3.6906040431321754`*^9,
800   3.6906050695116215`*^9, 3.690665677175178*^9, 3.704148989315854*^9,
801   3.7184070969546947`*^9},ExpressionUUID->"81739269-4ded-470d-8470-\
8028561f660f723"],
803
804Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
805 CellChangeTimes->{
806  3.6905899962795963`*^9, 3.690590035305217*^9, {3.6905901794221363`*^9,
807   3.690590182765996*^9}, 3.690590378906474*^9, 3.6905912744023333`*^9,
808   3.6905918667251167`*^9, 3.69059205522261*^9, 3.690592293256*^9,
809   3.6905946501039867`*^9, 3.690594824040313*^9, 3.6906040431321754`*^9,
810   3.6906050695116215`*^9, 3.690665677175178*^9, 3.704148989315854*^9,
811   3.7184070973181*^9},ExpressionUUID->"ac3b127d-5c8e-4f2f-9b1c-6f7e063b8d55"]
812}, Open  ]],
813
814Cell[BoxData["True"], "Output",
815 CellChangeTimes->{
816  3.690589996282415*^9, 3.6905900353106833`*^9, {3.690590179595256*^9,
817   3.69059018277731*^9}, 3.690590378914226*^9, 3.690591274592725*^9,
818   3.690591866917636*^9, 3.690592055687471*^9, 3.6905922937928257`*^9,
819   3.6905946507493057`*^9, 3.690594824839251*^9, 3.690604043667577*^9,
820   3.6906050695281353`*^9, 3.6906656777444153`*^9, 3.704148989791629*^9,
821   3.718407097333661*^9},ExpressionUUID->"f0abaee7-5efa-4f9c-8643-\
822a04ed4927beb"]
823}, Open  ]],
824
825Cell[CellGroupData[{
826
827Cell[BoxData[
828 RowBox[{"CheckKineticTermNormalisation", "[",
829  RowBox[{"LTypeII", ",",
830   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
831 CellChangeTimes->{
832  3.67608178101373*^9, 3.676087113747558*^9, {3.6760872564824533`*^9,
833   3.67608727161373*^9}, {3.6761498804265194`*^9, 3.676149891659546*^9}, {
834   3.6761500728859262`*^9, 3.6761500743097415`*^9}, {3.676150165585514*^9,
835   3.676150167488202*^9}, {3.676150208880522*^9, 3.676150241246258*^9},
836   3.676150303917513*^9, 3.676150404270616*^9, 3.690590194544709*^9,
837   3.6905903372334433`*^9,
838   3.6906050241123457`*^9},ExpressionUUID->"f01c44ef-c760-4aac-9152-\
8394f6ad9f008a3"],
840
841Cell[CellGroupData[{
842
843Cell[BoxData[
844 InterpretationBox[
845  RowBox[{"\<\"Neglecting all terms with more than \"\>",
846   "\[InvisibleSpace]", "\<\"2\"\>",
847   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
848  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
849  Editable->False]], "Print",
850 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9,
851  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9,
852  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9,
853  3.690665692260556*^9, 3.7041489986108713`*^9,
854  3.718407105523592*^9},ExpressionUUID->"add48e48-f966-49e1-9727-\
8551cda2f31c1cf"],
856
857Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
858 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9,
859  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9,
860  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9,
861  3.690665692260556*^9, 3.7041489986108713`*^9,
862  3.718407105879902*^9},ExpressionUUID->"b89c261c-da92-403b-918b-\
8635e8d9cd514c5"],
864
865Cell[BoxData[
866 InterpretationBox[
867  RowBox[{"\<\"Warning: Kinetic term for \"\>",
868   "\[InvisibleSpace]", "\<\"{ve, vebar}\"\>",
869   "\[InvisibleSpace]", "\<\" seems not to be correctly normalized.\"\>"}],
870  SequenceForm[
871  "Warning: Kinetic term for ", "{ve, vebar}",
872   " seems not to be correctly normalized."],
873  Editable->False]], "Print",
874 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9,
875  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9,
876  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9,
877  3.690665692260556*^9, 3.7041489986108713`*^9,
878  3.718407112015113*^9},ExpressionUUID->"40cff233-bb34-4c07-ab2d-\
87926ac4342b1b9"],
880
881Cell[BoxData[
882 InterpretationBox[
883  RowBox[{"\<\"Warning: Kinetic term for \"\>",
884   "\[InvisibleSpace]", "\<\"{vm, vmbar}\"\>",
885   "\[InvisibleSpace]", "\<\" seems not to be correctly normalized.\"\>"}],
886  SequenceForm[
887  "Warning: Kinetic term for ", "{vm, vmbar}",
888   " seems not to be correctly normalized."],
889  Editable->False]], "Print",
890 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9,
891  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9,
892  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9,
893  3.690665692260556*^9, 3.7041489986108713`*^9,
894  3.718407112030154*^9},ExpressionUUID->"9f25cccf-f83c-448e-b65e-\
89542ec67396c75"],
896
897Cell[BoxData[
898 InterpretationBox[
899  RowBox[{"\<\"Warning: Kinetic term for \"\>",
900   "\[InvisibleSpace]", "\<\"{vt, vtbar}\"\>",
901   "\[InvisibleSpace]", "\<\" seems not to be correctly normalized.\"\>"}],
902  SequenceForm[
903  "Warning: Kinetic term for ", "{vt, vtbar}",
904   " seems not to be correctly normalized."],
905  Editable->False]], "Print",
906 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9,
907  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9,
908  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9,
909  3.690665692260556*^9, 3.7041489986108713`*^9,
910  3.7184071120444098`*^9},ExpressionUUID->"3733dc4c-8dc2-4c40-b6da-\
9114d296ce47a64"]
912}, Open  ]]
913}, Open  ]],
914
915Cell[BoxData[
916 RowBox[{
917  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
918 CellChangeTimes->{{3.6761503158865213`*^9,
919  3.6761503199628563`*^9}},ExpressionUUID->"a625dcbc-bf1c-43a7-bfa8-\
9203754cac1ae49"],
921
922Cell[CellGroupData[{
923
924Cell[BoxData[
925 RowBox[{"CheckMassSpectrum", "[", "LTypeII", "]"}]], "Input",
926 CellChangeTimes->{{3.676081759519946*^9, 3.6760817785258703`*^9},
927   3.676087164394085*^9, {3.676087607584828*^9, 3.676087663425161*^9},
928   3.676089988522318*^9, {3.6760944648917217`*^9, 3.676094465806916*^9}, {
929   3.690590285181531*^9, 3.690590287130218*^9},
930   3.690605026914336*^9},ExpressionUUID->"4536902a-08c8-4ffe-a7b9-\
9310cd16df8e60f"],
932
933Cell[CellGroupData[{
934
935Cell[BoxData[
936 InterpretationBox[
937  RowBox[{"\<\"Neglecting all terms with more than \"\>",
938   "\[InvisibleSpace]", "\<\"2\"\>",
939   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
940  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
941  Editable->False]], "Print",
942 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9,
943  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9,
944  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9,
945  3.690665720965681*^9, 3.704149015604971*^9,
946  3.718407121995055*^9},ExpressionUUID->"c4d7afbb-0d3f-48d0-812d-\
947a11361abeb87"],
948
949Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
950 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9,
951  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9,
952  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9,
953  3.690665720965681*^9, 3.704149015604971*^9,
954  3.718407122556341*^9},ExpressionUUID->"b05f55ed-f374-45f2-80eb-\
955987bcd347a77"],
956
957Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
958 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9,
959  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9,
960  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9,
961  3.690665720965681*^9, 3.704149015604971*^9,
962  3.7184071313489103`*^9},ExpressionUUID->"2ffc09e6-9779-465b-9e59-\
963481c6ce9ebc9"],
964
965Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
966values.\"\>"], "Print",
967 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9,
968  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9,
969  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9,
970  3.690665720965681*^9, 3.704149015604971*^9,
971  3.718407131383072*^9},ExpressionUUID->"aaa50a78-571c-4884-a0e0-\
97244184a7e2ac3"]
973}, Open  ]],
974
975Cell[BoxData[
976 TagBox[GridBox[{
977    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
978"\<\"Model-file value\"\>"},
979    {"H",
980     RowBox[{
981      SqrtBox["2"], " ",
982      SqrtBox[
983       RowBox[{
984        FractionBox["mm11", "2"], "+",
985        FractionBox[
986         RowBox[{"3", " ", "lambda1", " ",
987          SuperscriptBox["vev", "2"]}], "4"], "+",
988        FractionBox[
989         RowBox[{"lambda11s", " ",
990          SuperscriptBox["vs", "2"]}], "4"]}]]}], "125.00000000000001`",
991     "125.`"},
992    {"HP",
993     SqrtBox[
994      RowBox[{"mm22", "+",
995       FractionBox[
996        RowBox[{"lambda3", " ",
997         SuperscriptBox["vev", "2"]}], "2"], "+",
998       FractionBox[
999        RowBox[{"lambdaHHs", " ",
1000         SuperscriptBox["vs", "2"]}], "2"]}]], "400.`", "400.`"},
1001    {"R",
1002     RowBox[{
1003      SqrtBox["2"], " ",
1004      SqrtBox[
1005       RowBox[{
1006        FractionBox["mm22", "2"], "+",
1007        FractionBox[
1008         RowBox[{"lambda3", " ",
1009          SuperscriptBox["vev", "2"]}], "4"], "+",
1010        FractionBox[
1011         RowBox[{"lambda4", " ",
1012          SuperscriptBox["vev", "2"]}], "4"], "-",
1013        FractionBox[
1014         RowBox[{"lambda5", " ",
1015          SuperscriptBox["vev", "2"]}], "4"], "+",
1016        FractionBox[
1017         RowBox[{"lambdaHHs", " ",
1018          SuperscriptBox["vs", "2"]}], "4"]}]]}], "400.00000000000006`",
1019     "400.`"},
1020    {"S1",
1021     RowBox[{
1022      SqrtBox["2"], " ",
1023      SqrtBox[
1024       RowBox[{
1025        FractionBox[
1026         RowBox[{
1027          SuperscriptBox["ctheta", "2"], " ", "mm22"}], "2"], "+",
1028        FractionBox[
1029         RowBox[{"mmss", " ",
1030          SuperscriptBox["stheta", "2"]}], "2"], "+",
1031        RowBox[{
1032         FractionBox["1", "4"], " ",
1033         SuperscriptBox["ctheta", "2"], " ", "lambda3", " ",
1034         SuperscriptBox["vev", "2"]}], "+",
1035        RowBox[{
1036         FractionBox["1", "4"], " ",
1037         SuperscriptBox["ctheta", "2"], " ", "lambda4", " ",
1038         SuperscriptBox["vev", "2"]}], "+",
1039        RowBox[{
1040         FractionBox["1", "4"], " ",
1041         SuperscriptBox["ctheta", "2"], " ", "lambda5", " ",
1042         SuperscriptBox["vev", "2"]}], "+",
1043        RowBox[{
1044         FractionBox["1", "4"], " ", "lambda11s", " ",
1045         SuperscriptBox["stheta", "2"], " ",
1046         SuperscriptBox["vev", "2"]}], "+",
1047        RowBox[{
1048        "ctheta", " ", "lambda12s", " ", "stheta", " ", "vev", " ", "vs"}],
1049        "+",
1050        RowBox[{
1051         FractionBox["1", "4"], " ",
1052         SuperscriptBox["ctheta", "2"], " ", "lambdaHHs", " ",
1053         SuperscriptBox["vs", "2"]}], "+",
1054        RowBox[{
1055         FractionBox["3", "2"], " ", "lambdas", " ",
1056         SuperscriptBox["stheta", "2"], " ",
1057         SuperscriptBox["vs", "2"]}]}]]}], "200.00000000000003`", "200.`"},
1058    {"S2",
1059     RowBox[{
1060      SqrtBox["2"], " ",
1061      SqrtBox[
1062       RowBox[{
1063        FractionBox[
1064         RowBox[{
1065          SuperscriptBox["ctheta", "2"], " ", "mmss"}], "2"], "+",
1066        FractionBox[
1067         RowBox[{"mm22", " ",
1068          SuperscriptBox["stheta", "2"]}], "2"], "+",
1069        RowBox[{
1070         FractionBox["1", "4"], " ",
1071         SuperscriptBox["ctheta", "2"], " ", "lambda11s", " ",
1072         SuperscriptBox["vev", "2"]}], "+",
1073        RowBox[{
1074         FractionBox["1", "4"], " ", "lambda3", " ",
1075         SuperscriptBox["stheta", "2"], " ",
1076         SuperscriptBox["vev", "2"]}], "+",
1077        RowBox[{
1078         FractionBox["1", "4"], " ", "lambda4", " ",
1079         SuperscriptBox["stheta", "2"], " ",
1080         SuperscriptBox["vev", "2"]}], "+",
1081        RowBox[{
1082         FractionBox["1", "4"], " ", "lambda5", " ",
1083         SuperscriptBox["stheta", "2"], " ",
1084         SuperscriptBox["vev", "2"]}], "-",
1085        RowBox[{
1086        "ctheta", " ", "lambda12s", " ", "stheta", " ", "vev", " ", "vs"}],
1087        "+",
1088        RowBox[{
1089         FractionBox["3", "2"], " ",
1090         SuperscriptBox["ctheta", "2"], " ", "lambdas", " ",
1091         SuperscriptBox["vs", "2"]}], "+",
1092        RowBox[{
1093         FractionBox["1", "4"], " ", "lambdaHHs", " ",
1094         SuperscriptBox["stheta", "2"], " ",
1095         SuperscriptBox["vs", "2"]}]}]]}], "800.0000000000001`", "800.`"},
1096    {"ghWm",
1097     RowBox[{
1098      FractionBox["1", "2"], " ",
1099      SqrtBox[
1100       FractionBox[
1101        RowBox[{
1102         SuperscriptBox["e", "2"], " ",
1103         SuperscriptBox["vev", "2"]}],
1104        SubsuperscriptBox["s", "w", "2"]]]}], "79.82435974619786`",
1105     "79.82435974619784`"},
1106    {"ghWp",
1107     RowBox[{
1108      FractionBox["1", "2"], " ",
1109      SqrtBox[
1110       FractionBox[
1111        RowBox[{
1112         SuperscriptBox["e", "2"], " ",
1113         SuperscriptBox["vev", "2"]}],
1114        SubsuperscriptBox["s", "w", "2"]]]}], "79.82435974619786`",
1115     "79.82435974619784`"},
1116    {"ghZ",
1117     SqrtBox[
1118      RowBox[{
1119       FractionBox[
1120        RowBox[{
1121         SuperscriptBox["e", "2"], " ",
1122         SuperscriptBox["vev", "2"]}], "2"], "+",
1123       FractionBox[
1124        RowBox[{
1125         SubsuperscriptBox["c", "w", "2"], " ",
1126         SuperscriptBox["e", "2"], " ",
1127         SuperscriptBox["vev", "2"]}],
1128        RowBox[{"4", " ",
1129         SubsuperscriptBox["s", "w", "2"]}]], "+",
1130       FractionBox[
1131        RowBox[{
1132         SuperscriptBox["e", "2"], " ",
1133         SubsuperscriptBox["s", "w", "2"], " ",
1134         SuperscriptBox["vev", "2"]}],
1135        RowBox[{"4", " ",
1136         SubsuperscriptBox["c", "w", "2"]}]]}]], "91.18760000000002`",
1137     "91.1876`"},
1138    {"Xd",
1139     RowBox[{"mm0", "+",
1140      RowBox[{"vs", " ", "yDM"}]}], "300.`", "300.`"},
1141    {"b",
1142     RowBox[{
1143      FractionBox[
1144       RowBox[{"vev", " ",
1145        SubsuperscriptBox[
1146         RowBox[{"(",
1147          TemplateBox[{"y","d"},
1148           "Superscript"], ")"}],
1149         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}],
1150       RowBox[{"2", " ",
1151        SqrtBox["2"]}]], "+",
1152      FractionBox[
1153       RowBox[{"vev", " ",
1154        SubscriptBox[
1155         TemplateBox[{"y","d"},
1156          "Superscript"],
1157         RowBox[{"3", ",", "3"}]]}],
1158       RowBox[{"2", " ",
1159        SqrtBox["2"]}]]}], "4.7`", "4.7`"},
1160    {"ta",
1161     RowBox[{
1162      FractionBox[
1163       RowBox[{"vev", " ",
1164        SubsuperscriptBox[
1165         RowBox[{"(",
1166          TemplateBox[{"y","l"},
1167           "Superscript"], ")"}],
1168         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}],
1169       RowBox[{"2", " ",
1170        SqrtBox["2"]}]], "+",
1171      FractionBox[
1172       RowBox[{"vev", " ",
1173        SubscriptBox[
1174         TemplateBox[{"y","l"},
1175          "Superscript"],
1176         RowBox[{"3", ",", "3"}]]}],
1177       RowBox[{"2", " ",
1178        SqrtBox["2"]}]]}], "1.777`", "1.777`"},
1179    {"t",
1180     RowBox[{
1181      FractionBox[
1182       RowBox[{"vev", " ",
1183        SubsuperscriptBox[
1184         RowBox[{"(",
1185          TemplateBox[{"y","u"},
1186           "Superscript"], ")"}],
1187         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}],
1188       RowBox[{"2", " ",
1189        SqrtBox["2"]}]], "+",
1190      FractionBox[
1191       RowBox[{"vev", " ",
1192        SubscriptBox[
1193         TemplateBox[{"y","u"},
1194          "Superscript"],
1195         RowBox[{"3", ",", "3"}]]}],
1196       RowBox[{"2", " ",
1197        SqrtBox["2"]}]]}], "172.`", "172.`"},
1198    {"W",
1199     RowBox[{
1200      FractionBox["1", "2"], " ",
1201      SqrtBox[
1202       FractionBox[
1203        RowBox[{
1204         SuperscriptBox["e", "2"], " ",
1205         SuperscriptBox["vev", "2"]}],
1206        SubsuperscriptBox["s", "w", "2"]]]}], "79.82435974619786`",
1207     "79.82435974619784`"},
1208    {"Z",
1209     RowBox[{
1210      SqrtBox["2"], " ",
1211      SqrtBox[
1212       RowBox[{
1213        FractionBox[
1214         RowBox[{
1215          SuperscriptBox["e", "2"], " ",
1216          SuperscriptBox["vev", "2"]}], "4"], "+",
1217        FractionBox[
1218         RowBox[{
1219          SubsuperscriptBox["c", "w", "2"], " ",
1220          SuperscriptBox["e", "2"], " ",
1221          SuperscriptBox["vev", "2"]}],
1222         RowBox[{"8", " ",
1223          SubsuperscriptBox["s", "w", "2"]}]], "+",
1224        FractionBox[
1225         RowBox[{
1226          SuperscriptBox["e", "2"], " ",
1227          SubsuperscriptBox["s", "w", "2"], " ",
1228          SuperscriptBox["vev", "2"]}],
1229         RowBox[{"8", " ",
1230          SubsuperscriptBox["c", "w", "2"]}]]}]]}], "91.18760000000003`",
1231     "91.1876`"}
1232   },
1233   GridBoxAlignment->{
1234    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1235     "RowsIndexed" -> {}},
1236   GridBoxSpacings->{"Columns" -> {
1237       Offset[0.27999999999999997`], {
1238        Offset[2.0999999999999996`]},
1239       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1240       Offset[0.2], {
1241        Offset[0.4]},
1242       Offset[0.2]}, "RowsIndexed" -> {}}],
1243  Function[BoxForm`e$,
1244   TableForm[BoxForm`e$]]]], "Output",
1245 CellChangeTimes->{3.690592640524253*^9, 3.690594721298772*^9,
1246  3.690594893053789*^9, 3.6906041014784575`*^9, 3.690605125607624*^9,
1247  3.690665737810443*^9, 3.704149024160054*^9,
1248  3.718407131412057*^9},ExpressionUUID->"672b7163-ee8d-40e6-b205-\
1249d22908401342"]
1250}, Open  ]],
1251
1252Cell[BoxData[
1253 RowBox[{"(*",
1254  RowBox[{
1255  "This", " ", "command", " ", "checks", " ", "unitarity", " ", "of", " ",
1256   "the", " ", "couplings"}], "*)"}]], "Input",
1257 CellChangeTimes->{{3.716771422177064*^9,
1258  3.7167714340565453`*^9}},ExpressionUUID->"76842df7-be3d-482f-8c58-\
12597cd15e1a8ebd"],
1260
1261Cell[CellGroupData[{
1262
1263Cell[BoxData[
1264 RowBox[{"UnitConstr", " "}]], "Input",
1265 CellChangeTimes->{
1266  3.716771419742895*^9},ExpressionUUID->"6764f854-fa8f-4cec-b039-\
12673fd489950c4e"],
1268
1269Cell[BoxData["True"], "Output",
1270 CellChangeTimes->{
1271  3.6905926869087133`*^9, 3.690594721636208*^9, {3.6905948934243193`*^9,
1272   3.6905949079332237`*^9}, 3.6906041016049643`*^9, 3.6906051257536325`*^9,
1273   3.690665738127879*^9, 3.704149024299779*^9, 3.704149234463149*^9,
1274   3.704150016651286*^9, 3.7166037553479643`*^9, 3.716605392611168*^9,
1275   3.71660562058704*^9, 3.716606709971291*^9,
1276   3.718407131565948*^9},ExpressionUUID->"d4060750-02d7-4f0d-9566-\
1277fed247e2bb3f"]
1278}, Open  ]],
1279
1280Cell[BoxData[
1281 RowBox[{"(*",
1282  RowBox[{
1283  "This", " ", "command", " ", "checks", " ", "unitarity", " ", "of", " ",
1284   "the", " ", "tree", " ", "level", " ", "potential"}], "*)"}]], "Input",
1285 CellChangeTimes->{{3.7167714410795937`*^9,
1286  3.716771443943103*^9}},ExpressionUUID->"c4ac2b66-6d40-41b2-8eaa-\
128759c362e99b5d"],
1288
1289Cell[CellGroupData[{
1290
1291Cell[BoxData["StabConstr"], "Input",
1292 CellChangeTimes->{{3.676115719579734*^9, 3.6761157671541805`*^9}, {
1293  3.6761158411162195`*^9, 3.6761158629235144`*^9}, {3.67611589333259*^9,
1294  3.67611589345761*^9}, {3.6761159252077193`*^9, 3.676115925316526*^9}, {
1295  3.6761159692234683`*^9,
1296  3.67611597098922*^9}},ExpressionUUID->"a5305b94-5f7d-4e95-8b0c-\
1297a05e1b431791"],
1298
1299Cell[BoxData["True"], "Output",
1300 CellChangeTimes->{
1301  3.690592688599744*^9, 3.690594721703229*^9, {3.690594893499796*^9,
1302   3.6905949052974377`*^9}, 3.690604101670928*^9, 3.6906051258196325`*^9,
1303   3.690665738190324*^9, 3.7041490243784513`*^9, 3.70415001836469*^9,
1304   3.716603753571403*^9, 3.716605394349242*^9, 3.71660562258608*^9,
1305   3.71660670628328*^9,
1306   3.718407131727477*^9},ExpressionUUID->"008b80e7-4c76-4860-ba24-\
1307f0cfd792246f"]
1308}, Open  ]],
1309
1310Cell[BoxData[
1311 RowBox[{"(*",
1312  RowBox[{
1313  "This", " ", "command", " ", "checks", " ", "perturbativity", " ", "of",
1314   " ", "the", " ", "couplings"}], "*)"}]], "Input",
1315 CellChangeTimes->{{3.716771450374834*^9,
1316  3.7167714545746603`*^9}},ExpressionUUID->"2672ad7a-6731-40b3-ab14-\
131791171e3403fc"],
1318
1319Cell[CellGroupData[{
1320
1321Cell[BoxData[
1322 RowBox[{"PerturbConstr", "[", "4", "]"}]], "Input",
1323 CellChangeTimes->{{3.6906039736371193`*^9, 3.69060397736534*^9}, {
1324   3.6906041087040477`*^9, 3.6906041303653307`*^9}, {3.704149238306802*^9,
1325   3.704149244408168*^9}, {3.704150022043398*^9, 3.704150027386735*^9},
1326   3.716603759655739*^9},ExpressionUUID->"abc1d053-3b67-4f92-88d9-\
1327e0b94d8f7a24"],
1328
1329Cell[BoxData["True"], "Output",
1330 CellChangeTimes->{{3.6906041017239685`*^9, 3.6906041307368155`*^9},
1331   3.690605125895135*^9, 3.690665738290208*^9, 3.704149024457967*^9, {
1332   3.7041492367351513`*^9, 3.70414924484664*^9}, {3.704150019930286*^9,
1333   3.704150028138441*^9}, {3.716603757199527*^9, 3.716603760195982*^9},
1334   3.716605399176921*^9, 3.716605624653866*^9, 3.7166067079731293`*^9,
1335   3.718407131795267*^9},ExpressionUUID->"6f845dfa-50e8-4202-ba5f-\
1336eee4e5773971"]
1337}, Open  ]],
1338
1339Cell[BoxData[
1340 RowBox[{"(*",
1341  RowBox[{
1342  "This", " ", "command", " ", "checks", " ", "metastability", " ", "of", " ",
1343    "the", " ", "tree", " ", "level", " ", "potential"}], "*)"}]], "Input",
1344 CellChangeTimes->{{3.716771460639463*^9,
1345  3.716771466230274*^9}},ExpressionUUID->"121a701f-3773-46c3-b0df-\
13469a429a31a82e"],
1347
1348Cell[CellGroupData[{
1349
1350Cell[BoxData["MetaStabConstr"], "Input",ExpressionUUID->"8083e2e1-9190-4437-9cf4-11a2df8932bd"],
1351
1352Cell[BoxData["True"], "Output",
1353 CellChangeTimes->{
1354  3.7184071319266*^9},ExpressionUUID->"367ff29a-f542-4582-ba3a-41fd65cb2da9"]
1355}, Open  ]]
1356}, Closed]],
1357
1358Cell[CellGroupData[{
1359
1360Cell["Load", "Chapter",
1361 CellChangeTimes->{{3.653342759310401*^9,
1362  3.6533427599244843`*^9}},ExpressionUUID->"f4c89241-95bc-4596-b694-\
13630136846002d0"],
1364
1365Cell[BoxData[{
1366 RowBox[{
1367  RowBox[{"Off", "[",
1368   StyleBox[
1369    RowBox[{"LaunchKernels", "::", "nodef"}], "MessageName"],
1370   StyleBox["]", "MessageName"]}],
1371  StyleBox[";", "MessageName"]}], "\[IndentingNewLine]",
1372 RowBox[{
1373  RowBox[{
1374  "$WinDir", "=",
1375   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
1376\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]",
1377 RowBox[{
1378  RowBox[{
1379  "$MacDir", "=",
1380   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
1381current\>\""}], ";"}], "\[IndentingNewLine]",
1382 RowBox[{
1383  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}],
1384  ";"}], "\[IndentingNewLine]",
1385 RowBox[{
1386  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}],
1387  ";"}], "\[IndentingNewLine]",
1388 RowBox[{
1389  RowBox[{
1390  "$FeynArtsMdlWinDir", "=",
1391   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
1392\\\\FeynArts\\\\Models\>\""}], ";"}], "\[IndentingNewLine]",
1393 RowBox[{
1394  RowBox[{
1395  "$FeynArtsMdlMacDir", "=",
1396   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models\>\""}],
1397   ";"}], "\[IndentingNewLine]",
1398 RowBox[{
1399  RowBox[{"Win", "=",
1400   RowBox[{"(",
1401    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}],
1402  ";"}], "\[IndentingNewLine]",
1403 RowBox[{
1404  RowBox[{"If", "[",
1405   RowBox[{"Win", ",",
1406    RowBox[{"$FeynRulesPath", "=",
1407     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",",
1408    RowBox[{"$FeynRulesPath", "=",
1409     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}],
1410  ";"}]}], "Input",
1411 CellChangeTimes->{{3.60353897829296*^9, 3.603539043421093*^9}, {
1412   3.633332218679607*^9, 3.6333322194542303`*^9}, 3.633333796845446*^9, {
1413   3.64301873415166*^9, 3.64301873665499*^9}, {3.6452720966860647`*^9,
1414   3.645272098076991*^9}, {3.647076372652458*^9, 3.647076373114575*^9},
1415   3.653342717270969*^9, 3.675137081154721*^9, {3.676084282701885*^9,
1416   3.676084294904183*^9}, {3.676100972910183*^9, 3.6761010336739855`*^9}, {
1417   3.676103336774192*^9, 3.6761033538826265`*^9}, {3.6763353421414833`*^9,
1418   3.67633534662798*^9}, {3.67633539144937*^9, 3.676335439151947*^9}, {
1419   3.676336791519855*^9, 3.676336837723803*^9}, {3.676340778137195*^9,
1420   3.676340785151307*^9}},
1421 ExpressionUUID -> "4e52a337-3ea6-4275-abd1-c71939de8610"],
1422
1423Cell[CellGroupData[{
1424
1425Cell[BoxData[
1426 RowBox[{"<<", "FeynRules`"}]], "Input",
1427 CellChangeTimes->{{3.603539048879374*^9, 3.603539054382785*^9}, {
1428  3.630748915770712*^9, 3.630748916976617*^9}},
1429 ExpressionUUID -> "1cc009ce-92ab-4d77-a469-77283ff0568a"],
1430
1431Cell[CellGroupData[{
1432
1433Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
1434 CellChangeTimes->{
1435  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1436   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1437   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1438   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1439   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1440   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1441   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1442   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1443   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1444   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1445   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1446   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1447   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1448   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1449   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1450   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555330085*^9},
1451 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1452
1453Cell[BoxData[
1454 InterpretationBox[
1455  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>",
1456   "\[InvisibleSpace]",
1457   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}],
1458   "\[InvisibleSpace]", "\<\").\"\>"}],
1459  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
1460  Editable->False]], "Print",
1461 CellChangeTimes->{
1462  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1463   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1464   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1465   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1466   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1467   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1468   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1469   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1470   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1471   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1472   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1473   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1474   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1475   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1476   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1477   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555342372*^9},
1478 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1479
1480Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
1481B. Fuks\"\>"], "Print",
1482 CellChangeTimes->{
1483  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1484   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1485   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1486   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1487   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1488   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1489   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1490   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1491   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1492   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1493   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1494   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1495   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1496   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1497   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1498   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555354164*^9},
1499 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1500
1501Cell[BoxData["\<\" \"\>"], "Print",
1502 CellChangeTimes->{
1503  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1504   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1505   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1506   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1507   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1508   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1509   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1510   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1511   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1512   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1513   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1514   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1515   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1516   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1517   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1518   3.718409320666901*^9, 3.7184121000226107`*^9, 3.7184135553657084`*^9},
1519 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1520
1521Cell[BoxData["\<\"Please cite:\"\>"], "Print",
1522 CellChangeTimes->{
1523  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1524   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1525   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1526   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1527   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1528   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1529   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1530   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1531   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1532   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1533   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1534   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1535   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1536   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1537   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1538   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555377445*^9},
1539 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1540
1541Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
1542(arXiv:1310.1921);\"\>"], "Print",
1543 CellChangeTimes->{
1544  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1545   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1546   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1547   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1548   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1549   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1550   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1551   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1552   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1553   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1554   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1555   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1556   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1557   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1558   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1559   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555389494*^9},
1560 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1561
1562Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
1563(arXiv:0806.4194).\"\>"], "Print",
1564 CellChangeTimes->{
1565  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1566   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1567   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1568   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1569   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1570   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1571   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1572   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1573   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1574   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1575   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1576   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1577   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1578   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1579   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1580   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555401804*^9},
1581 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1582
1583Cell[BoxData["\<\" \"\>"], "Print",
1584 CellChangeTimes->{
1585  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1586   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1587   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1588   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1589   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1590   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1591   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1592   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1593   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1594   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1595   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1596   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1597   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1598   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1599   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1600   3.718409320666901*^9, 3.7184121000226107`*^9, 3.7184135554136066`*^9},
1601 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1602
1603Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
1604 CellChangeTimes->{
1605  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1606   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1607   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1608   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1609   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1610   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1611   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1612   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1613   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1614   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1615   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1616   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1617   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1618   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1619   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1620   3.718409320666901*^9, 3.7184121000226107`*^9, 3.71841355542516*^9},
1621 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1622
1623Cell[BoxData["\<\" \"\>"], "Print",
1624 CellChangeTimes->{
1625  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1626   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1627   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1628   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1629   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1630   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1631   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1632   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1633   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1634   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1635   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1636   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1637   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1638   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1639   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1640   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555437704*^9},
1641 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],
1642
1643Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
1644FRPalette[].\"\>"], "Print",
1645 CellChangeTimes->{
1646  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9,
1647   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9,
1648   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9,
1649   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9,
1650   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9,
1651   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9,
1652   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9,
1653   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9,
1654   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9,
1655   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9,
1656   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9,
1657   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9,
1658   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9,
1659   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
1660   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9,
1661   3.718409320666901*^9, 3.7184121000226107`*^9, 3.7184135554497137`*^9},
1662 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"]
1663}, Open  ]]
1664}, Open  ]],
1665
1666Cell[BoxData[
1667 RowBox[{
1668  RowBox[{"If", "[",
1669   RowBox[{"Win", ",",
1670    RowBox[{"SetDirectory", "[",
1671     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",",
1672    RowBox[{"SetDirectory", "[",
1673     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}],
1674  ";"}]], "Input",
1675 CellChangeTimes->{{3.603539061006528*^9, 3.603539075359961*^9}, {
1676   3.606550370901471*^9, 3.606550372067235*^9}, {3.608280713549712*^9,
1677   3.608280720038208*^9}, {3.608280848612903*^9, 3.608280850051903*^9}, {
1678   3.610078232055901*^9, 3.610078244162396*^9}, {3.611032810906569*^9,
1679   3.611032811729677*^9}, 3.611046032505571*^9, {3.611046080564261*^9,
1680   3.6110460835240393`*^9}, {3.616920451742062*^9, 3.616920454335582*^9}, {
1681   3.61692081007111*^9, 3.616920811789462*^9}, {3.6169220902135057`*^9,
1682   3.6169220916785192`*^9}, {3.627800218613393*^9, 3.6278002208210363`*^9}, {
1683   3.630748932272941*^9, 3.630748937906595*^9}, {3.633332239193083*^9,
1684   3.6333322403879013`*^9}, 3.633333794100926*^9, {3.633759468942481*^9,
1685   3.6337594703175983`*^9}, {3.635681641356083*^9, 3.6356816446148367`*^9}, {
1686   3.6376402973444223`*^9, 3.6376402986547117`*^9}, {3.639376919579711*^9,
1687   3.639376921244483*^9}, {3.6405100299897413`*^9, 3.640510032443145*^9}, {
1688   3.643018741816877*^9, 3.643018742543559*^9}, 3.643024926442786*^9, {
1689   3.645273275267683*^9, 3.645273276634437*^9}, {3.645274930954957*^9,
1690   3.645274932634717*^9}, {3.645770163878159*^9, 3.6457701691664543`*^9}, {
1691   3.645780013280984*^9, 3.645780013490704*^9}, {3.646026237633871*^9,
1692   3.6460262398106728`*^9}, {3.6473477666176853`*^9, 3.647347767847106*^9}, {
1693   3.649402992381681*^9, 3.6494029933443527`*^9}, {3.65334273616147*^9,
1694   3.6533427389836483`*^9}, 3.6751370890880084`*^9, {3.676081658795355*^9,
1695   3.676081659481019*^9}, {3.6760842875723658`*^9, 3.6760842909138737`*^9}, {
1696   3.6761010142197447`*^9, 3.676101037592718*^9}, {3.67633546684862*^9,
1697   3.676335473735612*^9}},
1698 ExpressionUUID -> "6152b7a0-b3ed-4d51-ab2c-b24d5c7a2517"],
1699
1700Cell[BoxData[
1701 RowBox[{"(*",
1702  RowBox[{"Change", " ", "to", " ",
1703   RowBox[{"SM_CMK", ".", "fr"}], " ", "to", " ", "account", " ", "for", " ",
1704   "entries", " ", "in", " ", "CKM", " ", "matrix"}], "*)"}]], "Input",
1705 ExpressionUUID -> "9f54bd17-2e2f-4ceb-8701-4a250ae9afab"],
1706
1707Cell[CellGroupData[{
1708
1709Cell[BoxData[
1710 RowBox[{"LoadModel", "[",
1711  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<S2HDM.fr\>\""}], "]"}]], "Input",
1712 CellChangeTimes->{{3.633332249125042*^9, 3.633332249491701*^9}, {
1713   3.6337594763689528`*^9, 3.6337594776507893`*^9}, {3.6356816576884117`*^9,
1714   3.6356816603749027`*^9}, {3.637640302808282*^9, 3.6376403082726*^9}, {
1715   3.637640716438528*^9, 3.6376407440268297`*^9}, 3.643024914860723*^9, {
1716   3.645273293611383*^9, 3.6452732956188726`*^9}, {3.645770176958198*^9,
1717   3.645770177262162*^9}, {3.646026243920371*^9, 3.6460262460509453`*^9}, {
1718   3.647347782049244*^9, 3.64734778358805*^9}, {3.64940300547442*^9,
1719   3.649403021810585*^9}, {3.675137095078703*^9, 3.6751371002846923`*^9}, {
1720   3.6760816672425003`*^9, 3.6760816692733583`*^9}, {3.6760845517446547`*^9,
1721   3.676084579574003*^9}, 3.676085343820545*^9, 3.6763348248551292`*^9, {
1722   3.704419469831567*^9, 3.704419470464905*^9}, 3.7184093173129377`*^9},
1723 ExpressionUUID -> "ac44013d-d615-4117-90e9-ae08f61062f4"],
1724
1725Cell[CellGroupData[{
1726
1727Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
1728 CellChangeTimes->{
1729  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1730   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1731   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1732   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1733   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1734   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1735   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1736   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1737   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1738   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1739   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1740   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1741   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1742   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1743   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1744   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556875695*^9},
1745 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1746
1747Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
1748 CellChangeTimes->{
1749  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1750   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1751   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1752   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1753   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1754   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1755   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1756   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1757   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1758   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1759   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1760   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1761   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1762   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1763   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1764   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135568861103`*^9},
1765 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1766
1767Cell[BoxData["\<\"G.Busoni\"\>"], "Print",
1768 CellChangeTimes->{
1769  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1770   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1771   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1772   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1773   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1774   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1775   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1776   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1777   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1778   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1779   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1780   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1781   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1782   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1783   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1784   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556898202*^9},
1785 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1786
1787Cell[BoxData[
1788 InterpretationBox[
1789  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
1790  SequenceForm["Model Version: ", "1.0"],
1791  Editable->False]], "Print",
1792 CellChangeTimes->{
1793  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1794   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1795   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1796   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1797   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1798   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1799   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1800   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1801   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1802   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1803   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1804   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1805   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1806   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1807   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1808   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556913032*^9},
1809 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1810
1811Cell[BoxData["\<\"Please cite\"\>"], "Print",
1812 CellChangeTimes->{
1813  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1814   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1815   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1816   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1817   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1818   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1819   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1820   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1821   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1822   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1823   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1824   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1825   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1826   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1827   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1828   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556928254*^9},
1829 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1830
1831Cell[BoxData["\<\"N. Bell et al., 1612.03475, 1710.10764\"\>"], "Print",
1832 CellChangeTimes->{
1833  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1834   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1835   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1836   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1837   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1838   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1839   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1840   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1841   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1842   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1843   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1844   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1845   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1846   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1847   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1848   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556943672*^9},
1849 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1850
1851Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/DMsimp/\"\>"], "Print",
1852 CellChangeTimes->{
1853  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1854   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1855   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1856   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1857   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1858   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1859   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1860   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1861   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1862   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1863   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1864   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1865   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1866   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1867   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1868   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556958749*^9},
1869 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1870
1871Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
1872"Print",
1873 CellChangeTimes->{
1874  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1875   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1876   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1877   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1878   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1879   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1880   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1881   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1882   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1883   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1884   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1885   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1886   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1887   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1888   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1889   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135569737377`*^9},
1890 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1891
1892Cell[BoxData["\<\"\"\>"], "Print",
1893 CellChangeTimes->{
1894  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1895   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1896   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1897   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1898   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1899   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1900   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1901   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1902   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1903   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1904   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1905   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1906   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1907   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1908   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1909   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135569902763`*^9},
1910 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1911
1912Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
1913 CellChangeTimes->{
1914  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1915   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1916   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1917   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1918   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1919   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1920   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1921   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1922   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1923   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1924   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1925   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1926   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1927   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1928   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1929   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135570052032`*^9},
1930 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1931
1932Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
1933 CellChangeTimes->{
1934  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1935   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1936   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1937   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1938   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1939   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1940   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1941   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1942   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1943   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1944   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1945   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1946   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1947   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1948   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1949   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413557065969*^9},
1950 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1951
1952Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
1953 CellChangeTimes->{
1954  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1955   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1956   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1957   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1958   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1959   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1960   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1961   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1962   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1963   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1964   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1965   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1966   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1967   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1968   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1969   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413557080287*^9},
1970 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],
1971
1972Cell[BoxData[
1973 InterpretationBox[
1974  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"S2HDM\"\>",
1975   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
1976  SequenceForm["\nModel ", "S2HDM", " loaded."],
1977  Editable->False]], "Print",
1978 CellChangeTimes->{
1979  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9,
1980   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9,
1981   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9,
1982   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9,
1983   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9,
1984   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9,
1985   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9,
1986   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9,
1987   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9,
1988   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9,
1989   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9,
1990   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9,
1991   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9,
1992   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
1993   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9,
1994   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413557174903*^9},
1995 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"]
1996}, Open  ]]
1997}, Open  ]],
1998
1999Cell[BoxData[
2000 RowBox[{
2001  RowBox[{"(*",
2002   RowBox[{"Do", " ", "not", " ", "load", " ",
2003    RowBox[{"Cabibbo", ".", "rts"}], " ", "if", " ", "you", " ", "loaded",
2004    " ",
2005    RowBox[{"DM_CMK", ".", "fr"}]}], "*)"}], "\[IndentingNewLine]",
2006  RowBox[{"(*",
2007   RowBox[{
2008    RowBox[{"Load", " ", "Massless_", "4",
2009     RowBox[{"f", ".", "rst"}], " ", "for", " ", "4", "F", " ", "scheme"}],
2010    ",", " ",
2011    RowBox[{"or", " ", "massless_", "5",
2012     RowBox[{"F", ".", "rst"}], " ", "for", " ", "5", "F", " ", "scheme"}]}],
2013   "*)"}], "\[IndentingNewLine]",
2014  RowBox[{"(*",
2015   RowBox[{
2016   "Do", " ", "not", " ", "load", " ", "restrictions", " ", "if", " ", "you",
2017    " ", "want", " ", "all", " ", "fermions", " ", "to", " ", "be", " ",
2018    "massive"}], "*)"}]}]], "Input",
2019 CellChangeTimes->{{3.716771780987084*^9, 3.716771781309472*^9}},
2020 ExpressionUUID -> "b1057b76-2416-429f-ad91-83f65cb3efaa"],
2021
2022Cell[CellGroupData[{
2023
2024Cell[BoxData[
2025 RowBox[{"LoadRestriction", "[", "\"\<Massless_4f.rst\>\"", "]"}]], "Input",
2026 CellChangeTimes->{{3.639376820290628*^9, 3.6393768234379387`*^9}, {
2027   3.6393770865564947`*^9, 3.6393770912761908`*^9}, {3.6393771858866796`*^9,
2028   3.6393771863740797`*^9}, {3.639377466478868*^9, 3.639377471110105*^9}, {
2029   3.6393796364789057`*^9, 3.639379637142768*^9}, {3.639989012839026*^9,
2030   3.639989036648665*^9}, {3.641539947651075*^9, 3.641539950365509*^9}, {
2031   3.641789785973187*^9, 3.641789792194556*^9}, {3.643025183012186*^9,
2032   3.643025185439151*^9}, {3.645274945395602*^9, 3.645274957019786*^9}, {
2033   3.6457800188411694`*^9, 3.645780019775859*^9}, {3.646377072375288*^9,
2034   3.646377083707752*^9}, {3.646465411317153*^9, 3.646465413430913*^9},
2035   3.690594555570958*^9, 3.704154566763503*^9},
2036 ExpressionUUID -> "7512fe72-ceaf-47a0-9022-202fd7778b70"],
2037
2038Cell[CellGroupData[{
2039
2040Cell[BoxData[
2041 InterpretationBox[
2042  RowBox[{"\<\"Loading restrictions from \"\>",
2043   "\[InvisibleSpace]", "\<\"Massless_4f.rst\"\>",
2044   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
2045   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
2046    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2047   "\[InvisibleSpace]", "18"}],
2048  SequenceForm["Loading restrictions from ", "Massless_4f.rst", " : ",
2049   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
2050  Editable->False]], "Print",
2051 CellChangeTimes->{
2052  3.690589253335243*^9, 3.6905894629506607`*^9, 3.6905896456041517`*^9,
2053   3.690590165570426*^9, 3.690590714906385*^9, 3.690591212148489*^9,
2054   3.690591698017095*^9, 3.690591823299501*^9, 3.690591986600873*^9,
2055   3.690592205020994*^9, 3.690592470610623*^9, 3.690592592142756*^9,
2056   3.690594022519508*^9, 3.690594076827641*^9, 3.6905945696072283`*^9,
2057   3.690594750811295*^9, 3.690603911573715*^9, 3.6906041590931754`*^9,
2058   3.690605006811165*^9, 3.69060676178164*^9, 3.6906068986462536`*^9,
2059   3.69060876079283*^9, 3.6906087978450594`*^9, 3.690663633321035*^9,
2060   3.690665044366078*^9, 3.690665312903245*^9, 3.6906656103162193`*^9,
2061   3.690666553319166*^9, 3.6907559522208014`*^9, 3.690756041339028*^9,
2062   3.690764496744667*^9, 3.690777154858288*^9, 3.704148948201194*^9,
2063   3.704149220007907*^9, 3.7041497912775097`*^9, 3.7041499305979357`*^9,
2064   3.704150005128631*^9, 3.7041535761125803`*^9, 3.704154599327981*^9,
2065   3.704425933436693*^9, 3.704426028276339*^9, 3.704426087215523*^9, {
2066   3.704426130580111*^9, 3.704426158817895*^9}, 3.718407178530118*^9,
2067   3.718409323439279*^9, 3.7184121029774227`*^9, 3.7184135576587887`*^9},
2068 ExpressionUUID -> "f9aaeee3-947d-4bd0-a324-80a2d2fbc165"],
2069
2070Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
2071 CellChangeTimes->{
2072  3.690589253335243*^9, 3.6905894629506607`*^9, 3.6905896456041517`*^9,
2073   3.690590165570426*^9, 3.690590714906385*^9, 3.690591212148489*^9,
2074   3.690591698017095*^9, 3.690591823299501*^9, 3.690591986600873*^9,
2075   3.690592205020994*^9, 3.690592470610623*^9, 3.690592592142756*^9,
2076   3.690594022519508*^9, 3.690594076827641*^9, 3.6905945696072283`*^9,
2077   3.690594750811295*^9, 3.690603911573715*^9, 3.6906041590931754`*^9,
2078   3.690605006811165*^9, 3.69060676178164*^9, 3.6906068986462536`*^9,
2079   3.69060876079283*^9, 3.6906087978450594`*^9, 3.690663633321035*^9,
2080   3.690665044366078*^9, 3.690665312903245*^9, 3.6906656103162193`*^9,
2081   3.690666553319166*^9, 3.6907559522208014`*^9, 3.690756041339028*^9,
2082   3.690764496744667*^9, 3.690777154858288*^9, 3.704148948201194*^9,
2083   3.704149220007907*^9, 3.7041497912775097`*^9, 3.7041499305979357`*^9,
2084   3.704150005128631*^9, 3.7041535761125803`*^9, 3.704154599327981*^9,
2085   3.704425933436693*^9, 3.704426028276339*^9, 3.704426087215523*^9, {
2086   3.704426130580111*^9, 3.704426158817895*^9}, 3.718407178530118*^9,
2087   3.718409323439279*^9, 3.7184121029774227`*^9, 3.718413557791623*^9},
2088 ExpressionUUID -> "f9aaeee3-947d-4bd0-a324-80a2d2fbc165"]
2089}, Open  ]]
2090}, Open  ]],
2091
2092Cell[BoxData[
2093 RowBox[{"Get", "[", "\"\<unitarity.m\>\"", "]"}]], "Input",
2094 ExpressionUUID -> "e18aedfd-032d-4e30-bd59-fa8ba018640e"]
2095}, Closed]],
2096
2097Cell[CellGroupData[{
2098
2099Cell["Feynman Rules", "Chapter",
2100 CellChangeTimes->{{3.653342767661127*^9, 3.6533427702599983`*^9}, {
2101  3.6751387710535192`*^9, 3.6751387740648303`*^9}, {3.6751399052802196`*^9,
2102  3.6751399075941625`*^9}},ExpressionUUID->"ff80882c-ff5e-4c16-9c9f-\
2103ffe0bcc34f14"],
2104
2105Cell[CellGroupData[{
2106
2107Cell[BoxData[
2108 RowBox[{
2109  RowBox[{"vertices", "=",
2110   RowBox[{"FeynmanRules", "[",
2111    RowBox[{"LTypeII", ",",
2112     RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}],
2113  ";"}]], "Input",
2114 CellChangeTimes->{{3.603539435628551*^9, 3.603539443511031*^9}, {
2115   3.633332257675256*^9, 3.633332273874855*^9}, 3.633332330927515*^9, {
2116   3.633759485057345*^9, 3.6337594896329927`*^9}, {3.633759845728799*^9,
2117   3.633759845998361*^9}, {3.635681693519002*^9, 3.635681708124132*^9},
2118   3.637640353419092*^9, 3.649403113712747*^9, {3.6751371526786957`*^9,
2119   3.675137157183814*^9}, {3.675138701789709*^9, 3.6751387042441416`*^9}, {
2120   3.675717417970505*^9, 3.675717419584786*^9}, {3.6761502626020055`*^9,
2121   3.6761502639630136`*^9}, 3.6761806129515185`*^9,
2122   3.6906050409157557`*^9},ExpressionUUID->"3897547f-9792-456a-8d0c-\
21231e1967ee8ecb"],
2124
2125Cell[CellGroupData[{
2126
2127Cell[BoxData[
2128 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2129  StripOnInput->False,
2130  LineColor->RGBColor[1, 0.5, 0],
2131  FrontFaceColor->RGBColor[1, 0.5, 0],
2132  BackFaceColor->RGBColor[1, 0.5, 0],
2133  GraphicsColor->RGBColor[1, 0.5, 0],
2134  FontWeight->Bold,
2135  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2136 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9,
2137  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9,
2138  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9,
2139  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9,
2140  3.704426169252529*^9, 3.718407190003297*^9,
2141  3.718409331291017*^9},ExpressionUUID->"30839b75-99fc-4871-83cc-\
21429d7353831627"],
2143
2144Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2145 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9,
2146  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9,
2147  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9,
2148  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9,
2149  3.704426169252529*^9, 3.718407190003297*^9,
2150  3.718409331309825*^9},ExpressionUUID->"a0bc6be3-796b-40fc-ba3e-\
2151864e52d2f2e4"],
2152
2153Cell[BoxData[
2154 InterpretationBox[
2155  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
2156   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2157  SequenceForm["Expanding the indices over ", 4, " cores"],
2158  Editable->False]], "Print",
2159 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9,
2160  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9,
2161  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9,
2162  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9,
2163  3.704426169252529*^9, 3.718407190003297*^9,
2164  3.718409331326735*^9},ExpressionUUID->"0ff0a39a-c623-486b-9de4-\
2165ba8aa9fd1538"],
2166
2167Cell[BoxData["\<\"Collecting the different structures that enter the \
2168vertex.\"\>"], "Print",
2169 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9,
2170  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9,
2171  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9,
2172  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9,
2173  3.704426169252529*^9, 3.718407190003297*^9,
2174  3.718409341658214*^9},ExpressionUUID->"014f66c6-1ddf-416f-b769-\
217524fe4bb41344"],
2176
2177Cell[BoxData[
2178 InterpretationBox[
2179  RowBox[{
2180  "308", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2181found -> starting the computation: \"\>", "\[InvisibleSpace]",
2182   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2183    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2184   "\[InvisibleSpace]", "308", "\[InvisibleSpace]", "\<\".\"\>"}],
2185  SequenceForm[
2186  308, " possible non-zero vertices have been found -> starting the \
2187computation: ",
2188   Dynamic[FeynRules`FR$FeynmanRules], " / ", 308, "."],
2189  Editable->False]], "Print",
2190 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9,
2191  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9,
2192  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9,
2193  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9,
2194  3.704426169252529*^9, 3.718407190003297*^9,
2195  3.71840934178976*^9},ExpressionUUID->"15ff5c80-e3f7-4b99-812f-fda0e715f273"],
2196
2197Cell[BoxData[
2198 InterpretationBox[
2199  RowBox[{"281", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2200  SequenceForm[281, " vertices obtained."],
2201  Editable->False]], "Print",
2202 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9,
2203  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9,
2204  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9,
2205  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9,
2206  3.704426169252529*^9, 3.718407190003297*^9,
2207  3.718409350624394*^9},ExpressionUUID->"403a9f64-ec9c-4728-a268-\
220891aad509555e"]
2209}, Open  ]]
2210}, Open  ]]
2211}, Closed]],
2212
2213Cell[CellGroupData[{
2214
2215Cell["Update Parameters", "Chapter",
2216 CellChangeTimes->{{3.653342767661127*^9, 3.6533427702599983`*^9}, {
2217  3.6751387710535192`*^9,
2218  3.6751387740648303`*^9}},ExpressionUUID->"8c77166c-42db-423f-97e1-\
2219a839db35029d"],
2220
2221Cell[CellGroupData[{
2222
2223Cell[BoxData[
2224 RowBox[{
2225  RowBox[{"ComputeWidths", "[", "vertices", "]"}], ";"}]], "Input",
2226 CellChangeTimes->{{3.6751387167082295`*^9,
2227  3.67513873140676*^9}},ExpressionUUID->"8db8490a-c931-470b-a4bd-\
2228de8983564034"],
2229
2230Cell[CellGroupData[{
2231
2232Cell[BoxData[
2233 InterpretationBox[
2234  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
2235   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
2236   "\[InvisibleSpace]",
2237   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2238    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2239   "\[InvisibleSpace]", "281"}],
2240  SequenceForm[
2241  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
2242   Dynamic[FeynRules`FR$Count1], " / ", 281],
2243  Editable->False]], "Print",
2244 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9,
2245  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9,
2246  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9,
2247  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9,
2248  3.718409355949651*^9},ExpressionUUID->"5425ccf4-3c34-4b41-b363-\
22496192672b01b9"],
2250
2251Cell[BoxData[
2252 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2253decays: \"\>",
2254  StripOnInput->False,
2255  LineColor->RGBColor[1, 0.5, 0],
2256  FrontFaceColor->RGBColor[1, 0.5, 0],
2257  BackFaceColor->RGBColor[1, 0.5, 0],
2258  GraphicsColor->RGBColor[1, 0.5, 0],
2259  FontWeight->Bold,
2260  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2261 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9,
2262  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9,
2263  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9,
2264  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9,
2265  3.718409364217084*^9},ExpressionUUID->"cc53f555-4b78-41a9-af88-\
226625a21334b207"],
2267
2268Cell[BoxData[
2269 InterpretationBox[
2270  RowBox[{
2271   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2272    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2273   "\[InvisibleSpace]", "97"}],
2274  SequenceForm[
2275   Dynamic[PRIVATE`mycounter], " / ", 97],
2276  Editable->False]], "Print",
2277 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9,
2278  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9,
2279  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9,
2280  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9,
2281  3.71840936428765*^9},ExpressionUUID->"4a7c0f8a-a53d-4cd6-b68c-a6d2db605f2d"],
2282
2283Cell[BoxData[
2284 InterpretationBox[
2285  RowBox[{
2286   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2287    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2288   "\[InvisibleSpace]", "95"}],
2289  SequenceForm[
2290   Dynamic[PRIVATE`mycounter], " / ", 95],
2291  Editable->False]], "Print",
2292 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9,
2293  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9,
2294  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9,
2295  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9,
2296  3.718409372937414*^9},ExpressionUUID->"8b37ac45-51c4-4974-bcea-\
2297e7c3a1f0d6eb"]
2298}, Open  ]]
2299}, Open  ]],
2300
2301Cell[BoxData[{
2302 RowBox[{
2303  RowBox[{"wS1", "=",
2304   RowBox[{"Re", "[",
2305    RowBox[{"NumericalValue", "[",
2306     RowBox[{"TotWidth", "[", "S1", "]"}], "]"}], "]"}]}],
2307  ";"}], "\[IndentingNewLine]",
2308 RowBox[{
2309  RowBox[{"wR", "=",
2310   RowBox[{"Re", "[",
2311    RowBox[{"NumericalValue", "[",
2312     RowBox[{"TotWidth", "[", "R", "]"}], "]"}], "]"}]}],
2313  ";"}], "\[IndentingNewLine]",
2314 RowBox[{
2315  RowBox[{"wS2", "=",
2316   RowBox[{"Re", "[",
2317    RowBox[{"NumericalValue", "[",
2318     RowBox[{"TotWidth", "[", "S2", "]"}], "]"}], "]"}]}],
2319  ";"}], "\[IndentingNewLine]",
2320 RowBox[{
2321  RowBox[{"wHP", "=",
2322   RowBox[{"Re", "[",
2323    RowBox[{"NumericalValue", "[",
2324     RowBox[{"TotWidth", "[", "HP", "]"}], "]"}], "]"}]}], ";"}]}], "Input",
2325 CellChangeTimes->{{3.675138742678877*^9, 3.6751387472634153`*^9}, {
2326  3.675138841465396*^9, 3.675138843543991*^9}, {3.675139480970521*^9,
2327  3.6751394837304306`*^9}, {3.676172213348925*^9, 3.676172248051876*^9}, {
2328  3.6761769956024885`*^9, 3.6761769969024887`*^9}, {3.676177079837619*^9,
2329  3.676177096638926*^9}, {3.676178414918208*^9, 3.6761784161854625`*^9}, {
2330  3.676340973626451*^9, 3.6763409885370607`*^9}, {3.690594928013957*^9,
2331  3.69059493034011*^9}},ExpressionUUID->"a97894ae-1367-425c-ada0-\
23329e4847931443"],
2333
2334Cell[BoxData[{
2335 RowBox[{
2336  RowBox[{"UpdateParameters", "[",
2337   RowBox[{"WS1", "\[Rule]", "wS1"}], "]"}], ";"}], "\[IndentingNewLine]",
2338 RowBox[{
2339  RowBox[{"UpdateParameters", "[",
2340   RowBox[{"WR", "\[Rule]", "wR"}], "]"}], ";"}], "\[IndentingNewLine]",
2341 RowBox[{
2342  RowBox[{"UpdateParameters", "[",
2343   RowBox[{"WS2", "\[Rule]", "wS2"}], "]"}], ";"}], "\[IndentingNewLine]",
2344 RowBox[{
2345  RowBox[{"UpdateParameters", "[",
2346   RowBox[{"WHP", "\[Rule]", "wHP"}], "]"}], ";"}]}], "Input",
2347 CellChangeTimes->{{3.6751394945733533`*^9, 3.675139500523559*^9}, {
2348  3.676172223364505*^9, 3.676172226020854*^9}, {3.676172279835528*^9,
2349  3.676172301209833*^9}, {3.690594934124099*^9,
2350  3.690594938131008*^9}},ExpressionUUID->"2df3ad3a-2db0-4db4-ab11-\
235167a427a0d9d8"]
2352}, Closed]],
2353
2354Cell[CellGroupData[{
2355
2356Cell["UFO LO", "Chapter",
2357 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
2358  3.6761992676581917`*^9,
2359  3.6761992682261844`*^9}},ExpressionUUID->"247ad179-2344-4595-a699-\
236060dd43f4787b"],
2361
2362Cell[CellGroupData[{
2363
2364Cell[BoxData[{
2365 RowBox[{"WriteUFO", "[",
2366  RowBox[{"LTypeI", ",",
2367   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TI_LO\>\""}]}],
2368  "]"}], "\[IndentingNewLine]",
2369 RowBox[{"WriteUFO", "[",
2370  RowBox[{"LTypeII", ",",
2371   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TII_LO\>\""}]}],
2372  "]"}], "\[IndentingNewLine]",
2373 RowBox[{"WriteUFO", "[",
2374  RowBox[{"LTypeX", ",",
2375   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TX_LO\>\""}]}],
2376  "]"}], "\[IndentingNewLine]",
2377 RowBox[{"WriteUFO", "[",
2378  RowBox[{"LTypeY", ",",
2379   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TY_LO\>\""}]}],
2380  "]"}], "\[IndentingNewLine]",
2381 RowBox[{"WriteUFO", "[",
2382  RowBox[{"LAlign", ",",
2383   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_Align_LO\>\""}]}],
2384  "]"}], "\[IndentingNewLine]",
2385 RowBox[{"WriteUFO", "[",
2386  RowBox[{"LInert", ",",
2387   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_Inert_LO\>\""}]}],
2388  "]"}], "\[IndentingNewLine]",
2389 RowBox[{"WriteUFO", "[",
2390  RowBox[{"L2gen", ",",
2391   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_2gen_LO\>\""}]}], "]"}]}], "Input",\
2392
2393 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
2394   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9,
2395   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9,
2396   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
2397   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9,
2398   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9,
2399   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
2400   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9,
2401   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
2402   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9,
2403   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
2404   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9,
2405   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
2406   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
2407   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9,
2408   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
2409   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9,
2410   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9},
2411   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992838281183`*^9}, {
2412   3.676340652605752*^9, 3.676340654332322*^9}, 3.69060505329924*^9, {
2413   3.69066364447678*^9, 3.69066364534022*^9}, {3.6907558888777533`*^9,
2414   3.690755932384534*^9}},ExpressionUUID->"ac8658fb-3a29-4e22-87f4-\
2415b5db1445a6b2"],
2416
2417Cell[CellGroupData[{
2418
2419Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
2420"Print",
2421 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2422  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2423  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2424  3.704426225570242*^9, 3.718407274828047*^9,
2425  3.718409380120997*^9},ExpressionUUID->"9bf32504-5588-4c4b-b017-\
24263a61f2619678"],
2427
2428Cell[BoxData[
2429 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2430  StripOnInput->False,
2431  LineColor->RGBColor[1, 0.5, 0],
2432  FrontFaceColor->RGBColor[1, 0.5, 0],
2433  BackFaceColor->RGBColor[1, 0.5, 0],
2434  GraphicsColor->RGBColor[1, 0.5, 0],
2435  FontWeight->Bold,
2436  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2437 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2438  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2439  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2440  3.704426225570242*^9, 3.718407274828047*^9,
2441  3.718409380984301*^9},ExpressionUUID->"4e8c2720-edeb-4ec8-8b2f-\
24426b79a2189830"],
2443
2444Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2445 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2446  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2447  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2448  3.704426225570242*^9, 3.718407274828047*^9,
2449  3.71840938100111*^9},ExpressionUUID->"585b133e-f691-4f7a-9b4b-a3dd33b702b7"],
2450
2451Cell[BoxData[
2452 InterpretationBox[
2453  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
2454   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2455  SequenceForm["Expanding the indices over ", 4, " cores"],
2456  Editable->False]], "Print",
2457 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2458  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2459  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2460  3.704426225570242*^9, 3.718407274828047*^9,
2461  3.718409381016409*^9},ExpressionUUID->"66f4db10-f38a-47b3-8bbf-\
2462915545dc1ed9"],
2463
2464Cell[BoxData["\<\"Collecting the different structures that enter the \
2465vertex.\"\>"], "Print",
2466 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2467  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2468  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2469  3.704426225570242*^9, 3.718407274828047*^9,
2470  3.71840938853069*^9},ExpressionUUID->"2e80203a-be08-4a3f-bc9a-0076cb3e5eaf"],
2471
2472Cell[BoxData[
2473 InterpretationBox[
2474  RowBox[{
2475  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2476found -> starting the computation: \"\>", "\[InvisibleSpace]",
2477   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2478    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2479   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
2480  SequenceForm[
2481  232, " possible non-zero vertices have been found -> starting the \
2482computation: ",
2483   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
2484  Editable->False]], "Print",
2485 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2486  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2487  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2488  3.704426225570242*^9, 3.718407274828047*^9, 3.7184093885984573`*^9},
2489 ExpressionUUID -> "5d9c59d0-f784-4b34-9f06-b37b228a4201"],
2490
2491Cell[BoxData[
2492 InterpretationBox[
2493  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2494  SequenceForm[227, " vertices obtained."],
2495  Editable->False]], "Print",
2496 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2497  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2498  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2499  3.704426225570242*^9, 3.718407274828047*^9,
2500  3.7184093951097517`*^9},ExpressionUUID->"f00948d8-4b26-4fcb-859a-\
250125fcfac63290"],
2502
2503Cell[BoxData[
2504 InterpretationBox[
2505  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
2506   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
2507   "\[InvisibleSpace]",
2508   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2509    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2510   "\[InvisibleSpace]", "227"}],
2511  SequenceForm[
2512  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
2513   Dynamic[FeynRules`FR$Count1], " / ", 227],
2514  Editable->False]], "Print",
2515 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2516  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2517  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2518  3.704426225570242*^9, 3.718407274828047*^9, 3.7184094008415213`*^9},
2519 ExpressionUUID -> "16ec2cf5-5143-45aa-a364-a082c4781557"],
2520
2521Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
2522 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2523  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2524  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2525  3.704426225570242*^9, 3.718407274828047*^9,
2526  3.718409410232535*^9},ExpressionUUID->"67aa4dd6-90ef-44a1-930b-\
2527bb7607ba99d7"],
2528
2529Cell[BoxData[
2530 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2531decays: \"\>",
2532  StripOnInput->False,
2533  LineColor->RGBColor[1, 0.5, 0],
2534  FrontFaceColor->RGBColor[1, 0.5, 0],
2535  BackFaceColor->RGBColor[1, 0.5, 0],
2536  GraphicsColor->RGBColor[1, 0.5, 0],
2537  FontWeight->Bold,
2538  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2539 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2540  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2541  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2542  3.704426225570242*^9, 3.718407274828047*^9,
2543  3.718409410297559*^9},ExpressionUUID->"5b1db6de-d4ee-4f67-99df-\
254403d6be9c26da"],
2545
2546Cell[BoxData[
2547 InterpretationBox[
2548  RowBox[{
2549   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2550    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2551   "\[InvisibleSpace]", "97"}],
2552  SequenceForm[
2553   Dynamic[PRIVATE`mycounter], " / ", 97],
2554  Editable->False]], "Print",
2555 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2556  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2557  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2558  3.704426225570242*^9, 3.718407274828047*^9, 3.718409410315564*^9},
2559 ExpressionUUID -> "ab9add5e-2152-4226-b443-b0dd4096d297"],
2560
2561Cell[BoxData[
2562 InterpretationBox[
2563  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
2564   "2.35185`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2565  SequenceForm["Squared matrix elent compute in ", 2.35185, " seconds."],
2566  Editable->False]], "Print",
2567 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2568  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2569  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2570  3.704426225570242*^9, 3.718407274828047*^9,
2571  3.7184094185386972`*^9},ExpressionUUID->"518d60ea-a409-49eb-8b59-\
2572a9e010192802"],
2573
2574Cell[BoxData[
2575 InterpretationBox[
2576  RowBox[{
2577   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2578    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2579   "\[InvisibleSpace]", "95"}],
2580  SequenceForm[
2581   Dynamic[PRIVATE`mycounter], " / ", 95],
2582  Editable->False]], "Print",
2583 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2584  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2585  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2586  3.704426225570242*^9, 3.718407274828047*^9, 3.718409418559072*^9},
2587 ExpressionUUID -> "3d9fc813-5386-4141-b1dc-58fed8a4120b"]
2588}, Open  ]],
2589
2590Cell[BoxData[
2591 TemplateBox[{
2592  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
2593   27,1,29231154567037670195,"Local","FeynRules`Decay"},
2594  "MessageTemplate2"]], "Message", "MSG",
2595 CellChangeTimes->{3.718407314362404*^9,
2596  3.7184094200168858`*^9},ExpressionUUID->"2a9e1ba1-bcf0-4be4-b844-\
2597a072ad9f6bee"],
2598
2599Cell[CellGroupData[{
2600
2601Cell[BoxData[
2602 InterpretationBox[
2603  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
2604   "0.95617`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2605  SequenceForm["Decay widths computed in ", 0.95617, " seconds."],
2606  Editable->False]], "Print",
2607 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2608  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2609  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2610  3.704426225570242*^9, 3.718407274828047*^9,
2611  3.718409420129957*^9},ExpressionUUID->"1b6a5792-9d51-469a-8cf9-\
261283452f742366"],
2613
2614Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
2615 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2616  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2617  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2618  3.704426225570242*^9, 3.718407274828047*^9,
2619  3.718409420142584*^9},ExpressionUUID->"9329c9f5-3f6e-4761-8af9-\
2620e60b6fd7c1df"],
2621
2622Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
2623"Print",
2624 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2625  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2626  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2627  3.704426225570242*^9, 3.718407274828047*^9,
2628  3.718409420237537*^9},ExpressionUUID->"2c66c981-c611-4b1f-b753-\
26293c94704385dd"],
2630
2631Cell[BoxData[
2632 InterpretationBox[
2633  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
2634   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
2635  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
2636  Editable->False]], "Print",
2637 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2638  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2639  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2640  3.704426225570242*^9, 3.718407274828047*^9,
2641  3.718409420282238*^9},ExpressionUUID->"322ed7a0-3df6-4113-ae6d-\
26422a69b0dec48d"],
2643
2644Cell[BoxData[
2645 InterpretationBox[
2646  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
2647   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
2648    ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
2649   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
2650  SequenceForm["    - Optimizing: ",
2651   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
2652  Editable->False]], "Print",
2653 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2654  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2655  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2656  3.704426225570242*^9, 3.718407274828047*^9, 3.7184094224900627`*^9},
2657 ExpressionUUID -> "ee59e9e1-c7b9-4e3e-acc0-50fd5141b377"],
2658
2659Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
2660 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2661  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2662  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2663  3.704426225570242*^9, 3.718407274828047*^9,
2664  3.718409422824224*^9},ExpressionUUID->"88ce7af0-9c3c-4aeb-ba60-\
26651867fc011fe2"],
2666
2667Cell[BoxData["\<\"Done!\"\>"], "Print",
2668 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2669  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2670  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2671  3.704426225570242*^9, 3.718407274828047*^9,
2672  3.718409423224078*^9},ExpressionUUID->"4eb05751-2f09-4aee-bc69-\
2673b8c79110829c"],
2674
2675Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
2676"Print",
2677 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2678  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2679  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2680  3.704426225570242*^9, 3.718407274828047*^9,
2681  3.7184094258271847`*^9},ExpressionUUID->"06fb1a66-b18d-4f96-b6f4-\
26825fb6f5881361"],
2683
2684Cell[BoxData[
2685 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2686  StripOnInput->False,
2687  LineColor->RGBColor[1, 0.5, 0],
2688  FrontFaceColor->RGBColor[1, 0.5, 0],
2689  BackFaceColor->RGBColor[1, 0.5, 0],
2690  GraphicsColor->RGBColor[1, 0.5, 0],
2691  FontWeight->Bold,
2692  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2693 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2694  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2695  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2696  3.704426225570242*^9, 3.718407274828047*^9,
2697  3.718409426268703*^9},ExpressionUUID->"270d350b-7c66-4f39-998c-\
26986451a9aa6033"],
2699
2700Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2701 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2702  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2703  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2704  3.704426225570242*^9, 3.718407274828047*^9,
2705  3.718409426297572*^9},ExpressionUUID->"6a7cb9cc-272e-4769-9b35-\
27064e4c52a7c7e1"],
2707
2708Cell[BoxData[
2709 InterpretationBox[
2710  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
2711   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2712  SequenceForm["Expanding the indices over ", 4, " cores"],
2713  Editable->False]], "Print",
2714 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2715  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2716  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2717  3.704426225570242*^9, 3.718407274828047*^9,
2718  3.718409426327189*^9},ExpressionUUID->"01596b2d-04c0-442d-abdd-\
27194fc44d313006"],
2720
2721Cell[BoxData["\<\"Collecting the different structures that enter the \
2722vertex.\"\>"], "Print",
2723 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2724  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2725  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2726  3.704426225570242*^9, 3.718407274828047*^9,
2727  3.718409434406982*^9},ExpressionUUID->"7fdee8db-e826-4216-89b0-\
27286479a4ff3d7a"],
2729
2730Cell[BoxData[
2731 InterpretationBox[
2732  RowBox[{
2733  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2734found -> starting the computation: \"\>", "\[InvisibleSpace]",
2735   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2736    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2737   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
2738  SequenceForm[
2739  232, " possible non-zero vertices have been found -> starting the \
2740computation: ",
2741   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
2742  Editable->False]], "Print",
2743 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2744  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2745  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2746  3.704426225570242*^9, 3.718407274828047*^9,
2747  3.718409434495965*^9},ExpressionUUID->"5c853281-bf67-4286-a929-\
274876b9ca72c334"],
2749
2750Cell[BoxData[
2751 InterpretationBox[
2752  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2753  SequenceForm[227, " vertices obtained."],
2754  Editable->False]], "Print",
2755 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2756  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2757  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2758  3.704426225570242*^9, 3.718407274828047*^9,
2759  3.7184094411771584`*^9},ExpressionUUID->"9205de42-0557-47e5-9654-\
2760b4abad5e0a39"],
2761
2762Cell[BoxData[
2763 InterpretationBox[
2764  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
2765   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
2766   "\[InvisibleSpace]",
2767   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2768    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2769   "\[InvisibleSpace]", "227"}],
2770  SequenceForm[
2771  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
2772   Dynamic[FeynRules`FR$Count1], " / ", 227],
2773  Editable->False]], "Print",
2774 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2775  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2776  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2777  3.704426225570242*^9, 3.718407274828047*^9,
2778  3.718409446265263*^9},ExpressionUUID->"1b247222-0eec-4ba0-aafd-\
277922ac0fc0abbd"],
2780
2781Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 2 ].\"\>"], "Print",
2782 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2783  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2784  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2785  3.704426225570242*^9, 3.718407274828047*^9,
2786  3.718409455353344*^9},ExpressionUUID->"ff9feb70-e6f1-480c-99bd-\
27877289ae3535ae"],
2788
2789Cell[BoxData[
2790 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2791decays: \"\>",
2792  StripOnInput->False,
2793  LineColor->RGBColor[1, 0.5, 0],
2794  FrontFaceColor->RGBColor[1, 0.5, 0],
2795  BackFaceColor->RGBColor[1, 0.5, 0],
2796  GraphicsColor->RGBColor[1, 0.5, 0],
2797  FontWeight->Bold,
2798  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2799 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2800  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2801  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2802  3.704426225570242*^9, 3.718407274828047*^9,
2803  3.718409455398396*^9},ExpressionUUID->"bab51fd8-20fb-4ff9-9af4-\
28043889c89550e8"],
2805
2806Cell[BoxData[
2807 InterpretationBox[
2808  RowBox[{
2809   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2810    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2811   "\[InvisibleSpace]", "97"}],
2812  SequenceForm[
2813   Dynamic[PRIVATE`mycounter], " / ", 97],
2814  Editable->False]], "Print",
2815 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2816  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2817  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2818  3.704426225570242*^9, 3.718407274828047*^9,
2819  3.718409455412575*^9},ExpressionUUID->"3d2e45da-4f60-4450-a592-\
28206fa486b83a84"],
2821
2822Cell[BoxData[
2823 InterpretationBox[
2824  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
2825   "2.394268`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2826  SequenceForm["Squared matrix elent compute in ", 2.394268, " seconds."],
2827  Editable->False]], "Print",
2828 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2829  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2830  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2831  3.704426225570242*^9, 3.718407274828047*^9,
2832  3.7184094636335897`*^9},ExpressionUUID->"ee3f56bf-255f-43ca-82a6-\
2833520fdb81977a"],
2834
2835Cell[BoxData[
2836 InterpretationBox[
2837  RowBox[{
2838   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2839    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2840   "\[InvisibleSpace]", "95"}],
2841  SequenceForm[
2842   Dynamic[PRIVATE`mycounter], " / ", 95],
2843  Editable->False]], "Print",
2844 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2845  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2846  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2847  3.704426225570242*^9, 3.718407274828047*^9,
2848  3.718409463648016*^9},ExpressionUUID->"3d4e6766-eca0-4d99-b96b-\
2849c149bd4da8cf"]
2850}, Open  ]],
2851
2852Cell[BoxData[
2853 TemplateBox[{
2854  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
2855   28,2,29231154567037670195,"Local","FeynRules`Decay"},
2856  "MessageTemplate2"]], "Message", "MSG",
2857 CellChangeTimes->{3.718407314362404*^9,
2858  3.718409465077449*^9},ExpressionUUID->"9ac07091-7436-4a51-a328-\
285909cfecda1d9d"],
2860
2861Cell[CellGroupData[{
2862
2863Cell[BoxData[
2864 InterpretationBox[
2865  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
2866   "0.929639`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2867  SequenceForm["Decay widths computed in ", 0.929639, " seconds."],
2868  Editable->False]], "Print",
2869 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2870  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2871  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2872  3.704426225570242*^9, 3.718407274828047*^9,
2873  3.718409465105576*^9},ExpressionUUID->"8d64e8dd-fe86-453f-b7c8-\
28744e71e8845442"],
2875
2876Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
2877 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2878  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2879  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2880  3.704426225570242*^9, 3.718407274828047*^9,
2881  3.718409465115224*^9},ExpressionUUID->"588b0e53-56c2-4b77-9259-\
288206cba660ac93"],
2883
2884Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
2885"Print",
2886 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2887  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2888  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2889  3.704426225570242*^9, 3.718407274828047*^9,
2890  3.718409465274967*^9},ExpressionUUID->"d54d92cd-7a3d-4fb5-bb75-\
2891ca30b66e4d6a"],
2892
2893Cell[BoxData[
2894 InterpretationBox[
2895  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
2896   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
2897  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
2898  Editable->False]], "Print",
2899 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2900  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2901  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2902  3.704426225570242*^9, 3.718407274828047*^9,
2903  3.7184094653136263`*^9},ExpressionUUID->"794c8aa0-6002-4640-936d-\
29040a924394223c"],
2905
2906Cell[BoxData[
2907 InterpretationBox[
2908  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
2909   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
2910    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
2911   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
2912  SequenceForm["    - Optimizing: ",
2913   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
2914  Editable->False]], "Print",
2915 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2916  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2917  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2918  3.704426225570242*^9, 3.718407274828047*^9,
2919  3.71840946749883*^9},ExpressionUUID->"5c979839-fcde-4862-b00c-50a161909d10"],
2920
2921Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
2922 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2923  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2924  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2925  3.704426225570242*^9, 3.718407274828047*^9,
2926  3.718409467774808*^9},ExpressionUUID->"75fee4ba-34d3-412d-abc5-\
2927eac718893bca"],
2928
2929Cell[BoxData["\<\"Done!\"\>"], "Print",
2930 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2931  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2932  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2933  3.704426225570242*^9, 3.718407274828047*^9,
2934  3.718409468129575*^9},ExpressionUUID->"bb102ab5-3cdb-4e17-96bc-\
29359f2ed9c6de81"],
2936
2937Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
2938"Print",
2939 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2940  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2941  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2942  3.704426225570242*^9, 3.718407274828047*^9,
2943  3.7184094817545*^9},ExpressionUUID->"1627a924-56b9-4258-9aae-11a114b4011c"],
2944
2945Cell[BoxData[
2946 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2947  StripOnInput->False,
2948  LineColor->RGBColor[1, 0.5, 0],
2949  FrontFaceColor->RGBColor[1, 0.5, 0],
2950  BackFaceColor->RGBColor[1, 0.5, 0],
2951  GraphicsColor->RGBColor[1, 0.5, 0],
2952  FontWeight->Bold,
2953  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2954 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2955  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2956  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2957  3.704426225570242*^9, 3.718407274828047*^9,
2958  3.718409481772188*^9},ExpressionUUID->"65e310da-b588-4f95-a910-\
2959a4fac04ea878"],
2960
2961Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2962 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2963  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2964  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2965  3.704426225570242*^9, 3.718407274828047*^9,
2966  3.71840948178785*^9},ExpressionUUID->"113a59a4-6010-4799-8356-afeada3318db"],
2967
2968Cell[BoxData[
2969 InterpretationBox[
2970  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
2971   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2972  SequenceForm["Expanding the indices over ", 4, " cores"],
2973  Editable->False]], "Print",
2974 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2975  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2976  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2977  3.704426225570242*^9, 3.718407274828047*^9,
2978  3.7184094818035307`*^9},ExpressionUUID->"aead7d75-c774-4b94-b79b-\
297963eeb47fec0b"],
2980
2981Cell[BoxData["\<\"Collecting the different structures that enter the \
2982vertex.\"\>"], "Print",
2983 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
2984  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
2985  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
2986  3.704426225570242*^9, 3.718407274828047*^9,
2987  3.718409481818758*^9},ExpressionUUID->"49e007f7-7f4b-4184-8fea-\
2988bad674fc3f32"],
2989
2990Cell[BoxData[
2991 InterpretationBox[
2992  RowBox[{
2993  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
2994found -> starting the computation: \"\>", "\[InvisibleSpace]",
2995   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2996    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2997   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
2998  SequenceForm[
2999  232, " possible non-zero vertices have been found -> starting the \
3000computation: ",
3001   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
3002  Editable->False]], "Print",
3003 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3004  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3005  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3006  3.704426225570242*^9, 3.718407274828047*^9,
3007  3.71840948183295*^9},ExpressionUUID->"38571b97-708b-4186-a418-367a3c6e7607"],
3008
3009Cell[BoxData[
3010 InterpretationBox[
3011  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3012  SequenceForm[227, " vertices obtained."],
3013  Editable->False]], "Print",
3014 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3015  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3016  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3017  3.704426225570242*^9, 3.718407274828047*^9,
3018  3.718409486536644*^9},ExpressionUUID->"30306890-e838-4c68-aa0c-\
30193d16c0c8e3db"],
3020
3021Cell[BoxData[
3022 InterpretationBox[
3023  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
3024   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
3025   "\[InvisibleSpace]",
3026   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3027    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3028   "\[InvisibleSpace]", "227"}],
3029  SequenceForm[
3030  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
3031   Dynamic[FeynRules`FR$Count1], " / ", 227],
3032  Editable->False]], "Print",
3033 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3034  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3035  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3036  3.704426225570242*^9, 3.718407274828047*^9,
3037  3.7184094919489403`*^9},ExpressionUUID->"6faf4527-f256-4ea4-836c-\
3038d604dd29d71f"],
3039
3040Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 3 ].\"\>"], "Print",
3041 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3042  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3043  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3044  3.704426225570242*^9, 3.718407274828047*^9,
3045  3.7184095011521807`*^9},ExpressionUUID->"c3af23ca-919d-483d-a2d2-\
3046e9ee60b2a028"],
3047
3048Cell[BoxData[
3049 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3050decays: \"\>",
3051  StripOnInput->False,
3052  LineColor->RGBColor[1, 0.5, 0],
3053  FrontFaceColor->RGBColor[1, 0.5, 0],
3054  BackFaceColor->RGBColor[1, 0.5, 0],
3055  GraphicsColor->RGBColor[1, 0.5, 0],
3056  FontWeight->Bold,
3057  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3058 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3059  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3060  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3061  3.704426225570242*^9, 3.718407274828047*^9,
3062  3.71840950122188*^9},ExpressionUUID->"ace7acb9-2774-4c22-84f3-a3b74f34af94"],
3063
3064Cell[BoxData[
3065 InterpretationBox[
3066  RowBox[{
3067   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3068    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3069   "\[InvisibleSpace]", "97"}],
3070  SequenceForm[
3071   Dynamic[PRIVATE`mycounter], " / ", 97],
3072  Editable->False]], "Print",
3073 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3074  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3075  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3076  3.704426225570242*^9, 3.718407274828047*^9,
3077  3.7184095012374153`*^9},ExpressionUUID->"c5686335-14ca-489b-801b-\
30787bc22b6206a1"],
3079
3080Cell[BoxData[
3081 InterpretationBox[
3082  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
3083   "2.334816`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3084  SequenceForm["Squared matrix elent compute in ", 2.334816, " seconds."],
3085  Editable->False]], "Print",
3086 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3087  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3088  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3089  3.704426225570242*^9, 3.718407274828047*^9,
3090  3.718409509482362*^9},ExpressionUUID->"04c922e2-4bfc-4d66-9c71-\
309142cdfc28779b"],
3092
3093Cell[BoxData[
3094 InterpretationBox[
3095  RowBox[{
3096   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3097    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3098   "\[InvisibleSpace]", "95"}],
3099  SequenceForm[
3100   Dynamic[PRIVATE`mycounter], " / ", 95],
3101  Editable->False]], "Print",
3102 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3103  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3104  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3105  3.704426225570242*^9, 3.718407274828047*^9,
3106  3.71840950949717*^9},ExpressionUUID->"3695ebe0-163d-4a14-a1a6-c8801f9653c7"]
3107}, Open  ]],
3108
3109Cell[BoxData[
3110 TemplateBox[{
3111  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
3112   29,3,29231154567037670195,"Local","FeynRules`Decay"},
3113  "MessageTemplate2"]], "Message", "MSG",
3114 CellChangeTimes->{3.718407314362404*^9,
3115  3.7184095110727654`*^9},ExpressionUUID->"4f6b6fab-1e91-42f8-871b-\
3116fc652a0d82fd"],
3117
3118Cell[CellGroupData[{
3119
3120Cell[BoxData[
3121 InterpretationBox[
3122  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
3123   "1.049375`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3124  SequenceForm["Decay widths computed in ", 1.049375, " seconds."],
3125  Editable->False]], "Print",
3126 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3127  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3128  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3129  3.704426225570242*^9, 3.718407274828047*^9,
3130  3.718409511097219*^9},ExpressionUUID->"44ed5c57-b8d0-43df-a3b5-\
3131ab4f4e983fe4"],
3132
3133Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
3134 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3135  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3136  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3137  3.704426225570242*^9, 3.718407274828047*^9,
3138  3.718409511107966*^9},ExpressionUUID->"215e8e54-b4b4-4ba7-9f69-\
3139809f0dad2618"],
3140
3141Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
3142"Print",
3143 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3144  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3145  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3146  3.704426225570242*^9, 3.718407274828047*^9,
3147  3.718409511305464*^9},ExpressionUUID->"44270f58-65f9-441e-a8ee-\
31488bea1e47523c"],
3149
3150Cell[BoxData[
3151 InterpretationBox[
3152  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
3153   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
3154  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
3155  Editable->False]], "Print",
3156 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3157  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3158  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3159  3.704426225570242*^9, 3.718407274828047*^9,
3160  3.718409511374473*^9},ExpressionUUID->"f831ca54-ee0c-4069-99e7-\
3161d4f2abd18184"],
3162
3163Cell[BoxData[
3164 InterpretationBox[
3165  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
3166   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
3167    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
3168   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
3169  SequenceForm["    - Optimizing: ",
3170   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
3171  Editable->False]], "Print",
3172 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3173  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3174  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3175  3.704426225570242*^9, 3.718407274828047*^9,
3176  3.718409513532707*^9},ExpressionUUID->"8c2e9678-4564-42ed-8916-\
3177aad9f27c2e9d"],
3178
3179Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
3180 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3181  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3182  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3183  3.704426225570242*^9, 3.718407274828047*^9,
3184  3.718409513801745*^9},ExpressionUUID->"587022f3-d4bc-4355-bacd-\
3185c2055687dac8"],
3186
3187Cell[BoxData["\<\"Done!\"\>"], "Print",
3188 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3189  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3190  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3191  3.704426225570242*^9, 3.718407274828047*^9,
3192  3.718409514156901*^9},ExpressionUUID->"d35117db-e3c2-418c-acba-\
319396b60301e76c"],
3194
3195Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
3196"Print",
3197 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3198  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3199  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3200  3.704426225570242*^9, 3.718407274828047*^9,
3201  3.718409516955207*^9},ExpressionUUID->"d92ac1c9-9dca-4392-81cd-\
3202acb7daa859b2"],
3203
3204Cell[BoxData[
3205 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3206  StripOnInput->False,
3207  LineColor->RGBColor[1, 0.5, 0],
3208  FrontFaceColor->RGBColor[1, 0.5, 0],
3209  BackFaceColor->RGBColor[1, 0.5, 0],
3210  GraphicsColor->RGBColor[1, 0.5, 0],
3211  FontWeight->Bold,
3212  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3213 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3214  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3215  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3216  3.704426225570242*^9, 3.718407274828047*^9,
3217  3.718409517422175*^9},ExpressionUUID->"b0b11163-053e-4d61-9da1-\
3218af21fca1b8d4"],
3219
3220Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3221 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3222  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3223  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3224  3.704426225570242*^9, 3.718407274828047*^9,
3225  3.718409517438593*^9},ExpressionUUID->"521afdb2-04f7-4388-97e6-\
3226b77811d8ba16"],
3227
3228Cell[BoxData[
3229 InterpretationBox[
3230  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
3231   "\[InvisibleSpace]", "\<\" cores\"\>"}],
3232  SequenceForm["Expanding the indices over ", 4, " cores"],
3233  Editable->False]], "Print",
3234 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3235  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3236  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3237  3.704426225570242*^9, 3.718407274828047*^9,
3238  3.718409517453576*^9},ExpressionUUID->"74ce88b9-2d5a-44f1-8b97-\
3239d74784831cd8"],
3240
3241Cell[BoxData["\<\"Collecting the different structures that enter the \
3242vertex.\"\>"], "Print",
3243 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3244  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3245  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3246  3.704426225570242*^9, 3.718407274828047*^9,
3247  3.7184095254714203`*^9},ExpressionUUID->"13f6904f-e607-4a71-bfbe-\
3248682e7b9c7148"],
3249
3250Cell[BoxData[
3251 InterpretationBox[
3252  RowBox[{
3253  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
3254found -> starting the computation: \"\>", "\[InvisibleSpace]",
3255   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3256    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3257   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
3258  SequenceForm[
3259  232, " possible non-zero vertices have been found -> starting the \
3260computation: ",
3261   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
3262  Editable->False]], "Print",
3263 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3264  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3265  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3266  3.704426225570242*^9, 3.718407274828047*^9,
3267  3.7184095255776176`*^9},ExpressionUUID->"3f34c9cc-b74d-444f-8a88-\
3268a2c228ff2b2e"],
3269
3270Cell[BoxData[
3271 InterpretationBox[
3272  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3273  SequenceForm[227, " vertices obtained."],
3274  Editable->False]], "Print",
3275 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3276  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3277  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3278  3.704426225570242*^9, 3.718407274828047*^9,
3279  3.718409532325691*^9},ExpressionUUID->"e29687fe-1c99-427a-8ff8-\
328074a971c649c4"],
3281
3282Cell[BoxData[
3283 InterpretationBox[
3284  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
3285   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
3286   "\[InvisibleSpace]",
3287   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3288    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3289   "\[InvisibleSpace]", "227"}],
3290  SequenceForm[
3291  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
3292   Dynamic[FeynRules`FR$Count1], " / ", 227],
3293  Editable->False]], "Print",
3294 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3295  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3296  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3297  3.704426225570242*^9, 3.718407274828047*^9,
3298  3.7184095376108*^9},ExpressionUUID->"559571cf-7d17-4ca4-b6e7-d81ec2bd2990"],
3299
3300Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 4 ].\"\>"], "Print",
3301 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3302  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3303  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3304  3.704426225570242*^9, 3.718407274828047*^9,
3305  3.718409546686668*^9},ExpressionUUID->"455f0a47-0827-4050-a2d6-\
3306a0403c216d7c"],
3307
3308Cell[BoxData[
3309 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3310decays: \"\>",
3311  StripOnInput->False,
3312  LineColor->RGBColor[1, 0.5, 0],
3313  FrontFaceColor->RGBColor[1, 0.5, 0],
3314  BackFaceColor->RGBColor[1, 0.5, 0],
3315  GraphicsColor->RGBColor[1, 0.5, 0],
3316  FontWeight->Bold,
3317  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3318 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3319  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3320  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3321  3.704426225570242*^9, 3.718407274828047*^9,
3322  3.718409546729403*^9},ExpressionUUID->"da778d63-fbbf-4463-8791-\
33234dff130908f0"],
3324
3325Cell[BoxData[
3326 InterpretationBox[
3327  RowBox[{
3328   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3329    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3330   "\[InvisibleSpace]", "97"}],
3331  SequenceForm[
3332   Dynamic[PRIVATE`mycounter], " / ", 97],
3333  Editable->False]], "Print",
3334 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3335  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3336  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3337  3.704426225570242*^9, 3.718407274828047*^9,
3338  3.718409546742661*^9},ExpressionUUID->"5098d5f8-17a1-4a6c-91dc-\
3339b2e4715d0bd5"],
3340
3341Cell[BoxData[
3342 InterpretationBox[
3343  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
3344   "2.246262`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3345  SequenceForm["Squared matrix elent compute in ", 2.246262, " seconds."],
3346  Editable->False]], "Print",
3347 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3348  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3349  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3350  3.704426225570242*^9, 3.718407274828047*^9,
3351  3.718409554832529*^9},ExpressionUUID->"c842eeca-1d5f-4556-8663-\
335244f7303cdee8"],
3353
3354Cell[BoxData[
3355 InterpretationBox[
3356  RowBox[{
3357   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3358    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3359   "\[InvisibleSpace]", "95"}],
3360  SequenceForm[
3361   Dynamic[PRIVATE`mycounter], " / ", 95],
3362  Editable->False]], "Print",
3363 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3364  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3365  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3366  3.704426225570242*^9, 3.718407274828047*^9,
3367  3.718409554851996*^9},ExpressionUUID->"c61ad68d-fc75-423a-9b29-\
3368b624ed1ff81b"]
3369}, Open  ]],
3370
3371Cell[BoxData[
3372 TemplateBox[{
3373  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
3374   30,4,29231154567037670195,"Local","FeynRules`Decay"},
3375  "MessageTemplate2"]], "Message", "MSG",
3376 CellChangeTimes->{3.718407314362404*^9,
3377  3.718409556246418*^9},ExpressionUUID->"293966c9-02b7-416a-9b7e-\
3378d05ead29d2d9"],
3379
3380Cell[CellGroupData[{
3381
3382Cell[BoxData[
3383 InterpretationBox[
3384  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
3385   "0.920049`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3386  SequenceForm["Decay widths computed in ", 0.920049, " seconds."],
3387  Editable->False]], "Print",
3388 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3389  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3390  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3391  3.704426225570242*^9, 3.718407274828047*^9,
3392  3.7184095562680683`*^9},ExpressionUUID->"a85deabe-edaa-4d04-a01e-\
339305240887f8e8"],
3394
3395Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
3396 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3397  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3398  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3399  3.704426225570242*^9, 3.718407274828047*^9,
3400  3.71840955627817*^9},ExpressionUUID->"9275a1b5-549b-4ed1-944f-2470849b2362"],
3401
3402Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
3403"Print",
3404 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3405  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3406  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3407  3.704426225570242*^9, 3.718407274828047*^9,
3408  3.718409556496442*^9},ExpressionUUID->"46172789-f6f9-4eca-adb6-\
340998d15f24fb88"],
3410
3411Cell[BoxData[
3412 InterpretationBox[
3413  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
3414   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
3415  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
3416  Editable->False]], "Print",
3417 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3418  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3419  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3420  3.704426225570242*^9, 3.718407274828047*^9,
3421  3.718409556513892*^9},ExpressionUUID->"516c90aa-a41f-4ad1-a181-\
3422e8e90e2b8e5e"],
3423
3424Cell[BoxData[
3425 InterpretationBox[
3426  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
3427   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
3428    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
3429   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
3430  SequenceForm["    - Optimizing: ",
3431   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
3432  Editable->False]], "Print",
3433 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3434  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3435  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3436  3.704426225570242*^9, 3.718407274828047*^9,
3437  3.7184095592320347`*^9},ExpressionUUID->"b8cdf07a-b51d-4608-941d-\
3438838b283cf4a6"],
3439
3440Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
3441 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3442  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3443  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3444  3.704426225570242*^9, 3.718407274828047*^9,
3445  3.71840955925204*^9},ExpressionUUID->"4302198b-31fa-49f3-87db-a9a035e62479"],
3446
3447Cell[BoxData["\<\"Done!\"\>"], "Print",
3448 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3449  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3450  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3451  3.704426225570242*^9, 3.718407274828047*^9,
3452  3.7184095592725697`*^9},ExpressionUUID->"8483763a-6c2d-4205-9c4f-\
345344605f771118"],
3454
3455Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
3456"Print",
3457 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3458  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3459  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3460  3.704426225570242*^9, 3.718407274828047*^9,
3461  3.718409561984456*^9},ExpressionUUID->"1592ec0a-c54f-41e4-b68f-\
3462c581148704d1"],
3463
3464Cell[BoxData[
3465 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3466  StripOnInput->False,
3467  LineColor->RGBColor[1, 0.5, 0],
3468  FrontFaceColor->RGBColor[1, 0.5, 0],
3469  BackFaceColor->RGBColor[1, 0.5, 0],
3470  GraphicsColor->RGBColor[1, 0.5, 0],
3471  FontWeight->Bold,
3472  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3473 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3474  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3475  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3476  3.704426225570242*^9, 3.718407274828047*^9,
3477  3.718409562347281*^9},ExpressionUUID->"54272298-a65d-4051-890c-\
3478b4d204a63b69"],
3479
3480Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3481 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3482  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3483  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3484  3.704426225570242*^9, 3.718407274828047*^9,
3485  3.7184095623664293`*^9},ExpressionUUID->"10ec0e34-3512-4afe-895e-\
3486efab3176b442"],
3487
3488Cell[BoxData[
3489 InterpretationBox[
3490  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
3491   "\[InvisibleSpace]", "\<\" cores\"\>"}],
3492  SequenceForm["Expanding the indices over ", 4, " cores"],
3493  Editable->False]], "Print",
3494 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3495  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3496  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3497  3.704426225570242*^9, 3.718407274828047*^9,
3498  3.718409562389309*^9},ExpressionUUID->"0fccebfe-bc21-4c81-b3da-\
34990a8bd95c9355"],
3500
3501Cell[BoxData["\<\"Collecting the different structures that enter the \
3502vertex.\"\>"], "Print",
3503 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3504  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3505  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3506  3.704426225570242*^9, 3.718407274828047*^9,
3507  3.7184095708058357`*^9},ExpressionUUID->"9b1e1274-7cca-4209-94a4-\
3508aeae2c765110"],
3509
3510Cell[BoxData[
3511 InterpretationBox[
3512  RowBox[{
3513  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
3514found -> starting the computation: \"\>", "\[InvisibleSpace]",
3515   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3516    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3517   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
3518  SequenceForm[
3519  232, " possible non-zero vertices have been found -> starting the \
3520computation: ",
3521   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
3522  Editable->False]], "Print",
3523 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3524  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3525  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3526  3.704426225570242*^9, 3.718407274828047*^9,
3527  3.718409570943213*^9},ExpressionUUID->"cf5fbef6-2ed3-40e4-a989-\
3528602a48ea86ae"],
3529
3530Cell[BoxData[
3531 InterpretationBox[
3532  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3533  SequenceForm[227, " vertices obtained."],
3534  Editable->False]], "Print",
3535 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3536  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3537  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3538  3.704426225570242*^9, 3.718407274828047*^9,
3539  3.718409577568123*^9},ExpressionUUID->"1ddf2b04-d37d-4b3d-9bc0-\
354020469a9248bb"],
3541
3542Cell[BoxData[
3543 InterpretationBox[
3544  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
3545   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
3546   "\[InvisibleSpace]",
3547   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3548    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3549   "\[InvisibleSpace]", "227"}],
3550  SequenceForm[
3551  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
3552   Dynamic[FeynRules`FR$Count1], " / ", 227],
3553  Editable->False]], "Print",
3554 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3555  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3556  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3557  3.704426225570242*^9, 3.718407274828047*^9,
3558  3.718409582711006*^9},ExpressionUUID->"e41174eb-e2e7-4adf-82e9-\
3559434b8873e649"],
3560
3561Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 5 ].\"\>"], "Print",
3562 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3563  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3564  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3565  3.704426225570242*^9, 3.718407274828047*^9,
3566  3.71840959176226*^9},ExpressionUUID->"573acd1c-f209-4dd6-b069-35c58a5a3365"],
3567
3568Cell[BoxData[
3569 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3570decays: \"\>",
3571  StripOnInput->False,
3572  LineColor->RGBColor[1, 0.5, 0],
3573  FrontFaceColor->RGBColor[1, 0.5, 0],
3574  BackFaceColor->RGBColor[1, 0.5, 0],
3575  GraphicsColor->RGBColor[1, 0.5, 0],
3576  FontWeight->Bold,
3577  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3578 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3579  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3580  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3581  3.704426225570242*^9, 3.718407274828047*^9,
3582  3.71840959182229*^9},ExpressionUUID->"9daed945-e2bc-4f9e-a7db-5a026b966d83"],
3583
3584Cell[BoxData[
3585 InterpretationBox[
3586  RowBox[{
3587   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3588    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3589   "\[InvisibleSpace]", "97"}],
3590  SequenceForm[
3591   Dynamic[PRIVATE`mycounter], " / ", 97],
3592  Editable->False]], "Print",
3593 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3594  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3595  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3596  3.704426225570242*^9, 3.718407274828047*^9,
3597  3.718409591843289*^9},ExpressionUUID->"4fc3b3d7-968f-4884-866b-\
359885d4c4f76b54"],
3599
3600Cell[BoxData[
3601 InterpretationBox[
3602  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
3603   "2.359146`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3604  SequenceForm["Squared matrix elent compute in ", 2.359146, " seconds."],
3605  Editable->False]], "Print",
3606 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3607  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3608  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3609  3.704426225570242*^9, 3.718407274828047*^9,
3610  3.7184096000464687`*^9},ExpressionUUID->"f3fa02b8-6cd2-417b-88cd-\
3611a01b67d2bd58"],
3612
3613Cell[BoxData[
3614 InterpretationBox[
3615  RowBox[{
3616   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3617    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3618   "\[InvisibleSpace]", "95"}],
3619  SequenceForm[
3620   Dynamic[PRIVATE`mycounter], " / ", 95],
3621  Editable->False]], "Print",
3622 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3623  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3624  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3625  3.704426225570242*^9, 3.718407274828047*^9,
3626  3.7184096000646343`*^9},ExpressionUUID->"91c081b1-cfb5-4b09-89f4-\
3627ec7d56058e60"]
3628}, Open  ]],
3629
3630Cell[BoxData[
3631 TemplateBox[{
3632  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
3633   31,5,29231154567037670195,"Local","FeynRules`Decay"},
3634  "MessageTemplate2"]], "Message", "MSG",
3635 CellChangeTimes->{3.718407314362404*^9,
3636  3.718409601475245*^9},ExpressionUUID->"3084115d-bb3c-4f99-97c6-\
3637bc6352bd65b0"],
3638
3639Cell[CellGroupData[{
3640
3641Cell[BoxData[
3642 InterpretationBox[
3643  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
3644   "0.911296`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3645  SequenceForm["Decay widths computed in ", 0.911296, " seconds."],
3646  Editable->False]], "Print",
3647 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3648  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3649  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3650  3.704426225570242*^9, 3.718407274828047*^9,
3651  3.71840960148722*^9},ExpressionUUID->"d4edac7f-dbb4-45bf-8557-4531228ef46d"],
3652
3653Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
3654 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3655  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3656  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3657  3.704426225570242*^9, 3.718407274828047*^9,
3658  3.7184096014993067`*^9},ExpressionUUID->"c3325e86-ce47-4100-b130-\
3659fa05dc7d5634"],
3660
3661Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
3662"Print",
3663 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3664  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3665  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3666  3.704426225570242*^9, 3.718407274828047*^9,
3667  3.7184096016767607`*^9},ExpressionUUID->"8a56b7f8-3584-4232-8c2a-\
36681b828d6454d3"],
3669
3670Cell[BoxData[
3671 InterpretationBox[
3672  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
3673   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
3674  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
3675  Editable->False]], "Print",
3676 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3677  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3678  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3679  3.704426225570242*^9, 3.718407274828047*^9,
3680  3.718409601734475*^9},ExpressionUUID->"f198dcae-3e32-46dc-a5eb-\
3681ed8078dc9326"],
3682
3683Cell[BoxData[
3684 InterpretationBox[
3685  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
3686   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
3687    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
3688   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
3689  SequenceForm["    - Optimizing: ",
3690   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
3691  Editable->False]], "Print",
3692 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3693  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3694  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3695  3.704426225570242*^9, 3.718407274828047*^9,
3696  3.7184096038633842`*^9},ExpressionUUID->"81947241-d11d-4938-8bd9-\
3697b006ee3e9dd6"],
3698
3699Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
3700 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3701  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3702  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3703  3.704426225570242*^9, 3.718407274828047*^9,
3704  3.718409604167262*^9},ExpressionUUID->"1e86d50a-a49c-4e3f-82e6-\
37057ae0b23010cc"],
3706
3707Cell[BoxData["\<\"Done!\"\>"], "Print",
3708 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3709  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3710  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3711  3.704426225570242*^9, 3.718407274828047*^9,
3712  3.718409604498927*^9},ExpressionUUID->"467444e7-f3f1-41fe-8879-\
3713d814b271c721"],
3714
3715Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
3716"Print",
3717 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3718  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3719  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3720  3.704426225570242*^9, 3.718407274828047*^9,
3721  3.718409606626032*^9},ExpressionUUID->"82803e86-c0d5-487c-9f57-\
37227fc3c43ad568"],
3723
3724Cell[BoxData[
3725 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3726  StripOnInput->False,
3727  LineColor->RGBColor[1, 0.5, 0],
3728  FrontFaceColor->RGBColor[1, 0.5, 0],
3729  BackFaceColor->RGBColor[1, 0.5, 0],
3730  GraphicsColor->RGBColor[1, 0.5, 0],
3731  FontWeight->Bold,
3732  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3733 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3734  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3735  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3736  3.704426225570242*^9, 3.718407274828047*^9,
3737  3.718409606835185*^9},ExpressionUUID->"b4627a44-d9cf-4aaf-be16-\
3738547f6c3a084b"],
3739
3740Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3741 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3742  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3743  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3744  3.704426225570242*^9, 3.718407274828047*^9,
3745  3.718409606852213*^9},ExpressionUUID->"baf1a734-2831-4c93-8771-\
3746689b03815526"],
3747
3748Cell[BoxData[
3749 InterpretationBox[
3750  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
3751   "\[InvisibleSpace]", "\<\" cores\"\>"}],
3752  SequenceForm["Expanding the indices over ", 4, " cores"],
3753  Editable->False]], "Print",
3754 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3755  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3756  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3757  3.704426225570242*^9, 3.718407274828047*^9,
3758  3.718409606870788*^9},ExpressionUUID->"01bad4d8-0ebd-4c5e-bfe2-\
375927488f6303fd"],
3760
3761Cell[BoxData["\<\"Collecting the different structures that enter the \
3762vertex.\"\>"], "Print",
3763 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3764  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3765  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3766  3.704426225570242*^9, 3.718407274828047*^9,
3767  3.718409613286057*^9},ExpressionUUID->"faf5d67b-6965-479d-aa15-\
3768e9fa448c88e0"],
3769
3770Cell[BoxData[
3771 InterpretationBox[
3772  RowBox[{
3773  "209", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
3774found -> starting the computation: \"\>", "\[InvisibleSpace]",
3775   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3776    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3777   "\[InvisibleSpace]", "209", "\[InvisibleSpace]", "\<\".\"\>"}],
3778  SequenceForm[
3779  209, " possible non-zero vertices have been found -> starting the \
3780computation: ",
3781   Dynamic[FeynRules`FR$FeynmanRules], " / ", 209, "."],
3782  Editable->False]], "Print",
3783 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3784  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3785  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3786  3.704426225570242*^9, 3.718407274828047*^9,
3787  3.7184096133648863`*^9},ExpressionUUID->"f14c228c-b994-4b71-aa24-\
37882fbaa9b7e940"],
3789
3790Cell[BoxData[
3791 InterpretationBox[
3792  RowBox[{"204", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3793  SequenceForm[204, " vertices obtained."],
3794  Editable->False]], "Print",
3795 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3796  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3797  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3798  3.704426225570242*^9, 3.718407274828047*^9,
3799  3.718409618619824*^9},ExpressionUUID->"aece59fe-dd15-429f-8334-\
3800088ade446166"],
3801
3802Cell[BoxData[
3803 InterpretationBox[
3804  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
3805   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
3806   "\[InvisibleSpace]",
3807   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3808    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3809   "\[InvisibleSpace]", "204"}],
3810  SequenceForm[
3811  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
3812   Dynamic[FeynRules`FR$Count1], " / ", 204],
3813  Editable->False]], "Print",
3814 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3815  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3816  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3817  3.704426225570242*^9, 3.718407274828047*^9,
3818  3.718409622430133*^9},ExpressionUUID->"dfeba271-8140-4611-9c91-\
381907f9f66bf3a1"],
3820
3821Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 6 ].\"\>"], "Print",
3822 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3823  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3824  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3825  3.704426225570242*^9, 3.718407274828047*^9,
3826  3.718409629477586*^9},ExpressionUUID->"d4e36dcf-8edc-4b0f-a1d7-\
38270ee26bfc893c"],
3828
3829Cell[BoxData[
3830 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3831decays: \"\>",
3832  StripOnInput->False,
3833  LineColor->RGBColor[1, 0.5, 0],
3834  FrontFaceColor->RGBColor[1, 0.5, 0],
3835  BackFaceColor->RGBColor[1, 0.5, 0],
3836  GraphicsColor->RGBColor[1, 0.5, 0],
3837  FontWeight->Bold,
3838  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3839 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3840  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3841  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3842  3.704426225570242*^9, 3.718407274828047*^9,
3843  3.718409629539082*^9},ExpressionUUID->"f8a880b1-0f62-4588-ac39-\
3844399c8921d0a4"],
3845
3846Cell[BoxData[
3847 InterpretationBox[
3848  RowBox[{
3849   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3850    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3851   "\[InvisibleSpace]", "73"}],
3852  SequenceForm[
3853   Dynamic[PRIVATE`mycounter], " / ", 73],
3854  Editable->False]], "Print",
3855 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3856  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3857  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3858  3.704426225570242*^9, 3.718407274828047*^9, 3.7184096295589933`*^9},
3859 ExpressionUUID -> "fa2f102e-73ef-448f-ac32-7ad3f6554f8f"],
3860
3861Cell[BoxData[
3862 InterpretationBox[
3863  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
3864   "2.035698`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3865  SequenceForm["Squared matrix elent compute in ", 2.035698, " seconds."],
3866  Editable->False]], "Print",
3867 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3868  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3869  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3870  3.704426225570242*^9, 3.718407274828047*^9,
3871  3.718409636533877*^9},ExpressionUUID->"ec8754a5-a365-42d0-be83-\
3872b91e73d792f4"],
3873
3874Cell[BoxData[
3875 InterpretationBox[
3876  RowBox[{
3877   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
3878    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3879   "\[InvisibleSpace]", "70"}],
3880  SequenceForm[
3881   Dynamic[PRIVATE`mycounter], " / ", 70],
3882  Editable->False]], "Print",
3883 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3884  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3885  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3886  3.704426225570242*^9, 3.718407274828047*^9, 3.718409636552126*^9},
3887 ExpressionUUID -> "45db17e0-b4a9-4713-9640-a0955f37e089"]
3888}, Open  ]],
3889
3890Cell[BoxData[
3891 TemplateBox[{
3892  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
3893   32,6,29231154567037670195,"Local","FeynRules`Decay"},
3894  "MessageTemplate2"]], "Message", "MSG",
3895 CellChangeTimes->{3.718407314362404*^9,
3896  3.7184096375731277`*^9},ExpressionUUID->"8abf345a-6e3c-4037-a046-\
38972e620a57b17b"],
3898
3899Cell[CellGroupData[{
3900
3901Cell[BoxData[
3902 InterpretationBox[
3903  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
3904   "0.642787`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
3905  SequenceForm["Decay widths computed in ", 0.642787, " seconds."],
3906  Editable->False]], "Print",
3907 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3908  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3909  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3910  3.704426225570242*^9, 3.718407274828047*^9,
3911  3.718409637585063*^9},ExpressionUUID->"23e32597-da87-4b14-b840-\
39125736ea4bfefd"],
3913
3914Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
3915 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3916  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3917  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3918  3.704426225570242*^9, 3.718407274828047*^9,
3919  3.718409637596266*^9},ExpressionUUID->"04ba2fe6-166f-4ec6-afef-\
3920d2fa2414ca83"],
3921
3922Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
3923"Print",
3924 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3925  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3926  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3927  3.704426225570242*^9, 3.718407274828047*^9,
3928  3.718409637715611*^9},ExpressionUUID->"89f32bb1-6bb2-4331-9dab-\
39291e87bd1323c1"],
3930
3931Cell[BoxData[
3932 InterpretationBox[
3933  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
3934   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
3935  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
3936  Editable->False]], "Print",
3937 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3938  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3939  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3940  3.704426225570242*^9, 3.718407274828047*^9,
3941  3.7184096377708187`*^9},ExpressionUUID->"94189d29-a80d-4aa3-adeb-\
394260491a1e846f"],
3943
3944Cell[BoxData[
3945 InterpretationBox[
3946  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
3947   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
3948    ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
3949   "\[InvisibleSpace]", "242", "\[InvisibleSpace]", "\<\" .\"\>"}],
3950  SequenceForm["    - Optimizing: ",
3951   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 242, " ."],
3952  Editable->False]], "Print",
3953 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3954  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3955  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3956  3.704426225570242*^9, 3.718407274828047*^9, 3.718409639589941*^9},
3957 ExpressionUUID -> "d825f7fa-2503-441f-ab61-b3552035044b"],
3958
3959Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
3960 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3961  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3962  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3963  3.704426225570242*^9, 3.718407274828047*^9,
3964  3.71840963982016*^9},ExpressionUUID->"19e62e31-7c8d-40dd-8197-31faaa208457"],
3965
3966Cell[BoxData["\<\"Done!\"\>"], "Print",
3967 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3968  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3969  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3970  3.704426225570242*^9, 3.718407274828047*^9,
3971  3.718409640100071*^9},ExpressionUUID->"31e24711-00d2-4763-ba32-\
397276837b90767d"],
3973
3974Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
3975"Print",
3976 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3977  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3978  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3979  3.704426225570242*^9, 3.718407274828047*^9,
3980  3.718409642631119*^9},ExpressionUUID->"ac66afd9-35a1-49f8-8429-\
398135821ed4ce8a"],
3982
3983Cell[BoxData[
3984 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3985  StripOnInput->False,
3986  LineColor->RGBColor[1, 0.5, 0],
3987  FrontFaceColor->RGBColor[1, 0.5, 0],
3988  BackFaceColor->RGBColor[1, 0.5, 0],
3989  GraphicsColor->RGBColor[1, 0.5, 0],
3990  FontWeight->Bold,
3991  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3992 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
3993  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
3994  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
3995  3.704426225570242*^9, 3.718407274828047*^9,
3996  3.7184096430551777`*^9},ExpressionUUID->"82d3ed9e-7d7b-4350-ab4d-\
39975bf08af41483"],
3998
3999Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
4000 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4001  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4002  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4003  3.704426225570242*^9, 3.718407274828047*^9,
4004  3.718409643074291*^9},ExpressionUUID->"a24b51ed-cc7c-4703-8e89-\
4005be43d6ac0419"],
4006
4007Cell[BoxData[
4008 InterpretationBox[
4009  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
4010   "\[InvisibleSpace]", "\<\" cores\"\>"}],
4011  SequenceForm["Expanding the indices over ", 4, " cores"],
4012  Editable->False]], "Print",
4013 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4014  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4015  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4016  3.704426225570242*^9, 3.718407274828047*^9,
4017  3.718409643094488*^9},ExpressionUUID->"a202a6ca-e7db-4ad8-80a6-\
4018b43047bf1486"],
4019
4020Cell[BoxData["\<\"Collecting the different structures that enter the \
4021vertex.\"\>"], "Print",
4022 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4023  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4024  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4025  3.704426225570242*^9, 3.718407274828047*^9,
4026  3.718409650704793*^9},ExpressionUUID->"7d90b002-ba31-4d1f-950a-\
4027f2eca15799a4"],
4028
4029Cell[BoxData[
4030 InterpretationBox[
4031  RowBox[{
4032  "227", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
4033found -> starting the computation: \"\>", "\[InvisibleSpace]",
4034   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
4035    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4036   "\[InvisibleSpace]", "227", "\[InvisibleSpace]", "\<\".\"\>"}],
4037  SequenceForm[
4038  227, " possible non-zero vertices have been found -> starting the \
4039computation: ",
4040   Dynamic[FeynRules`FR$FeynmanRules], " / ", 227, "."],
4041  Editable->False]], "Print",
4042 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4043  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4044  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4045  3.704426225570242*^9, 3.718407274828047*^9, 3.718409650796339*^9},
4046 ExpressionUUID -> "052d5b38-0725-4038-9cb7-ca94adbc6ab9"],
4047
4048Cell[BoxData[
4049 InterpretationBox[
4050  RowBox[{"222", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
4051  SequenceForm[222, " vertices obtained."],
4052  Editable->False]], "Print",
4053 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4054  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4055  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4056  3.704426225570242*^9, 3.718407274828047*^9,
4057  3.718409656875033*^9},ExpressionUUID->"6dc33f09-ab25-4957-b7a2-\
4058c32a3c65c868"],
4059
4060Cell[BoxData[
4061 InterpretationBox[
4062  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
4063   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
4064   "\[InvisibleSpace]",
4065   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
4066    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4067   "\[InvisibleSpace]", "222"}],
4068  SequenceForm[
4069  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
4070   Dynamic[FeynRules`FR$Count1], " / ", 222],
4071  Editable->False]], "Print",
4072 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4073  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4074  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4075  3.704426225570242*^9, 3.718407274828047*^9, 3.718409662726254*^9},
4076 ExpressionUUID -> "84b93d6c-5d20-4d3e-a5db-d9796678f652"],
4077
4078Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 7 ].\"\>"], "Print",
4079 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4080  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4081  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4082  3.704426225570242*^9, 3.718407274828047*^9,
4083  3.718409671956826*^9},ExpressionUUID->"c626f1ea-40f3-48e8-a66e-\
408494d22e3acbb7"],
4085
4086Cell[BoxData[
4087 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
4088decays: \"\>",
4089  StripOnInput->False,
4090  LineColor->RGBColor[1, 0.5, 0],
4091  FrontFaceColor->RGBColor[1, 0.5, 0],
4092  BackFaceColor->RGBColor[1, 0.5, 0],
4093  GraphicsColor->RGBColor[1, 0.5, 0],
4094  FontWeight->Bold,
4095  FontColor->RGBColor[1, 0.5, 0]]], "Print",
4096 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4097  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4098  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4099  3.704426225570242*^9, 3.718407274828047*^9,
4100  3.718409672021037*^9},ExpressionUUID->"338065ca-bbeb-49dd-a22c-\
4101f707784beba3"],
4102
4103Cell[BoxData[
4104 InterpretationBox[
4105  RowBox[{
4106   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
4107    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4108   "\[InvisibleSpace]", "112"}],
4109  SequenceForm[
4110   Dynamic[PRIVATE`mycounter], " / ", 112],
4111  Editable->False]], "Print",
4112 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4113  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4114  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4115  3.704426225570242*^9, 3.718407274828047*^9, 3.718409672039501*^9},
4116 ExpressionUUID -> "de974ca7-9e1a-43d8-a054-04be213da37d"],
4117
4118Cell[BoxData[
4119 InterpretationBox[
4120  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
4121   "2.534077`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
4122  SequenceForm["Squared matrix elent compute in ", 2.534077, " seconds."],
4123  Editable->False]], "Print",
4124 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4125  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4126  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4127  3.704426225570242*^9, 3.718407274828047*^9,
4128  3.7184096809083433`*^9},ExpressionUUID->"0bafc9b2-5af0-4af6-b093-\
4129d078ab27bcf4"],
4130
4131Cell[BoxData[
4132 InterpretationBox[
4133  RowBox[{
4134   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
4135    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4136   "\[InvisibleSpace]", "106"}],
4137  SequenceForm[
4138   Dynamic[PRIVATE`mycounter], " / ", 106],
4139  Editable->False]], "Print",
4140 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4141  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4142  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4143  3.704426225570242*^9, 3.718407274828047*^9, 3.718409680929789*^9},
4144 ExpressionUUID -> "8aa01a16-2032-472a-8865-0c663f89e90f"]
4145}, Open  ]],
4146
4147Cell[BoxData[
4148 TemplateBox[{
4149  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
4150   33,7,29231154567037670195,"Local","FeynRules`Decay"},
4151  "MessageTemplate2"]], "Message", "MSG",
4152 CellChangeTimes->{3.718407314362404*^9,
4153  3.718409682539089*^9},ExpressionUUID->"c6189cbb-8a40-490a-a0bc-\
415470807d7d3d34"],
4155
4156Cell[CellGroupData[{
4157
4158Cell[BoxData[
4159 InterpretationBox[
4160  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
4161   "1.044304`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
4162  SequenceForm["Decay widths computed in ", 1.044304, " seconds."],
4163  Editable->False]], "Print",
4164 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4165  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4166  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4167  3.704426225570242*^9, 3.718407274828047*^9,
4168  3.7184096825504723`*^9},ExpressionUUID->"75c7e3eb-e3c2-4886-bcd7-\
4169f19cc0ad19fe"],
4170
4171Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
4172 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4173  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4174  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4175  3.704426225570242*^9, 3.718407274828047*^9,
4176  3.7184096825613947`*^9},ExpressionUUID->"b56f0453-c481-4e93-ae04-\
41774853d3a5177c"],
4178
4179Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
4180"Print",
4181 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4182  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4183  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4184  3.704426225570242*^9, 3.718407274828047*^9,
4185  3.718409682773394*^9},ExpressionUUID->"52372b45-804c-41ac-9dac-\
418671ab1a80cf5f"],
4187
4188Cell[BoxData[
4189 InterpretationBox[
4190  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
4191   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
4192  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
4193  Editable->False]], "Print",
4194 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4195  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4196  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4197  3.704426225570242*^9, 3.718407274828047*^9,
4198  3.718409682821994*^9},ExpressionUUID->"09515108-8f3f-4277-b8a5-\
4199d8b354f43bbd"],
4200
4201Cell[BoxData[
4202 InterpretationBox[
4203  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
4204   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
4205    ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
4206   "\[InvisibleSpace]", "296", "\[InvisibleSpace]", "\<\" .\"\>"}],
4207  SequenceForm["    - Optimizing: ",
4208   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 296, " ."],
4209  Editable->False]], "Print",
4210 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4211  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4212  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4213  3.704426225570242*^9, 3.718407274828047*^9, 3.718409685119416*^9},
4214 ExpressionUUID -> "2d1b7af9-69c0-4f32-82aa-0cf42ac8249b"],
4215
4216Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
4217 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4218  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4219  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4220  3.704426225570242*^9, 3.718407274828047*^9,
4221  3.718409685429761*^9},ExpressionUUID->"298309fb-e49f-4bea-8ce0-\
4222997bdcbcabe2"],
4223
4224Cell[BoxData["\<\"Done!\"\>"], "Print",
4225 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9,
4226  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9,
4227  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9,
4228  3.704426225570242*^9, 3.718407274828047*^9,
4229  3.7184096857991667`*^9},ExpressionUUID->"a90108ff-ea5e-41b6-8dba-\
4230bbbb49314178"]
4231}, Open  ]]
4232}, Open  ]]
4233}, Closed]],
4234
4235Cell[CellGroupData[{
4236
4237Cell["WIZARD", "Chapter",
4238 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
4239  3.6761992676581917`*^9, 3.6761992682261844`*^9}, {3.676248741547494*^9,
4240  3.676248746625984*^9}},ExpressionUUID->"36892a7a-e3a1-497d-b0db-\
4241dc92075d8b91"],
4242
4243Cell[CellGroupData[{
4244
4245Cell[BoxData[{
4246 RowBox[{
4247  RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]",
4248 RowBox[{
4249  RowBox[{"WriteWOOutput", "[", "LTypeII", "]"}], ";"}]}], "Input",
4250 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
4251   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9,
4252   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9,
4253   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
4254   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9,
4255   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9,
4256   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
4257   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9,
4258   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
4259   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9,
4260   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
4261   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9,
4262   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
4263   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
4264   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9,
4265   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
4266   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9,
4267   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9},
4268   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992838281183`*^9}, {
4269   3.676248756934494*^9, 3.67624877035222*^9}, {3.676340688732916*^9,
4270   3.67634070163441*^9}, 3.676341122715043*^9,
4271   3.6906050601389227`*^9},ExpressionUUID->"e6372325-7af6-4354-85d6-\
42720ee5614c78db"],
4273
4274Cell[CellGroupData[{
4275
4276Cell[BoxData["\<\" - - - FeynRules interface to WHIZARD/O'Mega - - -\"\>"], \
4277"Print",
4278 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4279  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4280  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4281  3.718407816539651*^9,
4282  3.71840968842726*^9},ExpressionUUID->"50569568-820e-4639-b17b-1451ca9f54f8"],
4283
4284Cell[BoxData["\<\" - - - Authors:  C. Speckner, N. Christensen - - -\"\>"], \
4285"Print",
4286 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4287  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4288  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4289  3.718407816539651*^9,
4290  3.718409688442569*^9},ExpressionUUID->"f4184a34-2f29-4360-ae4c-\
4291f338ad61f97a"],
4292
4293Cell[BoxData["\<\" - - -      Please cite arXiv:1010.3251      - - -\"\>"], \
4294"Print",
4295 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4296  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4297  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4298  3.718407816539651*^9,
4299  3.718409688457273*^9},ExpressionUUID->"20143ffe-268b-4746-bd6b-\
43009dd67464bd20"],
4301
4302Cell[BoxData["\<\"\"\>"], "Print",
4303 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4304  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4305  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4306  3.718407816539651*^9,
4307  3.718409688473627*^9},ExpressionUUID->"5126715f-8f43-4e5e-b132-\
4308c630a567bcd2"],
4309
4310Cell[BoxData["\<\"WOMathematicaInterface.m running, revision: $Id: \
4311WOMathematicaInterface.m 3666 2012-01-14 17:03:09Z cnspeckn $\"\>"], "Print",
4312 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4313  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4314  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4315  3.718407816539651*^9,
4316  3.7184096884934807`*^9},ExpressionUUID->"aa3d8bde-586f-43fa-9ad6-\
4317eb66a020cbb2"],
4318
4319Cell[BoxData["\<\"Short model name is \\\"fr_s2hdm\\\"\"\>"], "Print",
4320 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4321  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4322  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4323  3.718407816539651*^9,
4324  3.718409688511724*^9},ExpressionUUID->"9a799ce4-7a56-44d3-840f-\
4325d54467333c0d"],
4326
4327Cell[BoxData["\<\"Gauge: Unitarity\"\>"], "Print",
4328 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4329  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4330  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4331  3.718407816539651*^9,
4332  3.718409688530992*^9},ExpressionUUID->"83bdc4aa-d746-45b4-a5ea-\
433380cfa86d8257"],
4334
4335Cell[BoxData["\<\"Generating code for WHIZARD / O'Mega version 2.4.0\"\>"], \
4336"Print",
4337 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4338  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4339  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4340  3.718407816539651*^9,
4341  3.718409688550128*^9},ExpressionUUID->"25598a39-1168-4fa8-a294-\
43424a8b80eb73f8"],
4343
4344Cell[BoxData["\<\"Maximum number of couplings per FORTRAN module: 500\"\>"], \
4345"Print",
4346 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4347  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4348  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4349  3.718407816539651*^9,
4350  3.718409688567572*^9},ExpressionUUID->"3454b1ca-47c4-40b4-92b1-\
43518f879edf7b6f"],
4352
4353Cell[BoxData["\<\"Extensive lorentz structure checks disabled.\"\>"], "Print",
4354 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4355  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4356  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4357  3.718407816539651*^9,
4358  3.718409688585156*^9},ExpressionUUID->"805b75c8-d3a1-4f99-b954-\
435914c11305de90"],
4360
4361Cell[BoxData["\<\"---\"\>"], "Print",
4362 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4363  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4364  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4365  3.718407816539651*^9,
4366  3.718409688604382*^9},ExpressionUUID->"e54d4793-4647-4062-9cbc-\
4367635a98452270"],
4368
4369Cell[BoxData["\<\"Calculating feynman rules...\"\>"], "Print",
4370 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4371  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4372  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4373  3.718407816539651*^9,
4374  3.718409688623307*^9},ExpressionUUID->"00ddd808-e0c0-4428-8fd3-\
4375c821a2310aa3"],
4376
4377Cell[BoxData[
4378 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
4379  StripOnInput->False,
4380  LineColor->RGBColor[1, 0.5, 0],
4381  FrontFaceColor->RGBColor[1, 0.5, 0],
4382  BackFaceColor->RGBColor[1, 0.5, 0],
4383  GraphicsColor->RGBColor[1, 0.5, 0],
4384  FontWeight->Bold,
4385  FontColor->RGBColor[1, 0.5, 0]]], "Print",
4386 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4387  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4388  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4389  3.718407816539651*^9,
4390  3.718409688642992*^9},ExpressionUUID->"28ec5162-64e2-4790-a7c0-\
439144430a56a299"],
4392
4393Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
4394 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4395  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4396  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4397  3.718407816539651*^9,
4398  3.71840968866088*^9},ExpressionUUID->"51551001-5c26-41f1-a866-4d1e3a863917"],
4399
4400Cell[BoxData[
4401 InterpretationBox[
4402  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
4403   "\[InvisibleSpace]", "\<\" cores\"\>"}],
4404  SequenceForm["Expanding the indices over ", 4, " cores"],
4405  Editable->False]], "Print",
4406 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4407  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4408  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4409  3.718407816539651*^9,
4410  3.718409688679378*^9},ExpressionUUID->"8e20a31a-2ff7-4e7d-8da9-\
441127e19ba7c495"],
4412
4413Cell[BoxData["\<\"Collecting the different structures that enter the \
4414vertex.\"\>"], "Print",
4415 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4416  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4417  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4418  3.718407816539651*^9,
4419  3.718409696724609*^9},ExpressionUUID->"2acad034-0dfd-4ff5-9ea1-\
4420b4c0a7c8efde"],
4421
4422Cell[BoxData[
4423 InterpretationBox[
4424  RowBox[{
4425  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
4426found -> starting the computation: \"\>", "\[InvisibleSpace]",
4427   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
4428    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4429   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
4430  SequenceForm[
4431  232, " possible non-zero vertices have been found -> starting the \
4432computation: ",
4433   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
4434  Editable->False]], "Print",
4435 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4436  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4437  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4438  3.718407816539651*^9, 3.718409696937601*^9},
4439 ExpressionUUID -> "709ccab4-256c-4fa0-acba-9b97df5e8c3b"],
4440
4441Cell[BoxData[
4442 InterpretationBox[
4443  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
4444  SequenceForm[227, " vertices obtained."],
4445  Editable->False]], "Print",
4446 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4447  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4448  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4449  3.718407816539651*^9,
4450  3.718409703470784*^9},ExpressionUUID->"6adf1cde-344d-4ae7-ae57-\
445131c5843af20c"],
4452
4453Cell[BoxData["\<\"Expanding flavors...\"\>"], "Print",
4454 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4455  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4456  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4457  3.718407816539651*^9,
4458  3.718409703486499*^9},ExpressionUUID->"97e5d558-0fc5-4b3e-a606-\
4459bb416c41f561"],
4460
4461Cell[BoxData[
4462 InterpretationBox[
4463  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
4464   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
4465   "\[InvisibleSpace]",
4466   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
4467    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
4468   "\[InvisibleSpace]", "227"}],
4469  SequenceForm[
4470  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
4471   Dynamic[FeynRules`FR$Count1], " / ", 227],
4472  Editable->False]], "Print",
4473 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4474  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4475  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4476  3.718407816539651*^9, 3.718409708575286*^9},
4477 ExpressionUUID -> "8d30608d-0ec3-4983-a8e1-95d231a7351b"],
4478
4479Cell[BoxData["\<\"---\"\>"], "Print",
4480 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4481  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4482  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4483  3.718407816539651*^9,
4484  3.7184097176368093`*^9},ExpressionUUID->"022dcdef-bae8-438b-9fbd-\
448515fd69df3cde"],
4486
4487Cell[BoxData[
4488 InterpretationBox[
4489  RowBox[{"\<\"Writing files to \"\>",
4490   "\[InvisibleSpace]", \
4491"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
4492current/Models/S2HDM/fr_s2hdm-WO/\"\>", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
4493  SequenceForm[
4494  "Writing files to ",
4495   "/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
4496current/Models/S2HDM/fr_s2hdm-WO/", "\n"],
4497  Editable->False]], "Print",
4498 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4499  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4500  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4501  3.718407816539651*^9,
4502  3.718409717692234*^9},ExpressionUUID->"9b5684b3-cd62-4dd7-bb4d-\
4503f1540bcae5c5"],
4504
4505Cell[BoxData["\<\"Writing O'Mega module signature to \
4506/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
4507Models/S2HDM/fr_s2hdm-WO/omega/fr_s2hdm_mdl.mli ...\"\>"], "Print",
4508 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4509  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4510  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4511  3.718407816539651*^9,
4512  3.7184097177072563`*^9},ExpressionUUID->"2a430f75-b8ef-43e2-8fb0-\
45136c4aa26a739c"],
4514
4515Cell[BoxData["\<\"Writing O'Mega module to \
4516/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
4517Models/S2HDM/fr_s2hdm-WO/omega/fr_s2hdm_mdl.ml ...\"\>"], "Print",
4518 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4519  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4520  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4521  3.718407816539651*^9,
4522  3.7184097177220373`*^9},ExpressionUUID->"36851546-08d3-431d-95df-\
4523b25fff86c0b7"],
4524
4525Cell[BoxData["\<\"   10 of 281 vertices processed...\"\>"], "Print",
4526 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4527  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4528  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4529  3.718407816539651*^9,
4530  3.718409717736648*^9},ExpressionUUID->"b7465d46-475c-489a-8699-\
45315e293bae858e"],
4532
4533Cell[BoxData["\<\"   20 of 281 vertices processed...\"\>"], "Print",
4534 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4535  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4536  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4537  3.718407816539651*^9,
4538  3.718409717751762*^9},ExpressionUUID->"b7b9125b-6ce0-4c70-b074-\
4539570feedd8c2d"],
4540
4541Cell[BoxData["\<\"   30 of 281 vertices processed...\"\>"], "Print",
4542 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4543  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4544  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4545  3.718407816539651*^9,
4546  3.718409717765851*^9},ExpressionUUID->"693ddf2a-9cfa-4266-ab33-\
45475d41111f152e"],
4548
4549Cell[BoxData["\<\"   40 of 281 vertices processed...\"\>"], "Print",
4550 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4551  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4552  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4553  3.718407816539651*^9,
4554  3.718409717780711*^9},ExpressionUUID->"bb74e234-1548-497e-a637-\
4555d70c4001746e"],
4556
4557Cell[BoxData["\<\"   50 of 281 vertices processed...\"\>"], "Print",
4558 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4559  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4560  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4561  3.718407816539651*^9,
4562  3.718409717793481*^9},ExpressionUUID->"7181dd73-1899-49cc-9c1d-\
4563e27f5415bddf"],
4564
4565Cell[BoxData["\<\"   60 of 281 vertices processed...\"\>"], "Print",
4566 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4567  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4568  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4569  3.718407816539651*^9,
4570  3.7184097178591967`*^9},ExpressionUUID->"86cf7f00-1751-4899-be04-\
45710a036f174bd3"],
4572
4573Cell[BoxData["\<\"   70 of 281 vertices processed...\"\>"], "Print",
4574 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4575  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4576  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4577  3.718407816539651*^9,
4578  3.718409717874464*^9},ExpressionUUID->"8cb0cde8-095d-4c1d-92e6-\
45794f0c819f4d11"],
4580
4581Cell[BoxData["\<\"   80 of 281 vertices processed...\"\>"], "Print",
4582 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4583  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4584  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4585  3.718407816539651*^9,
4586  3.7184097178915253`*^9},ExpressionUUID->"39218593-068e-44d9-babd-\
45879ec9400ee9e5"],
4588
4589Cell[BoxData["\<\"   90 of 281 vertices processed...\"\>"], "Print",
4590 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4591  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4592  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4593  3.718407816539651*^9,
4594  3.718409717906234*^9},ExpressionUUID->"0fefca25-d264-44d8-bbf6-\
45950b8ecab33a9b"],
4596
4597Cell[BoxData["\<\"   100 of 281 vertices processed...\"\>"], "Print",
4598 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4599  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4600  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4601  3.718407816539651*^9,
4602  3.718409717921747*^9},ExpressionUUID->"597237e4-8f6a-436c-a8cc-\
460388ff76380f8f"],
4604
4605Cell[BoxData["\<\"   110 of 281 vertices processed...\"\>"], "Print",
4606 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4607  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4608  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4609  3.718407816539651*^9,
4610  3.718409717938212*^9},ExpressionUUID->"fd478afc-5d49-49d6-b600-\
4611bfdb6529cf55"],
4612
4613Cell[BoxData["\<\"   120 of 281 vertices processed...\"\>"], "Print",
4614 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4615  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4616  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4617  3.718407816539651*^9,
4618  3.718409717954316*^9},ExpressionUUID->"3b505cf1-d890-4766-b7f5-\
4619658d8f0d69f8"],
4620
4621Cell[BoxData["\<\"   130 of 281 vertices processed...\"\>"], "Print",
4622 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4623  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4624  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4625  3.718407816539651*^9,
4626  3.7184097181606913`*^9},ExpressionUUID->"bb2e766a-edfe-4207-803d-\
46279ca6f6094528"],
4628
4629Cell[BoxData["\<\"   140 of 281 vertices processed...\"\>"], "Print",
4630 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4631  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4632  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4633  3.718407816539651*^9,
4634  3.718409718251556*^9},ExpressionUUID->"f1cbe0b3-6083-41d2-aaef-\
46358a15c8a8dcd5"],
4636
4637Cell[BoxData["\<\"   150 of 281 vertices processed...\"\>"], "Print",
4638 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4639  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4640  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4641  3.718407816539651*^9,
4642  3.718409718352951*^9},ExpressionUUID->"d36d199c-bf13-46a3-a912-\
46432db265f61d76"],
4644
4645Cell[BoxData["\<\"   160 of 281 vertices processed...\"\>"], "Print",
4646 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4647  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4648  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4649  3.718407816539651*^9,
4650  3.718409718426333*^9},ExpressionUUID->"ff565033-d241-449c-bdac-\
46514f54d8a57ded"],
4652
4653Cell[BoxData["\<\"   170 of 281 vertices processed...\"\>"], "Print",
4654 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4655  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4656  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4657  3.718407816539651*^9,
4658  3.718409718491603*^9},ExpressionUUID->"8f4f1aae-daec-4f1b-a4b2-\
4659780528c795e5"],
4660
4661Cell[BoxData["\<\"   180 of 281 vertices processed...\"\>"], "Print",
4662 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4663  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4664  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4665  3.718407816539651*^9,
4666  3.71840971850598*^9},ExpressionUUID->"c09f525d-edcb-440e-92b1-cf53e9f103e3"],
4667
4668Cell[BoxData["\<\"   190 of 281 vertices processed...\"\>"], "Print",
4669 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4670  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4671  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4672  3.718407816539651*^9,
4673  3.7184097185218153`*^9},ExpressionUUID->"2f9b72aa-8135-4f65-8d0a-\
46741e04e07b2f67"],
4675
4676Cell[BoxData["\<\"   200 of 281 vertices processed...\"\>"], "Print",
4677 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4678  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4679  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4680  3.718407816539651*^9,
4681  3.7184097185754557`*^9},ExpressionUUID->"e9a89e9b-4c58-4483-9544-\
4682827231cee489"],
4683
4684Cell[BoxData["\<\"   210 of 281 vertices processed...\"\>"], "Print",
4685 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4686  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4687  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4688  3.718407816539651*^9,
4689  3.718409718591053*^9},ExpressionUUID->"9978baf9-5cb9-4c68-938d-\
469037720ad7e216"],
4691
4692Cell[BoxData["\<\"   220 of 281 vertices processed...\"\>"], "Print",
4693 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4694  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4695  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4696  3.718407816539651*^9,
4697  3.7184097186393547`*^9},ExpressionUUID->"4a339f73-3775-43ed-9e19-\
4698d110a8b90f4c"],
4699
4700Cell[BoxData["\<\"   230 of 281 vertices processed...\"\>"], "Print",
4701 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4702  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4703  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4704  3.718407816539651*^9,
4705  3.718409718690083*^9},ExpressionUUID->"8015bfc0-b801-46b1-bd15-\
470637a6923e57d5"],
4707
4708Cell[BoxData["\<\"   240 of 281 vertices processed...\"\>"], "Print",
4709 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4710  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4711  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4712  3.718407816539651*^9,
4713  3.71840971873962*^9},ExpressionUUID->"3683a3a8-1d4e-4f19-8825-6b2ba77f51aa"],
4714
4715Cell[BoxData["\<\"   250 of 281 vertices processed...\"\>"], "Print",
4716 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4717  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4718  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4719  3.718407816539651*^9,
4720  3.718409718754549*^9},ExpressionUUID->"3084c58b-ad1b-4c09-9fff-\
4721ed74a352ec83"],
4722
4723Cell[BoxData["\<\"   260 of 281 vertices processed...\"\>"], "Print",
4724 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4725  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4726  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4727  3.718407816539651*^9,
4728  3.718409718824905*^9},ExpressionUUID->"1f5e9d1a-fa44-4bd8-8a69-\
4729443ed279172f"],
4730
4731Cell[BoxData["\<\"   270 of 281 vertices processed...\"\>"], "Print",
4732 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4733  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4734  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4735  3.718407816539651*^9,
4736  3.718409718901619*^9},ExpressionUUID->"9d511250-3c21-4481-820a-\
4737a40b5bc86704"],
4738
4739Cell[BoxData["\<\"   280 of 281 vertices processed...\"\>"], "Print",
4740 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4741  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4742  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4743  3.718407816539651*^9,
4744  3.7184097190019207`*^9},ExpressionUUID->"8e7208d4-5047-46d0-96e5-\
474546da3b328d93"],
4746
4747Cell[BoxData["\<\"processed a total of 281 vertices, kept 163 of them and \
4748threw away 118, 118 of which contained ghosts or goldstone bosons.\"\>"], \
4749"Print",
4750 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4751  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4752  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4753  3.718407816539651*^9,
4754  3.718409719020996*^9},ExpressionUUID->"fe90aab6-3212-469b-b5f9-\
4755cd23243b4692"],
4756
4757Cell[BoxData["\<\"Writing O'Mega binary driver to \
4758/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
4759Models/S2HDM/fr_s2hdm-WO/omega/omega_fr_s2hdm.ml ...\"\>"], "Print",
4760 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4761  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4762  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4763  3.718407816539651*^9,
4764  3.71840971928651*^9},ExpressionUUID->"e81ccb4d-ba97-4f82-9e44-53646ea893dd"],
4765
4766Cell[BoxData["\<\"Writing WHIZARD model file to \
4767/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
4768Models/S2HDM/fr_s2hdm-WO/whizard/fr_s2hdm.mdl ...\"\>"], "Print",
4769 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4770  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4771  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4772  3.718407816539651*^9,
4773  3.7184097193003693`*^9},ExpressionUUID->"7063fee2-3d9c-418f-aa3b-\
4774e765fe2e0338"],
4775
4776Cell[BoxData["\<\"Writing WHIZARD FORTRAN glue...\"\>"], "Print",
4777 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4778  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4779  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4780  3.718407816539651*^9,
4781  3.718409719358177*^9},ExpressionUUID->"e29c6dc3-8172-4b1a-856c-\
4782d045ffb17416"],
4783
4784Cell[BoxData["\<\"Writing \
4785\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
4786current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.global.f90\\\"...\
4787\"\>"], "Print",
4788 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4789  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4790  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4791  3.718407816539651*^9,
4792  3.718409719408742*^9},ExpressionUUID->"14facc64-6827-4f1e-8d13-\
479302e7e4d5f534"],
4794
4795Cell[BoxData["\<\"Writing \
4796\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
4797current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.cpl1.f90\\\"...\"\
4798\>"], "Print",
4799 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4800  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4801  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4802  3.718407816539651*^9,
4803  3.718409719424124*^9},ExpressionUUID->"d9bbbd9a-87fb-4d00-a4d2-\
4804ddcca6a83b93"],
4805
4806Cell[BoxData["\<\"Writing \
4807\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
4808current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.local.f90\\\"...\
4809\"\>"], "Print",
4810 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4811  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4812  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4813  3.718407816539651*^9,
4814  3.718409719437399*^9},ExpressionUUID->"46983285-6d65-48fb-be7c-\
4815c175457fd0a9"],
4816
4817Cell[BoxData["\<\"Writing \
4818\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
4819current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.f90\\\"...\"\>"],\
4820 "Print",
4821 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4822  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4823  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4824  3.718407816539651*^9,
4825  3.718409719450596*^9},ExpressionUUID->"f385957d-920e-435b-88bb-\
4826a345337ecfc4"],
4827
4828Cell[BoxData["\<\"Copying configure.ac ...\"\>"], "Print",
4829 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4830  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4831  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4832  3.718407816539651*^9,
4833  3.718409719466298*^9},ExpressionUUID->"4ca0f05a-62e7-4071-8639-\
4834d56926f88ed5"],
4835
4836Cell[BoxData["\<\"Copying configure ...\"\>"], "Print",
4837 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4838  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4839  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4840  3.718407816539651*^9,
4841  3.718409719479354*^9},ExpressionUUID->"db981ba5-30bb-4f3d-9537-\
4842a3f4f68382eb"],
4843
4844Cell[BoxData["\<\"Copying install-sh ...\"\>"], "Print",
4845 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4846  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4847  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4848  3.718407816539651*^9,
4849  3.718409719493063*^9},ExpressionUUID->"f36856cf-89e1-46fe-a555-\
48507c3e3b63f471"],
4851
4852Cell[BoxData["\<\"Copying Makefile.in ...\"\>"], "Print",
4853 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4854  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4855  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4856  3.718407816539651*^9,
4857  3.718409719506092*^9},ExpressionUUID->"146a3098-d246-4629-8d75-\
4858fa3ebffedb91"],
4859
4860Cell[BoxData["\<\"Copying Makefile.omega.in ...\"\>"], "Print",
4861 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4862  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4863  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4864  3.718407816539651*^9,
4865  3.718409719519713*^9},ExpressionUUID->"509a5021-d623-4a7d-a75b-\
4866735c88cb9500"],
4867
4868Cell[BoxData["\<\"Copying Makefile.whizard.in ...\"\>"], "Print",
4869 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4870  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4871  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4872  3.718407816539651*^9,
4873  3.7184097195345993`*^9},ExpressionUUID->"d7462f4f-57f9-479c-9691-\
487471166c646226"],
4875
4876Cell[BoxData["\<\"Copying INSTALL ...\"\>"], "Print",
4877 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4878  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4879  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4880  3.718407816539651*^9,
4881  3.718409719549864*^9},ExpressionUUID->"c6454fa6-9189-442c-9a01-\
4882822c2cf67f44"],
4883
4884Cell[BoxData["\<\"Done!\"\>"], "Print",
4885 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4886  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4887  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4888  3.718407816539651*^9,
4889  3.718409719563402*^9},ExpressionUUID->"15e43f23-2db5-476c-a7b8-\
48906245e04638fa"],
4891
4892Cell[BoxData["\<\"You should now use the configure script which has been \
4893copied to the output directory to configure the build system (use the \
4894variable WO_CONFIG and consult \\\"configure --help\\\" if WHIZARD is not \
4895installed in the system search path). Afterwards, the model files can be \
4896compiled and installed via \\\"make install\\\".\"\>"], "Print",
4897 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9,
4898  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9,
4899  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9,
4900  3.718407816539651*^9,
4901  3.718409719586707*^9},ExpressionUUID->"b519c230-c45f-4cf0-98e9-\
49026c249419525b"]
4903}, Open  ]]
4904}, Open  ]]
4905}, Closed]],
4906
4907Cell[CellGroupData[{
4908
4909Cell["CALCHEP", "Chapter",
4910 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
4911  3.6761992676581917`*^9, 3.6761992682261844`*^9}, {3.676248741547494*^9,
4912  3.676248746625984*^9}, {3.6762568420291357`*^9,
4913  3.6762568435939007`*^9}},ExpressionUUID->"942e0370-e0ce-4acf-b8fe-\
4914285dbd8c747f"],
4915
4916Cell[CellGroupData[{
4917
4918Cell[BoxData[{
4919 RowBox[{
4920  RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]",
4921 RowBox[{
4922  RowBox[{"WriteCHOutput", "[", "LTypeI", "]"}], ";"}], "\[IndentingNewLine]",
4923 RowBox[{
4924  RowBox[{"RenameDirectory", "[",
4925   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TI_CH\>\""}], "]"}],
4926  ";"}], "\[IndentingNewLine]",
4927 RowBox[{
4928  RowBox[{"WriteCHOutput", "[", "LTypeII", "]"}],
4929  ";"}], "\[IndentingNewLine]",
4930 RowBox[{
4931  RowBox[{"RenameDirectory", "[",
4932   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TII_CH\>\""}], "]"}],
4933  ";"}], "\[IndentingNewLine]",
4934 RowBox[{
4935  RowBox[{"WriteCHOutput", "[", "LTypeX", "]"}], ";"}], "\[IndentingNewLine]",
4936 RowBox[{
4937  RowBox[{"RenameDirectory", "[",
4938   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TX_CH\>\""}], "]"}],
4939  ";"}], "\[IndentingNewLine]",
4940 RowBox[{
4941  RowBox[{"WriteCHOutput", "[", "LTypeY", "]"}], ";"}], "\[IndentingNewLine]",
4942 RowBox[{
4943  RowBox[{"RenameDirectory", "[",
4944   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TY_CH\>\""}], "]"}],
4945  ";"}], "\[IndentingNewLine]",
4946 RowBox[{
4947  RowBox[{"WriteCHOutput", "[", "LInert", "]"}], ";"}], "\[IndentingNewLine]",
4948 RowBox[{
4949  RowBox[{"RenameDirectory", "[",
4950   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_Inert_CH\>\""}], "]"}],
4951  ";"}], "\[IndentingNewLine]",
4952 RowBox[{
4953  RowBox[{"WriteCHOutput", "[", "LAlign", "]"}], ";"}], "\[IndentingNewLine]",
4954 RowBox[{
4955  RowBox[{"RenameDirectory", "[",
4956   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_Align_CH\>\""}], "]"}],
4957  ";"}], "\[IndentingNewLine]",
4958 RowBox[{
4959  RowBox[{"WriteCHOutput", "[", "L2gen", "]"}],
4960  ";"}], "\[IndentingNewLine]",
4961 RowBox[{
4962  RowBox[{"RenameDirectory", "[",
4963   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_2gen_CH\>\""}], "]"}],
4964  ";"}]}], "Input",
4965 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
4966   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9,
4967   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9,
4968   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
4969   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9,
4970   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9,
4971   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
4972   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9,
4973   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
4974   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9,
4975   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
4976   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9,
4977   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
4978   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
4979   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9,
4980   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
4981   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9,
4982   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9},
4983   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992838281183`*^9}, {
4984   3.676248756934494*^9, 3.67624877035222*^9}, {3.67625685627006*^9,
4985   3.6762568733446283`*^9}, {3.6763407086817102`*^9, 3.676340722489291*^9},
4986   3.690605070055344*^9, {3.690664052428544*^9, 3.6906640555965233`*^9}, {
4987   3.690764507969553*^9, 3.6907645532954884`*^9}, {3.690765103955852*^9,
4988   3.6907651844730988`*^9}},ExpressionUUID->"6cce5987-68f4-43d2-98da-\
49896bd9128aa49a"],
4990
4991Cell[CellGroupData[{
4992
4993Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
4994 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
4995  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
4996  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
4997  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
4998  3.718407866124856*^9,
4999  3.718409722400983*^9},ExpressionUUID->"4933ecfe-5b76-4c0c-ac41-\
500086f6e48f07e0"],
5001
5002Cell[BoxData[
5003 InterpretationBox[
5004  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
5005   StyleBox["\<\"Authors:\"\>",
5006    StripOnInput->False,
5007    LineColor->RGBColor[0, 0, 1],
5008    FrontFaceColor->RGBColor[0, 0, 1],
5009    BackFaceColor->RGBColor[0, 0, 1],
5010    GraphicsColor->RGBColor[0, 0, 1],
5011    FontColor->RGBColor[0, 0, 1]],
5012   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
5013  SequenceForm[" - - - ",
5014   Style["Authors:",
5015    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
5016  Editable->False]], "Print",
5017 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5018  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5019  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5020  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5021  3.718407866124856*^9,
5022  3.718409722416671*^9},ExpressionUUID->"958dc01d-4dd1-43c5-98d7-\
502393663a126ad8"],
5024
5025Cell[BoxData[
5026 InterpretationBox[
5027  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
5028   StyleBox["\<\"Please cite:\"\>",
5029    StripOnInput->False,
5030    LineColor->RGBColor[0, 0, 1],
5031    FrontFaceColor->RGBColor[0, 0, 1],
5032    BackFaceColor->RGBColor[0, 0, 1],
5033    GraphicsColor->RGBColor[0, 0, 1],
5034    FontColor->RGBColor[0, 0, 1]],
5035   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
5036  SequenceForm[" - - - ",
5037   Style["Please cite:",
5038    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
5039  Editable->False]], "Print",
5040 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5041  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5042  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5043  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5044  3.718407866124856*^9,
5045  3.718409722433988*^9},ExpressionUUID->"9fadc8c5-09bc-4045-80f8-\
50461e7876dca72a"],
5047
5048Cell[BoxData[
5049 InterpretationBox[
5050  RowBox[{
5051   StyleBox["\<\"\\nWriting\"\>",
5052    StripOnInput->False,
5053    LineColor->RGBColor[0, 0, 1],
5054    FrontFaceColor->RGBColor[0, 0, 1],
5055    BackFaceColor->RGBColor[0, 0, 1],
5056    GraphicsColor->RGBColor[0, 0, 1],
5057    FontColor->RGBColor[0, 0, 1]],
5058   "\[InvisibleSpace]", "\<\" files to \
5059/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
5060Models/S2HDM/S2HDM-CH.\"\>"}],
5061  SequenceForm[
5062   Style["\nWriting",
5063    RGBColor[0, 0, 1]],
5064   " files to \
5065/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
5066Models/S2HDM/S2HDM-CH."],
5067  Editable->False]], "Print",
5068 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5069  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5070  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5071  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5072  3.718407866124856*^9,
5073  3.718409722452758*^9},ExpressionUUID->"634c0ed1-e1dd-4324-9332-\
5074b9677296dccd"],
5075
5076Cell[BoxData[
5077 InterpretationBox[
5078  RowBox[{
5079   StyleBox["\<\"\\nWriting\"\>",
5080    StripOnInput->False,
5081    LineColor->RGBColor[0, 0, 1],
5082    FrontFaceColor->RGBColor[0, 0, 1],
5083    BackFaceColor->RGBColor[0, 0, 1],
5084    GraphicsColor->RGBColor[0, 0, 1],
5085    FontColor->RGBColor[0, 0, 1]],
5086   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
5087  SequenceForm[
5088   Style["\nWriting",
5089    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
5090  Editable->False]], "Print",
5091 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5092  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5093  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5094  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5095  3.718407866124856*^9,
5096  3.7184097224704733`*^9},ExpressionUUID->"dc036f8d-6fb8-4bf5-be5e-\
5097b13b581ebabf"],
5098
5099Cell[BoxData[
5100 InterpretationBox[
5101  RowBox[{
5102   StyleBox["\<\"\\nWriting\"\>",
5103    StripOnInput->False,
5104    LineColor->RGBColor[0, 0, 1],
5105    FrontFaceColor->RGBColor[0, 0, 1],
5106    BackFaceColor->RGBColor[0, 0, 1],
5107    GraphicsColor->RGBColor[0, 0, 1],
5108    FontColor->RGBColor[0, 0, 1]],
5109   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
5110  SequenceForm[
5111   Style["\nWriting",
5112    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
5113  Editable->False]], "Print",
5114 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5115  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5116  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5117  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5118  3.718407866124856*^9,
5119  3.718409722486498*^9},ExpressionUUID->"edb869ce-9ee0-45c3-bca7-\
5120f9d22110f8d4"],
5121
5122Cell[BoxData[
5123 InterpretationBox[
5124  RowBox[{
5125   StyleBox["\<\"\\nWriting\"\>",
5126    StripOnInput->False,
5127    LineColor->RGBColor[0, 0, 1],
5128    FrontFaceColor->RGBColor[0, 0, 1],
5129    BackFaceColor->RGBColor[0, 0, 1],
5130    GraphicsColor->RGBColor[0, 0, 1],
5131    FontColor->RGBColor[0, 0, 1]],
5132   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
5133  SequenceForm[
5134   Style["\nWriting",
5135    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
5136  Editable->False]], "Print",
5137 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5138  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5139  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5140  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5141  3.718407866124856*^9,
5142  3.718409722504664*^9},ExpressionUUID->"d3ad7921-fb91-4a87-b7d9-\
5143aa7739752ac6"],
5144
5145Cell[BoxData[
5146 InterpretationBox[
5147  RowBox[{
5148   StyleBox["\<\"\\nWriting\"\>",
5149    StripOnInput->False,
5150    LineColor->RGBColor[0, 0, 1],
5151    FrontFaceColor->RGBColor[0, 0, 1],
5152    BackFaceColor->RGBColor[0, 0, 1],
5153    GraphicsColor->RGBColor[0, 0, 1],
5154    FontColor->RGBColor[0, 0, 1]],
5155   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
5156  SequenceForm[
5157   Style["\nWriting",
5158    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
5159  Editable->False]], "Print",
5160 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5161  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5162  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5163  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5164  3.718407866124856*^9,
5165  3.71840972252127*^9},ExpressionUUID->"9d5bd0f4-3e1b-4241-b9c7-9c82ff39737f"],
5166
5167Cell[BoxData["\<\"\"\>"], "Print",
5168 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5169  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5170  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5171  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5172  3.718407866124856*^9,
5173  3.718409722536772*^9},ExpressionUUID->"5a509ea6-4644-42a6-9258-\
5174c85c81787608"],
5175
5176Cell[BoxData[
5177 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5178  StripOnInput->False,
5179  LineColor->RGBColor[1, 0.5, 0],
5180  FrontFaceColor->RGBColor[1, 0.5, 0],
5181  BackFaceColor->RGBColor[1, 0.5, 0],
5182  GraphicsColor->RGBColor[1, 0.5, 0],
5183  FontWeight->Bold,
5184  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5185 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5186  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5187  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5188  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5189  3.718407866124856*^9,
5190  3.718409722606736*^9},ExpressionUUID->"b647b0f8-bbcd-492e-ae63-\
51914e9b4bc75e91"],
5192
5193Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5194 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5195  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5196  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5197  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5198  3.718407866124856*^9,
5199  3.718409722623273*^9},ExpressionUUID->"956bc60d-9124-4f11-9b52-\
520048bdf8ad7076"],
5201
5202Cell[BoxData[
5203 InterpretationBox[
5204  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
5205   "\[InvisibleSpace]", "\<\" cores\"\>"}],
5206  SequenceForm["Expanding the indices over ", 4, " cores"],
5207  Editable->False]], "Print",
5208 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5209  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5210  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5211  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5212  3.718407866124856*^9,
5213  3.718409722639324*^9},ExpressionUUID->"730855b2-9b0b-4eea-9347-\
52144db124fecf48"],
5215
5216Cell[BoxData[
5217 InterpretationBox[
5218  RowBox[{"\<\"Neglecting all terms with more than \"\>",
5219   "\[InvisibleSpace]", "\<\"4\"\>",
5220   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
5221  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
5222  Editable->False]], "Print",
5223 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5224  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5225  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5226  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5227  3.718407866124856*^9,
5228  3.718409722693927*^9},ExpressionUUID->"cd67904c-3ea0-4493-ac7f-\
5229ab38931ce63a"],
5230
5231Cell[BoxData["\<\"Collecting the different structures that enter the \
5232vertex.\"\>"], "Print",
5233 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5234  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5235  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5236  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5237  3.718407866124856*^9,
5238  3.71840973131791*^9},ExpressionUUID->"3807f14f-70e3-47ce-a631-7bb4e34fb40d"],
5239
5240Cell[BoxData[
5241 InterpretationBox[
5242  RowBox[{
5243  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
5244found -> starting the computation: \"\>", "\[InvisibleSpace]",
5245   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5246    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5247   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
5248  SequenceForm[
5249  232, " possible non-zero vertices have been found -> starting the \
5250computation: ",
5251   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
5252  Editable->False]], "Print",
5253 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5254  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5255  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5256  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5257  3.718407866124856*^9, 3.7184097314581203`*^9},
5258 ExpressionUUID -> "79cc2d18-94be-4d00-943c-a1c902e22134"],
5259
5260Cell[BoxData[
5261 InterpretationBox[
5262  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5263  SequenceForm[227, " vertices obtained."],
5264  Editable->False]], "Print",
5265 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5266  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5267  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5268  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5269  3.718407866124856*^9,
5270  3.718409738629291*^9},ExpressionUUID->"71674511-810e-4272-92fe-\
5271707cf8e14575"],
5272
5273Cell[BoxData[
5274 InterpretationBox[
5275  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
5276   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
5277   "\[InvisibleSpace]",
5278   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5279    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5280   "\[InvisibleSpace]", "227"}],
5281  SequenceForm[
5282  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
5283   Dynamic[FeynRules`FR$Count1], " / ", 227],
5284  Editable->False]], "Print",
5285 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5286  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5287  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5288  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5289  3.718407866124856*^9, 3.7184097443921556`*^9},
5290 ExpressionUUID -> "e1424228-01c1-474a-81fe-7abaf6114364"],
5291
5292Cell[BoxData[
5293 InterpretationBox[
5294  RowBox[{
5295   StyleBox["\<\"\\nWriting\"\>",
5296    StripOnInput->False,
5297    LineColor->RGBColor[0, 0, 1],
5298    FrontFaceColor->RGBColor[0, 0, 1],
5299    BackFaceColor->RGBColor[0, 0, 1],
5300    GraphicsColor->RGBColor[0, 0, 1],
5301    FontColor->RGBColor[0, 0, 1]],
5302   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
5303variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
5304'vars1.mdl'.\"\>"}],
5305  SequenceForm[
5306   Style["\nWriting",
5307    RGBColor[0, 0, 1]],
5308   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
5309particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
5310  Editable->False]], "Print",
5311 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5312  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5313  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5314  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5315  3.718407866124856*^9,
5316  3.718409753752943*^9},ExpressionUUID->"601ffdc4-751d-4cf1-b179-\
53175cf5aa2b56ae"],
5318
5319Cell[BoxData[
5320 InterpretationBox[
5321  RowBox[{
5322   StyleBox["\<\"\\nFinishing\"\>",
5323    StripOnInput->False,
5324    LineColor->RGBColor[0, 0, 1],
5325    FrontFaceColor->RGBColor[0, 0, 1],
5326    BackFaceColor->RGBColor[0, 0, 1],
5327    GraphicsColor->RGBColor[0, 0, 1],
5328    FontColor->RGBColor[0, 0, 1]],
5329   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
5330  SequenceForm[
5331   Style["\nFinishing",
5332    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
5333  Editable->False]], "Print",
5334 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5335  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5336  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5337  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5338  3.718407866124856*^9,
5339  3.7184097572136793`*^9},ExpressionUUID->"86af10d7-e86c-4656-859c-\
534037a99bf33129"],
5341
5342Cell[BoxData[
5343 InterpretationBox[
5344  RowBox[{
5345   StyleBox["\<\"Finishing\"\>",
5346    StripOnInput->False,
5347    LineColor->RGBColor[0, 0, 1],
5348    FrontFaceColor->RGBColor[0, 0, 1],
5349    BackFaceColor->RGBColor[0, 0, 1],
5350    GraphicsColor->RGBColor[0, 0, 1],
5351    FontColor->RGBColor[0, 0, 1]],
5352   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
5353  SequenceForm[
5354   Style["Finishing",
5355    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
5356  Editable->False]], "Print",
5357 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5358  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5359  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5360  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5361  3.718407866124856*^9,
5362  3.718409757259059*^9},ExpressionUUID->"0996e03d-e437-43c4-83c0-\
5363ca1732a2e6c5"],
5364
5365Cell[BoxData[
5366 InterpretationBox[
5367  RowBox[{
5368   StyleBox["\<\"\\nDone\"\>",
5369    StripOnInput->False,
5370    LineColor->RGBColor[0, 0, 1],
5371    FrontFaceColor->RGBColor[0, 0, 1],
5372    BackFaceColor->RGBColor[0, 0, 1],
5373    GraphicsColor->RGBColor[0, 0, 1],
5374    FontColor->RGBColor[0, 0, 1]],
5375   "\[InvisibleSpace]", "\<\" in 0.58min!\"\>"}],
5376  SequenceForm[
5377   Style["\nDone",
5378    RGBColor[0, 0, 1]], " in 0.58min!"],
5379  Editable->False]], "Print",
5380 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5381  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5382  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5383  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5384  3.718407866124856*^9,
5385  3.718409757272201*^9},ExpressionUUID->"9a00249c-20a3-4874-b623-\
53868ae4e09a36de"],
5387
5388Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
5389 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5390  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5391  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5392  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5393  3.718407866124856*^9,
5394  3.718409760265368*^9},ExpressionUUID->"db4fd5d5-9bf9-4f99-9575-\
539540971655c8e8"],
5396
5397Cell[BoxData[
5398 InterpretationBox[
5399  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
5400   StyleBox["\<\"Authors:\"\>",
5401    StripOnInput->False,
5402    LineColor->RGBColor[0, 0, 1],
5403    FrontFaceColor->RGBColor[0, 0, 1],
5404    BackFaceColor->RGBColor[0, 0, 1],
5405    GraphicsColor->RGBColor[0, 0, 1],
5406    FontColor->RGBColor[0, 0, 1]],
5407   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
5408  SequenceForm[" - - - ",
5409   Style["Authors:",
5410    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
5411  Editable->False]], "Print",
5412 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5413  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5414  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5415  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5416  3.718407866124856*^9,
5417  3.7184097602810507`*^9},ExpressionUUID->"fbfbc6e4-5dd4-4425-8158-\
5418b0ab2d0c2cf2"],
5419
5420Cell[BoxData[
5421 InterpretationBox[
5422  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
5423   StyleBox["\<\"Please cite:\"\>",
5424    StripOnInput->False,
5425    LineColor->RGBColor[0, 0, 1],
5426    FrontFaceColor->RGBColor[0, 0, 1],
5427    BackFaceColor->RGBColor[0, 0, 1],
5428    GraphicsColor->RGBColor[0, 0, 1],
5429    FontColor->RGBColor[0, 0, 1]],
5430   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
5431  SequenceForm[" - - - ",
5432   Style["Please cite:",
5433    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
5434  Editable->False]], "Print",
5435 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5436  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5437  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5438  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5439  3.718407866124856*^9,
5440  3.7184097602956533`*^9},ExpressionUUID->"8aad3146-6142-453c-bd79-\
5441976f5fa3292e"],
5442
5443Cell[BoxData[
5444 InterpretationBox[
5445  RowBox[{
5446   StyleBox["\<\"\\nWriting\"\>",
5447    StripOnInput->False,
5448    LineColor->RGBColor[0, 0, 1],
5449    FrontFaceColor->RGBColor[0, 0, 1],
5450    BackFaceColor->RGBColor[0, 0, 1],
5451    GraphicsColor->RGBColor[0, 0, 1],
5452    FontColor->RGBColor[0, 0, 1]],
5453   "\[InvisibleSpace]", "\<\" files to \
5454/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
5455Models/S2HDM/S2HDM-CH.\"\>"}],
5456  SequenceForm[
5457   Style["\nWriting",
5458    RGBColor[0, 0, 1]],
5459   " files to \
5460/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
5461Models/S2HDM/S2HDM-CH."],
5462  Editable->False]], "Print",
5463 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5464  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5465  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5466  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5467  3.718407866124856*^9,
5468  3.718409760310594*^9},ExpressionUUID->"a36a84e1-dbdc-4f9b-a99d-\
5469a13c41945f0a"],
5470
5471Cell[BoxData[
5472 InterpretationBox[
5473  RowBox[{
5474   StyleBox["\<\"\\nWriting\"\>",
5475    StripOnInput->False,
5476    LineColor->RGBColor[0, 0, 1],
5477    FrontFaceColor->RGBColor[0, 0, 1],
5478    BackFaceColor->RGBColor[0, 0, 1],
5479    GraphicsColor->RGBColor[0, 0, 1],
5480    FontColor->RGBColor[0, 0, 1]],
5481   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
5482  SequenceForm[
5483   Style["\nWriting",
5484    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
5485  Editable->False]], "Print",
5486 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5487  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5488  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5489  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5490  3.718407866124856*^9,
5491  3.7184097603261147`*^9},ExpressionUUID->"64d457ba-619e-4a3c-a4f9-\
54920e67c3df316a"],
5493
5494Cell[BoxData[
5495 InterpretationBox[
5496  RowBox[{
5497   StyleBox["\<\"\\nWriting\"\>",
5498    StripOnInput->False,
5499    LineColor->RGBColor[0, 0, 1],
5500    FrontFaceColor->RGBColor[0, 0, 1],
5501    BackFaceColor->RGBColor[0, 0, 1],
5502    GraphicsColor->RGBColor[0, 0, 1],
5503    FontColor->RGBColor[0, 0, 1]],
5504   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
5505  SequenceForm[
5506   Style["\nWriting",
5507    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
5508  Editable->False]], "Print",
5509 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5510  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5511  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5512  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5513  3.718407866124856*^9,
5514  3.718409760342391*^9},ExpressionUUID->"cf78fa6c-fa99-45c5-be42-\
55154d385760ed6c"],
5516
5517Cell[BoxData[
5518 InterpretationBox[
5519  RowBox[{
5520   StyleBox["\<\"\\nWriting\"\>",
5521    StripOnInput->False,
5522    LineColor->RGBColor[0, 0, 1],
5523    FrontFaceColor->RGBColor[0, 0, 1],
5524    BackFaceColor->RGBColor[0, 0, 1],
5525    GraphicsColor->RGBColor[0, 0, 1],
5526    FontColor->RGBColor[0, 0, 1]],
5527   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
5528  SequenceForm[
5529   Style["\nWriting",
5530    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
5531  Editable->False]], "Print",
5532 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5533  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5534  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5535  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5536  3.718407866124856*^9,
5537  3.718409760355906*^9},ExpressionUUID->"4f020323-24ec-4878-af1a-\
5538d36b9b21f4e6"],
5539
5540Cell[BoxData[
5541 InterpretationBox[
5542  RowBox[{
5543   StyleBox["\<\"\\nWriting\"\>",
5544    StripOnInput->False,
5545    LineColor->RGBColor[0, 0, 1],
5546    FrontFaceColor->RGBColor[0, 0, 1],
5547    BackFaceColor->RGBColor[0, 0, 1],
5548    GraphicsColor->RGBColor[0, 0, 1],
5549    FontColor->RGBColor[0, 0, 1]],
5550   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
5551  SequenceForm[
5552   Style["\nWriting",
5553    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
5554  Editable->False]], "Print",
5555 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5556  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5557  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5558  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5559  3.718407866124856*^9,
5560  3.718409760369295*^9},ExpressionUUID->"29d02cd0-496a-40c6-9a43-\
556116fd24bd1048"],
5562
5563Cell[BoxData["\<\"\"\>"], "Print",
5564 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5565  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5566  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5567  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5568  3.718407866124856*^9,
5569  3.718409760382874*^9},ExpressionUUID->"16d3ba3a-d88f-4dc8-b08a-\
5570bbb9e9988339"],
5571
5572Cell[BoxData[
5573 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5574  StripOnInput->False,
5575  LineColor->RGBColor[1, 0.5, 0],
5576  FrontFaceColor->RGBColor[1, 0.5, 0],
5577  BackFaceColor->RGBColor[1, 0.5, 0],
5578  GraphicsColor->RGBColor[1, 0.5, 0],
5579  FontWeight->Bold,
5580  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5581 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5582  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5583  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5584  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5585  3.718407866124856*^9,
5586  3.7184097604888268`*^9},ExpressionUUID->"7f3dbebc-a5b1-4871-a3c1-\
558775eaa538c9ed"],
5588
5589Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5590 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5591  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5592  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5593  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5594  3.718407866124856*^9,
5595  3.718409760504218*^9},ExpressionUUID->"b77f6d81-a59d-48e8-9674-\
5596e953cf720942"],
5597
5598Cell[BoxData[
5599 InterpretationBox[
5600  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
5601   "\[InvisibleSpace]", "\<\" cores\"\>"}],
5602  SequenceForm["Expanding the indices over ", 4, " cores"],
5603  Editable->False]], "Print",
5604 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5605  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5606  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5607  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5608  3.718407866124856*^9,
5609  3.71840976051906*^9},ExpressionUUID->"df275a32-b8d8-4d57-a624-c84781bc7e64"],
5610
5611Cell[BoxData["\<\"Collecting the different structures that enter the \
5612vertex.\"\>"], "Print",
5613 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5614  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5615  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5616  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5617  3.718407866124856*^9,
5618  3.718409768777356*^9},ExpressionUUID->"ce57e47a-44c1-4914-93be-\
5619be5915c7079c"],
5620
5621Cell[BoxData[
5622 InterpretationBox[
5623  RowBox[{
5624  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
5625found -> starting the computation: \"\>", "\[InvisibleSpace]",
5626   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5627    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5628   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
5629  SequenceForm[
5630  232, " possible non-zero vertices have been found -> starting the \
5631computation: ",
5632   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
5633  Editable->False]], "Print",
5634 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5635  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5636  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5637  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5638  3.718407866124856*^9,
5639  3.718409768868596*^9},ExpressionUUID->"a23d093e-7ebd-4538-8b8c-\
5640949a751aacb8"],
5641
5642Cell[BoxData[
5643 InterpretationBox[
5644  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5645  SequenceForm[227, " vertices obtained."],
5646  Editable->False]], "Print",
5647 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5648  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5649  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5650  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5651  3.718407866124856*^9,
5652  3.718409775257752*^9},ExpressionUUID->"f91cc33d-f6ff-4c6b-a4fa-\
565363f78b54f973"],
5654
5655Cell[BoxData[
5656 InterpretationBox[
5657  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
5658   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
5659   "\[InvisibleSpace]",
5660   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5661    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5662   "\[InvisibleSpace]", "227"}],
5663  SequenceForm[
5664  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
5665   Dynamic[FeynRules`FR$Count1], " / ", 227],
5666  Editable->False]], "Print",
5667 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5668  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5669  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5670  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5671  3.718407866124856*^9,
5672  3.7184097804539337`*^9},ExpressionUUID->"b0623840-0b65-4151-9062-\
5673caee821e4183"],
5674
5675Cell[BoxData[
5676 InterpretationBox[
5677  RowBox[{
5678   StyleBox["\<\"\\nWriting\"\>",
5679    StripOnInput->False,
5680    LineColor->RGBColor[0, 0, 1],
5681    FrontFaceColor->RGBColor[0, 0, 1],
5682    BackFaceColor->RGBColor[0, 0, 1],
5683    GraphicsColor->RGBColor[0, 0, 1],
5684    FontColor->RGBColor[0, 0, 1]],
5685   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
5686variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
5687'vars1.mdl'.\"\>"}],
5688  SequenceForm[
5689   Style["\nWriting",
5690    RGBColor[0, 0, 1]],
5691   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
5692particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
5693  Editable->False]], "Print",
5694 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5695  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5696  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5697  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5698  3.718407866124856*^9,
5699  3.71840978954113*^9},ExpressionUUID->"84277193-1f5d-42dc-b977-78ac1691e18c"],
5700
5701Cell[BoxData[
5702 InterpretationBox[
5703  RowBox[{
5704   StyleBox["\<\"\\nFinishing\"\>",
5705    StripOnInput->False,
5706    LineColor->RGBColor[0, 0, 1],
5707    FrontFaceColor->RGBColor[0, 0, 1],
5708    BackFaceColor->RGBColor[0, 0, 1],
5709    GraphicsColor->RGBColor[0, 0, 1],
5710    FontColor->RGBColor[0, 0, 1]],
5711   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
5712  SequenceForm[
5713   Style["\nFinishing",
5714    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
5715  Editable->False]], "Print",
5716 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5717  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5718  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5719  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5720  3.718407866124856*^9,
5721  3.718409792136364*^9},ExpressionUUID->"4079075a-4c17-405f-b82d-\
5722e18a18efce90"],
5723
5724Cell[BoxData[
5725 InterpretationBox[
5726  RowBox[{
5727   StyleBox["\<\"Finishing\"\>",
5728    StripOnInput->False,
5729    LineColor->RGBColor[0, 0, 1],
5730    FrontFaceColor->RGBColor[0, 0, 1],
5731    BackFaceColor->RGBColor[0, 0, 1],
5732    GraphicsColor->RGBColor[0, 0, 1],
5733    FontColor->RGBColor[0, 0, 1]],
5734   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
5735  SequenceForm[
5736   Style["Finishing",
5737    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
5738  Editable->False]], "Print",
5739 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5740  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5741  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5742  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5743  3.718407866124856*^9,
5744  3.718409792153973*^9},ExpressionUUID->"eae1316f-3b2d-48fd-959f-\
5745dddfbaac38d9"],
5746
5747Cell[BoxData[
5748 InterpretationBox[
5749  RowBox[{
5750   StyleBox["\<\"\\nDone\"\>",
5751    StripOnInput->False,
5752    LineColor->RGBColor[0, 0, 1],
5753    FrontFaceColor->RGBColor[0, 0, 1],
5754    BackFaceColor->RGBColor[0, 0, 1],
5755    GraphicsColor->RGBColor[0, 0, 1],
5756    FontColor->RGBColor[0, 0, 1]],
5757   "\[InvisibleSpace]", "\<\" in 0.53min!\"\>"}],
5758  SequenceForm[
5759   Style["\nDone",
5760    RGBColor[0, 0, 1]], " in 0.53min!"],
5761  Editable->False]], "Print",
5762 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5763  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5764  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5765  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5766  3.718407866124856*^9,
5767  3.718409792169615*^9},ExpressionUUID->"b6de294d-5146-4eea-ac34-\
57680e0d3fea7c9c"],
5769
5770Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
5771 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5772  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5773  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5774  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5775  3.718407866124856*^9,
5776  3.7184097947981567`*^9},ExpressionUUID->"82c98bfc-7aa1-4382-8c5c-\
57777215e5d0d2d9"],
5778
5779Cell[BoxData[
5780 InterpretationBox[
5781  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
5782   StyleBox["\<\"Authors:\"\>",
5783    StripOnInput->False,
5784    LineColor->RGBColor[0, 0, 1],
5785    FrontFaceColor->RGBColor[0, 0, 1],
5786    BackFaceColor->RGBColor[0, 0, 1],
5787    GraphicsColor->RGBColor[0, 0, 1],
5788    FontColor->RGBColor[0, 0, 1]],
5789   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
5790  SequenceForm[" - - - ",
5791   Style["Authors:",
5792    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
5793  Editable->False]], "Print",
5794 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5795  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5796  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5797  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5798  3.718407866124856*^9,
5799  3.718409794814679*^9},ExpressionUUID->"73290809-21d8-4b5e-b6df-\
5800a83f768daadc"],
5801
5802Cell[BoxData[
5803 InterpretationBox[
5804  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
5805   StyleBox["\<\"Please cite:\"\>",
5806    StripOnInput->False,
5807    LineColor->RGBColor[0, 0, 1],
5808    FrontFaceColor->RGBColor[0, 0, 1],
5809    BackFaceColor->RGBColor[0, 0, 1],
5810    GraphicsColor->RGBColor[0, 0, 1],
5811    FontColor->RGBColor[0, 0, 1]],
5812   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
5813  SequenceForm[" - - - ",
5814   Style["Please cite:",
5815    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
5816  Editable->False]], "Print",
5817 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5818  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5819  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5820  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5821  3.718407866124856*^9,
5822  3.718409794833219*^9},ExpressionUUID->"7dc40228-9aa1-42e2-8202-\
582375149e82450a"],
5824
5825Cell[BoxData[
5826 InterpretationBox[
5827  RowBox[{
5828   StyleBox["\<\"\\nWriting\"\>",
5829    StripOnInput->False,
5830    LineColor->RGBColor[0, 0, 1],
5831    FrontFaceColor->RGBColor[0, 0, 1],
5832    BackFaceColor->RGBColor[0, 0, 1],
5833    GraphicsColor->RGBColor[0, 0, 1],
5834    FontColor->RGBColor[0, 0, 1]],
5835   "\[InvisibleSpace]", "\<\" files to \
5836/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
5837Models/S2HDM/S2HDM-CH.\"\>"}],
5838  SequenceForm[
5839   Style["\nWriting",
5840    RGBColor[0, 0, 1]],
5841   " files to \
5842/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
5843Models/S2HDM/S2HDM-CH."],
5844  Editable->False]], "Print",
5845 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5846  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5847  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5848  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5849  3.718407866124856*^9,
5850  3.7184097948500147`*^9},ExpressionUUID->"db47c118-0d12-44bc-bb99-\
58511972d2adccf0"],
5852
5853Cell[BoxData[
5854 InterpretationBox[
5855  RowBox[{
5856   StyleBox["\<\"\\nWriting\"\>",
5857    StripOnInput->False,
5858    LineColor->RGBColor[0, 0, 1],
5859    FrontFaceColor->RGBColor[0, 0, 1],
5860    BackFaceColor->RGBColor[0, 0, 1],
5861    GraphicsColor->RGBColor[0, 0, 1],
5862    FontColor->RGBColor[0, 0, 1]],
5863   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
5864  SequenceForm[
5865   Style["\nWriting",
5866    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
5867  Editable->False]], "Print",
5868 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5869  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5870  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5871  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5872  3.718407866124856*^9,
5873  3.718409794866158*^9},ExpressionUUID->"58f30ba7-673d-476c-8265-\
587487592618cc8e"],
5875
5876Cell[BoxData[
5877 InterpretationBox[
5878  RowBox[{
5879   StyleBox["\<\"\\nWriting\"\>",
5880    StripOnInput->False,
5881    LineColor->RGBColor[0, 0, 1],
5882    FrontFaceColor->RGBColor[0, 0, 1],
5883    BackFaceColor->RGBColor[0, 0, 1],
5884    GraphicsColor->RGBColor[0, 0, 1],
5885    FontColor->RGBColor[0, 0, 1]],
5886   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
5887  SequenceForm[
5888   Style["\nWriting",
5889    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
5890  Editable->False]], "Print",
5891 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5892  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5893  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5894  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5895  3.718407866124856*^9,
5896  3.7184097948838797`*^9},ExpressionUUID->"4440ae0b-b478-494a-98f9-\
589795ae4e5cc83e"],
5898
5899Cell[BoxData[
5900 InterpretationBox[
5901  RowBox[{
5902   StyleBox["\<\"\\nWriting\"\>",
5903    StripOnInput->False,
5904    LineColor->RGBColor[0, 0, 1],
5905    FrontFaceColor->RGBColor[0, 0, 1],
5906    BackFaceColor->RGBColor[0, 0, 1],
5907    GraphicsColor->RGBColor[0, 0, 1],
5908    FontColor->RGBColor[0, 0, 1]],
5909   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
5910  SequenceForm[
5911   Style["\nWriting",
5912    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
5913  Editable->False]], "Print",
5914 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5915  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5916  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5917  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5918  3.718407866124856*^9,
5919  3.7184097949004087`*^9},ExpressionUUID->"f9e28586-2677-4a37-ac9d-\
59208df69046259f"],
5921
5922Cell[BoxData[
5923 InterpretationBox[
5924  RowBox[{
5925   StyleBox["\<\"\\nWriting\"\>",
5926    StripOnInput->False,
5927    LineColor->RGBColor[0, 0, 1],
5928    FrontFaceColor->RGBColor[0, 0, 1],
5929    BackFaceColor->RGBColor[0, 0, 1],
5930    GraphicsColor->RGBColor[0, 0, 1],
5931    FontColor->RGBColor[0, 0, 1]],
5932   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
5933  SequenceForm[
5934   Style["\nWriting",
5935    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
5936  Editable->False]], "Print",
5937 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5938  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5939  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5940  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5941  3.718407866124856*^9,
5942  3.718409794916329*^9},ExpressionUUID->"c2cb23aa-9b4a-4d11-9ed6-\
5943a8ea60a01855"],
5944
5945Cell[BoxData["\<\"\"\>"], "Print",
5946 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5947  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5948  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5949  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5950  3.718407866124856*^9,
5951  3.718409794933391*^9},ExpressionUUID->"75a4fe17-ea2b-41d2-b33c-\
59522df1ad6603c9"],
5953
5954Cell[BoxData[
5955 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5956  StripOnInput->False,
5957  LineColor->RGBColor[1, 0.5, 0],
5958  FrontFaceColor->RGBColor[1, 0.5, 0],
5959  BackFaceColor->RGBColor[1, 0.5, 0],
5960  GraphicsColor->RGBColor[1, 0.5, 0],
5961  FontWeight->Bold,
5962  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5963 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5964  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5965  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5966  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5967  3.718407866124856*^9,
5968  3.718409795023983*^9},ExpressionUUID->"7384e4e5-bc3f-4c65-a862-\
59690e0d8ddcff6d"],
5970
5971Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5972 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5973  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5974  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5975  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5976  3.718407866124856*^9,
5977  3.718409795040719*^9},ExpressionUUID->"33c3e08c-a771-4ac2-b714-\
59785bc4e3affdd6"],
5979
5980Cell[BoxData[
5981 InterpretationBox[
5982  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
5983   "\[InvisibleSpace]", "\<\" cores\"\>"}],
5984  SequenceForm["Expanding the indices over ", 4, " cores"],
5985  Editable->False]], "Print",
5986 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5987  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5988  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5989  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
5990  3.718407866124856*^9,
5991  3.718409795058655*^9},ExpressionUUID->"daacc91b-44ff-4f09-9106-\
59920220721c6c19"],
5993
5994Cell[BoxData["\<\"Collecting the different structures that enter the \
5995vertex.\"\>"], "Print",
5996 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
5997  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
5998  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
5999  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6000  3.718407866124856*^9,
6001  3.718409803199465*^9},ExpressionUUID->"6d88452b-d362-4478-b701-\
60026b508d12aa23"],
6003
6004Cell[BoxData[
6005 InterpretationBox[
6006  RowBox[{
6007  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6008found -> starting the computation: \"\>", "\[InvisibleSpace]",
6009   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6010    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6011   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
6012  SequenceForm[
6013  232, " possible non-zero vertices have been found -> starting the \
6014computation: ",
6015   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
6016  Editable->False]], "Print",
6017 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6018  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6019  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6020  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6021  3.718407866124856*^9,
6022  3.718409803291922*^9},ExpressionUUID->"6128fca6-5c15-4ddc-804a-\
6023006fdef90d66"],
6024
6025Cell[BoxData[
6026 InterpretationBox[
6027  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6028  SequenceForm[227, " vertices obtained."],
6029  Editable->False]], "Print",
6030 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6031  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6032  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6033  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6034  3.718407866124856*^9,
6035  3.71840980977781*^9},ExpressionUUID->"f0e6ab0f-7726-44d1-bfa8-797bedfe3d8b"],
6036
6037Cell[BoxData[
6038 InterpretationBox[
6039  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
6040   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
6041   "\[InvisibleSpace]",
6042   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6043    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6044   "\[InvisibleSpace]", "227"}],
6045  SequenceForm[
6046  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
6047   Dynamic[FeynRules`FR$Count1], " / ", 227],
6048  Editable->False]], "Print",
6049 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6050  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6051  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6052  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6053  3.718407866124856*^9,
6054  3.7184098148802977`*^9},ExpressionUUID->"866bcd62-6f2a-4664-93c3-\
6055944047da67b8"],
6056
6057Cell[BoxData[
6058 InterpretationBox[
6059  RowBox[{
6060   StyleBox["\<\"\\nWriting\"\>",
6061    StripOnInput->False,
6062    LineColor->RGBColor[0, 0, 1],
6063    FrontFaceColor->RGBColor[0, 0, 1],
6064    BackFaceColor->RGBColor[0, 0, 1],
6065    GraphicsColor->RGBColor[0, 0, 1],
6066    FontColor->RGBColor[0, 0, 1]],
6067   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
6068variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
6069'vars1.mdl'.\"\>"}],
6070  SequenceForm[
6071   Style["\nWriting",
6072    RGBColor[0, 0, 1]],
6073   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
6074particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
6075  Editable->False]], "Print",
6076 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6077  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6078  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6079  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6080  3.718407866124856*^9,
6081  3.718409824143405*^9},ExpressionUUID->"7ed06b02-cb6e-41ab-a247-\
60827ac3f3e7f034"],
6083
6084Cell[BoxData[
6085 InterpretationBox[
6086  RowBox[{
6087   StyleBox["\<\"\\nFinishing\"\>",
6088    StripOnInput->False,
6089    LineColor->RGBColor[0, 0, 1],
6090    FrontFaceColor->RGBColor[0, 0, 1],
6091    BackFaceColor->RGBColor[0, 0, 1],
6092    GraphicsColor->RGBColor[0, 0, 1],
6093    FontColor->RGBColor[0, 0, 1]],
6094   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
6095  SequenceForm[
6096   Style["\nFinishing",
6097    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
6098  Editable->False]], "Print",
6099 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6100  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6101  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6102  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6103  3.718407866124856*^9,
6104  3.71840982635454*^9},ExpressionUUID->"17ad5010-6eaa-4d85-8832-ae70d26f6db6"],
6105
6106Cell[BoxData[
6107 InterpretationBox[
6108  RowBox[{
6109   StyleBox["\<\"Finishing\"\>",
6110    StripOnInput->False,
6111    LineColor->RGBColor[0, 0, 1],
6112    FrontFaceColor->RGBColor[0, 0, 1],
6113    BackFaceColor->RGBColor[0, 0, 1],
6114    GraphicsColor->RGBColor[0, 0, 1],
6115    FontColor->RGBColor[0, 0, 1]],
6116   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6117  SequenceForm[
6118   Style["Finishing",
6119    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6120  Editable->False]], "Print",
6121 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6122  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6123  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6124  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6125  3.718407866124856*^9,
6126  3.7184098263698883`*^9},ExpressionUUID->"b8f66f07-d554-4ab9-8cfa-\
6127f250fe218bb8"],
6128
6129Cell[BoxData[
6130 InterpretationBox[
6131  RowBox[{
6132   StyleBox["\<\"\\nDone\"\>",
6133    StripOnInput->False,
6134    LineColor->RGBColor[0, 0, 1],
6135    FrontFaceColor->RGBColor[0, 0, 1],
6136    BackFaceColor->RGBColor[0, 0, 1],
6137    GraphicsColor->RGBColor[0, 0, 1],
6138    FontColor->RGBColor[0, 0, 1]],
6139   "\[InvisibleSpace]", "\<\" in 0.53min!\"\>"}],
6140  SequenceForm[
6141   Style["\nDone",
6142    RGBColor[0, 0, 1]], " in 0.53min!"],
6143  Editable->False]], "Print",
6144 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6145  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6146  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6147  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6148  3.718407866124856*^9,
6149  3.718409826385187*^9},ExpressionUUID->"8ad7fb33-7d1f-4cdb-a0ce-\
6150f675a36703a4"],
6151
6152Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
6153 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6154  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6155  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6156  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6157  3.718407866124856*^9,
6158  3.718409829088272*^9},ExpressionUUID->"ad3efbb9-f5b9-4896-85a8-\
6159596f91da6755"],
6160
6161Cell[BoxData[
6162 InterpretationBox[
6163  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6164   StyleBox["\<\"Authors:\"\>",
6165    StripOnInput->False,
6166    LineColor->RGBColor[0, 0, 1],
6167    FrontFaceColor->RGBColor[0, 0, 1],
6168    BackFaceColor->RGBColor[0, 0, 1],
6169    GraphicsColor->RGBColor[0, 0, 1],
6170    FontColor->RGBColor[0, 0, 1]],
6171   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
6172  SequenceForm[" - - - ",
6173   Style["Authors:",
6174    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
6175  Editable->False]], "Print",
6176 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6177  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6178  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6179  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6180  3.718407866124856*^9,
6181  3.7184098291082773`*^9},ExpressionUUID->"68ba87c3-4372-4664-a44a-\
618213c307d76f5f"],
6183
6184Cell[BoxData[
6185 InterpretationBox[
6186  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6187   StyleBox["\<\"Please cite:\"\>",
6188    StripOnInput->False,
6189    LineColor->RGBColor[0, 0, 1],
6190    FrontFaceColor->RGBColor[0, 0, 1],
6191    BackFaceColor->RGBColor[0, 0, 1],
6192    GraphicsColor->RGBColor[0, 0, 1],
6193    FontColor->RGBColor[0, 0, 1]],
6194   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
6195  SequenceForm[" - - - ",
6196   Style["Please cite:",
6197    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
6198  Editable->False]], "Print",
6199 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6200  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6201  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6202  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6203  3.718407866124856*^9,
6204  3.718409829127982*^9},ExpressionUUID->"fc3bc01b-6917-48fa-83a4-\
620588906fac7801"],
6206
6207Cell[BoxData[
6208 InterpretationBox[
6209  RowBox[{
6210   StyleBox["\<\"\\nWriting\"\>",
6211    StripOnInput->False,
6212    LineColor->RGBColor[0, 0, 1],
6213    FrontFaceColor->RGBColor[0, 0, 1],
6214    BackFaceColor->RGBColor[0, 0, 1],
6215    GraphicsColor->RGBColor[0, 0, 1],
6216    FontColor->RGBColor[0, 0, 1]],
6217   "\[InvisibleSpace]", "\<\" files to \
6218/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
6219Models/S2HDM/S2HDM-CH.\"\>"}],
6220  SequenceForm[
6221   Style["\nWriting",
6222    RGBColor[0, 0, 1]],
6223   " files to \
6224/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
6225Models/S2HDM/S2HDM-CH."],
6226  Editable->False]], "Print",
6227 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6228  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6229  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6230  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6231  3.718407866124856*^9,
6232  3.718409829145462*^9},ExpressionUUID->"827ca6e8-ce6d-4a9f-9195-\
623336759a6479eb"],
6234
6235Cell[BoxData[
6236 InterpretationBox[
6237  RowBox[{
6238   StyleBox["\<\"\\nWriting\"\>",
6239    StripOnInput->False,
6240    LineColor->RGBColor[0, 0, 1],
6241    FrontFaceColor->RGBColor[0, 0, 1],
6242    BackFaceColor->RGBColor[0, 0, 1],
6243    GraphicsColor->RGBColor[0, 0, 1],
6244    FontColor->RGBColor[0, 0, 1]],
6245   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
6246  SequenceForm[
6247   Style["\nWriting",
6248    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
6249  Editable->False]], "Print",
6250 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6251  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6252  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6253  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6254  3.718407866124856*^9,
6255  3.718409829165*^9},ExpressionUUID->"07578af5-6076-48b5-a65e-1cbc714afaf7"],
6256
6257Cell[BoxData[
6258 InterpretationBox[
6259  RowBox[{
6260   StyleBox["\<\"\\nWriting\"\>",
6261    StripOnInput->False,
6262    LineColor->RGBColor[0, 0, 1],
6263    FrontFaceColor->RGBColor[0, 0, 1],
6264    BackFaceColor->RGBColor[0, 0, 1],
6265    GraphicsColor->RGBColor[0, 0, 1],
6266    FontColor->RGBColor[0, 0, 1]],
6267   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
6268  SequenceForm[
6269   Style["\nWriting",
6270    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
6271  Editable->False]], "Print",
6272 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6273  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6274  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6275  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6276  3.718407866124856*^9,
6277  3.71840982918367*^9},ExpressionUUID->"2045dc45-ceb6-4752-89e4-d817e140f2f5"],
6278
6279Cell[BoxData[
6280 InterpretationBox[
6281  RowBox[{
6282   StyleBox["\<\"\\nWriting\"\>",
6283    StripOnInput->False,
6284    LineColor->RGBColor[0, 0, 1],
6285    FrontFaceColor->RGBColor[0, 0, 1],
6286    BackFaceColor->RGBColor[0, 0, 1],
6287    GraphicsColor->RGBColor[0, 0, 1],
6288    FontColor->RGBColor[0, 0, 1]],
6289   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6290  SequenceForm[
6291   Style["\nWriting",
6292    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6293  Editable->False]], "Print",
6294 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6295  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6296  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6297  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6298  3.718407866124856*^9,
6299  3.718409829201686*^9},ExpressionUUID->"046a9020-f8e1-4b0a-9667-\
63007bcf6b8d54be"],
6301
6302Cell[BoxData[
6303 InterpretationBox[
6304  RowBox[{
6305   StyleBox["\<\"\\nWriting\"\>",
6306    StripOnInput->False,
6307    LineColor->RGBColor[0, 0, 1],
6308    FrontFaceColor->RGBColor[0, 0, 1],
6309    BackFaceColor->RGBColor[0, 0, 1],
6310    GraphicsColor->RGBColor[0, 0, 1],
6311    FontColor->RGBColor[0, 0, 1]],
6312   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
6313  SequenceForm[
6314   Style["\nWriting",
6315    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
6316  Editable->False]], "Print",
6317 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6318  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6319  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6320  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6321  3.718407866124856*^9,
6322  3.71840982921907*^9},ExpressionUUID->"530d6cca-c21c-4758-8ae4-f4c762cc3b42"],
6323
6324Cell[BoxData["\<\"\"\>"], "Print",
6325 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6326  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6327  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6328  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6329  3.718407866124856*^9,
6330  3.718409829236836*^9},ExpressionUUID->"3c5f9336-19e8-4e81-a56e-\
6331daf921dfba0c"],
6332
6333Cell[BoxData[
6334 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6335  StripOnInput->False,
6336  LineColor->RGBColor[1, 0.5, 0],
6337  FrontFaceColor->RGBColor[1, 0.5, 0],
6338  BackFaceColor->RGBColor[1, 0.5, 0],
6339  GraphicsColor->RGBColor[1, 0.5, 0],
6340  FontWeight->Bold,
6341  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6342 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6343  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6344  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6345  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6346  3.718407866124856*^9,
6347  3.718409829354753*^9},ExpressionUUID->"4240c9de-d086-48b6-b74e-\
63489de7cb85e903"],
6349
6350Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6351 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6352  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6353  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6354  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6355  3.718407866124856*^9,
6356  3.71840982937396*^9},ExpressionUUID->"bc97c89f-78b8-4a02-bc84-dfd79bd18bce"],
6357
6358Cell[BoxData[
6359 InterpretationBox[
6360  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
6361   "\[InvisibleSpace]", "\<\" cores\"\>"}],
6362  SequenceForm["Expanding the indices over ", 4, " cores"],
6363  Editable->False]], "Print",
6364 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6365  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6366  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6367  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6368  3.718407866124856*^9,
6369  3.7184098293928213`*^9},ExpressionUUID->"829c6d7a-57e3-40d0-a953-\
6370fb153fe4bf77"],
6371
6372Cell[BoxData["\<\"Collecting the different structures that enter the \
6373vertex.\"\>"], "Print",
6374 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6375  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6376  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6377  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6378  3.718407866124856*^9,
6379  3.718409837561171*^9},ExpressionUUID->"4c9fd470-77d9-4b65-b76b-\
63808a251dc1e4d7"],
6381
6382Cell[BoxData[
6383 InterpretationBox[
6384  RowBox[{
6385  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6386found -> starting the computation: \"\>", "\[InvisibleSpace]",
6387   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6388    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6389   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
6390  SequenceForm[
6391  232, " possible non-zero vertices have been found -> starting the \
6392computation: ",
6393   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
6394  Editable->False]], "Print",
6395 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6396  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6397  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6398  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6399  3.718407866124856*^9,
6400  3.718409837655216*^9},ExpressionUUID->"dc095a05-5910-4551-a96d-\
64019db256572711"],
6402
6403Cell[BoxData[
6404 InterpretationBox[
6405  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6406  SequenceForm[227, " vertices obtained."],
6407  Editable->False]], "Print",
6408 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6409  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6410  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6411  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6412  3.718407866124856*^9,
6413  3.718409844083131*^9},ExpressionUUID->"c7a63db9-4b18-477e-b220-\
64148ae9cb0d055f"],
6415
6416Cell[BoxData[
6417 InterpretationBox[
6418  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
6419   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
6420   "\[InvisibleSpace]",
6421   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6422    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6423   "\[InvisibleSpace]", "227"}],
6424  SequenceForm[
6425  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
6426   Dynamic[FeynRules`FR$Count1], " / ", 227],
6427  Editable->False]], "Print",
6428 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6429  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6430  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6431  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6432  3.718407866124856*^9,
6433  3.718409849136373*^9},ExpressionUUID->"c5753d27-cb5f-4bb2-b8ae-\
64344e525da59889"],
6435
6436Cell[BoxData[
6437 InterpretationBox[
6438  RowBox[{
6439   StyleBox["\<\"\\nWriting\"\>",
6440    StripOnInput->False,
6441    LineColor->RGBColor[0, 0, 1],
6442    FrontFaceColor->RGBColor[0, 0, 1],
6443    BackFaceColor->RGBColor[0, 0, 1],
6444    GraphicsColor->RGBColor[0, 0, 1],
6445    FontColor->RGBColor[0, 0, 1]],
6446   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
6447variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
6448'vars1.mdl'.\"\>"}],
6449  SequenceForm[
6450   Style["\nWriting",
6451    RGBColor[0, 0, 1]],
6452   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
6453particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
6454  Editable->False]], "Print",
6455 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6456  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6457  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6458  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6459  3.718407866124856*^9,
6460  3.7184098582486687`*^9},ExpressionUUID->"5d44a32d-c16e-46a4-ab38-\
6461df06a729226a"],
6462
6463Cell[BoxData[
6464 InterpretationBox[
6465  RowBox[{
6466   StyleBox["\<\"\\nFinishing\"\>",
6467    StripOnInput->False,
6468    LineColor->RGBColor[0, 0, 1],
6469    FrontFaceColor->RGBColor[0, 0, 1],
6470    BackFaceColor->RGBColor[0, 0, 1],
6471    GraphicsColor->RGBColor[0, 0, 1],
6472    FontColor->RGBColor[0, 0, 1]],
6473   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
6474  SequenceForm[
6475   Style["\nFinishing",
6476    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
6477  Editable->False]], "Print",
6478 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6479  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6480  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6481  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6482  3.718407866124856*^9,
6483  3.718409860626039*^9},ExpressionUUID->"dd3a910b-ffa4-459f-b5e4-\
64840a0646c8bd2e"],
6485
6486Cell[BoxData[
6487 InterpretationBox[
6488  RowBox[{
6489   StyleBox["\<\"Finishing\"\>",
6490    StripOnInput->False,
6491    LineColor->RGBColor[0, 0, 1],
6492    FrontFaceColor->RGBColor[0, 0, 1],
6493    BackFaceColor->RGBColor[0, 0, 1],
6494    GraphicsColor->RGBColor[0, 0, 1],
6495    FontColor->RGBColor[0, 0, 1]],
6496   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6497  SequenceForm[
6498   Style["Finishing",
6499    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6500  Editable->False]], "Print",
6501 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6502  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6503  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6504  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6505  3.718407866124856*^9,
6506  3.718409860644782*^9},ExpressionUUID->"7ac600b9-563b-4206-b2f5-\
65072723719101e2"],
6508
6509Cell[BoxData[
6510 InterpretationBox[
6511  RowBox[{
6512   StyleBox["\<\"\\nDone\"\>",
6513    StripOnInput->False,
6514    LineColor->RGBColor[0, 0, 1],
6515    FrontFaceColor->RGBColor[0, 0, 1],
6516    BackFaceColor->RGBColor[0, 0, 1],
6517    GraphicsColor->RGBColor[0, 0, 1],
6518    FontColor->RGBColor[0, 0, 1]],
6519   "\[InvisibleSpace]", "\<\" in 0.53min!\"\>"}],
6520  SequenceForm[
6521   Style["\nDone",
6522    RGBColor[0, 0, 1]], " in 0.53min!"],
6523  Editable->False]], "Print",
6524 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6525  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6526  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6527  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6528  3.718407866124856*^9,
6529  3.7184098606628017`*^9},ExpressionUUID->"ba418675-0653-4304-a12e-\
65302bdbe2ded919"],
6531
6532Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
6533 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6534  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6535  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6536  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6537  3.718407866124856*^9,
6538  3.718409862856965*^9},ExpressionUUID->"8b52b958-c232-41d7-a74e-\
6539c67b51b40524"],
6540
6541Cell[BoxData[
6542 InterpretationBox[
6543  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6544   StyleBox["\<\"Authors:\"\>",
6545    StripOnInput->False,
6546    LineColor->RGBColor[0, 0, 1],
6547    FrontFaceColor->RGBColor[0, 0, 1],
6548    BackFaceColor->RGBColor[0, 0, 1],
6549    GraphicsColor->RGBColor[0, 0, 1],
6550    FontColor->RGBColor[0, 0, 1]],
6551   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
6552  SequenceForm[" - - - ",
6553   Style["Authors:",
6554    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
6555  Editable->False]], "Print",
6556 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6557  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6558  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6559  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6560  3.718407866124856*^9,
6561  3.718409862883366*^9},ExpressionUUID->"4cb1cb47-f4ec-4c43-8830-\
656273c4a46f18d6"],
6563
6564Cell[BoxData[
6565 InterpretationBox[
6566  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6567   StyleBox["\<\"Please cite:\"\>",
6568    StripOnInput->False,
6569    LineColor->RGBColor[0, 0, 1],
6570    FrontFaceColor->RGBColor[0, 0, 1],
6571    BackFaceColor->RGBColor[0, 0, 1],
6572    GraphicsColor->RGBColor[0, 0, 1],
6573    FontColor->RGBColor[0, 0, 1]],
6574   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
6575  SequenceForm[" - - - ",
6576   Style["Please cite:",
6577    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
6578  Editable->False]], "Print",
6579 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6580  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6581  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6582  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6583  3.718407866124856*^9,
6584  3.718409862901196*^9},ExpressionUUID->"3ea45f72-1fa7-4a4b-8e88-\
6585abb32221c173"],
6586
6587Cell[BoxData[
6588 InterpretationBox[
6589  RowBox[{
6590   StyleBox["\<\"\\nWriting\"\>",
6591    StripOnInput->False,
6592    LineColor->RGBColor[0, 0, 1],
6593    FrontFaceColor->RGBColor[0, 0, 1],
6594    BackFaceColor->RGBColor[0, 0, 1],
6595    GraphicsColor->RGBColor[0, 0, 1],
6596    FontColor->RGBColor[0, 0, 1]],
6597   "\[InvisibleSpace]", "\<\" files to \
6598/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
6599Models/S2HDM/S2HDM-CH.\"\>"}],
6600  SequenceForm[
6601   Style["\nWriting",
6602    RGBColor[0, 0, 1]],
6603   " files to \
6604/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
6605Models/S2HDM/S2HDM-CH."],
6606  Editable->False]], "Print",
6607 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6608  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6609  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6610  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6611  3.718407866124856*^9,
6612  3.7184098629210567`*^9},ExpressionUUID->"cf4ead76-45b8-4183-802a-\
6613466847103a16"],
6614
6615Cell[BoxData[
6616 InterpretationBox[
6617  RowBox[{
6618   StyleBox["\<\"\\nWriting\"\>",
6619    StripOnInput->False,
6620    LineColor->RGBColor[0, 0, 1],
6621    FrontFaceColor->RGBColor[0, 0, 1],
6622    BackFaceColor->RGBColor[0, 0, 1],
6623    GraphicsColor->RGBColor[0, 0, 1],
6624    FontColor->RGBColor[0, 0, 1]],
6625   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
6626  SequenceForm[
6627   Style["\nWriting",
6628    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
6629  Editable->False]], "Print",
6630 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6631  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6632  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6633  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6634  3.718407866124856*^9,
6635  3.7184098629392023`*^9},ExpressionUUID->"557f5296-7915-4f55-a914-\
66361ba66da2b8a9"],
6637
6638Cell[BoxData[
6639 InterpretationBox[
6640  RowBox[{
6641   StyleBox["\<\"\\nWriting\"\>",
6642    StripOnInput->False,
6643    LineColor->RGBColor[0, 0, 1],
6644    FrontFaceColor->RGBColor[0, 0, 1],
6645    BackFaceColor->RGBColor[0, 0, 1],
6646    GraphicsColor->RGBColor[0, 0, 1],
6647    FontColor->RGBColor[0, 0, 1]],
6648   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
6649  SequenceForm[
6650   Style["\nWriting",
6651    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
6652  Editable->False]], "Print",
6653 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6654  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6655  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6656  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6657  3.718407866124856*^9,
6658  3.718409862956521*^9},ExpressionUUID->"0ad53d2a-ffb1-41df-be26-\
66590d0e67ce793d"],
6660
6661Cell[BoxData[
6662 InterpretationBox[
6663  RowBox[{
6664   StyleBox["\<\"\\nWriting\"\>",
6665    StripOnInput->False,
6666    LineColor->RGBColor[0, 0, 1],
6667    FrontFaceColor->RGBColor[0, 0, 1],
6668    BackFaceColor->RGBColor[0, 0, 1],
6669    GraphicsColor->RGBColor[0, 0, 1],
6670    FontColor->RGBColor[0, 0, 1]],
6671   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6672  SequenceForm[
6673   Style["\nWriting",
6674    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6675  Editable->False]], "Print",
6676 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6677  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6678  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6679  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6680  3.718407866124856*^9,
6681  3.7184098629742527`*^9},ExpressionUUID->"0517be3e-da7c-47d1-8c1f-\
6682dc0ea64ff2af"],
6683
6684Cell[BoxData[
6685 InterpretationBox[
6686  RowBox[{
6687   StyleBox["\<\"\\nWriting\"\>",
6688    StripOnInput->False,
6689    LineColor->RGBColor[0, 0, 1],
6690    FrontFaceColor->RGBColor[0, 0, 1],
6691    BackFaceColor->RGBColor[0, 0, 1],
6692    GraphicsColor->RGBColor[0, 0, 1],
6693    FontColor->RGBColor[0, 0, 1]],
6694   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
6695  SequenceForm[
6696   Style["\nWriting",
6697    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
6698  Editable->False]], "Print",
6699 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6700  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6701  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6702  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6703  3.718407866124856*^9,
6704  3.718409862989223*^9},ExpressionUUID->"df010242-2147-4a42-8818-\
6705d1b1ca74100f"],
6706
6707Cell[BoxData["\<\"\"\>"], "Print",
6708 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6709  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6710  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6711  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6712  3.718407866124856*^9,
6713  3.718409863004916*^9},ExpressionUUID->"5e10524c-5033-4bd1-b591-\
6714409393f130da"],
6715
6716Cell[BoxData[
6717 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6718  StripOnInput->False,
6719  LineColor->RGBColor[1, 0.5, 0],
6720  FrontFaceColor->RGBColor[1, 0.5, 0],
6721  BackFaceColor->RGBColor[1, 0.5, 0],
6722  GraphicsColor->RGBColor[1, 0.5, 0],
6723  FontWeight->Bold,
6724  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6725 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6726  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6727  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6728  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6729  3.718407866124856*^9,
6730  3.718409863021709*^9},ExpressionUUID->"16780e88-1f5a-4e4c-8bee-\
6731f0add15d591a"],
6732
6733Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6734 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6735  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6736  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6737  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6738  3.718407866124856*^9,
6739  3.718409863038446*^9},ExpressionUUID->"e92f7d9c-a37e-4daf-aa38-\
67404e2e19a9215f"],
6741
6742Cell[BoxData[
6743 InterpretationBox[
6744  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
6745   "\[InvisibleSpace]", "\<\" cores\"\>"}],
6746  SequenceForm["Expanding the indices over ", 4, " cores"],
6747  Editable->False]], "Print",
6748 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6749  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6750  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6751  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6752  3.718407866124856*^9,
6753  3.718409863055707*^9},ExpressionUUID->"f3a740ba-b55f-401d-9f90-\
6754397b8f8f2b68"],
6755
6756Cell[BoxData["\<\"Collecting the different structures that enter the \
6757vertex.\"\>"], "Print",
6758 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6759  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6760  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6761  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6762  3.718407866124856*^9,
6763  3.718409875701889*^9},ExpressionUUID->"f1484e9b-4e14-4fae-9e2c-\
676431cc6a31bae7"],
6765
6766Cell[BoxData[
6767 InterpretationBox[
6768  RowBox[{
6769  "209", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6770found -> starting the computation: \"\>", "\[InvisibleSpace]",
6771   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6772    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6773   "\[InvisibleSpace]", "209", "\[InvisibleSpace]", "\<\".\"\>"}],
6774  SequenceForm[
6775  209, " possible non-zero vertices have been found -> starting the \
6776computation: ",
6777   Dynamic[FeynRules`FR$FeynmanRules], " / ", 209, "."],
6778  Editable->False]], "Print",
6779 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6780  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6781  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6782  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6783  3.718407866124856*^9,
6784  3.718409875721758*^9},ExpressionUUID->"86afc1c2-e78c-40bb-ad82-\
6785e851d33897d7"],
6786
6787Cell[BoxData[
6788 InterpretationBox[
6789  RowBox[{"204", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6790  SequenceForm[204, " vertices obtained."],
6791  Editable->False]], "Print",
6792 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6793  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6794  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6795  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6796  3.718407866124856*^9,
6797  3.718409875740129*^9},ExpressionUUID->"4559a0e9-008f-42d5-a746-\
6798e7408d03581d"],
6799
6800Cell[BoxData[
6801 InterpretationBox[
6802  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
6803   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
6804   "\[InvisibleSpace]",
6805   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6806    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6807   "\[InvisibleSpace]", "204"}],
6808  SequenceForm[
6809  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
6810   Dynamic[FeynRules`FR$Count1], " / ", 204],
6811  Editable->False]], "Print",
6812 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6813  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6814  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6815  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6816  3.718407866124856*^9,
6817  3.7184098830108757`*^9},ExpressionUUID->"898e5c5a-90c6-47ba-905c-\
6818ea50759f04f4"],
6819
6820Cell[BoxData[
6821 InterpretationBox[
6822  RowBox[{
6823   StyleBox["\<\"\\nWriting\"\>",
6824    StripOnInput->False,
6825    LineColor->RGBColor[0, 0, 1],
6826    FrontFaceColor->RGBColor[0, 0, 1],
6827    BackFaceColor->RGBColor[0, 0, 1],
6828    GraphicsColor->RGBColor[0, 0, 1],
6829    FontColor->RGBColor[0, 0, 1]],
6830   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
6831variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
6832'vars1.mdl'.\"\>"}],
6833  SequenceForm[
6834   Style["\nWriting",
6835    RGBColor[0, 0, 1]],
6836   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
6837particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
6838  Editable->False]], "Print",
6839 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6840  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6841  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6842  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6843  3.718407866124856*^9,
6844  3.7184098865644703`*^9},ExpressionUUID->"27f49223-8479-4e17-956d-\
68453923a29b4ce4"],
6846
6847Cell[BoxData[
6848 InterpretationBox[
6849  RowBox[{
6850   StyleBox["\<\"\\nFinishing\"\>",
6851    StripOnInput->False,
6852    LineColor->RGBColor[0, 0, 1],
6853    FrontFaceColor->RGBColor[0, 0, 1],
6854    BackFaceColor->RGBColor[0, 0, 1],
6855    GraphicsColor->RGBColor[0, 0, 1],
6856    FontColor->RGBColor[0, 0, 1]],
6857   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
6858  SequenceForm[
6859   Style["\nFinishing",
6860    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
6861  Editable->False]], "Print",
6862 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6863  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6864  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6865  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6866  3.718407866124856*^9,
6867  3.718409888141205*^9},ExpressionUUID->"7926efec-beb3-4a12-901b-\
68680e8ddd8b3d82"],
6869
6870Cell[BoxData[
6871 InterpretationBox[
6872  RowBox[{
6873   StyleBox["\<\"Finishing\"\>",
6874    StripOnInput->False,
6875    LineColor->RGBColor[0, 0, 1],
6876    FrontFaceColor->RGBColor[0, 0, 1],
6877    BackFaceColor->RGBColor[0, 0, 1],
6878    GraphicsColor->RGBColor[0, 0, 1],
6879    FontColor->RGBColor[0, 0, 1]],
6880   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6881  SequenceForm[
6882   Style["Finishing",
6883    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6884  Editable->False]], "Print",
6885 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6886  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6887  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6888  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6889  3.718407866124856*^9,
6890  3.7184098881594667`*^9},ExpressionUUID->"b48e7494-987e-4360-8f36-\
68913145a5dc3ac1"],
6892
6893Cell[BoxData[
6894 InterpretationBox[
6895  RowBox[{
6896   StyleBox["\<\"\\nDone\"\>",
6897    StripOnInput->False,
6898    LineColor->RGBColor[0, 0, 1],
6899    FrontFaceColor->RGBColor[0, 0, 1],
6900    BackFaceColor->RGBColor[0, 0, 1],
6901    GraphicsColor->RGBColor[0, 0, 1],
6902    FontColor->RGBColor[0, 0, 1]],
6903   "\[InvisibleSpace]", "\<\" in 0.42min!\"\>"}],
6904  SequenceForm[
6905   Style["\nDone",
6906    RGBColor[0, 0, 1]], " in 0.42min!"],
6907  Editable->False]], "Print",
6908 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6909  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6910  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6911  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6912  3.718407866124856*^9,
6913  3.7184098881801863`*^9},ExpressionUUID->"af6177ba-880d-43e0-9e86-\
69140bf30f061f80"],
6915
6916Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
6917 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6918  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6919  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6920  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6921  3.718407866124856*^9,
6922  3.71840989073964*^9},ExpressionUUID->"ee2dc276-030d-4ce7-a588-9a58d46f7e29"],
6923
6924Cell[BoxData[
6925 InterpretationBox[
6926  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6927   StyleBox["\<\"Authors:\"\>",
6928    StripOnInput->False,
6929    LineColor->RGBColor[0, 0, 1],
6930    FrontFaceColor->RGBColor[0, 0, 1],
6931    BackFaceColor->RGBColor[0, 0, 1],
6932    GraphicsColor->RGBColor[0, 0, 1],
6933    FontColor->RGBColor[0, 0, 1]],
6934   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
6935  SequenceForm[" - - - ",
6936   Style["Authors:",
6937    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
6938  Editable->False]], "Print",
6939 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6940  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6941  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6942  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6943  3.718407866124856*^9,
6944  3.718409890766798*^9},ExpressionUUID->"56978efa-49d5-4420-b716-\
694564775c6756cf"],
6946
6947Cell[BoxData[
6948 InterpretationBox[
6949  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6950   StyleBox["\<\"Please cite:\"\>",
6951    StripOnInput->False,
6952    LineColor->RGBColor[0, 0, 1],
6953    FrontFaceColor->RGBColor[0, 0, 1],
6954    BackFaceColor->RGBColor[0, 0, 1],
6955    GraphicsColor->RGBColor[0, 0, 1],
6956    FontColor->RGBColor[0, 0, 1]],
6957   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
6958  SequenceForm[" - - - ",
6959   Style["Please cite:",
6960    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
6961  Editable->False]], "Print",
6962 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6963  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6964  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6965  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6966  3.718407866124856*^9,
6967  3.7184098907933197`*^9},ExpressionUUID->"a2c2053d-d2ea-4d40-b872-\
6968dd46e3eff2f5"],
6969
6970Cell[BoxData[
6971 InterpretationBox[
6972  RowBox[{
6973   StyleBox["\<\"\\nWriting\"\>",
6974    StripOnInput->False,
6975    LineColor->RGBColor[0, 0, 1],
6976    FrontFaceColor->RGBColor[0, 0, 1],
6977    BackFaceColor->RGBColor[0, 0, 1],
6978    GraphicsColor->RGBColor[0, 0, 1],
6979    FontColor->RGBColor[0, 0, 1]],
6980   "\[InvisibleSpace]", "\<\" files to \
6981/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
6982Models/S2HDM/S2HDM-CH.\"\>"}],
6983  SequenceForm[
6984   Style["\nWriting",
6985    RGBColor[0, 0, 1]],
6986   " files to \
6987/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
6988Models/S2HDM/S2HDM-CH."],
6989  Editable->False]], "Print",
6990 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
6991  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
6992  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
6993  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
6994  3.718407866124856*^9,
6995  3.718409890814727*^9},ExpressionUUID->"63cca1e6-a222-454d-9311-\
69967c471f9c2cec"],
6997
6998Cell[BoxData[
6999 InterpretationBox[
7000  RowBox[{
7001   StyleBox["\<\"\\nWriting\"\>",
7002    StripOnInput->False,
7003    LineColor->RGBColor[0, 0, 1],
7004    FrontFaceColor->RGBColor[0, 0, 1],
7005    BackFaceColor->RGBColor[0, 0, 1],
7006    GraphicsColor->RGBColor[0, 0, 1],
7007    FontColor->RGBColor[0, 0, 1]],
7008   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
7009  SequenceForm[
7010   Style["\nWriting",
7011    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
7012  Editable->False]], "Print",
7013 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7014  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7015  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7016  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7017  3.718407866124856*^9,
7018  3.718409890838655*^9},ExpressionUUID->"70d3efee-a2b1-426b-b209-\
70191da6d2f18809"],
7020
7021Cell[BoxData[
7022 InterpretationBox[
7023  RowBox[{
7024   StyleBox["\<\"\\nWriting\"\>",
7025    StripOnInput->False,
7026    LineColor->RGBColor[0, 0, 1],
7027    FrontFaceColor->RGBColor[0, 0, 1],
7028    BackFaceColor->RGBColor[0, 0, 1],
7029    GraphicsColor->RGBColor[0, 0, 1],
7030    FontColor->RGBColor[0, 0, 1]],
7031   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
7032  SequenceForm[
7033   Style["\nWriting",
7034    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
7035  Editable->False]], "Print",
7036 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7037  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7038  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7039  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7040  3.718407866124856*^9,
7041  3.718409890858905*^9},ExpressionUUID->"8768517c-81f2-4a61-b2f4-\
704243c7d8baf8e6"],
7043
7044Cell[BoxData[
7045 InterpretationBox[
7046  RowBox[{
7047   StyleBox["\<\"\\nWriting\"\>",
7048    StripOnInput->False,
7049    LineColor->RGBColor[0, 0, 1],
7050    FrontFaceColor->RGBColor[0, 0, 1],
7051    BackFaceColor->RGBColor[0, 0, 1],
7052    GraphicsColor->RGBColor[0, 0, 1],
7053    FontColor->RGBColor[0, 0, 1]],
7054   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
7055  SequenceForm[
7056   Style["\nWriting",
7057    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
7058  Editable->False]], "Print",
7059 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7060  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7061  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7062  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7063  3.718407866124856*^9,
7064  3.7184098908867683`*^9},ExpressionUUID->"2e85b374-79d1-47fe-86b6-\
70651960092b2201"],
7066
7067Cell[BoxData[
7068 InterpretationBox[
7069  RowBox[{
7070   StyleBox["\<\"\\nWriting\"\>",
7071    StripOnInput->False,
7072    LineColor->RGBColor[0, 0, 1],
7073    FrontFaceColor->RGBColor[0, 0, 1],
7074    BackFaceColor->RGBColor[0, 0, 1],
7075    GraphicsColor->RGBColor[0, 0, 1],
7076    FontColor->RGBColor[0, 0, 1]],
7077   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
7078  SequenceForm[
7079   Style["\nWriting",
7080    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
7081  Editable->False]], "Print",
7082 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7083  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7084  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7085  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7086  3.718407866124856*^9,
7087  3.7184098909092293`*^9},ExpressionUUID->"f8832869-3535-472c-a789-\
7088e2788d12746d"],
7089
7090Cell[BoxData["\<\"\"\>"], "Print",
7091 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7092  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7093  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7094  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7095  3.718407866124856*^9,
7096  3.7184098909336643`*^9},ExpressionUUID->"b2178408-235c-420d-9ebf-\
70971dbf95bcbd27"],
7098
7099Cell[BoxData[
7100 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
7101  StripOnInput->False,
7102  LineColor->RGBColor[1, 0.5, 0],
7103  FrontFaceColor->RGBColor[1, 0.5, 0],
7104  BackFaceColor->RGBColor[1, 0.5, 0],
7105  GraphicsColor->RGBColor[1, 0.5, 0],
7106  FontWeight->Bold,
7107  FontColor->RGBColor[1, 0.5, 0]]], "Print",
7108 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7109  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7110  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7111  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7112  3.718407866124856*^9,
7113  3.718409891057358*^9},ExpressionUUID->"e353bba5-ab9f-4e5f-820f-\
711499f66781a2b9"],
7115
7116Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7117 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7118  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7119  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7120  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7121  3.718407866124856*^9,
7122  3.718409891084889*^9},ExpressionUUID->"d0aadb08-0c46-47be-aa9d-\
7123083570c98cc6"],
7124
7125Cell[BoxData[
7126 InterpretationBox[
7127  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
7128   "\[InvisibleSpace]", "\<\" cores\"\>"}],
7129  SequenceForm["Expanding the indices over ", 4, " cores"],
7130  Editable->False]], "Print",
7131 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7132  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7133  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7134  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7135  3.718407866124856*^9,
7136  3.718409891107442*^9},ExpressionUUID->"3d269adf-ceaf-4786-9825-\
7137abe60c2b1a42"],
7138
7139Cell[BoxData["\<\"Collecting the different structures that enter the \
7140vertex.\"\>"], "Print",
7141 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7142  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7143  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7144  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7145  3.718407866124856*^9,
7146  3.718409899628619*^9},ExpressionUUID->"cfdd95ba-4f98-4c6f-a6cd-\
7147cecd2ff41d6c"],
7148
7149Cell[BoxData[
7150 InterpretationBox[
7151  RowBox[{
7152  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
7153found -> starting the computation: \"\>", "\[InvisibleSpace]",
7154   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
7155    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7156   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
7157  SequenceForm[
7158  232, " possible non-zero vertices have been found -> starting the \
7159computation: ",
7160   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
7161  Editable->False]], "Print",
7162 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7163  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7164  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7165  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7166  3.718407866124856*^9,
7167  3.71840989969529*^9},ExpressionUUID->"0923de04-14b0-4652-9b9d-81811f2170ca"],
7168
7169Cell[BoxData[
7170 InterpretationBox[
7171  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
7172  SequenceForm[227, " vertices obtained."],
7173  Editable->False]], "Print",
7174 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7175  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7176  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7177  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7178  3.718407866124856*^9,
7179  3.71840990640958*^9},ExpressionUUID->"7ea5c06e-ac90-4afc-b0ac-6ed2606ce3ef"],
7180
7181Cell[BoxData[
7182 InterpretationBox[
7183  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
7184   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
7185   "\[InvisibleSpace]",
7186   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
7187    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7188   "\[InvisibleSpace]", "227"}],
7189  SequenceForm[
7190  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
7191   Dynamic[FeynRules`FR$Count1], " / ", 227],
7192  Editable->False]], "Print",
7193 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7194  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7195  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7196  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7197  3.718407866124856*^9, 3.718409911639011*^9},
7198 ExpressionUUID -> "c8589058-b6c1-4536-8f83-c6e304893dd9"],
7199
7200Cell[BoxData[
7201 InterpretationBox[
7202  RowBox[{
7203   StyleBox["\<\"\\nWriting\"\>",
7204    StripOnInput->False,
7205    LineColor->RGBColor[0, 0, 1],
7206    FrontFaceColor->RGBColor[0, 0, 1],
7207    BackFaceColor->RGBColor[0, 0, 1],
7208    GraphicsColor->RGBColor[0, 0, 1],
7209    FontColor->RGBColor[0, 0, 1]],
7210   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
7211variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
7212'vars1.mdl'.\"\>"}],
7213  SequenceForm[
7214   Style["\nWriting",
7215    RGBColor[0, 0, 1]],
7216   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
7217particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
7218  Editable->False]], "Print",
7219 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7220  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7221  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7222  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7223  3.718407866124856*^9,
7224  3.718409920732691*^9},ExpressionUUID->"bab55731-309c-4a45-b85c-\
7225845d786c675e"],
7226
7227Cell[BoxData[
7228 InterpretationBox[
7229  RowBox[{
7230   StyleBox["\<\"\\nFinishing\"\>",
7231    StripOnInput->False,
7232    LineColor->RGBColor[0, 0, 1],
7233    FrontFaceColor->RGBColor[0, 0, 1],
7234    BackFaceColor->RGBColor[0, 0, 1],
7235    GraphicsColor->RGBColor[0, 0, 1],
7236    FontColor->RGBColor[0, 0, 1]],
7237   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
7238  SequenceForm[
7239   Style["\nFinishing",
7240    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
7241  Editable->False]], "Print",
7242 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7243  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7244  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7245  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7246  3.718407866124856*^9,
7247  3.7184099231885977`*^9},ExpressionUUID->"61db3d8d-1abb-4b64-869a-\
72487963899bc54e"],
7249
7250Cell[BoxData[
7251 InterpretationBox[
7252  RowBox[{
7253   StyleBox["\<\"Finishing\"\>",
7254    StripOnInput->False,
7255    LineColor->RGBColor[0, 0, 1],
7256    FrontFaceColor->RGBColor[0, 0, 1],
7257    BackFaceColor->RGBColor[0, 0, 1],
7258    GraphicsColor->RGBColor[0, 0, 1],
7259    FontColor->RGBColor[0, 0, 1]],
7260   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
7261  SequenceForm[
7262   Style["Finishing",
7263    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
7264  Editable->False]], "Print",
7265 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7266  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7267  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7268  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7269  3.718407866124856*^9,
7270  3.7184099232070627`*^9},ExpressionUUID->"05d3ae33-c58d-4b6b-a69d-\
7271e946a3534f98"],
7272
7273Cell[BoxData[
7274 InterpretationBox[
7275  RowBox[{
7276   StyleBox["\<\"\\nDone\"\>",
7277    StripOnInput->False,
7278    LineColor->RGBColor[0, 0, 1],
7279    FrontFaceColor->RGBColor[0, 0, 1],
7280    BackFaceColor->RGBColor[0, 0, 1],
7281    GraphicsColor->RGBColor[0, 0, 1],
7282    FontColor->RGBColor[0, 0, 1]],
7283   "\[InvisibleSpace]", "\<\" in 0.54min!\"\>"}],
7284  SequenceForm[
7285   Style["\nDone",
7286    RGBColor[0, 0, 1]], " in 0.54min!"],
7287  Editable->False]], "Print",
7288 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7289  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7290  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7291  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7292  3.718407866124856*^9,
7293  3.718409923225567*^9},ExpressionUUID->"4bee189a-b4b4-4054-86ec-\
7294c0df6a9dc5b2"],
7295
7296Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
7297 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7298  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7299  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7300  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7301  3.718407866124856*^9,
7302  3.718409925886652*^9},ExpressionUUID->"95e5ad40-1aa9-469e-a61a-\
7303ac691d4095fd"],
7304
7305Cell[BoxData[
7306 InterpretationBox[
7307  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
7308   StyleBox["\<\"Authors:\"\>",
7309    StripOnInput->False,
7310    LineColor->RGBColor[0, 0, 1],
7311    FrontFaceColor->RGBColor[0, 0, 1],
7312    BackFaceColor->RGBColor[0, 0, 1],
7313    GraphicsColor->RGBColor[0, 0, 1],
7314    FontColor->RGBColor[0, 0, 1]],
7315   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
7316  SequenceForm[" - - - ",
7317   Style["Authors:",
7318    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
7319  Editable->False]], "Print",
7320 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7321  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7322  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7323  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7324  3.718407866124856*^9,
7325  3.71840992590836*^9},ExpressionUUID->"1e989358-2599-437e-8093-d4f37e478ff6"],
7326
7327Cell[BoxData[
7328 InterpretationBox[
7329  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
7330   StyleBox["\<\"Please cite:\"\>",
7331    StripOnInput->False,
7332    LineColor->RGBColor[0, 0, 1],
7333    FrontFaceColor->RGBColor[0, 0, 1],
7334    BackFaceColor->RGBColor[0, 0, 1],
7335    GraphicsColor->RGBColor[0, 0, 1],
7336    FontColor->RGBColor[0, 0, 1]],
7337   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
7338  SequenceForm[" - - - ",
7339   Style["Please cite:",
7340    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
7341  Editable->False]], "Print",
7342 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7343  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7344  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7345  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7346  3.718407866124856*^9,
7347  3.718409925931706*^9},ExpressionUUID->"ce69472a-2512-43bb-8adf-\
734828a58ba74291"],
7349
7350Cell[BoxData[
7351 InterpretationBox[
7352  RowBox[{
7353   StyleBox["\<\"\\nWriting\"\>",
7354    StripOnInput->False,
7355    LineColor->RGBColor[0, 0, 1],
7356    FrontFaceColor->RGBColor[0, 0, 1],
7357    BackFaceColor->RGBColor[0, 0, 1],
7358    GraphicsColor->RGBColor[0, 0, 1],
7359    FontColor->RGBColor[0, 0, 1]],
7360   "\[InvisibleSpace]", "\<\" files to \
7361/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
7362Models/S2HDM/S2HDM-CH.\"\>"}],
7363  SequenceForm[
7364   Style["\nWriting",
7365    RGBColor[0, 0, 1]],
7366   " files to \
7367/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
7368Models/S2HDM/S2HDM-CH."],
7369  Editable->False]], "Print",
7370 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7371  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7372  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7373  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7374  3.718407866124856*^9,
7375  3.7184099259530897`*^9},ExpressionUUID->"31e4de32-ffd5-4875-b9de-\
737648e2d235dcd0"],
7377
7378Cell[BoxData[
7379 InterpretationBox[
7380  RowBox[{
7381   StyleBox["\<\"\\nWriting\"\>",
7382    StripOnInput->False,
7383    LineColor->RGBColor[0, 0, 1],
7384    FrontFaceColor->RGBColor[0, 0, 1],
7385    BackFaceColor->RGBColor[0, 0, 1],
7386    GraphicsColor->RGBColor[0, 0, 1],
7387    FontColor->RGBColor[0, 0, 1]],
7388   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
7389  SequenceForm[
7390   Style["\nWriting",
7391    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
7392  Editable->False]], "Print",
7393 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7394  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7395  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7396  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7397  3.718407866124856*^9,
7398  3.7184099259739323`*^9},ExpressionUUID->"2c20963b-e082-4e6f-aa2e-\
73990c741ab0cb91"],
7400
7401Cell[BoxData[
7402 InterpretationBox[
7403  RowBox[{
7404   StyleBox["\<\"\\nWriting\"\>",
7405    StripOnInput->False,
7406    LineColor->RGBColor[0, 0, 1],
7407    FrontFaceColor->RGBColor[0, 0, 1],
7408    BackFaceColor->RGBColor[0, 0, 1],
7409    GraphicsColor->RGBColor[0, 0, 1],
7410    FontColor->RGBColor[0, 0, 1]],
7411   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
7412  SequenceForm[
7413   Style["\nWriting",
7414    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
7415  Editable->False]], "Print",
7416 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7417  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7418  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7419  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7420  3.718407866124856*^9,
7421  3.7184099259928493`*^9},ExpressionUUID->"379c8f4e-fdd5-4c0c-9422-\
7422ae10ec2b576c"],
7423
7424Cell[BoxData[
7425 InterpretationBox[
7426  RowBox[{
7427   StyleBox["\<\"\\nWriting\"\>",
7428    StripOnInput->False,
7429    LineColor->RGBColor[0, 0, 1],
7430    FrontFaceColor->RGBColor[0, 0, 1],
7431    BackFaceColor->RGBColor[0, 0, 1],
7432    GraphicsColor->RGBColor[0, 0, 1],
7433    FontColor->RGBColor[0, 0, 1]],
7434   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
7435  SequenceForm[
7436   Style["\nWriting",
7437    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
7438  Editable->False]], "Print",
7439 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7440  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7441  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7442  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7443  3.718407866124856*^9,
7444  3.718409926011826*^9},ExpressionUUID->"a308a5dc-1d1c-496f-a210-\
7445b022d6552090"],
7446
7447Cell[BoxData[
7448 InterpretationBox[
7449  RowBox[{
7450   StyleBox["\<\"\\nWriting\"\>",
7451    StripOnInput->False,
7452    LineColor->RGBColor[0, 0, 1],
7453    FrontFaceColor->RGBColor[0, 0, 1],
7454    BackFaceColor->RGBColor[0, 0, 1],
7455    GraphicsColor->RGBColor[0, 0, 1],
7456    FontColor->RGBColor[0, 0, 1]],
7457   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
7458  SequenceForm[
7459   Style["\nWriting",
7460    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
7461  Editable->False]], "Print",
7462 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7463  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7464  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7465  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7466  3.718407866124856*^9,
7467  3.7184099260309143`*^9},ExpressionUUID->"72b02b57-6423-41c9-aaf8-\
746807da24a98a85"],
7469
7470Cell[BoxData["\<\"\"\>"], "Print",
7471 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7472  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7473  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7474  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7475  3.718407866124856*^9,
7476  3.718409926048938*^9},ExpressionUUID->"2782f2ca-9f6f-4dd0-8d70-\
747738301e7e86c5"],
7478
7479Cell[BoxData[
7480 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
7481  StripOnInput->False,
7482  LineColor->RGBColor[1, 0.5, 0],
7483  FrontFaceColor->RGBColor[1, 0.5, 0],
7484  BackFaceColor->RGBColor[1, 0.5, 0],
7485  GraphicsColor->RGBColor[1, 0.5, 0],
7486  FontWeight->Bold,
7487  FontColor->RGBColor[1, 0.5, 0]]], "Print",
7488 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7489  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7490  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7491  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7492  3.718407866124856*^9,
7493  3.718409926117858*^9},ExpressionUUID->"9690b8c2-156a-4fa5-8866-\
749416cc6a114366"],
7495
7496Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7497 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7498  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7499  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7500  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7501  3.718407866124856*^9,
7502  3.718409926136828*^9},ExpressionUUID->"fa8cd8ce-541b-4aea-a010-\
7503a77d192a7365"],
7504
7505Cell[BoxData[
7506 InterpretationBox[
7507  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
7508   "\[InvisibleSpace]", "\<\" cores\"\>"}],
7509  SequenceForm["Expanding the indices over ", 4, " cores"],
7510  Editable->False]], "Print",
7511 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7512  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7513  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7514  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7515  3.718407866124856*^9,
7516  3.71840992615176*^9},ExpressionUUID->"84104c43-7e50-4c1d-9b86-f897db413790"],
7517
7518Cell[BoxData["\<\"Collecting the different structures that enter the \
7519vertex.\"\>"], "Print",
7520 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7521  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7522  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7523  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7524  3.718407866124856*^9,
7525  3.71840993398032*^9},ExpressionUUID->"7e108204-3e38-48e2-946d-20f4a01f6e54"],
7526
7527Cell[BoxData[
7528 InterpretationBox[
7529  RowBox[{
7530  "227", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
7531found -> starting the computation: \"\>", "\[InvisibleSpace]",
7532   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
7533    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7534   "\[InvisibleSpace]", "227", "\[InvisibleSpace]", "\<\".\"\>"}],
7535  SequenceForm[
7536  227, " possible non-zero vertices have been found -> starting the \
7537computation: ",
7538   Dynamic[FeynRules`FR$FeynmanRules], " / ", 227, "."],
7539  Editable->False]], "Print",
7540 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7541  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7542  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7543  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7544  3.718407866124856*^9, 3.7184099340739527`*^9},
7545 ExpressionUUID -> "ee7a6ed0-ac0c-475c-9647-da31a01ba4b0"],
7546
7547Cell[BoxData[
7548 InterpretationBox[
7549  RowBox[{"222", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
7550  SequenceForm[222, " vertices obtained."],
7551  Editable->False]], "Print",
7552 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7553  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7554  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7555  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7556  3.718407866124856*^9,
7557  3.718409940312516*^9},ExpressionUUID->"ff0ceacc-3f65-4263-a7d2-\
7558b1247b5ac057"],
7559
7560Cell[BoxData[
7561 InterpretationBox[
7562  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
7563   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>",
7564   "\[InvisibleSpace]",
7565   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
7566    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7567   "\[InvisibleSpace]", "222"}],
7568  SequenceForm[
7569  "Flavor expansion of the vertices distributed over ", 4, " cores: ",
7570   Dynamic[FeynRules`FR$Count1], " / ", 222],
7571  Editable->False]], "Print",
7572 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7573  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7574  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7575  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7576  3.718407866124856*^9, 3.718409946247068*^9},
7577 ExpressionUUID -> "1235c47b-eb37-4183-b8c3-4bb98ead193c"],
7578
7579Cell[BoxData[
7580 InterpretationBox[
7581  RowBox[{
7582   StyleBox["\<\"\\nWriting\"\>",
7583    StripOnInput->False,
7584    LineColor->RGBColor[0, 0, 1],
7585    FrontFaceColor->RGBColor[0, 0, 1],
7586    BackFaceColor->RGBColor[0, 0, 1],
7587    GraphicsColor->RGBColor[0, 0, 1],
7588    FontColor->RGBColor[0, 0, 1]],
7589   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
7590variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
7591'vars1.mdl'.\"\>"}],
7592  SequenceForm[
7593   Style["\nWriting",
7594    RGBColor[0, 0, 1]],
7595   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
7596particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
7597  Editable->False]], "Print",
7598 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7599  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7600  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7601  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7602  3.718407866124856*^9,
7603  3.7184099552628813`*^9},ExpressionUUID->"db3782b0-49ea-4241-b8bb-\
7604a07ed04c8a58"],
7605
7606Cell[BoxData[
7607 InterpretationBox[
7608  RowBox[{
7609   StyleBox["\<\"\\nFinishing\"\>",
7610    StripOnInput->False,
7611    LineColor->RGBColor[0, 0, 1],
7612    FrontFaceColor->RGBColor[0, 0, 1],
7613    BackFaceColor->RGBColor[0, 0, 1],
7614    GraphicsColor->RGBColor[0, 0, 1],
7615    FontColor->RGBColor[0, 0, 1]],
7616   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
7617  SequenceForm[
7618   Style["\nFinishing",
7619    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
7620  Editable->False]], "Print",
7621 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7622  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7623  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7624  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7625  3.718407866124856*^9,
7626  3.718409958070333*^9},ExpressionUUID->"0d8707a2-cfdf-44d7-9cfb-\
7627efcbe4467422"],
7628
7629Cell[BoxData[
7630 InterpretationBox[
7631  RowBox[{
7632   StyleBox["\<\"Finishing\"\>",
7633    StripOnInput->False,
7634    LineColor->RGBColor[0, 0, 1],
7635    FrontFaceColor->RGBColor[0, 0, 1],
7636    BackFaceColor->RGBColor[0, 0, 1],
7637    GraphicsColor->RGBColor[0, 0, 1],
7638    FontColor->RGBColor[0, 0, 1]],
7639   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
7640  SequenceForm[
7641   Style["Finishing",
7642    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
7643  Editable->False]], "Print",
7644 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7645  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7646  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7647  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7648  3.718407866124856*^9,
7649  3.718409958087432*^9},ExpressionUUID->"e8e431a4-0b60-4168-9136-\
765073a4b12dbcdd"],
7651
7652Cell[BoxData[
7653 InterpretationBox[
7654  RowBox[{
7655   StyleBox["\<\"\\nDone\"\>",
7656    StripOnInput->False,
7657    LineColor->RGBColor[0, 0, 1],
7658    FrontFaceColor->RGBColor[0, 0, 1],
7659    BackFaceColor->RGBColor[0, 0, 1],
7660    GraphicsColor->RGBColor[0, 0, 1],
7661    FontColor->RGBColor[0, 0, 1]],
7662   "\[InvisibleSpace]", "\<\" in 0.54min!\"\>"}],
7663  SequenceForm[
7664   Style["\nDone",
7665    RGBColor[0, 0, 1]], " in 0.54min!"],
7666  Editable->False]], "Print",
7667 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9,
7668  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9,
7669  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9,
7670  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9,
7671  3.718407866124856*^9,
7672  3.718409958105299*^9},ExpressionUUID->"b38fc4eb-d51b-417d-981e-\
7673cdea8e4187d1"]
7674}, Open  ]]
7675}, Open  ]]
7676}, Closed]],
7677
7678Cell[CellGroupData[{
7679
7680Cell["FeynArts", "Chapter",
7681 CellChangeTimes->{{3.653342767661127*^9, 3.6533427702599983`*^9}, {
7682   3.6751387710535192`*^9, 3.6751387740648303`*^9}, {3.675139950764017*^9,
7683   3.675139953260113*^9},
7684   3.675139992964285*^9},ExpressionUUID->"917e2351-d35c-481e-9611-\
768510cb8a3c5ddb"],
7686
7687Cell[BoxData[{
7688 RowBox[{
7689  RowBox[{"FR$LoopSwitches", "=",
7690   RowBox[{"{",
7691    RowBox[{
7692     RowBox[{"{",
7693      RowBox[{"Gf", ",", "MW"}], "}"}], ",",
7694     RowBox[{"{",
7695      RowBox[{"lambda12s", ",", "t2theta"}], "}"}]}], "}"}]}],
7696  ";"}], "\[IndentingNewLine]",
7697 RowBox[{
7698  RowBox[{"If", "[",
7699   RowBox[{"Win", ",",
7700    RowBox[{"SetDirectory", "[", "$FeynArtsMdlWinDir", "]"}], ",",
7701    RowBox[{"SetDirectory", "[", "$FeynArtsMdlMacDir", "]"}]}], "]"}],
7702  ";"}]}], "Input",
7703 CellChangeTimes->{{3.6762435264935303`*^9, 3.676243526505324*^9}, {
7704   3.6762438216409893`*^9, 3.6762438421298018`*^9}, {3.6763407538899*^9,
7705   3.676340756072351*^9}, {3.676342168471962*^9, 3.676342169964034*^9},
7706   3.6906069228089314`*^9, {3.6906087606678195`*^9, 3.690608797264149*^9}, {
7707   3.690777223003598*^9, 3.6907772233306847`*^9}},
7708 ExpressionUUID -> "c629c05d-b920-487d-8976-e6f0695cea3f"],
7709
7710Cell[CellGroupData[{
7711
7712Cell[BoxData[{
7713 RowBox[{
7714  RowBox[{"Lren", "=",
7715   RowBox[{"OnShellRenormalization", "[",
7716    RowBox[{"LTypeI", ",",
7717     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
7718     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
7719     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
7720  ";"}], "\[IndentingNewLine]",
7721 RowBox[{"WriteFeynArtsOutput", "[",
7722  RowBox[{"Lren", ",",
7723   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TI\>\""}], ",",
7724   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
7725   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
7726 CellChangeTimes->{{3.6907772260458603`*^9, 3.690777238865779*^9}},
7727 ExpressionUUID -> "240fd8b7-7b0e-4100-8862-a2c802be5543"],
7728
7729Cell[CellGroupData[{
7730
7731Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
7732them\"\>"], "Print",
7733 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7734  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7735  3.7184121208978643`*^9},
7736 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7737
7738Cell[BoxData[
7739 InterpretationBox[
7740  RowBox[{"\<\"Neglecting all terms with more than \"\>",
7741   "\[InvisibleSpace]", "\<\"2\"\>",
7742   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
7743  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
7744  Editable->False]], "Print",
7745 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7746  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7747  3.718412130347307*^9},
7748 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7749
7750Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
7751 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7752  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7753  3.718412151326182*^9},
7754 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7755
7756Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
7757 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7758  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7759  3.718412151433764*^9},
7760 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7761
7762Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
7763 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7764  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7765  3.718412151445828*^9},
7766 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7767
7768Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
7769 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7770  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7771  3.718412151488565*^9},
7772 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7773
7774Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
7775 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7776  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7777  3.7184121515002937`*^9},
7778 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7779
7780Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
7781 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7782  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7783  3.718412151512372*^9},
7784 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7785
7786Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
7787 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7788  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7789  3.718412204321377*^9},
7790 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7791
7792Cell[BoxData["\<\"with the parameters\"\>"], "Print",
7793 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7794  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7795  3.718412204407188*^9},
7796 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7797
7798Cell[BoxData["\<\"with the fields\"\>"], "Print",
7799 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7800  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7801  3.718412207090567*^9},
7802 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7803
7804Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
7805 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7806  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7807  3.718412220654207*^9},
7808 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7809
7810Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
7811 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7812  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7813  3.7184122206699333`*^9},
7814 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7815
7816Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
7817 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7818  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7819  3.718412220685699*^9},
7820 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7821
7822Cell[BoxData[
7823 InterpretationBox[
7824  RowBox[{"\<\"Calculating Feynman rules for \"\>",
7825   "\[InvisibleSpace]", "\<\"L1\"\>"}],
7826  SequenceForm["Calculating Feynman rules for ", "L1"],
7827  Editable->False]], "Print",
7828 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7829  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7830  3.718412220703491*^9},
7831 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7832
7833Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
7834separate FeynArts class.\"\>"], "Print",
7835 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7836  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7837  3.718412220717216*^9},
7838 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7839
7840Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
7841classes\"\>"], "Print",
7842 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7843  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7844  3.718412220734289*^9},
7845 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7846
7847Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
7848-> True.\"\>"], "Print",
7849 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7850  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7851  3.718412220749433*^9},
7852 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7853
7854Cell[BoxData[
7855 InterpretationBox[
7856  RowBox[{"\<\"Calculating Feynman rules for \"\>",
7857   "\[InvisibleSpace]", "\<\"L1\"\>"}],
7858  SequenceForm["Calculating Feynman rules for ", "L1"],
7859  Editable->False]], "Print",
7860 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7861  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7862  3.718412220768208*^9},
7863 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7864
7865Cell[BoxData[
7866 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
7867  StripOnInput->False,
7868  LineColor->RGBColor[1, 0.5, 0],
7869  FrontFaceColor->RGBColor[1, 0.5, 0],
7870  BackFaceColor->RGBColor[1, 0.5, 0],
7871  GraphicsColor->RGBColor[1, 0.5, 0],
7872  FontWeight->Bold,
7873  FontColor->RGBColor[1, 0.5, 0]]], "Print",
7874 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7875  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7876  3.718412227373942*^9},
7877 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7878
7879Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7880 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7881  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7882  3.718412227385078*^9},
7883 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7884
7885Cell[BoxData[
7886 InterpretationBox[
7887  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
7888   "\[InvisibleSpace]", "\<\" cores\"\>"}],
7889  SequenceForm["Expanding the indices over ", 4, " cores"],
7890  Editable->False]], "Print",
7891 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7892  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7893  3.7184122273967*^9},
7894 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7895
7896Cell[BoxData["\<\"Collecting the different structures that enter the \
7897vertex.\"\>"], "Print",
7898 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7899  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7900  3.718412257247684*^9},
7901 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7902
7903Cell[BoxData[
7904 InterpretationBox[
7905  RowBox[{
7906  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
7907found -> starting the computation: \"\>", "\[InvisibleSpace]",
7908   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
7909    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7910   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
7911  SequenceForm[
7912  306, " possible non-zero vertices have been found -> starting the \
7913computation: ",
7914   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
7915  Editable->False]], "Print",
7916 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7917  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7918  3.718412257503132*^9},
7919 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7920
7921Cell[BoxData[
7922 InterpretationBox[
7923  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
7924  SequenceForm[287, " vertices obtained."],
7925  Editable->False]], "Print",
7926 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7927  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7928  3.7184122731592693`*^9},
7929 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],
7930
7931Cell[BoxData[
7932 InterpretationBox[
7933  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
7934   "\[InvisibleSpace]", "\<\"LS2HDM_TI\"\>"}],
7935  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TI"],
7936  Editable->False]], "Print",
7937 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9,
7938  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9,
7939  3.718412277945162*^9},
7940 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"]
7941}, Open  ]]
7942}, Closed]],
7943
7944Cell[CellGroupData[{
7945
7946Cell[BoxData[{
7947 RowBox[{
7948  RowBox[{"Lren", "=",
7949   RowBox[{"OnShellRenormalization", "[",
7950    RowBox[{"LTypeII", ",",
7951     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
7952     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
7953     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
7954  ";"}], "\[IndentingNewLine]",
7955 RowBox[{"WriteFeynArtsOutput", "[",
7956  RowBox[{"Lren", ",",
7957   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TII\>\""}], ",",
7958   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
7959   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
7960 CellChangeTimes->{{3.690777263353649*^9, 3.690777266585327*^9}},
7961 ExpressionUUID -> "26ec0bbf-b4ed-418d-9ebe-6352bb1b98b6"],
7962
7963Cell[CellGroupData[{
7964
7965Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
7966them\"\>"], "Print",
7967 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
7968  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
7969  3.718412290053446*^9},
7970 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
7971
7972Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
7973 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
7974  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
7975  3.7184123216191587`*^9},
7976 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
7977
7978Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
7979 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
7980  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
7981  3.7184123217268133`*^9},
7982 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
7983
7984Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
7985 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
7986  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
7987  3.718412321739458*^9},
7988 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
7989
7990Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
7991 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
7992  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
7993  3.718412321750991*^9},
7994 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
7995
7996Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
7997 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
7998  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
7999  3.7184123217634077`*^9},
8000 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8001
8002Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
8003 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8004  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8005  3.718412321777032*^9},
8006 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8007
8008Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
8009 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8010  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8011  3.7184124333777313`*^9},
8012 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8013
8014Cell[BoxData["\<\"with the parameters\"\>"], "Print",
8015 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8016  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8017  3.7184124334520683`*^9},
8018 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8019
8020Cell[BoxData["\<\"with the fields\"\>"], "Print",
8021 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8022  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8023  3.718412435247773*^9},
8024 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8025
8026Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
8027 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8028  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8029  3.718412447660294*^9},
8030 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8031
8032Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
8033 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8034  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8035  3.718412447672269*^9},
8036 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8037
8038Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
8039 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8040  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8041  3.7184124476851397`*^9},
8042 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8043
8044Cell[BoxData[
8045 InterpretationBox[
8046  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8047   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8048  SequenceForm["Calculating Feynman rules for ", "L1"],
8049  Editable->False]], "Print",
8050 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8051  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8052  3.718412447697597*^9},
8053 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8054
8055Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
8056separate FeynArts class.\"\>"], "Print",
8057 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8058  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8059  3.718412447709938*^9},
8060 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8061
8062Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
8063classes\"\>"], "Print",
8064 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8065  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8066  3.718412447721856*^9},
8067 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8068
8069Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
8070-> True.\"\>"], "Print",
8071 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8072  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8073  3.718412447734194*^9},
8074 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8075
8076Cell[BoxData[
8077 InterpretationBox[
8078  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8079   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8080  SequenceForm["Calculating Feynman rules for ", "L1"],
8081  Editable->False]], "Print",
8082 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8083  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8084  3.718412447750175*^9},
8085 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8086
8087Cell[BoxData[
8088 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
8089  StripOnInput->False,
8090  LineColor->RGBColor[1, 0.5, 0],
8091  FrontFaceColor->RGBColor[1, 0.5, 0],
8092  BackFaceColor->RGBColor[1, 0.5, 0],
8093  GraphicsColor->RGBColor[1, 0.5, 0],
8094  FontWeight->Bold,
8095  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8096 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8097  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8098  3.7184124550296717`*^9},
8099 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8100
8101Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8102 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8103  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8104  3.718412455041161*^9},
8105 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8106
8107Cell[BoxData[
8108 InterpretationBox[
8109  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
8110   "\[InvisibleSpace]", "\<\" cores\"\>"}],
8111  SequenceForm["Expanding the indices over ", 4, " cores"],
8112  Editable->False]], "Print",
8113 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8114  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8115  3.7184124550525427`*^9},
8116 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8117
8118Cell[BoxData["\<\"Collecting the different structures that enter the \
8119vertex.\"\>"], "Print",
8120 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8121  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8122  3.718412484687171*^9},
8123 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8124
8125Cell[BoxData[
8126 InterpretationBox[
8127  RowBox[{
8128  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
8129found -> starting the computation: \"\>", "\[InvisibleSpace]",
8130   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
8131    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8132   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
8133  SequenceForm[
8134  306, " possible non-zero vertices have been found -> starting the \
8135computation: ",
8136   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
8137  Editable->False]], "Print",
8138 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8139  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8140  3.718412484931593*^9},
8141 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8142
8143Cell[BoxData[
8144 InterpretationBox[
8145  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
8146  SequenceForm[287, " vertices obtained."],
8147  Editable->False]], "Print",
8148 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8149  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8150  3.718412501125531*^9},
8151 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],
8152
8153Cell[BoxData[
8154 InterpretationBox[
8155  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
8156   "\[InvisibleSpace]", "\<\"LS2HDM_TII\"\>"}],
8157  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TII"],
8158  Editable->False]], "Print",
8159 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9,
8160  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9,
8161  3.718412505340814*^9},
8162 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"]
8163}, Open  ]]
8164}, Closed]],
8165
8166Cell[CellGroupData[{
8167
8168Cell[BoxData[{
8169 RowBox[{
8170  RowBox[{"Lren", "=",
8171   RowBox[{"OnShellRenormalization", "[",
8172    RowBox[{"LTypeX", ",",
8173     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
8174     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
8175     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
8176  ";"}], "\[IndentingNewLine]",
8177 RowBox[{"WriteFeynArtsOutput", "[",
8178  RowBox[{"Lren", ",",
8179   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TX\>\""}], ",",
8180   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
8181   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
8182 CellChangeTimes->{{3.690777268745599*^9, 3.6907772702260303`*^9}},
8183 ExpressionUUID -> "7af63aea-468a-4307-a8af-c179003896ae"],
8184
8185Cell[CellGroupData[{
8186
8187Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
8188them\"\>"], "Print",
8189 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8190  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8191  3.718412516848418*^9},
8192 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8193
8194Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
8195 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8196  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8197  3.718412548843026*^9},
8198 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8199
8200Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
8201 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8202  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8203  3.7184125489477177`*^9},
8204 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8205
8206Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
8207 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8208  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8209  3.718412548960894*^9},
8210 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8211
8212Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
8213 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8214  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8215  3.718412548974833*^9},
8216 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8217
8218Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
8219 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8220  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8221  3.7184125489888563`*^9},
8222 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8223
8224Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
8225 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8226  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8227  3.718412549001902*^9},
8228 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8229
8230Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
8231 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8232  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8233  3.718412676516822*^9},
8234 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8235
8236Cell[BoxData["\<\"with the parameters\"\>"], "Print",
8237 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8238  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8239  3.7184126766396627`*^9},
8240 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8241
8242Cell[BoxData["\<\"with the fields\"\>"], "Print",
8243 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8244  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8245  3.7184126783971987`*^9},
8246 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8247
8248Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
8249 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8250  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8251  3.718412690745433*^9},
8252 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8253
8254Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
8255 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8256  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8257  3.718412690758134*^9},
8258 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8259
8260Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
8261 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8262  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8263  3.71841269077035*^9},
8264 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8265
8266Cell[BoxData[
8267 InterpretationBox[
8268  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8269   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8270  SequenceForm["Calculating Feynman rules for ", "L1"],
8271  Editable->False]], "Print",
8272 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8273  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8274  3.71841269078402*^9},
8275 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8276
8277Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
8278separate FeynArts class.\"\>"], "Print",
8279 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8280  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8281  3.71841269079702*^9},
8282 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8283
8284Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
8285classes\"\>"], "Print",
8286 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8287  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8288  3.718412690809503*^9},
8289 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8290
8291Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
8292-> True.\"\>"], "Print",
8293 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8294  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8295  3.718412690822*^9},
8296 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8297
8298Cell[BoxData[
8299 InterpretationBox[
8300  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8301   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8302  SequenceForm["Calculating Feynman rules for ", "L1"],
8303  Editable->False]], "Print",
8304 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8305  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8306  3.718412690835064*^9},
8307 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8308
8309Cell[BoxData[
8310 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
8311  StripOnInput->False,
8312  LineColor->RGBColor[1, 0.5, 0],
8313  FrontFaceColor->RGBColor[1, 0.5, 0],
8314  BackFaceColor->RGBColor[1, 0.5, 0],
8315  GraphicsColor->RGBColor[1, 0.5, 0],
8316  FontWeight->Bold,
8317  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8318 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8319  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8320  3.718412697877184*^9},
8321 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8322
8323Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8324 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8325  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8326  3.718412697887589*^9},
8327 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8328
8329Cell[BoxData[
8330 InterpretationBox[
8331  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
8332   "\[InvisibleSpace]", "\<\" cores\"\>"}],
8333  SequenceForm["Expanding the indices over ", 4, " cores"],
8334  Editable->False]], "Print",
8335 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8336  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8337  3.7184126978991528`*^9},
8338 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8339
8340Cell[BoxData["\<\"Collecting the different structures that enter the \
8341vertex.\"\>"], "Print",
8342 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8343  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8344  3.718412726955652*^9},
8345 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8346
8347Cell[BoxData[
8348 InterpretationBox[
8349  RowBox[{
8350  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
8351found -> starting the computation: \"\>", "\[InvisibleSpace]",
8352   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
8353    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8354   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
8355  SequenceForm[
8356  306, " possible non-zero vertices have been found -> starting the \
8357computation: ",
8358   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
8359  Editable->False]], "Print",
8360 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8361  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8362  3.718412727200923*^9},
8363 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8364
8365Cell[BoxData[
8366 InterpretationBox[
8367  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
8368  SequenceForm[287, " vertices obtained."],
8369  Editable->False]], "Print",
8370 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8371  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8372  3.7184127430103188`*^9},
8373 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],
8374
8375Cell[BoxData[
8376 InterpretationBox[
8377  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
8378   "\[InvisibleSpace]", "\<\"LS2HDM_TX\"\>"}],
8379  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TX"],
8380  Editable->False]], "Print",
8381 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9,
8382  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9,
8383  3.718412747213387*^9},
8384 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"]
8385}, Open  ]]
8386}, Closed]],
8387
8388Cell[CellGroupData[{
8389
8390Cell[BoxData[{
8391 RowBox[{
8392  RowBox[{"Lren", "=",
8393   RowBox[{"OnShellRenormalization", "[",
8394    RowBox[{"LTypeY", ",",
8395     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
8396     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
8397     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
8398  ";"}], "\[IndentingNewLine]",
8399 RowBox[{"WriteFeynArtsOutput", "[",
8400  RowBox[{"Lren", ",",
8401   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TY\>\""}], ",",
8402   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
8403   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
8404 CellChangeTimes->{{3.690777271728582*^9, 3.6907772744180613`*^9}},
8405 ExpressionUUID -> "7bdf063d-9fdf-4d39-b70c-131ebc9e9b74"],
8406
8407Cell[CellGroupData[{
8408
8409Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
8410them\"\>"], "Print",
8411 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8412  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8413  3.718412758382861*^9},
8414 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8415
8416Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
8417 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8418  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8419  3.71841279006527*^9},
8420 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8421
8422Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
8423 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8424  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8425  3.718412790166956*^9},
8426 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8427
8428Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
8429 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8430  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8431  3.718412790180461*^9},
8432 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8433
8434Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
8435 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8436  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8437  3.7184127901930637`*^9},
8438 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8439
8440Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
8441 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8442  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8443  3.718412790205123*^9},
8444 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8445
8446Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
8447 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8448  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8449  3.718412790220068*^9},
8450 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8451
8452Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
8453 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8454  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8455  3.718412904415724*^9},
8456 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8457
8458Cell[BoxData["\<\"with the parameters\"\>"], "Print",
8459 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8460  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8461  3.718412904587422*^9},
8462 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8463
8464Cell[BoxData["\<\"with the fields\"\>"], "Print",
8465 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8466  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8467  3.7184129062717447`*^9},
8468 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8469
8470Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
8471 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8472  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8473  3.7184129189090233`*^9},
8474 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8475
8476Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
8477 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8478  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8479  3.718412918920958*^9},
8480 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8481
8482Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
8483 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8484  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8485  3.71841291893152*^9},
8486 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8487
8488Cell[BoxData[
8489 InterpretationBox[
8490  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8491   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8492  SequenceForm["Calculating Feynman rules for ", "L1"],
8493  Editable->False]], "Print",
8494 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8495  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8496  3.7184129189430113`*^9},
8497 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8498
8499Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
8500separate FeynArts class.\"\>"], "Print",
8501 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8502  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8503  3.71841291895452*^9},
8504 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8505
8506Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
8507classes\"\>"], "Print",
8508 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8509  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8510  3.718412918966132*^9},
8511 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8512
8513Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
8514-> True.\"\>"], "Print",
8515 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8516  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8517  3.718412918976933*^9},
8518 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8519
8520Cell[BoxData[
8521 InterpretationBox[
8522  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8523   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8524  SequenceForm["Calculating Feynman rules for ", "L1"],
8525  Editable->False]], "Print",
8526 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8527  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8528  3.718412918987453*^9},
8529 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8530
8531Cell[BoxData[
8532 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
8533  StripOnInput->False,
8534  LineColor->RGBColor[1, 0.5, 0],
8535  FrontFaceColor->RGBColor[1, 0.5, 0],
8536  BackFaceColor->RGBColor[1, 0.5, 0],
8537  GraphicsColor->RGBColor[1, 0.5, 0],
8538  FontWeight->Bold,
8539  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8540 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8541  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8542  3.718412926303878*^9},
8543 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8544
8545Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8546 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8547  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8548  3.718412926324027*^9},
8549 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8550
8551Cell[BoxData[
8552 InterpretationBox[
8553  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
8554   "\[InvisibleSpace]", "\<\" cores\"\>"}],
8555  SequenceForm["Expanding the indices over ", 4, " cores"],
8556  Editable->False]], "Print",
8557 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8558  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8559  3.718412926344096*^9},
8560 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8561
8562Cell[BoxData["\<\"Collecting the different structures that enter the \
8563vertex.\"\>"], "Print",
8564 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8565  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8566  3.71841295623173*^9},
8567 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8568
8569Cell[BoxData[
8570 InterpretationBox[
8571  RowBox[{
8572  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
8573found -> starting the computation: \"\>", "\[InvisibleSpace]",
8574   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
8575    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8576   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
8577  SequenceForm[
8578  306, " possible non-zero vertices have been found -> starting the \
8579computation: ",
8580   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
8581  Editable->False]], "Print",
8582 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8583  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8584  3.718412956484309*^9},
8585 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8586
8587Cell[BoxData[
8588 InterpretationBox[
8589  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
8590  SequenceForm[287, " vertices obtained."],
8591  Editable->False]], "Print",
8592 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8593  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8594  3.718412972886264*^9},
8595 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],
8596
8597Cell[BoxData[
8598 InterpretationBox[
8599  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
8600   "\[InvisibleSpace]", "\<\"LS2HDM_TY\"\>"}],
8601  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TY"],
8602  Editable->False]], "Print",
8603 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9,
8604  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9,
8605  3.7184129771173477`*^9},
8606 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"]
8607}, Open  ]]
8608}, Closed]],
8609
8610Cell[CellGroupData[{
8611
8612Cell[BoxData[{
8613 RowBox[{
8614  RowBox[{"Lren", "=",
8615   RowBox[{"OnShellRenormalization", "[",
8616    RowBox[{"LInert", ",",
8617     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
8618     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
8619     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
8620  ";"}], "\[IndentingNewLine]",
8621 RowBox[{"WriteFeynArtsOutput", "[",
8622  RowBox[{"Lren", ",",
8623   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_Inert\>\""}], ",",
8624   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
8625   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
8626 CellChangeTimes->{{3.690777276754737*^9, 3.69077728270396*^9}},
8627 ExpressionUUID -> "7a88ff36-cfd3-4dcc-86d7-e5906b583e1d"],
8628
8629Cell[CellGroupData[{
8630
8631Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
8632them\"\>"], "Print",
8633 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8634  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8635  3.718412985621952*^9, 3.718413585816353*^9},
8636 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8637
8638Cell[BoxData[
8639 InterpretationBox[
8640  RowBox[{"\<\"Neglecting all terms with more than \"\>",
8641   "\[InvisibleSpace]", "\<\"2\"\>",
8642   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
8643  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
8644  Editable->False]], "Print",
8645 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8646  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8647  3.718412985621952*^9, 3.718413592731718*^9},
8648 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8649
8650Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
8651 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8652  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8653  3.718412985621952*^9, 3.718413609048621*^9},
8654 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8655
8656Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
8657 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8658  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8659  3.718412985621952*^9, 3.7184136091619673`*^9},
8660 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8661
8662Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
8663 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8664  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8665  3.718412985621952*^9, 3.718413609176509*^9},
8666 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8667
8668Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
8669 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8670  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8671  3.718412985621952*^9, 3.718413609213827*^9},
8672 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8673
8674Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
8675 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8676  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8677  3.718412985621952*^9, 3.7184136092268143`*^9},
8678 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8679
8680Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
8681 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8682  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8683  3.718412985621952*^9, 3.718413609239649*^9},
8684 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8685
8686Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
8687 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8688  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8689  3.718412985621952*^9, 3.718413645067658*^9},
8690 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8691
8692Cell[BoxData["\<\"with the parameters\"\>"], "Print",
8693 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8694  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8695  3.718412985621952*^9, 3.7184136451400557`*^9},
8696 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8697
8698Cell[BoxData["\<\"with the fields\"\>"], "Print",
8699 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8700  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8701  3.718412985621952*^9, 3.7184136466989326`*^9},
8702 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8703
8704Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
8705 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8706  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8707  3.718412985621952*^9, 3.718413653474596*^9},
8708 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8709
8710Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
8711 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8712  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8713  3.718412985621952*^9, 3.718413653489748*^9},
8714 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8715
8716Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
8717 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8718  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8719  3.718412985621952*^9, 3.718413653504974*^9},
8720 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8721
8722Cell[BoxData[
8723 InterpretationBox[
8724  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8725   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8726  SequenceForm["Calculating Feynman rules for ", "L1"],
8727  Editable->False]], "Print",
8728 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8729  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8730  3.718412985621952*^9, 3.718413653518587*^9},
8731 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8732
8733Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
8734separate FeynArts class.\"\>"], "Print",
8735 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8736  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8737  3.718412985621952*^9, 3.718413653531925*^9},
8738 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8739
8740Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
8741classes\"\>"], "Print",
8742 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8743  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8744  3.718412985621952*^9, 3.718413653547145*^9},
8745 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8746
8747Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
8748-> True.\"\>"], "Print",
8749 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8750  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8751  3.718412985621952*^9, 3.718413653561043*^9},
8752 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8753
8754Cell[BoxData[
8755 InterpretationBox[
8756  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8757   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8758  SequenceForm["Calculating Feynman rules for ", "L1"],
8759  Editable->False]], "Print",
8760 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8761  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8762  3.718412985621952*^9, 3.718413653573773*^9},
8763 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8764
8765Cell[BoxData[
8766 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
8767  StripOnInput->False,
8768  LineColor->RGBColor[1, 0.5, 0],
8769  FrontFaceColor->RGBColor[1, 0.5, 0],
8770  BackFaceColor->RGBColor[1, 0.5, 0],
8771  GraphicsColor->RGBColor[1, 0.5, 0],
8772  FontWeight->Bold,
8773  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8774 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8775  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8776  3.718412985621952*^9, 3.718413656233307*^9},
8777 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8778
8779Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8780 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8781  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8782  3.718412985621952*^9, 3.7184136562471313`*^9},
8783 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8784
8785Cell[BoxData[
8786 InterpretationBox[
8787  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
8788   "\[InvisibleSpace]", "\<\" cores\"\>"}],
8789  SequenceForm["Expanding the indices over ", 4, " cores"],
8790  Editable->False]], "Print",
8791 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8792  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8793  3.718412985621952*^9, 3.718413656260002*^9},
8794 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8795
8796Cell[BoxData["\<\"Collecting the different structures that enter the \
8797vertex.\"\>"], "Print",
8798 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8799  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8800  3.718412985621952*^9, 3.718413679794057*^9},
8801 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8802
8803Cell[BoxData[
8804 InterpretationBox[
8805  RowBox[{
8806  "283", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
8807found -> starting the computation: \"\>", "\[InvisibleSpace]",
8808   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
8809    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
8810   "\[InvisibleSpace]", "283", "\[InvisibleSpace]", "\<\".\"\>"}],
8811  SequenceForm[
8812  283, " possible non-zero vertices have been found -> starting the \
8813computation: ",
8814   Dynamic[FeynRules`FR$FeynmanRules], " / ", 283, "."],
8815  Editable->False]], "Print",
8816 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8817  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8818  3.718412985621952*^9, 3.718413679997162*^9},
8819 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8820
8821Cell[BoxData[
8822 InterpretationBox[
8823  RowBox[{"264", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
8824  SequenceForm[264, " vertices obtained."],
8825  Editable->False]], "Print",
8826 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8827  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8828  3.718412985621952*^9, 3.7184136928488293`*^9},
8829 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],
8830
8831Cell[BoxData[
8832 InterpretationBox[
8833  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
8834   "\[InvisibleSpace]", "\<\"LS2HDM_Inert\"\>"}],
8835  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_Inert"],
8836 
8837  Editable->False]], "Print",
8838 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9,
8839  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9,
8840  3.718412985621952*^9, 3.7184136962234993`*^9},
8841 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"]
8842}, Open  ]]
8843}, Closed]],
8844
8845Cell[CellGroupData[{
8846
8847Cell[BoxData[{
8848 RowBox[{
8849  RowBox[{"Lren", "=",
8850   RowBox[{"OnShellRenormalization", "[",
8851    RowBox[{"LAlign", ",",
8852     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
8853     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
8854     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
8855  ";"}], "\[IndentingNewLine]",
8856 RowBox[{"WriteFeynArtsOutput", "[",
8857  RowBox[{"Lren", ",",
8858   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_Align\>\""}], ",",
8859   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
8860   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
8861 CellChangeTimes->{{3.690777285871957*^9, 3.690777291079534*^9}},
8862 ExpressionUUID -> "a032c616-6258-4359-a2ae-cd199b33f891"],
8863
8864Cell[CellGroupData[{
8865
8866Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
8867them\"\>"], "Print",
8868 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8869  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137074601593`*^9},
8870 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8871
8872Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
8873 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8874  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413741185433*^9},
8875 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8876
8877Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
8878 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8879  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413741303426*^9},
8880 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8881
8882Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
8883 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8884  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413741320036*^9},
8885 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8886
8887Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
8888 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8889  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137413344297`*^9},
8890 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8891
8892Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
8893 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8894  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137413477077`*^9},
8895 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8896
8897Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
8898 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8899  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137413621187`*^9},
8900 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8901
8902Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
8903 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8904  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413820519618*^9},
8905 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8906
8907Cell[BoxData["\<\"with the parameters\"\>"], "Print",
8908 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8909  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138205839443`*^9},
8910 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8911
8912Cell[BoxData["\<\"with the fields\"\>"], "Print",
8913 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8914  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138229920807`*^9},
8915 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8916
8917Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
8918 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8919  3.704418811370986*^9, 3.7184109096605988`*^9, 3.71841383636458*^9},
8920 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8921
8922Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
8923 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8924  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138363804827`*^9},
8925 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8926
8927Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
8928 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8929  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138363939657`*^9},
8930 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8931
8932Cell[BoxData[
8933 InterpretationBox[
8934  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8935   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8936  SequenceForm["Calculating Feynman rules for ", "L1"],
8937  Editable->False]], "Print",
8938 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8939  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138364083347`*^9},
8940 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8941
8942Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
8943separate FeynArts class.\"\>"], "Print",
8944 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8945  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138364214497`*^9},
8946 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8947
8948Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
8949classes\"\>"], "Print",
8950 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8951  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138364359922`*^9},
8952 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8953
8954Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
8955-> True.\"\>"], "Print",
8956 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8957  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413836448532*^9},
8958 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8959
8960Cell[BoxData[
8961 InterpretationBox[
8962  RowBox[{"\<\"Calculating Feynman rules for \"\>",
8963   "\[InvisibleSpace]", "\<\"L1\"\>"}],
8964  SequenceForm["Calculating Feynman rules for ", "L1"],
8965  Editable->False]], "Print",
8966 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8967  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413836462768*^9},
8968 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8969
8970Cell[BoxData[
8971 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
8972  StripOnInput->False,
8973  LineColor->RGBColor[1, 0.5, 0],
8974  FrontFaceColor->RGBColor[1, 0.5, 0],
8975  BackFaceColor->RGBColor[1, 0.5, 0],
8976  GraphicsColor->RGBColor[1, 0.5, 0],
8977  FontWeight->Bold,
8978  FontColor->RGBColor[1, 0.5, 0]]], "Print",
8979 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8980  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413844879979*^9},
8981 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8982
8983Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
8984 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8985  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413844892679*^9},
8986 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8987
8988Cell[BoxData[
8989 InterpretationBox[
8990  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
8991   "\[InvisibleSpace]", "\<\" cores\"\>"}],
8992  SequenceForm["Expanding the indices over ", 4, " cores"],
8993  Editable->False]], "Print",
8994 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
8995  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413844906629*^9},
8996 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
8997
8998Cell[BoxData["\<\"Collecting the different structures that enter the \
8999vertex.\"\>"], "Print",
9000 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
9001  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138759701014`*^9},
9002 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
9003
9004Cell[BoxData[
9005 InterpretationBox[
9006  RowBox[{
9007  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
9008found -> starting the computation: \"\>", "\[InvisibleSpace]",
9009   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
9010    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9011   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
9012  SequenceForm[
9013  306, " possible non-zero vertices have been found -> starting the \
9014computation: ",
9015   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
9016  Editable->False]], "Print",
9017 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
9018  3.704418811370986*^9, 3.7184109096605988`*^9, 3.71841387623272*^9},
9019 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
9020
9021Cell[BoxData[
9022 InterpretationBox[
9023  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
9024  SequenceForm[287, " vertices obtained."],
9025  Editable->False]], "Print",
9026 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
9027  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138942157583`*^9},
9028 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],
9029
9030Cell[BoxData[
9031 InterpretationBox[
9032  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
9033   "\[InvisibleSpace]", "\<\"LS2HDM_Align\"\>"}],
9034  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_Align"],
9035 
9036  Editable->False]], "Print",
9037 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9,
9038  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138991413813`*^9},
9039 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"]
9040}, Open  ]]
9041}, Closed]],
9042
9043Cell[CellGroupData[{
9044
9045Cell[BoxData[{
9046 RowBox[{
9047  RowBox[{"Lren", "=",
9048   RowBox[{"OnShellRenormalization", "[",
9049    RowBox[{"L2gen", ",",
9050     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
9051     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",",
9052     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}],
9053  ";"}], "\[IndentingNewLine]",
9054 RowBox[{"WriteFeynArtsOutput", "[",
9055  RowBox[{"Lren", ",",
9056   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_2gen\>\""}], ",",
9057   RowBox[{"GenericFile", "\[Rule]", "False"}], ",",
9058   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
9059 CellChangeTimes->{{3.690777296593112*^9, 3.6907773014392023`*^9}},
9060 ExpressionUUID -> "70076882-7dd5-4cb3-8ee5-13e593d651e5"],
9061
9062Cell[CellGroupData[{
9063
9064Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
9065them\"\>"], "Print",
9066 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9067  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413914232903*^9},
9068 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9069
9070Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
9071 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9072  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950126904*^9},
9073 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9074
9075Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
9076 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9077  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950228787*^9},
9078 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9079
9080Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
9081 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9082  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950240851*^9},
9083 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9084
9085Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
9086 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9087  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950252664*^9},
9088 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9089
9090Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
9091 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9092  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950263962*^9},
9093 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9094
9095Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
9096 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9097  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184139502754803`*^9},
9098 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9099
9100Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
9101 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9102  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414084120267*^9},
9103 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9104
9105Cell[BoxData["\<\"with the parameters\"\>"], "Print",
9106 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9107  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414084395027*^9},
9108 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9109
9110Cell[BoxData["\<\"with the fields\"\>"], "Print",
9111 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9112  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414086468685*^9},
9113 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9114
9115Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
9116 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9117  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105049629*^9},
9118 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9119
9120Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
9121 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9122  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105062532*^9},
9123 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9124
9125Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
9126 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9127  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105075526*^9},
9128 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9129
9130Cell[BoxData[
9131 InterpretationBox[
9132  RowBox[{"\<\"Calculating Feynman rules for \"\>",
9133   "\[InvisibleSpace]", "\<\"L1\"\>"}],
9134  SequenceForm["Calculating Feynman rules for ", "L1"],
9135  Editable->False]], "Print",
9136 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9137  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105089203*^9},
9138 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9139
9140Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
9141separate FeynArts class.\"\>"], "Print",
9142 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9143  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105102816*^9},
9144 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9145
9146Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
9147classes\"\>"], "Print",
9148 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9149  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105115732*^9},
9150 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9151
9152Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
9153-> True.\"\>"], "Print",
9154 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9155  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141051290617`*^9},
9156 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9157
9158Cell[BoxData[
9159 InterpretationBox[
9160  RowBox[{"\<\"Calculating Feynman rules for \"\>",
9161   "\[InvisibleSpace]", "\<\"L1\"\>"}],
9162  SequenceForm["Calculating Feynman rules for ", "L1"],
9163  Editable->False]], "Print",
9164 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9165  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141051417637`*^9},
9166 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9167
9168Cell[BoxData[
9169 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
9170  StripOnInput->False,
9171  LineColor->RGBColor[1, 0.5, 0],
9172  FrontFaceColor->RGBColor[1, 0.5, 0],
9173  BackFaceColor->RGBColor[1, 0.5, 0],
9174  GraphicsColor->RGBColor[1, 0.5, 0],
9175  FontWeight->Bold,
9176  FontColor->RGBColor[1, 0.5, 0]]], "Print",
9177 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9178  3.7044189829621763`*^9, 3.718411114283349*^9, 3.71841411585425*^9},
9179 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9180
9181Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
9182 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9183  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414115867667*^9},
9184 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9185
9186Cell[BoxData[
9187 InterpretationBox[
9188  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4",
9189   "\[InvisibleSpace]", "\<\" cores\"\>"}],
9190  SequenceForm["Expanding the indices over ", 4, " cores"],
9191  Editable->False]], "Print",
9192 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9193  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414115880225*^9},
9194 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9195
9196Cell[BoxData["\<\"Collecting the different structures that enter the \
9197vertex.\"\>"], "Print",
9198 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9199  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141465247993`*^9},
9200 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9201
9202Cell[BoxData[
9203 InterpretationBox[
9204  RowBox[{
9205  "313", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
9206found -> starting the computation: \"\>", "\[InvisibleSpace]",
9207   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
9208    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9209   "\[InvisibleSpace]", "313", "\[InvisibleSpace]", "\<\".\"\>"}],
9210  SequenceForm[
9211  313, " possible non-zero vertices have been found -> starting the \
9212computation: ",
9213   Dynamic[FeynRules`FR$FeynmanRules], " / ", 313, "."],
9214  Editable->False]], "Print",
9215 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9216  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414146798367*^9},
9217 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9218
9219Cell[BoxData[
9220 InterpretationBox[
9221  RowBox[{"294", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
9222  SequenceForm[294, " vertices obtained."],
9223  Editable->False]], "Print",
9224 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9225  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141644320717`*^9},
9226 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],
9227
9228Cell[BoxData[
9229 InterpretationBox[
9230  RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
9231   "\[InvisibleSpace]", "\<\"LS2HDM_2gen\"\>"}],
9232  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_2gen"],
9233  Editable->False]], "Print",
9234 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9,
9235  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414168646255*^9},
9236 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"]
9237}, Open  ]]
9238}, Closed]],
9239
9240Cell[BoxData[
9241 RowBox[{"Quit", "[", "]"}]], "Input",
9242 ExpressionUUID -> "dbf6cca3-4164-4e0c-bdff-a5d9b83e5c72"]
9243}, Closed]],
9244
9245Cell[CellGroupData[{
9246
9247Cell["NLOCT", "Chapter",
9248 CellChangeTimes->{{3.653342974908367*^9,
9249  3.653342975707679*^9}},ExpressionUUID->"978c3a0a-14ce-442a-8e7f-\
925026196892ed2c"],
9251
9252Cell[BoxData[{
9253 RowBox[{
9254  RowBox[{"Win", "=",
9255   RowBox[{"(",
9256    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}],
9257  ";"}], "\[IndentingNewLine]",
9258 RowBox[{
9259  RowBox[{
9260  "$FeynArtsWinDir", "=",
9261   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
9262\\\\FeynArts\>\""}], ";"}], "\[IndentingNewLine]",
9263 RowBox[{
9264  RowBox[{
9265  "$FeynArtsMacDir", "=",
9266   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts\>\""}],
9267  ";"}], "\[IndentingNewLine]",
9268 RowBox[{
9269  RowBox[{
9270  "$WinDir", "=",
9271   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
9272\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]",
9273 RowBox[{
9274  RowBox[{
9275  "$MacDir", "=",
9276   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
9277current\>\""}], ";"}], "\[IndentingNewLine]",
9278 RowBox[{
9279  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}],
9280  ";"}], "\[IndentingNewLine]",
9281 RowBox[{
9282  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}],
9283  ";"}], "\[IndentingNewLine]",
9284 RowBox[{
9285  RowBox[{"If", "[",
9286   RowBox[{"Win", ",",
9287    RowBox[{"$FeynRulesPath", "=",
9288     RowBox[{"SetDirectory", "[", "$FeynArtsWinDir", "]"}]}], ",",
9289    RowBox[{"$FeynRulesPath", "=",
9290     RowBox[{"SetDirectory", "[", "$FeynArtsMacDir", "]"}]}]}], "]"}],
9291  ";"}]}], "Input",
9292 CellChangeTimes->{
9293  3.653342814693084*^9, {3.675137307411476*^9, 3.6751373095966263`*^9}, {
9294   3.675137467398859*^9, 3.6751374754558077`*^9}, {3.676187014041254*^9,
9295   3.6761870556307526`*^9}, {3.676339175945261*^9, 3.676339247958099*^9}},
9296 ExpressionUUID -> "25b0438e-b475-465f-961d-9850d0409873"],
9297
9298Cell[CellGroupData[{
9299
9300Cell[BoxData[
9301 RowBox[{"<<", " ", "FeynArts`"}]], "Input",
9302 ExpressionUUID -> "0057ece4-8075-4f3b-900d-b38f676ed1df"],
9303
9304Cell[CellGroupData[{
9305
9306Cell[BoxData["\<\"\"\>"], "Print",
9307 CellChangeTimes->{3.6906107502033625`*^9, 3.6906710181040897`*^9,
9308  3.690779382919428*^9, 3.704401437284342*^9, 3.7044193635687037`*^9,
9309  3.704422539142214*^9, 3.7184113599048223`*^9, 3.718413022487193*^9,
9310  3.7184142044321957`*^9, 3.718414641718495*^9},
9311 ExpressionUUID -> "40cfc4bb-8fed-4449-9de5-2c44e56228e5"],
9312
9313Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print",
9314 CellChangeTimes->{3.6906107502033625`*^9, 3.6906710181040897`*^9,
9315  3.690779382919428*^9, 3.704401437284342*^9, 3.7044193635687037`*^9,
9316  3.704422539142214*^9, 3.7184113599048223`*^9, 3.718413022487193*^9,
9317  3.7184142044321957`*^9, 3.718414641731578*^9},
9318 ExpressionUUID -> "40cfc4bb-8fed-4449-9de5-2c44e56228e5"],
9319
9320Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
9321 CellChangeTimes->{3.6906107502033625`*^9, 3.6906710181040897`*^9,
9322  3.690779382919428*^9, 3.704401437284342*^9, 3.7044193635687037`*^9,
9323  3.704422539142214*^9, 3.7184113599048223`*^9, 3.718413022487193*^9,
9324  3.7184142044321957`*^9, 3.718414641749762*^9},
9325 ExpressionUUID -> "40cfc4bb-8fed-4449-9de5-2c44e56228e5"]
9326}, Open  ]]
9327}, Open  ]],
9328
9329Cell[BoxData[{
9330 RowBox[{
9331  RowBox[{"Win", "=",
9332   RowBox[{"(",
9333    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}],
9334  ";"}], "\[IndentingNewLine]",
9335 RowBox[{
9336  RowBox[{"If", "[",
9337   RowBox[{"Win", ",",
9338    RowBox[{"$FeynRulesPath", "=",
9339     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",",
9340    RowBox[{"$FeynRulesPath", "=",
9341     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}],
9342  ";"}]}], "Input",
9343 CellChangeTimes->{{3.64302329717109*^9, 3.643023299501276*^9}, {
9344   3.6452723585550957`*^9, 3.645272359939103*^9}, {3.647076405736209*^9,
9345   3.64707640635962*^9}, 3.653342850700206*^9, 3.6751372040692425`*^9, {
9346   3.675137321423684*^9, 3.675137339742462*^9}, {3.6761870603362703`*^9,
9347   3.6761870789577255`*^9}, 3.676339258577112*^9},
9348 ExpressionUUID -> "d406c88b-c940-491d-b041-aa12a5faed0f"],
9349
9350Cell[CellGroupData[{
9351
9352Cell[BoxData[
9353 RowBox[{"<<", " ", "NLOCT`"}]], "Input",
9354 ExpressionUUID -> "11dc5c4d-eeac-4fb1-b765-880012700e03"],
9355
9356Cell[CellGroupData[{
9357
9358Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
9359 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9,
9360  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9,
9361  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9,
9362  3.7184142045357637`*^9, 3.718414641841178*^9},
9363 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"],
9364
9365Cell[BoxData["\<\"Version: 1.02\"\>"], "Print",
9366 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9,
9367  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9,
9368  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9,
9369  3.7184142045357637`*^9, 3.7184146418554077`*^9},
9370 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"],
9371
9372Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
9373 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9,
9374  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9,
9375  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9,
9376  3.7184142045357637`*^9, 3.718414641869411*^9},
9377 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"],
9378
9379Cell[BoxData["\<\"Please cite C. Degrande, Comput.Phys.Commun. 197 (2015) \
9380239-262\"\>"], "Print",
9381 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9,
9382  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9,
9383  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9,
9384  3.7184142045357637`*^9, 3.718414641882968*^9},
9385 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"]
9386}, Open  ]]
9387}, Open  ]],
9388
9389Cell[BoxData[
9390 RowBox[{
9391  RowBox[{"If", "[",
9392   RowBox[{"Win", ",",
9393    RowBox[{"SetDirectory", "[",
9394     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",",
9395    RowBox[{"SetDirectory", "[",
9396     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}],
9397  ";"}]], "Input",
9398 CellChangeTimes->{{3.6333335430865088`*^9, 3.6333335552625504`*^9}, {
9399   3.633759553050228*^9, 3.633759553878661*^9}, {3.635681734336973*^9,
9400   3.635681736612557*^9}, {3.637640417227786*^9, 3.6376404184754333`*^9}, {
9401   3.63937694796106*^9, 3.6393769493287563`*^9}, {3.6405100825800657`*^9,
9402   3.640510083170496*^9}, 3.64051048875382*^9, {3.643018762649206*^9,
9403   3.643018771597096*^9}, 3.643024946820489*^9, {3.645272373051367*^9,
9404   3.645272374670525*^9}, {3.645274084493257*^9, 3.645274085716125*^9}, {
9405   3.645275926207169*^9, 3.645275927770879*^9}, 3.645770250485813*^9,
9406   3.645770738860055*^9, {3.645780051087365*^9, 3.645780051727775*^9}, {
9407   3.646026265671403*^9, 3.6460262676920023`*^9}, {3.647076420208658*^9,
9408   3.647076420403612*^9}, {3.647347800062046*^9, 3.647347801503477*^9}, {
9409   3.6494031514580183`*^9, 3.649403153218494*^9}, {3.6533428296928043`*^9,
9410   3.653342858449109*^9}, 3.6751372193019238`*^9, 3.676187112896764*^9,
9411   3.676339270046777*^9},
9412 ExpressionUUID -> "6c30da72-1ee8-4b72-aed3-53304f408e2a"],
9413
9414Cell[CellGroupData[{
9415
9416Cell[BoxData[
9417 RowBox[{
9418  RowBox[{"WriteCT", "[",
9419   RowBox[{"\"\<LS2HDM_TI/LS2HDM_TI\>\"", ",", "\"\<Lorentz\>\"", ",",
9420    RowBox[{"Output", "->", "\"\<LS2HDM_TI\>\""}], ",",
9421    RowBox[{"LabelInternal", "\[Rule]", "True"}], ",",
9422    RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
9423    RowBox[{"KeptIndices", "\[Rule]",
9424     RowBox[{"{", "}"}]}], ",",
9425    RowBox[{"ZeroMom", "\[Rule]",
9426     RowBox[{"{",
9427      RowBox[{"{",
9428       RowBox[{"aS", ",",
9429        RowBox[{"{",
9430         RowBox[{
9431          RowBox[{"F", "[", "7", "]"}], ",",
9432          RowBox[{"V", "[", "4", "]"}], ",",
9433          RowBox[{"-",
9434           RowBox[{"F", "[", "7", "]"}]}]}], "}"}], ",", "0"}], "}"}],
9435      "}"}]}], ",",
9436    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",",
9437    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
9438   " "}]], "Input",
9439 CellChangeTimes->CompressedData["
94401:eJxTTMoPSmViYGCQA2IQPYMtewWH0GvHXRNMV4Fo80cy6/mBtEqcHpjOWe+0
94417AaQlnu0ZTmI5spYZNks9trxiDqHDYiWMzo9x17qtaPdu/0LQPSiH+51/bKv
9442HV+ZXKoH0VIPZreD6AuxP8C0ocS7CzvkXzu+UO6+DKK37FS0v6f42lH/QgqY
9443dp/YrMutBKRPHgTTXHrbH2oC6eWs58C0tRvj4UaV1446QtFgetVu9eMtQDro
94440/UTIHqR4aobIHqO6w0wvXSy8u5zGq8dd3CU7QHR9ww6Hp8H0uxvLj4B0bXl
9445PxwPar52tDpzxQlEW2jt5ToGpNl45nCD6MzV35zttF47Kh2udAXRTt3snc+A
9446dLF3ezeInrFC8sV07deORaxdYNqkoL37sM5rx5b1k3tAdOvPJKX1Bq8d6+pP
9447K4Poh++cToNorr0WZ0F0yvSffv8Mge6vswoA0Vt+Sa49kvja8VD+ITCtmdDz
9448GUR/bxP/CqKf+J9xOpr82jH2d7YziJbu3312Zv1rxwaPstsgOkZU7az/lteO
9449gd/dwDQAvEDvOA==
9450  "],
9451 ExpressionUUID -> "dfdb3d84-8541-41ea-b2f5-a60f907a2986"],
9452
9453Cell[CellGroupData[{
9454
9455Cell[BoxData[
9456 StyleBox["\<\"Computing CT for the {S} vertices.\"\>",
9457  StripOnInput->False,
9458  LineColor->RGBColor[0, 0, 1],
9459  FrontFaceColor->RGBColor[0, 0, 1],
9460  BackFaceColor->RGBColor[0, 0, 1],
9461  GraphicsColor->RGBColor[0, 0, 1],
9462  FontColor->RGBColor[0, 0, 1]]], "Print",
9463 CellChangeTimes->{3.718414204660685*^9, 3.718414642026601*^9}],
9464
9465Cell[BoxData["\<\"\"\>"], "Print",
9466 CellChangeTimes->{3.718414204660685*^9, 3.7184146420385723`*^9}],
9467
9468Cell[BoxData[
9469 InterpretationBox[
9470  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
9471   "\[InvisibleSpace]", "\<\"generic\"\>",
9472   "\[InvisibleSpace]", "\<\" model file \"\>",
9473   "\[InvisibleSpace]", \
9474"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/Lorentz.\
9475gen\"\>"}],
9476  SequenceForm[
9477  "", "loading ", "generic", " model file ",
9478   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/Lorentz.\
9479gen"],
9480  Editable->False]], "Print",
9481 CellChangeTimes->{3.718414204660685*^9, 3.718414642050699*^9}],
9482
9483Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
9484 CellChangeTimes->{3.718414204660685*^9, 3.718414642063237*^9}],
9485
9486Cell[BoxData[
9487 InterpretationBox[
9488  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]",
9489   RowBox[{"{", "\<\"Lorentz\"\>", "}"}],
9490   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
9491  SequenceForm["generic model ", {"Lorentz"}, " initialized"],
9492  Editable->False]], "Print",
9493 CellChangeTimes->{3.718414204660685*^9, 3.718414642075482*^9}],
9494
9495Cell[BoxData["\<\"\"\>"], "Print",
9496 CellChangeTimes->{3.718414204660685*^9, 3.7184146420873737`*^9}],
9497
9498Cell[BoxData[
9499 InterpretationBox[
9500  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>",
9501   "\[InvisibleSpace]", "\<\"classes\"\>",
9502   "\[InvisibleSpace]", "\<\" model file \"\>",
9503   "\[InvisibleSpace]", \
9504"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TI/\
9505LS2HDM_TI.mod\"\>"}],
9506  SequenceForm[
9507  "", "loading ", "classes", " model file ",
9508   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TI/\
9509LS2HDM_TI.mod"],
9510  Editable->False]], "Print",
9511 CellChangeTimes->{3.718414204660685*^9, 3.7184146421008*^9}],
9512
9513Cell[BoxData[
9514 InterpretationBox[
9515  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "50",
9516   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>",
9517   "\[InvisibleSpace]", "29", "\[InvisibleSpace]", "\<\" classes\"\>"}],
9518  SequenceForm[
9519  "> ", 50, " particles (incl. antiparticles) in ", 29, " classes"],
9520  Editable->False]], "Print",
9521 CellChangeTimes->{3.718414204660685*^9, 3.718414642114019*^9}],
9522
9523Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
9524 CellChangeTimes->{3.718414204660685*^9, 3.71841464212633*^9}],
9525
9526Cell[BoxData[
9527 InterpretationBox[
9528  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "251",
9529   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
9530  SequenceForm["> ", 251, " vertices"],
9531  Editable->False]], "Print",
9532 CellChangeTimes->{3.718414204660685*^9, 3.718414642139757*^9}],
9533
9534Cell[BoxData[
9535 InterpretationBox[
9536  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "52",
9537   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
9538  SequenceForm["> ", 52, " counter terms of order 1"],
9539  Editable->False]], "Print",
9540 CellChangeTimes->{3.718414204660685*^9, 3.718414642152789*^9}],
9541
9542Cell[BoxData[
9543 InterpretationBox[
9544  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]",
9545   RowBox[{"{", "\<\"LS2HDM_TI/LS2HDM_TI\"\>", "}"}],
9546   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
9547  SequenceForm["classes model ", {"LS2HDM_TI/LS2HDM_TI"}, " initialized"],
9548  Editable->False]], "Print",
9549 CellChangeTimes->{3.718414204660685*^9, 3.718414642165038*^9}],
9550
9551Cell[BoxData["\<\"\"\>"], "Print",
9552 CellChangeTimes->{3.718414204660685*^9, 3.7184146421780567`*^9}],
9553
9554Cell[BoxData[
9555 InterpretationBox[
9556  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
9557   RowBox[{"{",
9558    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
9559  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
9560  Editable->False]], "Print",
9561 CellChangeTimes->{3.718414204660685*^9, 3.7184146421915073`*^9}],
9562
9563Cell[BoxData[
9564 InterpretationBox[
9565  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
9566   "\[InvisibleSpace]", "\<\": \"\>",
9567   "\[InvisibleSpace]", "\<\"4 Generic, 39 Classes insertions\"\>"}],
9568  SequenceForm["> Top. ", 1, ": ", "4 Generic, 39 Classes insertions"],
9569  Editable->False]], "Print",
9570 CellChangeTimes->{3.718414204660685*^9, 3.718414642204897*^9}],
9571
9572Cell[BoxData[
9573 InterpretationBox[
9574  RowBox[{"\<\"in total: \"\>",
9575   "\[InvisibleSpace]", "\<\"4 Generic, 39 Classes insertions\"\>"}],
9576  SequenceForm["in total: ", "4 Generic, 39 Classes insertions"],
9577  Editable->False]], "Print",
9578 CellChangeTimes->{3.718414204660685*^9, 3.718414642216782*^9}],
9579
9580Cell[BoxData["\<\"\"\>"], "Print",
9581 CellChangeTimes->{3.718414204660685*^9, 3.718414642228848*^9}],
9582
9583Cell[BoxData[
9584 InterpretationBox[
9585  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]",
9586   RowBox[{"{",
9587    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
9588  SequenceForm[
9589  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
9590  Editable->False]], "Print",
9591 CellChangeTimes->{3.718414204660685*^9, 3.718414642241271*^9}],
9592
9593Cell[BoxData[
9594 InterpretationBox[
9595  RowBox[{"\<\"in total: \"\>",
9596   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
9597  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
9598  Editable->False]], "Print",
9599 CellChangeTimes->{3.718414204660685*^9, 3.718414642254655*^9}],
9600
9601Cell[BoxData["\<\"Writing amplitude finished after 0.165779\"\>"], "Print",
9602 CellChangeTimes->{3.718414204660685*^9, 3.7184146422671003`*^9}],
9603
9604Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
9605after 0.165880\"\>"], "Print",
9606 CellChangeTimes->{3.718414204660685*^9, 3.718414642279172*^9}],
9607
9608Cell[BoxData["\<\"\"\>"], "Print",
9609 CellChangeTimes->{3.718414204660685*^9, 3.7184146422915087`*^9}],
9610
9611Cell[BoxData[
9612 InterpretationBox[
9613  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]",
9614   RowBox[{"{",
9615    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
9616  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
9617  Editable->False]], "Print",
9618 CellChangeTimes->{3.718414204660685*^9, 3.718414642303686*^9}],
9619
9620Cell[BoxData[
9621 InterpretationBox[
9622  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1",
9623   "\[InvisibleSpace]", "\<\": \"\>",
9624   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
9625  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
9626  Editable->False]], "Print",