FeynArts 3.11; Last update: 2 Sep 19;

        * Found a hack to upgrade WriteTeXFile.m to work with current Mathematica versions.
	* Re-generated the vertex lists included in FeynArts with new WriteTeXFile.

Author: vsht

FeynArts.m

@@ -2,7 +2,7 @@
 
 This is FeynArts, Version 3.11
 Copyright by Sepp Kueblbeck, Hagen Eck, and Thomas Hahn 1991-2019
-last modified 11 Apr 19 by Thomas Hahn
+last modified 2 Sep 19 by Thomas Hahn
 
 Release notes:
 
@@ -1146,9 +1146,9 @@ as arguments the quantum numbers of the involved fields (times -1 for
 or amplitude list expr.  n may be of the form 3, 42, 17...28 which
 selects diagrams 3, 42, and 17 through 28."
 
-Discard[args__] := (
+Discard := (
   Message[Discard::obsalt, Discard, DiagramDelete];
-  DiagramDelete[args] )
+  DiagramDelete )
 
 DiagramMap::usage =
 "DiagramMap[foo, diags] maps foo over all Feynman diagrams in diags."
@@ -1492,7 +1492,7 @@ derived by flip and can have values True (edit the original shape
 
 $FeynArtsVersionNumber = 3.11
 
-$FeynArtsVersion = "FeynArts 3.11 (11 Apr 2019)"
+$FeynArtsVersion = "FeynArts 3.11 (2 Sep 2019)"
 
 $FeynArtsDir = DirectoryName[
   $InputFileName /. HoldPattern[$InputFileName] :>

FeynArts311.m

@@ -2,7 +2,7 @@
 
 This is FeynArts, Version 3.11
 Copyright by Sepp Kueblbeck, Hagen Eck, and Thomas Hahn 1991-2019
-last modified 11 Apr 19 by Thomas Hahn
+last modified 2 Sep 19 by Thomas Hahn
 
 Release notes:
 
@@ -1146,9 +1146,9 @@ as arguments the quantum numbers of the involved fields (times -1 for
 or amplitude list expr.  n may be of the form 3, 42, 17...28 which
 selects diagrams 3, 42, and 17 through 28."
 
-Discard[args__] := (
+Discard := (
   Message[Discard::obsalt, Discard, DiagramDelete];
-  DiagramDelete[args] )
+  DiagramDelete )
 
 DiagramMap::usage =
 "DiagramMap[foo, diags] maps foo over all Feynman diagrams in diags."
@@ -1492,7 +1492,7 @@ derived by flip and can have values True (edit the original shape
 
 $FeynArtsVersionNumber = 3.11
 
-$FeynArtsVersion = "FeynArts 3.11 (11 Apr 2019)"
+$FeynArtsVersion = "FeynArts 3.11 (2 Sep 2019)"
 
 $FeynArtsDir = DirectoryName[
   $InputFileName /. HoldPattern[$InputFileName] :>

Models/DupCheck.mod

@@ -0,0 +1,10 @@
+Attributes[Cset] = {Orderless}
+
+DupCheck[cs_Cset, c_ == rhs_] := cs = c == rhs
+
+DupCheck[c_ == rhs_, c1_ == rhs_] := Print["Duplicate couplings ", {c, c1}];
+
+DupCheck[c_ == rhs_, c1_ == rhs1_] := Print["MISMATCHING duplicate couplings ", {c, c1}];
+
+DupCheck[Cset@@ #[[1]], #]&/@ M$CouplingMatrices;
+

Models/FV.mod

@@ -146,6 +146,7 @@ M$CouplingMatrices = MapIndexed[ReplaceCoupling,
     USf[t:$FVf, g_][a_, b_] :> usf[t, g][a, b],
     USf[a_, b_, t:$FVf, g_] :> usf[t, g][a, b],
    USfC[a_, b_, t:$FVf, g_] :> Conjugate[usf[t, g][a, b]] }] //.
+  IndexSum[fac_ expr_, {i_, n_}] :> fac IndexSum[expr, {i, n}] /; FreeQ[fac, i] //.
   IndexSum[IndexSum[expr_, i_], j__] :>
     IndexSum[expr, Sequence@@ Sort[{i, j}]]