Below is the code of the notepad I used and that reproduces the error for me. It all depends on which ToTFI is executed first. Otherwise I clear it and reload it every time to avoid the error.
Cheers,
Philipp
-------
If[ $FrontEnd === Null,
$FeynCalcStartupMessages = False;
Print["Computation of the self-energy diagrams in pure Yang Mills using
background field formalism at one loop."];
];
If[$Notebooks === False, $FeynCalcStartupMessages = False];
$LoadFeynArts = True;
$LoadTARCER = True;
<< FeynCalc`
$FAVerbose = 0;
FAPatch[PatchModelsOnly -> True];
$RankLimit (*{4,7}*)
(*Depending on which of the following ToTFI expressions is executed first the \
Private` error arises. By clearing ToTFI and reloading it the error can be \
circumvented.*)
(*ClearAll[ToTFI];*)
ClearAll["Global`ToTFI`Private`*"] ; << ToTFI`;
ToTFI[(32 CA^3 mE^2 FeynAmpDenominator[PropagatorDenominator[Momentum[p1, D]],
PropagatorDenominator[Momentum[p2, D], mE],
PropagatorDenominator[-Momentum[p1, D] + Momentum[p2, D], mE],
PropagatorDenominator[-Momentum[p1, D] + Momentum[p2, D], mE],
PropagatorDenominator[-Momentum[p1, D] + Momentum[p2, D], mE]] Pair[
Momentum[p1, D], Momentum[q, D]] Pair[Momentum[p2, D],
Momentum[q,
D]] (-Pair[LorentzIndex[Lor1, D], Momentum[q, D]] Pair[
LorentzIndex[Lor2, D], Momentum[q, D]] +
Pair[LorentzIndex[Lor1, D], LorentzIndex[Lor2, D]] Pair[Momentum[q, D],
Momentum[q, D]]) SMP["g_s"]^6 Subscript[zeta, 1] SUNDelta[SUNIndex[a],
SUNIndex[b]])/((-1 + D) Pair[Momentum[q, D], Momentum[q, D]]), {p1,
p2}, {q}]
(32 mE^2 Subscript[zeta, 1] Subsuperscript[C, A, 3] Subsuperscript[g, s, 6] \[Delta]^(ab) (q^2 g^(Lor1Lor2)-q^Lor1 q^Lor2) Subsuperscript[F, {1,0}{1,mE}{0,0}{0,0}{3,mE}, (D) 00110])/((D-1) q^2)
(*ClearAll["Global`ToTFI`Private`*"]; << ToTFI`;*)
ToTFI[-(1/
D) 8 CA^3 FeynAmpDenominator[PropagatorDenominator[Momentum[p2, D], mE],
PropagatorDenominator[Momentum[p2, D], mE]] Pair[LorentzIndex[Lor1, D],
LorentzIndex[Lor2, D]] SMP["g_s"]^6 Subscript[zeta, 1] SUNDelta[
SUNIndex[a], SUNIndex[b]], p1, p2, q]
-1/D 8 Subscript[zeta, 1] Subsuperscript[C, A, 3] Subsuperscript[g, s, 6] \[Delta]^(ab) g^(Lor1Lor2) Global`ToTFI`Private`dq1^Global`ToTFI`Private`a1.Global`ToTFI`Private`dq2^Global`ToTFI`Private`a2.Global`ToTFI`Private`pq1^Global`ToTFI`Private`s3.Global`ToTFI`Private`pq2^Global`ToTFI`Private`s4.Global`ToTFI`Private`q1q1^Global`ToTFI`Private`s1.Global`ToTFI`Private`q1q2^Global`ToTFI`Private`s5.Global`ToTFI`Private`q2q2^Global`ToTFI`Private`s2.Global`ToTFI`Private`c1(Global`ToTFI`Private`FakeMass)^(Global`ToTFI`Private`n1+1).Global`ToTFI`Private`c2(mE)^(Global`ToTFI`Private`n2+2).Global`ToTFI`Private`c2(Global`ToTFI`Private`mM)^(Global`ToTFI`Private`n2+1).Global`ToTFI`Private`c3(Global`ToTFI`Private`FakeMass)^(Global`ToTFI`Private`n3+1).Global`ToTFI`Private`c4(Global`ToTFI`Private`FakeMass)^(Global`ToTFI`Private`n4+1).Global`ToTFI`Private`c5(Global`ToTFI`Private`FakeMass)^(Global`ToTFI`Private`n5+1)
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST