Name: Philipp Schicho Date: 05/15/17-08:59:39 PM Z


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)