FeynArts 3.11; Last update: 3 Aug 20;

  * Mini-fix for Mathematica 12.1

Author: t-hahn

FeynArts.m

@@ -2,7 +2,7 @@
 
 This is FeynArts, Version 3.11
 Copyright by Sepp Kueblbeck, Hagen Eck, and Thomas Hahn 1991-2020
-last modified 18 May 20 by Thomas Hahn
+last modified 3 Aug 20 by Thomas Hahn
 
 Release notes:
 
@@ -1496,7 +1496,7 @@ derived by flip and can have values True (edit the original shape
 
 $FeynArtsVersionNumber = 3.11
 
-$FeynArtsVersion = "FeynArts 3.11 (18 May 2020)"
+$FeynArtsVersion = "FeynArts 3.11 (3 Aug 2020)"
 
 $FeynArtsDir = DirectoryName[
   $InputFileName /. HoldPattern[$InputFileName] :>

FeynArts/Graphics.m

@@ -1,7 +1,7 @@
 (*
 	Graphics.m
 		Graphics routines for FeynArts
-		last modified 31 Oct 19 th
+		last modified 3 Aug 20 th
 *)
 
 Begin["`Graphics`"]
@@ -283,9 +283,7 @@
 epsf = ""
 
 Render[(g_FeynArtsGraphics)[l__List, o___Rule], format___String, opt___Rule] :=
-Block[ {None = 0, Forward = 1, Backward = -1},
-  DoRender[format][o, opt][g/@ {l}]
-]
+  DoRender[format][o, opt][g/@ {l} /. {None -> 0, Forward -> 1, Backward -> -1}]
 
 DoRender["EPS"][opt___][g_] :=
 Block[ {PaperSize = imgsize, epsf = " EPSF-3.0"},

FeynArts311.m

@@ -2,7 +2,7 @@
 
 This is FeynArts, Version 3.11
 Copyright by Sepp Kueblbeck, Hagen Eck, and Thomas Hahn 1991-2020
-last modified 18 May 20 by Thomas Hahn
+last modified 3 Aug 20 by Thomas Hahn
 
 Release notes:
 
@@ -1496,7 +1496,7 @@ derived by flip and can have values True (edit the original shape
 
 $FeynArtsVersionNumber = 3.11
 
-$FeynArtsVersion = "FeynArts 3.11 (18 May 2020)"
+$FeynArtsVersion = "FeynArts 3.11 (3 Aug 2020)"
 
 $FeynArtsDir = DirectoryName[
   $InputFileName /. HoldPattern[$InputFileName] :>

Models/FV.mod

@@ -4,7 +4,7 @@
 		"upgrades" ordinary 2x2 to full 6x6 sfermion
 		(3x3 sneutrino) mixing
 		by Thomas Hahn and Jose Ignacio Illana
-		last modified 9 Jan 19 by th
+		last modified 18 May 20 by th
 *)
 
 
@@ -28,7 +28,7 @@ M$ClassesDescription = M$ClassesDescription /.
     ComposedChar[a_, b_, d_] :> ComposedChar[a, b, Null, d])
 
 
-TheMass[ S[t:12 | 13 | 14, {s_, g_, ___}] ] =.
+DownValues[TheMass] = DownValues[TheMass] /. Thread[$FV -> -$FV]
 
 Scan[(TheMass[ S[#, {as_, ___}] ] := MASf[as, # - 10])&, $FV]
 
@@ -76,7 +76,7 @@ Block[ {sel, new},
   sel[r_ d:_CKM | _CKMC] := sAf[d, 1][r];
   new = sel[rhs /. Conjugate[CKM[j__]] :> CKMC[j]] /.
     CKMC[j__] :> Conjugate[CKM[j]];
-  If[ !FreeQ[new, af], Message[ReplaceCoupling::warning, n, Af] ];
+  If[ !FreeQ[new, af], Message[ModifyCoupling::warning, n, Af] ];
   lhs == new
 ] /; !FreeQ[rhs, af]
 
@@ -125,20 +125,22 @@ Block[ {sel, new},
   sel[IndexDelta[s, s2_]] := IndexDelta[as, s2] IndexDelta[j, 1];
   sel[usf[t, _][s, s2_]] := UASf[t][as, j + 3 (s2 - 1)];
   new = ISum[sel[expr], {j, 3}];
-  If[ !FreeQ[new, s], Message[ReplaceCoupling::warning, n, s] ];
+  If[ !FreeQ[new, s], Message[ModifyCoupling::warning, n, s] ];
   new /. ISum -> IndexSum
 ]
 
 
 ISum[IndexDelta[a_, b_] r_, {a_, _}] := r /. a -> b 
 
 
-ReplaceCoupling::warning = "Coupling #`` still contains ``."
+ModifyCoupling::warning = "Coupling #`` still contains ``."
 
-ReplaceCoupling[c_, {n_}] := ReplaceSf[ReplaceAf[c, n], n]
+Off[ModifyCoupling::warning]
 
+ModifyCoupling[c_, {n_}] := ReplaceSf[ReplaceAf[c, n], n]
 
-M$CouplingMatrices = MapIndexed[ReplaceCoupling,
+
+M$CouplingMatrices = MapIndexed[ModifyCoupling,
   M$CouplingMatrices /. {
     S[t:$FVsf, s___] :> sf[t, s],
     Af[t:$FVf, __] :> af[t],