tobias
/
MCFM-8.3
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Legacy patches to compile MCFM-8.3
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.
1 Commit
1 Branch
0 Tags
13 MiB
 
 
 
 
 
 
Tree: 1e93da7417
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '1e93da7417'
${ noResults }
MCFM-8.3/TensorReduction/recur/Include/ShatC.f

516 lines
9.2 KiB
Raw Blame History

Shat7(1,z6(1,1,1,1,1,1),ep) =
& - Bsum11111(ep)
& - 5.D0*Bsum1111(ep)
& - 10.D0*Bsum111(ep)
& - 10.D0*Bsum11(ep)
& - 5.D0*Bsum1(ep)
& - Bsum0(ep)
&
Shat7(2,z6(1,1,1,1,1,1),ep) =
& - Bsum11111(ep)
& - 5.D0*Bsum1111(ep)
& - 10.D0*Bsum111(ep)
& - 10.D0*Bsum11(ep)
& - 5.D0*Bsum1(ep)
& - Bsum0(ep)
& + Bv(bb111111 + B12,ep)
&
Shat7(1,z6(1,1,1,1,1,2),ep) =
& + Bsum11111(ep)
& + 4.D0*Bsum1111(ep)
& + 6.D0*Bsum111(ep)
& + 4.D0*Bsum11(ep)
& + Bsum1(ep)
&
Shat7(2,z6(1,1,1,1,1,2),ep) =
& + Bsum11111(ep)
& + 4.D0*Bsum1111(ep)
& + 6.D0*Bsum111(ep)
& + 4.D0*Bsum11(ep)
& + Bsum1(ep)
&
Shat7(1,z6(1,1,1,1,2,2),ep) =
& - Bsum11111(ep)
& - 3.D0*Bsum1111(ep)
& - 3.D0*Bsum111(ep)
& - Bsum11(ep)
&
Shat7(2,z6(1,1,1,1,2,2),ep) =
& - Bsum11111(ep)
& - 3.D0*Bsum1111(ep)
& - 3.D0*Bsum111(ep)
& - Bsum11(ep)
&
Shat7(1,z6(1,1,1,2,2,2),ep) =
& + Bsum11111(ep)
& + 2.D0*Bsum1111(ep)
& + Bsum111(ep)
&
Shat7(2,z6(1,1,1,2,2,2),ep) =
& + Bsum11111(ep)
& + 2.D0*Bsum1111(ep)
& + Bsum111(ep)
&
Shat7(1,z6(1,1,2,2,2,2),ep) =
& - Bsum11111(ep)
& - Bsum1111(ep)
&
Shat7(2,z6(1,1,2,2,2,2),ep) =
& - Bsum11111(ep)
& - Bsum1111(ep)
&
Shat7(1,z6(1,2,2,2,2,2),ep) =
& + Bsum11111(ep)
&
Shat7(2,z6(1,2,2,2,2,2),ep) =
& + Bsum11111(ep)
&
Shat7(1,z6(2,2,2,2,2,2),ep) =
& + Bv(bb111111 + B13,ep)
& - Bv(bb111111 + B23,ep)
&
Shat7(2,z6(2,2,2,2,2,2),ep) =
& - Bv(bb111111 + B23,ep)
&
Shat6(1,z5(1,1,1,1,1),ep) =
& + Bsum1111(ep)
& + 4.D0*Bsum111(ep)
& + 6.D0*Bsum11(ep)
& + 4.D0*Bsum1(ep)
& + Bsum0(ep)
&
Shat6(2,z5(1,1,1,1,1),ep) =
& + Bsum1111(ep)
& + 4.D0*Bsum111(ep)
& + 6.D0*Bsum11(ep)
& + 4.D0*Bsum1(ep)
& + Bsum0(ep)
& + Bv(bb11111 + B12,ep)
&
Shat6(1,z5(1,1,1,1,2),ep) =
& - Bsum1111(ep)
& - 3.D0*Bsum111(ep)
& - 3.D0*Bsum11(ep)
& - Bsum1(ep)
&
Shat6(2,z5(1,1,1,1,2),ep) =
& - Bsum1111(ep)
& - 3.D0*Bsum111(ep)
& - 3.D0*Bsum11(ep)
& - Bsum1(ep)
&
Shat6(1,z5(1,1,1,2,2),ep) =
& + Bsum1111(ep)
& + 2.D0*Bsum111(ep)
& + Bsum11(ep)
&
Shat6(2,z5(1,1,1,2,2),ep) =
& + Bsum1111(ep)
& + 2.D0*Bsum111(ep)
& + Bsum11(ep)
&
Shat6(1,z5(1,1,2,2,2),ep) =
& - Bsum1111(ep)
& - Bsum111(ep)
&
Shat6(2,z5(1,1,2,2,2),ep) =
& - Bsum1111(ep)
& - Bsum111(ep)
&
Shat6(1,z5(1,2,2,2,2),ep) =
& + Bsum1111(ep)
&
Shat6(2,z5(1,2,2,2,2),ep) =
& + Bsum1111(ep)
&
Shat6(1,z5(2,2,2,2,2),ep) =
& + Bv(bb11111 + B13,ep)
& - Bv(bb11111 + B23,ep)
&
Shat6(2,z5(2,2,2,2,2),ep) =
& - Bv(bb11111 + B23,ep)
&
Shat5(1,z4(1,1,1,1),ep) =
& - Bsum111(ep)
& - 3.D0*Bsum11(ep)
& - 3.D0*Bsum1(ep)
& - Bsum0(ep)
&
Shat5(2,z4(1,1,1,1),ep) =
& - Bsum111(ep)
& - 3.D0*Bsum11(ep)
& - 3.D0*Bsum1(ep)
& - Bsum0(ep)
& + Bv(bb1111 + B12,ep)
&
Shat5(1,z4(1,1,1,2),ep) =
& + Bsum111(ep)
& + 2.D0*Bsum11(ep)
& + Bsum1(ep)
&
Shat5(2,z4(1,1,1,2),ep) =
& + Bsum111(ep)
& + 2.D0*Bsum11(ep)
& + Bsum1(ep)
&
Shat5(1,z4(1,1,2,2),ep) =
& - Bsum111(ep)
& - Bsum11(ep)
&
Shat5(2,z4(1,1,2,2),ep) =
& - Bsum111(ep)
& - Bsum11(ep)
&
Shat5(1,z4(1,2,2,2),ep) =
& + Bsum111(ep)
&
Shat5(2,z4(1,2,2,2),ep) =
& + Bsum111(ep)
&
Shat5(1,z4(2,2,2,2),ep) =
& + Bv(bb1111 + B13,ep)
& - Bv(bb1111 + B23,ep)
&
Shat5(2,z4(2,2,2,2),ep) =
& - Bv(bb1111 + B23,ep)
&
Shat4(1,z3(1,1,1),ep) =
& + Bsum11(ep)
& + 2.D0*Bsum1(ep)
& + Bsum0(ep)
&
Shat4(2,z3(1,1,1),ep) =
& + Bsum11(ep)
& + 2.D0*Bsum1(ep)
& + Bsum0(ep)
& + Bv(bb111 + B12,ep)
&
Shat4(1,z3(2,2,2),ep) =
& + Bv(bb111 + B13,ep)
& - Bv(bb111 + B23,ep)
&
Shat4(2,z3(2,2,2),ep) =
& - Bv(bb111 + B23,ep)
&
Shat4(1,z3(1,1,2),ep) =
& - Bsum11(ep)
& - Bsum1(ep)
&
Shat4(2,z3(1,1,2),ep) =
& - Bsum11(ep)
& - Bsum1(ep)
&
Shat4(1,z3(1,2,2),ep) =
& + Bsum11(ep)
&
Shat4(2,z3(1,2,2),ep) =
& + Bsum11(ep)
&
Shat3(1,z2(1,1),ep) =
& - Bsum1(ep)
& - Bsum0(ep)
&
Shat3(2,z2(1,1),ep) =
& - Bsum1(ep)
& - Bsum0(ep)
& + Bv(bb11 + B12,ep)
&
Shat3(1,z2(2,2),ep) =
& + Bv(bb11 + B13,ep)
& - Bv(bb11 + B23,ep)
&
Shat3(2,z2(2,2),ep) =
& - Bv(bb11 + B23,ep)
&
Shat3(1,z2(1,2),ep) =
& + Bsum1(ep)
&
Shat3(2,z2(1,2),ep) =
& + Bsum1(ep)
&
Shat2(1,1,ep) =
& + Bsum0(ep)
&
Shat2(2,1,ep) =
& + Bsum0(ep)
& + Bv(bb1 + B12,ep)
&
Shat2(1,2,ep) =
& + Bv(bb1 + B13,ep)
& - Bv(bb1 + B23,ep)
&
Shat2(2,2,ep) =
& - Bv(bb1 + B23,ep)
&
Shat1(1,ep) =
& + Bv(bb0 + B13,ep)
& - Bv(bb0 + B23,ep)
&
Shat1(2,ep) =
& + Bv(bb0 + B12,ep)
& - Bv(bb0 + B23,ep)
&
Shat7zz(1,z4(1,1,1,1),ep) =
& - Bsum00(ep)
& - 3.D0*Bsum001(ep)
& - 3.D0*Bsum0011(ep)
& - Bsum00111(ep)
&
Shat7zz(2,z4(1,1,1,1),ep) =
& - Bsum00(ep)
& - 3.D0*Bsum001(ep)
& - 3.D0*Bsum0011(ep)
& - Bsum00111(ep)
& + Bv(bb001111 + B12,ep)
&
Shat7zz(1,z4(1,1,1,2),ep) =
& + Bsum001(ep)
& + 2.D0*Bsum0011(ep)
& + Bsum00111(ep)
&
Shat7zz(2,z4(1,1,1,2),ep) =
& + Bsum001(ep)
& + 2.D0*Bsum0011(ep)
& + Bsum00111(ep)
&
Shat7zz(1,z4(1,1,2,2),ep) =
& - Bsum0011(ep)
& - Bsum00111(ep)
&
Shat7zz(2,z4(1,1,2,2),ep) =
& - Bsum0011(ep)
& - Bsum00111(ep)
&
Shat7zz(1,z4(2,2,2,2),ep) =
& + Bv(bb001111 + B13,ep)
& - Bv(bb001111 + B23,ep)
&
Shat7zz(2,z4(2,2,2,2),ep) =
& - Bv(bb001111 + B23,ep)
&
Shat7zz(1,z4(1,2,2,2),ep) =
& + Bsum00111(ep)
&
Shat7zz(2,z4(1,2,2,2),ep) =
& + Bsum00111(ep)
&
Shat7zzzz(1,z2(1,1),ep) =
& - Bsum0000(ep)
& - Bsum00001(ep)
&
Shat7zzzz(2,z2(1,1),ep) =
& - Bsum0000(ep)
& - Bsum00001(ep)
& + Bv(bb000011 + B12,ep)
&
Shat7zzzz(1,z2(1,2),ep) =
& + Bv(bb00001 + B23,ep)
& + Bv(bb000011 + B23,ep)
&
Shat7zzzz(2,z2(1,2),ep) =
& + Bv(bb00001 + B23,ep)
& + Bv(bb000011 + B23,ep)
&
Shat7zzzz(1,z2(2,2),ep) =
& + Bv(bb000011 + B13,ep)
& - Bv(bb000011 + B23,ep)
&
Shat7zzzz(2,z2(2,2),ep) =
& - Bv(bb000011 + B23,ep)
&
Shat6zz(1,z3(1,1,1),ep) =
& + Bsum00(ep)
& + 2.D0*Bsum001(ep)
& + Bsum0011(ep)
&
Shat6zz(2,z3(1,1,1),ep) =
& + Bsum00(ep)
& + 2.D0*Bsum001(ep)
& + Bsum0011(ep)
& + Bv(bb00111 + B12,ep)
&
Shat6zz(1,z3(2,2,2),ep) =
& + Bv(bb00111 + B13,ep)
& - Bv(bb00111 + B23,ep)
&
Shat6zz(2,z3(2,2,2),ep) =
& - Bv(bb00111 + B23,ep)
&
Shat6zz(1,z3(1,1,2),ep) =
& - Bsum001(ep)
& - Bsum0011(ep)
&
Shat6zz(2,z3(1,1,2),ep) =
& - Bsum001(ep)
& - Bsum0011(ep)
&
Shat6zz(1,z3(1,2,2),ep) =
& + Bsum0011(ep)
&
Shat6zz(2,z3(1,2,2),ep) =
& + Bsum0011(ep)
&
Shat6zzzz(1,1,ep) =
& + Bsum0000(ep)
&
Shat6zzzz(2,1,ep) =
& + Bsum0000(ep)
& + Bv(bb00001 + B12,ep)
&
Shat6zzzz(1,2,ep) =
& + Bv(bb00001 + B13,ep)
& - Bv(bb00001 + B23,ep)
&
Shat6zzzz(2,2,ep) =
& - Bv(bb00001 + B23,ep)
&
Shat5zzzz(1,ep) =
& + Bv(bb0000 + B13,ep)
& - Bv(bb0000 + B23,ep)
&
Shat5zzzz(2,ep) =
& + Bv(bb0000 + B12,ep)
& - Bv(bb0000 + B23,ep)
&
Shat5zz(1,z2(1,1),ep) =
& - Bsum00(ep)
& - Bsum001(ep)
&
Shat5zz(2,z2(1,1),ep) =
& - Bsum00(ep)
& - Bsum001(ep)
& + Bv(bb0011 + B12,ep)
&
Shat5zz(1,z2(2,2),ep) =
& + Bv(bb0011 + B13,ep)
& - Bv(bb0011 + B23,ep)
&
Shat5zz(2,z2(2,2),ep) =
& - Bv(bb0011 + B23,ep)
&
Shat5zz(1,z2(1,2),ep) =
& + Bsum001(ep)
&
Shat5zz(2,z2(1,2),ep) =
& + Bsum001(ep)
&
Shat4zz(1,1,ep) =
& + Bsum00(ep)
&
Shat4zz(2,1,ep) =
& + Bsum00(ep)
& + Bv(bb001 + B12,ep)
&
Shat4zz(1,2,ep) =
& + Bv(bb001 + B13,ep)
& - Bv(bb001 + B23,ep)
&
Shat4zz(2,2,ep) =
& - Bv(bb001 + B23,ep)
&
Shat3zz(1,ep) =
& + Bv(bb00 + B13,ep)
& - Bv(bb00 + B23,ep)
&
Shat3zz(2,ep) =
& + Bv(bb00 + B12,ep)
& - Bv(bb00 + B23,ep)
&