tobias
/
MCFM-10.4
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 Commits
1 Branch
0 Tags
77 MiB
 
 
 
 
 
 
Tree: fc39d4149e
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'fc39d4149e'
${ noResults }
MCFM-10.4/lib/TensorReduction/recur/Include/Czero5.f

87 lines
4.0 KiB
Raw Blame History

Czero5(z5(1,1,1,1,1),ep) = - Cv(cc22222 + C234,ep) - 5*Cv(
& cc12222 + C234,ep) - 10*Cv(cc11222 + C234,ep) - 10*Cv(cc11122 +
& C234,ep) - 5*Cv(cc11112 + C234,ep) - Cv(cc11111 + C234,ep) - 5*
& Cv(cc2222 + C234,ep) - 20*Cv(cc1222 + C234,ep) - 30*Cv(cc1122 +
& C234,ep) - 20*Cv(cc1112 + C234,ep) - 5*Cv(cc1111 + C234,ep) - 10
& *Cv(cc222 + C234,ep) - 30*Cv(cc122 + C234,ep) - 30*Cv(cc112 +
& C234,ep) - 10*Cv(cc111 + C234,ep) - 10*Cv(cc22 + C234,ep) - 20*
& Cv(cc12 + C234,ep) - 10*Cv(cc11 + C234,ep) - 5*Cv(cc2 + C234,ep)
& - 5*Cv(cc1 + C234,ep) - Cv(cc0 + C234,ep)
Czero5(z5(1,1,1,1,2),ep) = Cv(cc12222 + C234,ep) + 4*Cv(cc11222
& + C234,ep) + 6*Cv(cc11122 + C234,ep) + 4*Cv(cc11112 + C234,ep)
& + Cv(cc11111 + C234,ep) + 4*Cv(cc1222 + C234,ep) + 12*Cv(cc1122
& + C234,ep) + 12*Cv(cc1112 + C234,ep) + 4*Cv(cc1111 + C234,ep)
& + 6*Cv(cc122 + C234,ep) + 12*Cv(cc112 + C234,ep) + 6*Cv(cc111
& + C234,ep) + 4*Cv(cc12 + C234,ep) + 4*Cv(cc11 + C234,ep) + Cv(
& cc1 + C234,ep)
Czero5(z5(1,1,1,1,3),ep) = Cv(cc22222 + C234,ep) + 4*Cv(cc12222
& + C234,ep) + 6*Cv(cc11222 + C234,ep) + 4*Cv(cc11122 + C234,ep)
& + Cv(cc11112 + C234,ep) + 4*Cv(cc2222 + C234,ep) + 12*Cv(cc1222
& + C234,ep) + 12*Cv(cc1122 + C234,ep) + 4*Cv(cc1112 + C234,ep)
& + 6*Cv(cc222 + C234,ep) + 12*Cv(cc122 + C234,ep) + 6*Cv(cc112
& + C234,ep) + 4*Cv(cc22 + C234,ep) + 4*Cv(cc12 + C234,ep) + Cv(
& cc2 + C234,ep)
Czero5(z5(1,1,1,2,2),ep) = - Cv(cc11222 + C234,ep) - 3*Cv(
& cc11122 + C234,ep) - 3*Cv(cc11112 + C234,ep) - Cv(cc11111 + C234
& ,ep) - 3*Cv(cc1122 + C234,ep) - 6*Cv(cc1112 + C234,ep) - 3*Cv(
& cc1111 + C234,ep) - 3*Cv(cc112 + C234,ep) - 3*Cv(cc111 + C234,ep
& ) - Cv(cc11 + C234,ep)
Czero5(z5(1,1,1,2,3),ep) = - Cv(cc12222 + C234,ep) - 3*Cv(
& cc11222 + C234,ep) - 3*Cv(cc11122 + C234,ep) - Cv(cc11112 + C234
& ,ep) - 3*Cv(cc1222 + C234,ep) - 6*Cv(cc1122 + C234,ep) - 3*Cv(
& cc1112 + C234,ep) - 3*Cv(cc122 + C234,ep) - 3*Cv(cc112 + C234,ep
& ) - Cv(cc12 + C234,ep)
Czero5(z5(1,1,1,3,3),ep) = - Cv(cc22222 + C234,ep) - 3*Cv(
& cc12222 + C234,ep) - 3*Cv(cc11222 + C234,ep) - Cv(cc11122 + C234
& ,ep) - 3*Cv(cc2222 + C234,ep) - 6*Cv(cc1222 + C234,ep) - 3*Cv(
& cc1122 + C234,ep) - 3*Cv(cc222 + C234,ep) - 3*Cv(cc122 + C234,ep
& ) - Cv(cc22 + C234,ep)
Czero5(z5(1,1,2,2,2),ep) = Cv(cc11122 + C234,ep) + 2*Cv(cc11112
& + C234,ep) + Cv(cc11111 + C234,ep) + 2*Cv(cc1112 + C234,ep) + 2
& *Cv(cc1111 + C234,ep) + Cv(cc111 + C234,ep)
Czero5(z5(1,1,2,2,3),ep) = Cv(cc11222 + C234,ep) + 2*Cv(cc11122
& + C234,ep) + Cv(cc11112 + C234,ep) + 2*Cv(cc1122 + C234,ep) + 2
& *Cv(cc1112 + C234,ep) + Cv(cc112 + C234,ep)
Czero5(z5(1,1,2,3,3),ep) = Cv(cc12222 + C234,ep) + 2*Cv(cc11222
& + C234,ep) + Cv(cc11122 + C234,ep) + 2*Cv(cc1222 + C234,ep) + 2
& *Cv(cc1122 + C234,ep) + Cv(cc122 + C234,ep)
Czero5(z5(1,1,3,3,3),ep) = Cv(cc22222 + C234,ep) + 2*Cv(cc12222
& + C234,ep) + Cv(cc11222 + C234,ep) + 2*Cv(cc2222 + C234,ep) + 2
& *Cv(cc1222 + C234,ep) + Cv(cc222 + C234,ep)
Czero5(z5(1,2,2,2,2),ep) = - Cv(cc11112 + C234,ep) - Cv(cc11111
& + C234,ep) - Cv(cc1111 + C234,ep)
Czero5(z5(1,2,2,2,3),ep) = - Cv(cc11122 + C234,ep) - Cv(cc11112
& + C234,ep) - Cv(cc1112 + C234,ep)
Czero5(z5(1,2,2,3,3),ep) = - Cv(cc11222 + C234,ep) - Cv(cc11122
& + C234,ep) - Cv(cc1122 + C234,ep)
Czero5(z5(1,2,3,3,3),ep) = - Cv(cc12222 + C234,ep) - Cv(cc11222
& + C234,ep) - Cv(cc1222 + C234,ep)
Czero5(z5(1,3,3,3,3),ep) = - Cv(cc22222 + C234,ep) - Cv(cc12222
& + C234,ep) - Cv(cc2222 + C234,ep)
Czero5(z5(2,2,2,2,2),ep) = Cv(cc11111 + C234,ep)
Czero5(z5(2,2,2,2,3),ep) = Cv(cc11112 + C234,ep)
Czero5(z5(2,2,2,3,3),ep) = Cv(cc11122 + C234,ep)
Czero5(z5(2,2,3,3,3),ep) = Cv(cc11222 + C234,ep)
Czero5(z5(2,3,3,3,3),ep) = Cv(cc12222 + C234,ep)
Czero5(z5(3,3,3,3,3),ep) = Cv(cc22222 + C234,ep)