c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine kmvbox_ir(s,t1,t2,u1,u2,mt,mh,kmv1,kmv2) c form factors for the t(u)-channel UV finite, but IR div. contribution c box diagrams B7(1),B7(2),B8(1),B8(2),B10(1),B10(2) implicit none integer i,j real*8 ncf,cg,cf,mt,mh real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 d1r(0:3),d2r(0:6),d3r(0:3,0:3),ch1(0:2),s1,s2 complex*16 zero,kmv1(3,68),kmv2(3,68) complex*16 c0,d0,D0_ir,c11,c12,c20,c21,c22,c23 complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4) complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323, $ d331,d332,d3123 real*8 lambda,lambda2 COMMON/IR/LAMBDA,LAMBDA2 lambda=mt lambda2=lambda**2 zero=dcmplx(0d0,0d0) do i=1,68 do j=1,3 kmv1(j,i)=zero kmv2(j,i)=zero enddo enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c color factors: ncf=3d0 cg=ncf cf=(ncf**2-1d0)/ncf/2d0 c B7(1) d1(0)=D0_ir(mt,0d0,mt**2-2d0*p1p3,mh**2,mt**2,s1, $ mt**2-2d0*p2p4,0d0,mt,mt) c write(6,*)'B7(1)=',d1(0) call ddfunc_ir(mt,0d0,mt**2-2d0*p2p4,mt**2-2d0*p1p3, $ -p2p4,p1p4-p3p4,p1p4-p3p4-p1p2+p2p3, $ 0d0,0d0,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv1(1,5)=(-4*c0*p1p3+4*d20*p1p3-4*d12*mt**2*p1p3- $ 4*d223*mt**2*p1p3+4*d23*mt**2*p1p3+4*d13*p1p2*p1p3- $ 4*d223*p1p2*p1p3+4*d23*p1p2*p1p3-8*d23*p1p3**2- $ 4*d13*p1p3*p1p4+4*d213*p1p3*p1p4+ $ 4*d223*p1p3*p1p4-4*d23*p1p3*p1p4- $ 4*d13*p1p3*p2p3+4*d223*p1p3*p2p3- $ 4*d23*p1p3*p2p3-4*p1p3*p2p4*d0+ $ 4*d11*p1p3*p2p4+4*d12*p1p3*p2p4- $ 4*d13*p1p3*p2p4+4*d213*p1p3*p2p4+ $ 8*d223*p1p3*p2p4+4*d13*p1p3*p3p4- $ 4*d213*p1p3*p3p4-4*d223*p1p3*p3p4+ $ 4*d23*p1p3*p3p4) kmv1(1,6)=(5*c0-2*d20+2*d13*mt**2-2*d212*mt**2+2*d213*mt**2- $ 2*d22*mt**2+2*d223*mt**2-2*d12*p1p2-2*d212*p1p2+ $ 2*d213*p1p2-2*d22*p1p2+2*d223*p1p2-10*d13*p1p3- $ 4*d213*p1p3-4*d223*p1p3+4*p1p4*d0+6*d11*p1p4+ $ 6*d12*p1p4+4*d13*p1p4+2*d21*p1p4+4*d212*p1p4- $ 2*d213*p1p4+2*d22*p1p4-2*d223*p1p4+2*d12*p2p3+ $ 2*d212*p2p3-2*d213*p2p3+2*d22*p2p3-2*d223*p2p3- $ 2*d11*p2p4-6*d12*p2p4+2*d21*p2p4+6*d212*p2p4+ $ 4*d22*p2p4-4*p3p4*d0-6*d11*p3p4-6*d12*p3p4- $ 4*d13*p3p4-2*d21*p3p4-4*d212*p3p4+2*d213*p3p4- $ 2*d22*p3p4+2*d223*p3p4) kmv1(1,7)=(-6*d12*mt*p1p3+6*d13*mt*p1p3) kmv1(1,8)=(-12*d20*mt-2*d22*mt**3+4*d223*mt**3-2*d23*mt**3- $ 2*d22*mt*p1p2+4*d223*mt*p1p2-2*d23*mt*p1p2- $ 4*d223*mt*p1p3+4*d23*mt*p1p3+4*d12*mt*p1p4- $ 4*d13*mt*p1p4+2*d212*mt*p1p4-2*d213*mt*p1p4+ $ 2*d22*mt*p1p4-4*d223*mt*p1p4+2*d23*mt*p1p4+ $ 2*d22*mt*p2p3-4*d223*mt*p2p3+2*d23*mt*p2p3- $ 2*d12*mt*p2p4+2*d13*mt*p2p4+2*d212*mt*p2p4- $ 2*d213*mt*p2p4+4*d22*mt*p2p4-4*d223*mt*p2p4- $ 4*d12*mt*p3p4+4*d13*mt*p3p4-2*d212*mt*p3p4+ $ 2*d213*mt*p3p4-2*d22*mt*p3p4+4*d223*mt*p3p4- $ 2*d23*mt*p3p4) kmv1(1,13)=(8*d12*mt-4*d13*mt+8*d212*mt+8*d22*mt) kmv1(1,14)=(-4*d12*mt-8*d213*mt-8*d223*mt) kmv1(1,17)=(-10*c0+4*d20-4*d13*mt**2+4*d212*mt**2-4*d213*mt**2+ $ 4*d22*mt**2-4*d223*mt**2+4*d12*p1p2+4*d212*p1p2- $ 4*d213*p1p2+4*d22*p1p2-4*d223*p1p2+20*d13*p1p3+ $ 8*d213*p1p3+8*d223*p1p3-8*p1p4*d0-12*d11*p1p4- $ 12*d12*p1p4-8*d13*p1p4-4*d21*p1p4-8*d212*p1p4+ $ 4*d213*p1p4-4*d22*p1p4+4*d223*p1p4-4*d12*p2p3- $ 4*d212*p2p3+4*d213*p2p3-4*d22*p2p3+4*d223*p2p3+ $ 4*d11*p2p4+12*d12*p2p4-4*d21*p2p4-12*d212*p2p4- $ 8*d22*p2p4+8*p3p4*d0+12*d11*p3p4+12*d12*p3p4+ $ 8*d13*p3p4+4*d21*p3p4+8*d212*p3p4-4*d213*p3p4+ $ 4*d22*p3p4-4*d223*p3p4) kmv1(1,19)=8*p1p3*d0 + 4*d11*p1p3 + 8*d12*p1p3 + 8*d13*p1p3 kmv1(1,25)=(-2*c0+6*c11+8*d20-4*d13*mt**2-4*d223*mt**2- $ 4*d12*p1p2-4*d22*p1p2-8*d223*p1p2+4*d13*p1p3- $ 8*d223*p1p3-8*p1p4*d0-4*d11*p1p4-4*d12*p1p4- $ 8*d13*p1p4+4*d212*p1p4+4*d22*p1p4+8*d223*p1p4+ $ 4*d12*p2p3+4*d22*p2p3+8*d223*p2p3-8*d212*p2p4- $ 16*d22*p2p4+8*p3p4*d0+4*d11*p3p4+4*d12*p3p4+ $ 8*d13*p3p4-4*d212*p3p4-4*d22*p3p4-8*d223*p3p4) kmv1(1,26)=(2*c0-6*c12-8*d20+4*d12*mt**2+4*d223*mt**2+ $ 4*d13*p1p2+8*d223*p1p2+4*d23*p1p2+16*d23*p1p3- $ 4*d13*p1p4-8*d213*p1p4-8*d223*p1p4-4*d23*p1p4- $ 4*d13*p2p3-8*d223*p2p3-4*d23*p2p3+4*p2p4*d0- $ 4*d11*p2p4+4*d13*p2p4+4*d213*p2p4+8*d223*p2p4+ $ 4*d13*p3p4+8*d213*p3p4+8*d223*p3p4+4*d23*p3p4) kmv1(1,29)=(24*d20*mt+4*d22*mt**3-8*d223*mt**3+4*d23*mt**3+ $ 4*d22*mt*p1p2-8*d223*mt*p1p2+4*d23*mt*p1p2+ $ 8*d223*mt*p1p3-8*d23*mt*p1p3-8*d12*mt*p1p4+ $ 8*d13*mt*p1p4-4*d212*mt*p1p4+4*d213*mt*p1p4- $ 4*d22*mt*p1p4+8*d223*mt*p1p4-4*d23*mt*p1p4- $ 4*d22*mt*p2p3+8*d223*mt*p2p3-4*d23*mt*p2p3+ $ 4*d12*mt*p2p4-4*d13*mt*p2p4-4*d212*mt*p2p4+ $ 4*d213*mt*p2p4-8*d22*mt*p2p4+8*d223*mt*p2p4+ $ 8*d12*mt*p3p4-8*d13*mt*p3p4+4*d212*mt*p3p4- $ 4*d213*mt*p3p4+4*d22*mt*p3p4-8*d223*mt*p3p4+ $ 4*d23*mt*p3p4) kmv1(1,31)=(4*d12*mt*p1p3+4*d13*mt*p1p3+16*d223*mt*p1p3) kmv1(1,32)=(-8*d13*mt*p1p3-16*d23*mt*p1p3) kmv1(1,47)=(-16*d12*mt+8*d13*mt-16*d212*mt-16*d22*mt) kmv1(1,50)=(8*d12*mt+16*d213*mt+16*d223*mt) kmv1(1,65)=(-16*d20+8*d13*mt**2-16*d22*mt**2-16*d223*mt**2+ $ 8*d12*p1p2+16*d22*p1p2+16*d223*p1p2-8*d13*p1p3+ $ 16*d223*p1p3+16*p1p4*d0+8*d11*p1p4-8*d12*p1p4- $ 16*d212*p1p4-16*d22*p1p4-16*d12*p2p3- $ 16*d223*p2p3+16*d212*p2p4+16*d22*p2p4-16*p3p4*d0- $ 8*d11*p3p4-24*d12*p3p4-16*d13*p3p4+4*c0- $ 12*c11+16*d22*mt**2+24*d223*mt**2- $ 8*d22*p1p2+16*d12*p1p4+ $ 16*d13*p1p4+8*d212*p1p4+ $ 8*d22*p1p4-16*d223*p1p4+ $ 8*d12*p2p3-8*d22*p2p3+16*d22*p2p4+16*d12*p3p4+ $ 8*d212*p3p4+8*d22*p3p4+16*d223*p3p4) kmv1(1,68)=(16*d20-8*d12*mt**2+16*d223*mt**2+16*d23*mt**2- $ 8*d13*p1p2-16*d223*p1p2-16*d23*p1p2-16*d23*p1p3+ $ 16*d13*p1p4+16*d213*p1p4+16*d223*p1p4+8*d13*p2p3+ $ 16*d23*p2p3-8*p2p4*d0+8*d11*p2p4+8*d12*p2p4- $ 16*d213*p2p4-16*d223*p2p4+8*d13*p3p4- $ 4*c0+12*c12-24*d223*mt**2-16*d23*mt**2+ $ 8*d23*p1p2-16*d23*p1p3-8*d13*p1p4+8*d23*p1p4+ $ 16*d223*p2p3-8*d23*p2p3-8*d12*p2p4-8*d13*p2p4+ $ 8*d213*p2p4-16*d13*p3p4-16*d213*p3p4- $ 16*d223*p3p4-8*d23*p3p4) c B7(2) d1(0)=D0_ir(mt,0d0,mt**2-2d0*p2p4,mh**2,mt**2,s2, $ mt**2-2d0*p1p3,0d0,mt,mt) c write(6,*)'B7(2)=',d1(0) call ddfunc_ir(mt,0d0,mt**2-2d0*p2p4,mt**2-2d0*p1p3, $ -p3p4+p2p3,-p1p3,p1p4-p3p4-p1p2+p2p3, $ 0d0,0d0,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv2(1,5)=(-4*c0*p2p4+4*d20*p2p4-4*d13*mt**2*p2p4+ $ 4*d22*mt**2*p2p4-4*d223*mt**2*p2p4+4*d12*p1p2*p2p4+ $ 4*d22*p1p2*p2p4-4*d223*p1p2*p2p4- $ 4*p1p3*p2p4*d0+4*d11*p1p3*p2p4- $ 4*d12*p1p3*p2p4+4*d13*p1p3*p2p4+ $ 4*d212*p1p3*p2p4+8*d223*p1p3*p2p4- $ 4*d12*p1p4*p2p4-4*d22*p1p4*p2p4+ $ 4*d223*p1p4*p2p4-4*d12*p2p3*p2p4+ $ 4*d212*p2p3*p2p4-4*d22*p2p3*p2p4+ $ 4*d223*p2p3*p2p4-8*d22*p2p4**2+4*d12*p2p4*p3p4- $ 4*d212*p2p4*p3p4+4*d22*p2p4*p3p4- $ 4*d223*p2p4*p3p4) kmv2(1,6)=(5*c0-2*d20+2*d12*mt**2+2*d212*mt**2-2*d213*mt**2+ $ 2*d223*mt**2-2*d23*mt**2-2*d13*p1p2+2*d212*p1p2- $ 2*d213*p1p2+2*d223*p1p2-2*d23*p1p2-2*d11*p1p3- $ 6*d13*p1p3+2*d21*p1p3+6*d213*p1p3+4*d23*p1p3+ $ 2*d13*p1p4-2*d212*p1p4+2*d213*p1p4-2*d223*p1p4+ $ 2*d23*p1p4+4*p2p3*d0+6*d11*p2p3+4*d12*p2p3+ $ 6*d13*p2p3+2*d21*p2p3-2*d212*p2p3+4*d213*p2p3- $ 2*d223*p2p3+2*d23*p2p3-10*d12*p2p4-4*d212*p2p4- $ 4*d223*p2p4-4*p3p4*d0-6*d11*p3p4-4*d12*p3p4- $ 6*d13*p3p4-2*d21*p3p4+2*d212*p3p4-4*d213*p3p4+ $ 2*d223*p3p4-2*d23*p3p4) kmv2(1,7)=(12*d20*mt+2*d22*mt**3-4*d223*mt**3+2*d23*mt**3+ $ 2*d22*mt*p1p2-4*d223*mt*p1p2+2*d23*mt*p1p2- $ 2*d12*mt*p1p3+2*d13*mt*p1p3+2*d212*mt*p1p3- $ 2*d213*mt*p1p3+4*d223*mt*p1p3-4*d23*mt*p1p3- $ 2*d22*mt*p1p4+4*d223*mt*p1p4-2*d23*mt*p1p4+ $ 4*d12*mt*p2p3-4*d13*mt*p2p3+2*d212*mt*p2p3- $ 2*d213*mt*p2p3-2*d22*mt*p2p3+4*d223*mt*p2p3- $ 2*d23*mt*p2p3-4*d22*mt*p2p4+4*d223*mt*p2p4- $ 4*d12*mt*p3p4+4*d13*mt*p3p4-2*d212*mt*p3p4+ $ 2*d213*mt*p3p4+2*d22*mt*p3p4-4*d223*mt*p3p4+ $ 2*d23*mt*p3p4) kmv2(1,8)=(-6*d12*mt*p2p4+6*d13*mt*p2p4) kmv2(1,10)=(4*d13*mt+8*d212*mt+8*d223*mt) kmv2(1,11)=(4*d12*mt-8*d13*mt-8*d213*mt-8*d23*mt) kmv2(1,16)=(2*c0-6*c11-8*d20+4*d13*mt**2+4*d223*mt**2+ $ 4*d12*p1p2+4*d22*p1p2+8*d223*p1p2+4*p1p3*d0- $ 4*d11*p1p3+4*d12*p1p3+4*d212*p1p3+8*d223*p1p3- $ 4*d12*p1p4-4*d22*p1p4-8*d223*p1p4-4*d12*p2p3- $ 8*d212*p2p3-4*d22*p2p3-8*d223*p2p3+16*d22*p2p4+ $ 4*d12*p3p4+8*d212*p3p4+4*d22*p3p4+8*d223*p3p4) kmv2(1,17)=(-2*c0+6*c12+8*d20-4*d12*mt**2-4*d223*mt**2- $ 4*d13*p1p2-8*d223*p1p2-4*d23*p1p2-8*d213*p1p3- $ 16*d23*p1p3+4*d13*p1p4+8*d223*p1p4+4*d23*p1p4- $ 8*p2p3*d0-4*d11*p2p3-8*d12*p2p3-4*d13*p2p3+ $ 4*d213*p2p3+8*d223*p2p3+4*d23*p2p3+4*d12*p2p4- $ 8*d223*p2p4+8*p3p4*d0+4*d11*p3p4+8*d12*p3p4+ $ 4*d13*p3p4-4*d213*p3p4-8*d223*p3p4-4*d23*p3p4) kmv2(1,23)=(8*p2p4*d0+4*d11*p2p4+8*d12*p2p4+8*d13*p2p4) kmv2(1,25)=(-10*c0+4*d20-4*d12*mt**2-4*d212*mt**2+4*d213*mt**2- $ 4*d223*mt**2+4*d23*mt**2+4*d13*p1p2-4*d212*p1p2+ $ 4*d213*p1p2-4*d223*p1p2+4*d23*p1p2+4*d11*p1p3+ $ 12*d13*p1p3-4*d21*p1p3-12*d213*p1p3-8*d23*p1p3- $ 4*d13*p1p4+4*d212*p1p4-4*d213*p1p4+4*d223*p1p4- $ 4*d23*p1p4-8*p2p3*d0-12*d11*p2p3-8*d12*p2p3- $ 12*d13*p2p3-4*d21*p2p3+4*d212*p2p3-8*d213*p2p3+ $ 4*d223*p2p3-4*d23*p2p3+20*d12*p2p4+8*d212*p2p4+ $ 8*d223*p2p4+8*p3p4*d0+12*d11*p3p4+8*d12*p3p4+ $ 12*d13*p3p4+4*d21*p3p4-4*d212*p3p4+8*d213*p3p4- $ 4*d223*p3p4+4*d23*p3p4) kmv2(1,28)=(8*d12*mt*p2p4+16*d22*mt*p2p4) kmv2(1,29)=(-4*d12*mt*p2p4-4*d13*mt*p2p4-16*d223*mt*p2p4) kmv2(1,31)=(-24*d20*mt-4*d22*mt**3+8*d223*mt**3-4*d23*mt**3- $ 4*d22*mt*p1p2+8*d223*mt*p1p2-4*d23*mt*p1p2+ $ 4*d12*mt*p1p3-4*d13*mt*p1p3-4*d212*mt*p1p3+ $ 4*d213*mt*p1p3-8*d223*mt*p1p3+8*d23*mt*p1p3+ $ 4*d22*mt*p1p4-8*d223*mt*p1p4+4*d23*mt*p1p4- $ 8*d12*mt*p2p3+8*d13*mt*p2p3-4*d212*mt*p2p3+ $ 4*d213*mt*p2p3+4*d22*mt*p2p3-8*d223*mt*p2p3+ $ 4*d23*mt*p2p3+8*d22*mt*p2p4-8*d223*mt*p2p4+ $ 8*d12*mt*p3p4-8*d13*mt*p3p4+4*d212*mt*p3p4- $ 4*d213*mt*p3p4-4*d22*mt*p3p4+8*d223*mt*p3p4- $ 4*d23*mt*p3p4) kmv2(1,55)=(-8*d13*mt-16*d212*mt-16*d223*mt) kmv2(1,56)=(-8*d12*mt+16*d13*mt+16*d213*mt+16*d23*mt) kmv2(1,64)=(16*d20-8*d13*mt**2+16*d22*mt**2+16*d223*mt**2- $ 8*d12*p1p2-16*d22*p1p2-16*d223*p1p2-8*p1p3*d0+ $ 8*d11*p1p3+8*d13*p1p3-16*d212*p1p3-16*d223*p1p3+ $ 8*d12*p1p4+16*d22*p1p4+16*d12*p2p3+16*d212*p2p3+ $ 16*d223*p2p3-16*d22*p2p4+8*d12*p3p4-4*c0+ $ 12*c11-16*d22*mt**2-24*d223*mt**2+8*d22*p1p2- $ 8*d12*p1p3-8*d13*p1p3+8*d212*p1p3-8*d22*p1p4+ $ 16*d223*p1p4-8*d12*p2p3+8*d22*p2p3-16*d22*p2p4-16*d12*p3p4- $ 16*d212*p3p4-8*d22*p3p4-16*d223*p3p4) kmv2(1,65)=(-16*d20+8*d12*mt**2-16*d223*mt**2-16*d23*mt**2+ $ 8*d13*p1p2+16*d223*p1p2+16*d23*p1p2+16*d213*p1p3+ $ 16*d23*p1p3-16*d13*p1p4-16*d223*p1p4+16*p2p3*d0+ $ 8*d11*p2p3-8*d13*p2p3-16*d213*p2p3-16*d23*p2p3- $ 8*d12*p2p4+16*d223*p2p4-16*p3p4*d0-8*d11*p3p4- $ 16*d12*p3p4-24*d13*p3p4+4*c0-12*c12+24*d223*mt**2+ $ 16*d23*mt**2-8*d23*p1p2+16*d23*p1p3+8*d13*p1p4-8*d23*p1p4+ $ 16*d12*p2p3+16*d13*p2p3+8*d213*p2p3-16*d223*p2p3+ $ 8*d23*p2p3+16*d13*p3p4+8*d213*p3p4+16*d223*p3p4+8*d23*p3p4) c B8(1) d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,mt**2,0d0, $ mt**2-2d0*p1p3,s,0d0,mt,0d0) c write(6,*)'B8(1)=',d1(0) call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p1p3, $ -p3p4,p1p4-p3p4,-p1p3, $ 0d0,0d0,0d0,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv1(2,1)=(2*c12*mt**2+20*d20*mt**2-16*d303*mt**2+4*d23*mt**4+ $ 4*c0*p1p3-2*c11*p1p3-2*c12*p1p3-12*d20*p1p3+ $ 16*d302*p1p3+16*d303*p1p3+4*d13*mt**2*p1p3- $ 8*d223*mt**2*p1p3-12*d23*mt**2*p1p3-4*d12*p1p3**2- $ 4*d13*p1p3**2+4*d22*p1p3**2+12*d223*p1p3**2+ $ 8*d23*p1p3**2-4*c0*p1p4-2*c11*p1p4-2*c12*p1p4+ $ 8*d20*p1p4-16*d301*p1p4-4*d13*mt**2*p1p4+ $ 8*d213*mt**2*p1p4-4*d0*p1p3*p1p4+ $ 4*d11*p1p3*p1p4+4*d12*p1p3*p1p4- $ 8*d212*p1p3*p1p4-12*d213*p1p3*p1p4- $ 4*d11*p1p4**2+4*d21*p1p4**2+4*c0*p3p4+2*c11*p3p4+ $ 2*c12*p3p4-8*d20*p3p4+16*d301*p3p4+ $ 4*d13*mt**2*p3p4-8*d213*mt**2*p3p4+4*d0*p1p3*p3p4- $ 4*d11*p1p3*p3p4-4*d12*p1p3*p3p4+ $ 8*d212*p1p3*p3p4+12*d213*p1p3*p3p4+ $ 8*d11*p1p4*p3p4-8*d21*p1p4*p3p4-4*d11*p3p4**2+ $ 4*d21*p3p4**2) kmv1(2,2)=(-4*c0+10*d20-8*d301-8*d302-8*d303+2*d13*mt**2+ $ 2*d213*mt**2+2*d223*mt**2+2*d23*mt**2-2*d0*p1p3+ $ 2*d11*p1p3+4*d12*p1p3+2*d13*p1p3-2*d212*p1p3- $ 4*d213*p1p3-2*d22*p1p3-6*d223*p1p3-4*d23*p1p3- $ 2*d11*p1p4+2*d21*p1p4+2*d212*p1p4+2*d213*p1p4+ $ 2*d11*p3p4-2*d21*p3p4-2*d212*p3p4-2*d213*p3p4) kmv1(2,3)=(c12*mt+10*d20*mt-8*d303*mt+2*d23*mt**3+6*d13*mt*p1p3- $ 2*d223*mt*p1p3-4*d23*mt*p1p3+2*d213*mt*p1p4- $ 2*d213*mt*p3p4) kmv1(2,4)=(c12*mt+10*d20*mt-8*d303*mt+2*d23*mt**3+2*d13*mt*p1p3- $ 2*d223*mt*p1p3-4*d23*mt*p1p3-4*d13*mt*p1p4+ $ 2*d213*mt*p1p4+4*d13*mt*p3p4-2*d213*mt*p3p4) kmv1(2,5)=(-2*c12*mt**2+2*c0*p1p3+2*c11*p1p3+2*c12*p1p3+ $ 22*d20*p1p3+4*d23*mt**2*p1p3-4*d13*p1p3**2- $ 4*d223*p1p3**2-4*d23*p1p3**2+2*c0*p1p4+2*c11*p1p4+ $ 2*c12*p1p4-18*d20*p1p4-4*d23*mt**2*p1p4+ $ 4*d13*p1p3*p1p4+4*d213*p1p3*p1p4+ $ 4*d223*p1p3*p1p4+4*d23*p1p3*p1p4- $ 4*d213*p1p4**2-2*c0*p3p4-2*c11*p3p4-2*c12*p3p4+ $ 18*d20*p3p4+8*d13*mt**2*p3p4+4*d213*mt**2*p3p4+ $ 4*d223*mt**2*p3p4+4*d23*mt**2*p3p4-8*d0*p1p3*p3p4- $ 4*d11*p1p3*p3p4-12*d12*p1p3*p3p4- $ 12*d13*p1p3*p3p4-4*d212*p1p3*p3p4- $ 8*d213*p1p3*p3p4-4*d22*p1p3*p3p4- $ 8*d223*p1p3*p3p4-4*d23*p1p3*p3p4+ $ 8*d11*p1p4*p3p4+4*d21*p1p4*p3p4+ $ 4*d212*p1p4*p3p4+8*d213*p1p4*p3p4- $ 8*d11*p3p4**2-4*d21*p3p4**2-4*d212*p3p4**2- $ 4*d213*p3p4**2) kmv1(2,6)=(-20*d20+2*d13*p1p3+2*d213*p1p3+2*d223*p1p3+ $ 2*d23*p1p3-2*d13*p1p4-2*d213*p1p4-2*d223*p1p4- $ 2*d23*p1p4+4*d0*p3p4+6*d11*p3p4+6*d12*p3p4+ $ 6*d13*p3p4+2*d21*p3p4+4*d212*p3p4+4*d213*p3p4+ $ 2*d22*p3p4+4*d223*p3p4+2*d23*p3p4) kmv1(2,7)=(c12*mt-2*d23*mt*p1p3+2*d23*mt*p1p4- $ 4*d13*mt*p3p4-2*d213*mt*p3p4-2*d223*mt*p3p4- $ 2*d23*mt*p3p4) kmv1(2,8)=(c12*mt-2*d23*mt*p1p3+2*d23*mt*p1p4- $ 4*d13*mt*p3p4-2*d213*mt*p3p4-2*d223*mt*p3p4- $ 2*d23*mt*p3p4) kmv1(2,11)=8*d23*mt kmv1(2,14)=-8*d23*mt kmv1(2,17)=(-2*c11-3*c12+14*d20-8*d303+10*d23*mt**2- $ 14*d13*p1p3-10*d223*p1p3-8*d23*p1p3-4*d13*p1p4+ $ 2*d213*p1p4-4*d23*p1p4-8*d0*p3p4-12*d11*p3p4- $ 4*d12*p3p4-4*d13*p3p4-4*d21*p3p4-4*d212*p3p4- $ 6*d213*p3p4+4*d223*p3p4+4*d23*p3p4) kmv1(2,20)=(-2*c0-2*c11+c12+26*d20+8*d303+6*d23*mt**2+ $ 2*d13*p1p3+10*d213*p1p3-6*d223*p1p3-4*d23*p1p3+ $ 8*d213*p1p4-8*d11*p3p4-4*d21*p3p4-4*d212*p3p4- $ 16*d213*p3p4) kmv1(2,23)=(-2*c11-3*c12-26*d20-8*d303-6*d23*mt**2+2*d13*p1p3+ $ 6*d223*p1p3+8*d23*p1p3+4*d13*p1p4-6*d213*p1p4+ $ 8*d223*p1p4+4*d23*p1p4+8*d12*p3p4-4*d13*p3p4+ $ 4*d212*p3p4+6*d213*p3p4+4*d22*p3p4-4*d23*p3p4) kmv1(2,26)=(-2*c0-2*c11+c12-14*d20+8*d303-10*d23*mt**2+ $ 8*d13*p1p3+2*d23*p1p3-2*d13*p1p4-10*d213*p1p4- $ 2*d223*p1p4-2*d23*p1p4+8*d0*p3p4+4*d11*p3p4+ $ 12*d12*p3p4+10*d13*p3p4+4*d212*p3p4+6*d213*p3p4+ $ 4*d22*p3p4+6*d223*p3p4+2*d23*p3p4) kmv1(2,29)=(-2*c12*mt+8*d23*mt*p1p4+8*d13*mt*p3p4+ $ 4*d213*mt*p3p4+4*d223*mt*p3p4-8*d23*mt*p3p4) kmv1(2,32)=(2*c12*mt+10*d23*mt*p1p3+2*d23*mt*p1p4- $ 8*d13*mt*p3p4-4*d213*mt*p3p4-4*d223*mt*p3p4- $ 2*d23*mt*p3p4) kmv1(2,41)=(-16*d13-16*d213-16*d223-24*d23-8*d33-8*d331-8*d332) kmv1(2,50)=(-8*d23*mt-8*d33*mt) kmv1(2,59)=(-8*d23*mt-8*d33*mt) kmv1(2,68)=(4*c0-8*c12-24*d20-32*d303-8*d23*mt**2-16*d33*mt**2+ $ 4*d13*p1p3+24*d223*p1p3+44*d23*p1p3+16*d33*p1p3+ $ 16*d332*p1p3-4*d13*p1p4-24*d213*p1p4-4*d23*p1p4- $ 16*d331*p1p4-16*d0*p3p4-8*d11*p3p4-8*d12*p3p4- $ 12*d13*p3p4+32*d213*p3p4+8*d223*p3p4+4*d23*p3p4+ $ 16*d331*p3p4) c B8(2) d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,mt**2,0d0, $ mt**2-2d0*p2p4,s,0d0,mt,0d0) c write(6,*)'B8(2)=',d1(0) call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p2p4, $ -p3p4,-p2p4,p2p3-p3p4, $ 0d0,0d0,0d0,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv2(2,1)=(2*c12*mt**2+20*d20*mt**2-16*d303*mt**2+4*d23*mt**4- $ 2*c0*p2p3+2*c11*p2p3+8*d20*p2p3-16*d302*p2p3- $ 4*d13*mt**2*p2p3+8*d223*mt**2*p2p3-4*d12*p2p3**2+ $ 4*d22*p2p3**2+6*c0*p2p4+2*c11*p2p4-12*d20*p2p4+ $ 16*d301*p2p4+16*d303*p2p4+4*d13*mt**2*p2p4- $ 8*d213*mt**2*p2p4-12*d23*mt**2*p2p4-4*d0*p2p3*p2p4+ $ 4*d11*p2p3*p2p4+4*d12*p2p3*p2p4- $ 8*d212*p2p3*p2p4-12*d223*p2p3*p2p4- $ 4*d11*p2p4**2-4*d13*p2p4**2+4*d21*p2p4**2+ $ 12*d213*p2p4**2+8*d23*p2p4**2+2*c0*p3p4- $ 2*c11*p3p4-8*d20*p3p4+16*d302*p3p4+ $ 4*d13*mt**2*p3p4-8*d223*mt**2*p3p4+8*d12*p2p3*p3p4- $ 8*d22*p2p3*p3p4+4*d0*p2p4*p3p4- $ 4*d11*p2p4*p3p4-4*d12*p2p4*p3p4+ $ 8*d212*p2p4*p3p4+12*d223*p2p4*p3p4- $ 4*d12*p3p4**2+4*d22*p3p4**2) kmv2(2,2)=(-4*c0+10*d20-8*d301-8*d302-8*d303+2*d13*mt**2+ $ 2*d213*mt**2+2*d223*mt**2+2*d23*mt**2-2*d12*p2p3+ $ 2*d212*p2p3+2*d22*p2p3+2*d223*p2p3-2*d0*p2p4+ $ 4*d11*p2p4+2*d12*p2p4+2*d13*p2p4-2*d21*p2p4- $ 2*d212*p2p4-6*d213*p2p4-4*d223*p2p4-4*d23*p2p4+ $ 2*d12*p3p4-2*d212*p3p4-2*d22*p3p4-2*d223*p3p4) kmv2(2,3)=(-(c12*mt)-10*d20*mt+8*d303*mt-2*d23*mt**3+ $ 4*d13*mt*p2p3-2*d223*mt*p2p3-2*d13*mt*p2p4+ $ 2*d213*mt*p2p4+4*d23*mt*p2p4-4*d13*mt*p3p4+ $ 2*d223*mt*p3p4) kmv2(2,4)=(-(c12*mt)-10*d20*mt+8*d303*mt-2*d23*mt**3- $ 2*d223*mt*p2p3-6*d13*mt*p2p4+2*d213*mt*p2p4+ $ 4*d23*mt*p2p4+2*d223*mt*p3p4) kmv2(2,5)=(-2*c12*mt**2-2*c11*p2p3-18*d20*p2p3- $ 4*d23*mt**2*p2p3-4*d223*p2p3**2-2*c11*p2p4+ $ 22*d20*p2p4+4*d23*mt**2*p2p4+4*d13*p2p3*p2p4+ $ 4*d213*p2p3*p2p4+4*d223*p2p3*p2p4+ $ 4*d23*p2p3*p2p4-4*d13*p2p4**2-4*d213*p2p4**2- $ 4*d23*p2p4**2+2*c11*p3p4+18*d20*p3p4+ $ 8*d13*mt**2*p3p4+4*d213*mt**2*p3p4+4*d223*mt**2*p3p4+ $ 4*d23*mt**2*p3p4+8*d12*p2p3*p3p4+ $ 4*d212*p2p3*p3p4+4*d22*p2p3*p3p4+ $ 8*d223*p2p3*p3p4-8*d0*p2p4*p3p4- $ 12*d11*p2p4*p3p4-4*d12*p2p4*p3p4- $ 12*d13*p2p4*p3p4-4*d21*p2p4*p3p4- $ 4*d212*p2p4*p3p4-8*d213*p2p4*p3p4- $ 8*d223*p2p4*p3p4-4*d23*p2p4*p3p4-8*d12*p3p4**2- $ 4*d212*p3p4**2-4*d22*p3p4**2-4*d223*p3p4**2) kmv2(2,6)=(-20*d20-2*d13*p2p3-2*d213*p2p3-2*d223*p2p3- $ 2*d23*p2p3+2*d13*p2p4+2*d213*p2p4+2*d223*p2p4+ $ 2*d23*p2p4+4*d0*p3p4+6*d11*p3p4+6*d12*p3p4+ $ 6*d13*p3p4+2*d21*p3p4+4*d212*p3p4+4*d213*p3p4+ $ 2*d22*p3p4+4*d223*p3p4+2*d23*p3p4) kmv2(2,7)=(-(c12*mt)-2*d23*mt*p2p3+2*d23*mt*p2p4+ $ 4*d13*mt*p3p4+2*d213*mt*p3p4+2*d223*mt*p3p4+ $ 2*d23*mt*p3p4) kmv2(2,8)=(-(c12*mt)-2*d23*mt*p2p3+2*d23*mt*p2p4+ $ 4*d13*mt*p3p4+2*d213*mt*p3p4+2*d223*mt*p3p4+ $ 2*d23*mt*p3p4) kmv2(2,10)=8*d23*mt kmv2(2,13)=-8*d23*mt kmv2(2,16)=(2*c11+3*c12-14*d20+8*d303-10*d23*mt**2-2*d13*p2p3- $ 2*d213*p2p3-10*d223*p2p3-2*d23*p2p3+8*d13*p2p4+ $ 2*d23*p2p4+8*d0*p3p4+12*d11*p3p4+4*d12*p3p4+ $ 10*d13*p3p4+4*d21*p3p4+4*d212*p3p4+6*d213*p3p4+ $ 6*d223*p3p4+2*d23*p3p4) kmv2(2,19)=(2*c0+2*c11-c12-26*d20-8*d303-6*d23*mt**2+ $ 4*d13*p2p3+8*d213*p2p3-6*d223*p2p3+4*d23*p2p3+ $ 2*d13*p2p4+6*d213*p2p4+8*d23*p2p4+8*d11*p3p4- $ 4*d13*p3p4+4*d21*p3p4+4*d212*p3p4+6*d223*p3p4- $ 4*d23*p3p4) kmv2(2,22)=(2*c11+3*c12+26*d20+8*d303+6*d23*mt**2+8*d223*p2p3+ $ 2*d13*p2p4-6*d213*p2p4+10*d223*p2p4-4*d23*p2p4- $ 8*d12*p3p4-4*d212*p3p4-4*d22*p3p4-16*d223*p3p4) kmv2(2,25)=(2*c0+2*c11-c12+14*d20-8*d303+10*d23*mt**2- $ 4*d13*p2p3+2*d223*p2p3-4*d23*p2p3-14*d13*p2p4- $ 10*d213*p2p4-8*d23*p2p4-8*d0*p3p4-4*d11*p3p4- $ 12*d12*p3p4-4*d13*p3p4-4*d212*p3p4+4*d213*p3p4- $ 4*d22*p3p4-6*d223*p3p4+4*d23*p3p4) kmv2(2,28)=(-2*c12*mt-2*d23*mt*p2p3-10*d23*mt*p2p4+ $ 8*d13*mt*p3p4+4*d213*mt*p3p4+4*d223*mt*p3p4+ $ 2*d23*mt*p3p4) kmv2(2,31)=(2*c12*mt-8*d23*mt*p2p3-8*d13*mt*p3p4- $ 4*d213*mt*p3p4-4*d223*mt*p3p4+8*d23*mt*p3p4) kmv2(2,37)=(-16*d13-16*d213-16*d223-24*d23-8*d33-8*d331-8*d332) kmv2(2,46)=(8*d23*mt+8*d33*mt) kmv2(2,55)=(8*d23*mt+8*d33*mt) kmv2(2,64)=(4*c0-8*c12-24*d20-32*d303-8*d23*mt**2-16*d33*mt**2- $ 4*d13*p2p3-24*d223*p2p3-4*d23*p2p3-16*d332*p2p3+ $ 4*d13*p2p4+24*d213*p2p4+44*d23*p2p4+16*d33*p2p4+ $ 16*d331*p2p4-16*d0*p3p4-8*d11*p3p4-8*d12*p3p4- $ 12*d13*p3p4+8*d213*p3p4+32*d223*p3p4+4*d23*p3p4+ $ 16*d332*p3p4) c B10(1) d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,0d0,mt**2, $ mt**2-2d0*p1p3,mt**2-2d0*p1p4,0d0,mt,mt) call ddfunc_ir(mt,0d0,mt**2,mt**2-2d0*p1p3, $ p1p4,p1p4-p3p4,mt**2-p1p3, $ 0d0,0d0,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv1(3,1)=(4*c11*mt**2+4*c12*mt**2+24*d20*mt**2-16*d302*mt**2- $ 16*d303*mt**2+8*d22*mt**4+16*d223*mt**4+8*d23*mt**4+ $ 4*c0*p1p3-4*c12*p1p3-16*d20*p1p3+16*d303*p1p3- $ 8*d22*mt**2*p1p3-32*d223*mt**2*p1p3-24*d23*mt**2*p1p3+ $ 8*d223*p1p3**2+16*d23*p1p3**2-8*c0*p1p4- $ 4*c11*p1p4-4*c12*p1p4+8*d20*p1p4-16*d301*p1p4- $ 8*d12*mt**2*p1p4-8*d13*mt**2*p1p4+16*d212*mt**2*p1p4+ $ 16*d213*mt**2*p1p4+8*d13*p1p3*p1p4- $ 8*d212*p1p3*p1p4-24*d213*p1p3*p1p4- $ 8*d11*p1p4**2+8*d21*p1p4**2+8*c0*p3p4+4*c11*p3p4+ $ 4*c12*p3p4-8*d20*p3p4+16*d301*p3p4+ $ 8*d12*mt**2*p3p4+8*d13*mt**2*p3p4-16*d212*mt**2*p3p4- $ 16*d213*mt**2*p3p4-8*d13*p1p3*p3p4+ $ 8*d212*p1p3*p3p4+24*d213*p1p3*p3p4+ $ 16*d11*p1p4*p3p4-16*d21*p1p4*p3p4- $ 8*d11*p3p4**2+8*d21*p3p4**2) kmv1(3,2)=(-6*c0-2*c11+12*d20-8*d301-8*d303+4*d212*mt**2+ $ 4*d213*mt**2+4*d223*mt**2+4*d23*mt**2+4*d13*p1p3- $ 4*d212*p1p3-8*d213*p1p3-4*d223*p1p3-8*d23*p1p3- $ 4*d11*p1p4+4*d21*p1p4+4*d213*p1p4+4*d11*p3p4- $ 4*d21*p3p4-4*d213*p3p4) kmv1(3,3)=(2*c11*mt+2*c12*mt+12*d20*mt-8*d302*mt-8*d303*mt+ $ 4*d22*mt**3+8*d223*mt**3+4*d23*mt**3+4*d12*mt*p1p3+ $ 4*d13*mt*p1p3-4*d22*mt*p1p3-12*d223*mt*p1p3- $ 8*d23*mt*p1p3+4*d212*mt*p1p4+4*d213*mt*p1p4- $ 4*d212*mt*p3p4-4*d213*mt*p3p4) kmv1(3,4)=(2*c11*mt+2*c12*mt+12*d20*mt-8*d302*mt-8*d303*mt+ $ 4*d22*mt**3+8*d223*mt**3+4*d23*mt**3-4*d22*mt*p1p3- $ 12*d223*mt*p1p3-8*d23*mt*p1p3-4*d12*mt*p1p4- $ 4*d13*mt*p1p4+4*d212*mt*p1p4+4*d213*mt*p1p4+ $ 4*d12*mt*p3p4+4*d13*mt*p3p4-4*d212*mt*p3p4- $ 4*d213*mt*p3p4) kmv1(3,5)=(-4*c0*p1p3+16*d20*p1p3-4*d12*mt**2*p1p3- $ 4*d13*mt**2*p1p3+4*d22*mt**2*p1p3+8*d223*mt**2*p1p3+ $ 4*d23*mt**2*p1p3+4*d13*p1p3**2-4*d223*p1p3**2- $ 4*d23*p1p3**2+6*c0*p1p4-12*d20*p1p4+ $ 12*d12*mt**2*p1p4+12*d13*mt**2*p1p4-8*d0*p1p3*p1p4- $ 4*d11*p1p3*p1p4-8*d12*p1p3*p1p4- $ 20*d13*p1p3*p1p4+4*d212*p1p3*p1p4+ $ 4*d213*p1p3*p1p4+12*d11*p1p4**2-6*c0*p3p4+ $ 12*d20*p3p4-4*d12*mt**2*p3p4-4*d13*mt**2*p3p4+ $ 4*d212*mt**2*p3p4+4*d213*mt**2*p3p4+ $ 12*d13*p1p3*p3p4-4*d212*p1p3*p3p4- $ 8*d213*p1p3*p3p4-16*d11*p1p4*p3p4+ $ 4*d21*p1p4*p3p4+4*d11*p3p4**2-4*d21*p3p4**2) kmv1(3,6)=(5*c0-14*d20+2*d12*mt**2+2*d13*mt**2-8*d13*p1p3+ $ 2*d212*p1p3+2*d213*p1p3+2*d223*p1p3+2*d23*p1p3+ $ 4*d0*p1p4+8*d11*p1p4+4*d12*p1p4+4*d13*p1p4- $ 2*d11*p3p4+2*d21*p3p4+2*d213*p3p4) kmv1(3,7)=(6*d12*mt*p1p3+6*d13*mt*p1p3-2*d22*mt*p1p3- $ 4*d223*mt*p1p3-2*d23*mt*p1p3-4*d12*mt*p3p4- $ 4*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4) kmv1(3,8)=(-2*d22*mt*p1p3-4*d223*mt*p1p3-2*d23*mt*p1p3- $ 6*d12*mt*p1p4-6*d13*mt*p1p4+2*d12*mt*p3p4+ $ 2*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4) kmv1(3,11)=(8*d22*mt+16*d223*mt+8*d23*mt) kmv1(3,14)=(4*d12*mt+4*d13*mt-4*d22*mt-8*d223*mt-4*d23*mt) kmv1(3,17)=(-10*c0-2*c11-2*c12+4*d20-8*d302-8*d303-4*d12*mt**2- $ 4*d13*mt**2+12*d22*mt**2+24*d223*mt**2+12*d23*mt**2+ $ 4*d13*p1p3-12*d223*p1p3-12*d23*p1p3-8*d0*p1p4- $ 16*d11*p1p4-16*d12*p1p4-16*d13*p1p4-8*d22*p1p4- $ 16*d223*p1p4-8*d23*p1p4+4*d11*p3p4+8*d13*p3p4- $ 4*d21*p3p4-4*d212*p3p4-4*d213*p3p4+8*d223*p3p4+ $ 8*d23*p3p4) kmv1(3,20)=(-6*c0-2*c11-2*c12+12*d20+8*d302+8*d303-12*d12*mt**2- $ 12*d13*mt**2-4*d22*mt**2-8*d223*mt**2-4*d23*mt**2+ $ 4*d0*p1p3-4*d11*p1p3+8*d12*p1p3+20*d13*p1p3+ $ 4*d212*p1p3+4*d213*p1p3+4*d22*p1p3+12*d223*p1p3+ $ 8*d23*p1p3-12*d11*p1p4-4*d212*p1p4-4*d213*p1p4+ $ 4*d11*p3p4-4*d21*p3p4-4*d212*p3p4-4*d213*p3p4) kmv1(3,23)=(-2*c11-2*c12-24*d20-8*d302-8*d303-4*d22*mt**2- $ 8*d223*mt**2-4*d23*mt**2+4*d223*p1p3+4*d23*p1p3- $ 8*d12*p1p4+4*d13*p1p4-4*d212*p1p4-4*d213*p1p4- $ 8*d22*p1p4-4*d223*p1p4+4*d23*p1p4-4*d13*p3p4+ $ 4*d213*p3p4-4*d223*p3p4-4*d23*p3p4) kmv1(3,26)=(4*c0-2*c11-2*c12-16*d20+8*d302+8*d303-12*d22*mt**2- $ 24*d223*mt**2-12*d23*mt**2+4*d12*p1p3+4*d22*p1p3+ $ 16*d223*p1p3+12*d23*p1p3+4*d0*p1p4+8*d11*p1p4+ $ 4*d12*p1p4+4*d13*p1p4-12*d212*p1p4-12*d213*p1p4+ $ 4*d0*p3p4-4*d11*p3p4+4*d12*p3p4+4*d13*p3p4+ $ 4*d212*p3p4+8*d213*p3p4) kmv1(3,29)=(12*d12*mt*p1p4+12*d13*mt*p1p4+12*d22*mt*p1p4+ $ 24*d223*mt*p1p4+12*d23*mt*p1p4-4*d12*mt*p3p4- $ 4*d13*mt*p3p4+4*d212*mt*p3p4+4*d213*mt*p3p4- $ 12*d22*mt*p3p4-24*d223*mt*p3p4-12*d23*mt*p3p4) kmv1(3,32)=(4*d12*mt*p1p3+4*d13*mt*p1p3+4*d22*mt*p1p3+ $ 8*d223*mt*p1p3+4*d23*mt*p1p3-8*d12*mt*p3p4- $ 8*d13*mt*p3p4-4*d212*mt*p3p4-4*d213*mt*p3p4) kmv1(3,41)=(-16*d13-16*d212-16*d213-24*d223-24*d23-16*d3123- $ 8*d321-8*d323-8*d33-8*d331-16*d332) kmv1(3,50)=(-8*d12*mt-8*d13*mt-16*d22*mt-32*d223*mt-16*d23*mt- $ 8*d32*mt-24*d323*mt-8*d33*mt-24*d332*mt) kmv1(3,59)=(-8*d22*mt-16*d223*mt-8*d23*mt-8*d32*mt-24*d323*mt- $ 8*d33*mt-24*d332*mt) kmv1(3,68)=(-8*c0-16*d20-32*d302-32*d303-16*d32*mt**2- $ 48*d323*mt**2-16*d33*mt**2-48*d332*mt**2+16*d13*p1p3+ $ 16*d223*p1p3+16*d23*p1p3+16*d323*p1p3+ $ 16*d33*p1p3+32*d332*p1p3-8*d0*p1p4-16*d11*p1p4- $ 16*d12*p1p4-16*d13*p1p4-16*d212*p1p4- $ 16*d213*p1p4-8*d22*p1p4-16*d223*p1p4-8*d23*p1p4- $ 32*d3123*p1p4-16*d321*p1p4-16*d331*p1p4- $ 8*d0*p3p4+8*d11*p3p4-16*d12*p3p4+24*d212*p3p4+ $ 24*d213*p3p4-8*d22*p3p4+8*d23*p3p4+32*d3123*p3p4+ $ 16*d321*p3p4+16*d331*p3p4) c B10(2) d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,0d0,mt**2, $ mt**2-2d0*p2p3,mt**2-2d0*p2p4,0d0,mt,mt) call ddfunc_ir(mt,0d0,mt**2,mt**2-2d0*p2p3, $ p2p4,p2p4-p3p4,mt**2-p2p3, $ 0d0,0d0,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv2(3,1)=(4*c11*mt**2+4*c12*mt**2+24*d20*mt**2-16*d302*mt**2- $ 16*d303*mt**2+8*d22*mt**4+16*d223*mt**4+8*d23*mt**4- $ 4*c0*p2p3-4*c12*p2p3+16*d20*p2p3+16*d303*p2p3- $ 8*d12*mt**2*p2p3-8*d13*mt**2*p2p3-16*d223*mt**2*p2p3- $ 16*d23*mt**2*p2p3+8*d13*p2p3**2+8*d23*p2p3**2+ $ 4*c0*p2p4-4*c11*p2p4-4*c12*p2p4-16*d20*p2p4- $ 16*d301*p2p4+16*d12*mt**2*p2p4+16*d13*mt**2*p2p4+ $ 16*d212*mt**2*p2p4+16*d213*mt**2*p2p4- $ 16*d0*p2p3*p2p4-8*d11*p2p3*p2p4- $ 16*d12*p2p3*p2p4-32*d13*p2p3*p2p4- $ 16*d213*p2p3*p2p4+16*d11*p2p4**2+8*d21*p2p4**2+ $ 4*c0*p3p4+4*c12*p3p4-16*d20*p3p4-16*d303*p3p4+ $ 8*d12*mt**2*p3p4+8*d13*mt**2*p3p4+8*d223*mt**2*p3p4+ $ 8*d23*mt**2*p3p4-8*d13*p2p3*p3p4- $ 8*d23*p2p3*p3p4+16*d0*p2p4*p3p4+ $ 8*d11*p2p4*p3p4+16*d12*p2p4*p3p4+ $ 16*d13*p2p4*p3p4+8*d213*p2p4*p3p4) kmv2(3,2)=(-4*c0+2*c11+16*d20+8*d301+8*d303-4*d12*mt**2- $ 4*d13*mt**2-4*d212*mt**2-4*d213*mt**2-4*d223*mt**2- $ 4*d23*mt**2+ $ 12*d13*p2p3+4*d213*p2p3+4*d23*p2p3-8*d0*p2p4- $ 12*d11*p2p4-8*d12*p2p4-8*d13*p2p4-4*d21*p2p4- $ 4*d213*p2p4) kmv2(3,3)=(-2*c11*mt-2*c12*mt-12*d20*mt+8*d302*mt+8*d303*mt- $ 4*d22*mt**3-8*d223*mt**3-4*d23*mt**3+8*d12*mt*p2p3+ $ 8*d13*mt*p2p3+4*d223*mt*p2p3+4*d23*mt*p2p3- $ 4*d212*mt*p2p4-4*d213*mt*p2p4-8*d12*mt*p3p4- $ 8*d13*mt*p3p4) kmv2(3,4)=(-2*c11*mt-2*c12*mt-12*d20*mt+8*d302*mt+8*d303*mt- $ 4*d22*mt**3-8*d223*mt**3-4*d23*mt**3+4*d223*mt*p2p3+ $ 4*d23*mt*p2p3-8*d12*mt*p2p4-8*d13*mt*p2p4- $ 4*d212*mt*p2p4-4*d213*mt*p2p4) kmv2(3,5)=(4*c0*p2p3-16*d20*p2p3+4*d12*mt**2*p2p3+ $ 4*d13*mt**2*p2p3-4*d22*mt**2*p2p3-8*d223*mt**2*p2p3- $ 4*d23*mt**2*p2p3-4*d13*p2p3**2+4*d223*p2p3**2+ $ 4*d23*p2p3**2-6*c0*p2p4+12*d20*p2p4- $ 12*d12*mt**2*p2p4-12*d13*mt**2*p2p4+8*d0*p2p3*p2p4+ $ 4*d11*p2p3*p2p4+8*d12*p2p3*p2p4+ $ 20*d13*p2p3*p2p4-4*d212*p2p3*p2p4- $ 4*d213*p2p3*p2p4-12*d11*p2p4**2-4*c0*p3p4+ $ 16*d20*p3p4-4*d212*mt**2*p3p4-4*d213*mt**2*p3p4+ $ 4*d13*p2p3*p3p4+4*d213*p2p3*p3p4- $ 4*d223*p2p3*p3p4-4*d23*p2p3*p3p4- $ 8*d0*p2p4*p3p4-8*d12*p2p4*p3p4- $ 8*d13*p2p4*p3p4-4*d21*p2p4*p3p4-4*d213*p3p4**2) kmv2(3,6)=(5*c0-14*d20+2*d12*mt**2+2*d13*mt**2-8*d13*p2p3+ $ 2*d212*p2p3+2*d213*p2p3+2*d223*p2p3+2*d23*p2p3+ $ 4*d0*p2p4+8*d11*p2p4+4*d12*p2p4+4*d13*p2p4- $ 2*d11*p3p4+2*d21*p3p4+2*d213*p3p4) kmv2(3,7)=(6*d12*mt*p2p3+6*d13*mt*p2p3-2*d22*mt*p2p3- $ 4*d223*mt*p2p3-2*d23*mt*p2p3-4*d12*mt*p3p4- $ 4*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4) kmv2(3,8)=(-2*d22*mt*p2p3-4*d223*mt*p2p3-2*d23*mt*p2p3- $ 6*d12*mt*p2p4-6*d13*mt*p2p4+2*d12*mt*p3p4+ $ 2*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4) kmv2(3,10)=(8*d22*mt+16*d223*mt+8*d23*mt) kmv2(3,13)=(4*d12*mt+4*d13*mt-4*d22*mt-8*d223*mt-4*d23*mt) kmv2(3,16)=(10*c0+2*c11+2*c12-4*d20+8*d302+8*d303+4*d12*mt**2+ $ 4*d13*mt**2-12*d22*mt**2-24*d223*mt**2-12*d23*mt**2- $ 4*d13*p2p3+12*d223*p2p3+12*d23*p2p3+8*d0*p2p4+ $ 16*d11*p2p4+16*d12*p2p4+16*d13*p2p4+8*d22*p2p4+ $ 16*d223*p2p4+8*d23*p2p4-4*d11*p3p4-8*d13*p3p4+ $ 4*d21*p3p4+4*d212*p3p4+4*d213*p3p4-8*d223*p3p4- $ 8*d23*p3p4) kmv2(3,19)=(6*c0+2*c11+2*c12-12*d20-8*d302-8*d303+12*d12*mt**2+ $ 12*d13*mt**2+4*d22*mt**2+8*d223*mt**2+4*d23*mt**2- $ 4*d0*p2p3+4*d11*p2p3-8*d12*p2p3-20*d13*p2p3- $ 4*d212*p2p3-4*d213*p2p3-4*d22*p2p3-12*d223*p2p3- $ 8*d23*p2p3+12*d11*p2p4+4*d212*p2p4+4*d213*p2p4- $ 4*d11*p3p4+4*d21*p3p4+4*d212*p3p4+4*d213*p3p4) kmv2(3,22)=(2*c11+2*c12+24*d20+8*d302+8*d303+4*d22*mt**2+ $ 8*d223*mt**2+4*d23*mt**2-4*d223*p2p3-4*d23*p2p3+ $ 8*d12*p2p4-4*d13*p2p4+4*d212*p2p4+4*d213*p2p4+ $ 8*d22*p2p4+4*d223*p2p4-4*d23*p2p4+4*d13*p3p4- $ 4*d213*p3p4+4*d223*p3p4+4*d23*p3p4) kmv2(3,25)=(-4*c0+2*c11+2*c12+16*d20-8*d302-8*d303+12*d22*mt**2+ $ 24*d223*mt**2+12*d23*mt**2-4*d12*p2p3-4*d22*p2p3- $ 16*d223*p2p3-12*d23*p2p3-4*d0*p2p4-8*d11*p2p4- $ 4*d12*p2p4-4*d13*p2p4+12*d212*p2p4+12*d213*p2p4- $ 4*d0*p3p4+4*d11*p3p4-4*d12*p3p4-4*d13*p3p4- $ 4*d212*p3p4-8*d213*p3p4) kmv2(3,28)=(-12*d12*mt*p2p4-12*d13*mt*p2p4-12*d22*mt*p2p4- $ 24*d223*mt*p2p4-12*d23*mt*p2p4+4*d12*mt*p3p4+ $ 4*d13*mt*p3p4-4*d212*mt*p3p4-4*d213*mt*p3p4- $ 4*d22*mt*p3p4-8*d223*mt*p3p4-4*d23*mt*p3p4) kmv2(3,31)=(-4*d12*mt*p2p3-4*d13*mt*p2p3-4*d22*mt*p2p3- $ 8*d223*mt*p2p3-4*d23*mt*p2p3+4*d212*mt*p3p4+ $ 4*d213*mt*p3p4+8*d22*mt*p3p4+16*d223*mt*p3p4+ $ 8*d23*mt*p3p4) kmv2(3,37)=(16*d13+16*d212+16*d213+24*d223+24*d23+16*d3123+ $ 8*d321+8*d323+8*d33+8*d331+16*d332) kmv2(3,46)=(8*d12*mt+8*d13*mt+16*d22*mt+32*d223*mt+16*d23*mt+ $ 8*d32*mt+24*d323*mt+8*d33*mt+24*d332*mt) kmv2(3,55)=(8*d22*mt+16*d223*mt+8*d23*mt+8*d32*mt+24*d323*mt+ $ 8*d33*mt+24*d332*mt) kmv2(3,64)=(-8*c0-16*d20-32*d302-32*d303-16*d32*mt**2- $ 48*d323*mt**2-16*d33*mt**2-48*d332*mt**2+16*d13*p2p3+ $ 16*d223*p2p3+16*d23*p2p3+16*d323*p2p3+ $ 16*d33*p2p3+32*d332*p2p3-8*d0*p2p4-16*d11*p2p4- $ 16*d12*p2p4-16*d13*p2p4-16*d212*p2p4- $ 16*d213*p2p4-8*d22*p2p4-16*d223*p2p4-8*d23*p2p4- $ 32*d3123*p2p4-16*d321*p2p4-16*d331*p2p4- $ 8*d0*p3p4+8*d11*p3p4-16*d12*p3p4-32*d13*p3p4- $ 8*d212*p3p4-8*d213*p3p4-8*d22*p3p4-48*d223*p3p4- $ 40*d23*p3p4-16*d323*p3p4-16*d33*p3p4-32*d332*p3p4) do i=1,68 kmv1(1,i)=-cg/2d0*kmv1(1,i) kmv2(1,i)=-cg/2d0*kmv2(1,i) kmv1(2,i)=cg/2d0*kmv1(2,i) kmv2(2,i)=cg/2d0*kmv2(2,i) kmv1(3,i)=cg/2d0*kmv1(3,i) kmv2(3,i)=cg/2d0*kmv2(3,i) enddo return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine kmvs_finite(s,t1,t2,u1,u2,mt,mh,kmv) c form factors for the s-channel UV+IR finite contribution c box diagrams B1(1-6), B3, vertex corr. V4(1-4), V5(1-2) implicit none integer i,j real*8 ncf,cg,cf,mt,mh real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(16,68) complex*16 c0,d0,c11,c12,c20,c21,c22,c23 complex*16 b0,b1,b20 complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4) complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323, $ d331,d332,d3123 zero=dcmplx(0d0,0d0) do i=1,68 do j=1,16 kmv(j,i)=zero enddo enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c color factors: ncf=3d0 cg=ncf cf=(ncf**2-1d0)/ncf/2d0 c B1(1)+B1(6) call ddfunc(0d0,0d0,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3, $ -p3p4,p1p4+p2p4-p3p4,-p1p3-p2p3, $ mt,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv(1,3)=(4*c0+8*c11+8*c12+32*d301+ $ 4*d0*p1p3+8*d13*p1p3+4*d0*p2p3+8*d13*p2p3) kmv(1,4)=(8*c0+8*c11+8*c12-32*d20-32*d302-32*d303- $ 4*d0*p1p4-4*d0*p2p4+ $ 8*d0*p3p4+8*d12*p3p4+8*d13*p3p4) kmv(1,28)=(4*c0+32*d303+8*d13*p1p4+8*d13*p2p4+ $ 4*d0*p3p4) kmv(1,29)=(4*c0+32*d303+8*d13*p1p4+8*d13*p2p4+ $ 4*d0*p3p4) kmv(1,31)=(-4*c0-8*c12+32*d303+ $ 8*d13*p1p3+16*d23*p1p3+8*d13*p2p3+16*d23*p2p3- $ 4*d0*p3p4+16*d213*p3p4) kmv(1,32)=(-4*c0-8*c12+32*d303+ $ 8*d13*p1p3+16*d23*p1p3+8*d13*p2p3+16*d23*p2p3- $ 4*d0*p3p4+16*d213*p3p4) kmv(1,46)=(-8*d13+32*d331) kmv(1,47)=(-8*d13+32*d331) kmv(1,49)=(-8*d13+32*d331) kmv(1,50)=(-8*d13+32*d331) kmv(1,55)=(-8*d13-32*d23-32*d33-32*d332) kmv(1,56)=(-8*d13-32*d23-32*d33-32*d332) kmv(1,58)=(-8*d13-32*d23-32*d33-32*d332) kmv(1,59)=(-8*d13-32*d23-32*d33-32*d332) c B1(2)+B1(5) call ddfunc(0d0,2d0*mt**2+2d0*p1p2, $ 2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3, $ p1p4+p2p4,p1p4+p2p4-p3p4,2d0*mt**2+2d0*p1p2-p1p3-p2p3, $ mt,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv(2,3)=(-4*c0-32*d301-8*d0*mt**2-16*d12*mt**2-16*d13*mt**2- $ 8*d0*p1p2-16*d12*p1p2-16*d13*p1p2+4*d0*p1p3+ $ 8*d13*p1p3-8*d11*p1p4+4*d0*p2p3+8*d13*p2p3- $ 8*d11*p2p4+8*d11*p3p4) kmv(2,4)=(4*c0+32*d303-4*d0*p1p4-4*d0*p2p4- $ 8*d13*p3p4) kmv(2,28)=(8*c0+8*c11+8*c12-32*d20-32*d302-32*d303- $ 8*d0*p1p4-8*d12*p1p4- $ 8*d13*p1p4-8*d0*p2p4-8*d12*p2p4-8*d13*p2p4+ $ 4*d0*p3p4) kmv(2,29)=(8*c0+8*c11+8*c12-32*d20-32*d302-32*d303- $ 8*d0*p1p4-8*d12*p1p4- $ 8*d13*p1p4-8*d0*p2p4-8*d12*p2p4-8*d13*p2p4+ $ 4*d0*p3p4) kmv(2,31)=(8*c11+8*c12+16*d20-32*d302-32*d303+16*d12*mt**2+ $ 16*d13*mt**2+32*d22*mt**2+64*d223*mt**2+32*d23*mt**2+ $ 16*d12*p1p2+16*d13*p1p2+32*d22*p1p2+64*d223*p1p2+ $ 32*d23*p1p2-8*d12*p1p3-8*d13*p1p3-16*d223*p1p3- $ 16*d23*p1p3+16*d212*p1p4+16*d213*p1p4-8*d12*p2p3- $ 8*d13*p2p3-16*d223*p2p3-16*d23*p2p3+16*d212*p2p4+ $ 16*d213*p2p4-4*d0*p3p4) kmv(2,32)=(8*c11+8*c12+16*d20-32*d302-32*d303+16*d12*mt**2+ $ 16*d13*mt**2+32*d22*mt**2+64*d223*mt**2+32*d23*mt**2+ $ 16*d12*p1p2+16*d13*p1p2+32*d22*p1p2+64*d223*p1p2+ $ 32*d23*p1p2-8*d12*p1p3-8*d13*p1p3-16*d223*p1p3- $ 16*d23*p1p3+16*d212*p1p4+16*d213*p1p4-8*d12*p2p3- $ 8*d13*p2p3-16*d223*p2p3-16*d23*p2p3+16*d212*p2p4+ $ 16*d213*p2p4-4*d0*p3p4) kmv(2,46)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321- $ 32*d331) kmv(2,47)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321- $ 32*d331) kmv(2,49)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321- $ 32*d331) kmv(2,50)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321- $ 32*d331) kmv(2,55)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332) kmv(2,56)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332) kmv(2,58)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332) kmv(2,59)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332) c B1(3)+B1(4) call ddfunc(0d0,0d0,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4, $ -p3p4,p1p3+p2p3-p3p4,-p1p4-p2p4, $ mt,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv(3,3)=(-8*c0-8*c11-8*c12+32*d20+32*d302+32*d303+ $ 4*d0*p1p3+4*d0*p2p3- $ 8*d0*p3p4-8*d12*p3p4-8*d13*p3p4) kmv(3,4)=(-4*c0-8*c11-8*c12-32*d301- $ 4*d0*p1p4-8*d13*p1p4-4*d0*p2p4-8*d13*p2p4) kmv(3,28)=(4*c0+8*c12-32*d303- $ 8*d13*p1p4-16*d23*p1p4-8*d13*p2p4-16*d23*p2p4+ $ 4*d0*p3p4-16*d213*p3p4) kmv(3,29)=(4*c0+8*c12-32*d303- $ 8*d13*p1p4-16*d23*p1p4-8*d13*p2p4-16*d23*p2p4+ $ 4*d0*p3p4-16*d213*p3p4) kmv(3,31)=(-4*c0-32*d303-8*d13*p1p3-8*d13*p2p3- $ 4*d0*p3p4) kmv(3,32)=(-4*c0-32*d303-8*d13*p1p3-8*d13*p2p3- $ 4*d0*p3p4) kmv(3,46)=(8*d13+32*d23+32*d33+32*d332) kmv(3,47)=(8*d13+32*d23+32*d33+32*d332) kmv(3,49)=(8*d13+32*d23+32*d33+32*d332) kmv(3,50)=(8*d13+32*d23+32*d33+32*d332) kmv(3,55)=(8*d13-32*d331) kmv(3,56)=(8*d13-32*d331) kmv(3,58)=(8*d13-32*d331) kmv(3,59)=(8*d13-32*d331) c 1/4 comes from color factor do i=1,68 do j=1,3 kmv(j,i)=kmv(j,i)*mt/4d0 enddo enddo c V4(1)+V4(2) call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4, $ p1p3+p2p3-p3p4,mt,mt,mt, $ c0,c11,c12,c21,c22,c20,c23) call bfunc(mh**2,mt,mt,b0,b1,b20) kmv(4,3)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+ $ 8*c0*p3p4) kmv(4,28)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+ $ 16*c12*p1p2+32*c22*p1p2+16*c23*p1p3+16*c23*p2p3- $ 8*c0*p3p4+16*c23*p3p4) kmv(4,29)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+ $ 16*c12*p1p2+32*c22*p1p2+16*c23*p1p3+16*c23*p2p3- $ 8*c0*p3p4+16*c23*p3p4) kmv(4,31)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+ $ 8*c0*p3p4) kmv(4,32)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+ $ 8*c0*p3p4) kmv(4,55)=(8*c0-32*c23) kmv(4,56)=(8*c0-32*c23) kmv(4,58)=(8*c0-32*c23) kmv(4,59)=(8*c0-32*c23) c V4(3)+V4(4) call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3, $ p1p4+p2p4-p3p4,mt,mt,mt, $ c0,c11,c12,c21,c22,c20,c23) kmv(5,4)=(8*b0-32*c20-8*c0*p1p4-8*c0*p2p4+ $ 8*c0*p3p4) kmv(5,28)=(8*b0-32*c20-8*c0*p1p4-8*c0*p2p4+ $ 8*c0*p3p4) kmv(5,29)=(8*b0-32*c20-8*c0*p1p4-8*c0*p2p4+ $ 8*c0*p3p4) kmv(5,31)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+ $ 16*c12*p1p2+32*c22*p1p2+16*c23*p1p4+16*c23*p2p4- $ 8*c0*p3p4+16*c23*p3p4) kmv(5,32)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+ $ 16*c12*p1p2+32*c22*p1p2+16*c23*p1p4+16*c23*p2p4- $ 8*c0*p3p4+16*c23*p3p4) kmv(5,46)=(8*c0-32*c23) kmv(5,47)=(8*c0-32*c23) kmv(5,49)=(8*c0-32*c23) kmv(5,50)=(8*c0-32*c23) c V5(1)+V5(2) call ccfunc2(2d0*mt**2+2d0*p1p2,mh**2, $ 2d0*mt**2+2d0*p1p2-p1p4-p2p4-p1p3-p2p3,mt,mt,mt, $ c0,c11,c12,c21,c22,c20,c23) call bfunc(s,mt,mt,b0,b1,b20) kmv(16,3)=(-4*b0+16*c20-8*c0*mt**2-16*c11*mt**2-16*c12*mt**2- $ 8*c0*p1p2-16*c11*p1p2-16*c12*p1p2+8*c0*p1p3+ $ 24*c12*p1p3+16*c22*p1p3+16*c23*p1p3-8*c12*p1p4- $ 16*c22*p1p4-16*c23*p1p4+8*c0*p2p3+24*c12*p2p3+ $ 16*c22*p2p3+16*c23*p2p3-8*c12*p2p4-16*c22*p2p4- $ 16*c23*p2p4) kmv(16,4)=(4*b0-16*c20+8*c0*mt**2+16*c11*mt**2+16*c12*mt**2+ $ 8*c0*p1p2+16*c11*p1p2+16*c12*p1p2+8*c12*p1p3+ $ 16*c22*p1p3+16*c23*p1p3-8*c0*p1p4-24*c12*p1p4- $ 16*c22*p1p4-16*c23*p1p4+8*c12*p2p3+16*c22*p2p3+ $ 16*c23*p2p3-8*c0*p2p4-24*c12*p2p4-16*c22*p2p4- $ 16*c23*p2p4) c 1/2 comes from color factor do i=1,68 kmv(4,i)=kmv(4,i)*mt/2d0 kmv(5,i)=-kmv(5,i)*mt/2d0 kmv(16,i)=-kmv(16,i)*mt/2d0 enddo c B3 call ddfunc(s,s+mt**2-2d0*p1pq,mt**2,s-p1pq,p2pq,p2pq-p1p2, $ 0d0,0d0,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv(6,1)=(-2*c0*p1p3+6*c11*p1p3+8*d20*p1p3- $ 4*d13*mt**2*p1p3-4*d223*mt**2*p1p3-4*d12*p1p2*p1p3- $ 4*d22*p1p2*p1p3-8*d223*p1p2*p1p3- $ 8*d212*p1p3**2-16*d22*p1p3**2+2*c0*p1p4- $ 6*c11*p1p4-8*d20*p1p4+4*d13*mt**2*p1p4+ $ 4*d223*mt**2*p1p4+4*d12*p1p2*p1p4+ $ 4*d22*p1p2*p1p4+8*d223*p1p2*p1p4+ $ 8*d212*p1p4**2+16*d22*p1p4**2+2*c0*p2p3- $ 6*c12*p2p3-8*d20*p2p3+4*d12*mt**2*p2p3+ $ 4*d223*mt**2*p2p3+4*d13*p1p2*p2p3+ $ 8*d223*p1p2*p2p3+4*d23*p1p2*p2p3- $ 4*d0*p1p3*p2p3-8*d11*p1p3*p2p3- $ 4*d12*p1p3*p2p3-4*d13*p1p3*p2p3+ $ 4*d212*p1p3*p2p3+4*d213*p1p3*p2p3+ $ 4*d22*p1p3*p2p3+16*d223*p1p3*p2p3+ $ 12*d0*p1p4*p2p3+4*d12*p1p4*p2p3+ $ 12*d13*p1p4*p2p3-4*d212*p1p4*p2p3+ $ 4*d213*p1p4*p2p3-4*d22*p1p4*p2p3-4*d13*p2p3**2- $ 8*d213*p2p3**2-8*d223*p2p3**2-4*d23*p2p3**2- $ 2*c0*p2p4+6*c12*p2p4+8*d20*p2p4-4*d12*mt**2*p2p4- $ 4*d223*mt**2*p2p4-4*d13*p1p2*p2p4- $ 8*d223*p1p2*p2p4-4*d23*p1p2*p2p4- $ 12*d0*p1p3*p2p4-4*d12*p1p3*p2p4- $ 12*d13*p1p3*p2p4+4*d212*p1p3*p2p4- $ 4*d213*p1p3*p2p4+4*d22*p1p3*p2p4+ $ 4*d0*p1p4*p2p4+8*d11*p1p4*p2p4+ $ 4*d12*p1p4*p2p4+4*d13*p1p4*p2p4- $ 4*d212*p1p4*p2p4-4*d213*p1p4*p2p4- $ 4*d22*p1p4*p2p4-16*d223*p1p4*p2p4+ $ 4*d13*p2p4**2+8*d213*p2p4**2+8*d223*p2p4**2+ $ 4*d23*p2p4**2-10*c0*p3p4+4*d20*p3p4- $ 4*d13*mt**2*p3p4+4*d212*mt**2*p3p4-4*d213*mt**2*p3p4+ $ 4*d22*mt**2*p3p4-4*d223*mt**2*p3p4+4*d12*p1p2*p3p4+ $ 4*d212*p1p2*p3p4-4*d213*p1p2*p3p4+ $ 4*d22*p1p2*p3p4-4*d223*p1p2*p3p4- $ 4*d11*p1p3*p3p4+12*d12*p1p3*p3p4- $ 4*d21*p1p3*p3p4+4*d212*p1p3*p3p4+ $ 8*d22*p1p3*p3p4+12*d11*p1p4*p3p4+ $ 12*d12*p1p4*p3p4-4*d21*p1p4*p3p4- $ 28*d212*p1p4*p3p4-24*d22*p1p4*p3p4- $ 12*d0*p2p3*p3p4-12*d11*p2p3*p3p4- $ 12*d12*p2p3*p3p4-12*d13*p2p3*p3p4- $ 4*d21*p2p3*p3p4-8*d212*p2p3*p3p4- $ 4*d213*p2p3*p3p4-4*d22*p2p3*p3p4- $ 4*d223*p2p3*p3p4-4*d0*p2p4*p3p4- $ 12*d11*p2p4*p3p4-12*d12*p2p4*p3p4- $ 4*d13*p2p4*p3p4-4*d21*p2p4*p3p4- $ 8*d212*p2p4*p3p4+12*d213*p2p4*p3p4- $ 4*d22*p2p4*p3p4+12*d223*p2p4*p3p4- $ 12*d11*p3p4**2-12*d12*p3p4**2+8*d21*p3p4**2+ $ 16*d212*p3p4**2+8*d22*p3p4**2) kmv(6,2)=(10*c0-4*d20+4*d13*mt**2-4*d212*mt**2+4*d213*mt**2- $ 4*d22*mt**2+4*d223*mt**2-4*d12*p1p2-4*d212*p1p2+ $ 4*d213*p1p2-4*d22*p1p2+4*d223*p1p2-4*d11*p1p3- $ 12*d12*p1p3+4*d21*p1p3+12*d212*p1p3+8*d22*p1p3- $ 4*d11*p1p4-12*d12*p1p4+4*d21*p1p4+12*d212*p1p4+ $ 8*d22*p1p4+8*d0*p2p3+12*d11*p2p3+12*d12*p2p3+ $ 8*d13*p2p3+4*d21*p2p3+8*d212*p2p3-4*d213*p2p3+ $ 4*d22*p2p3-4*d223*p2p3+8*d0*p2p4+12*d11*p2p4+ $ 12*d12*p2p4+8*d13*p2p4+4*d21*p2p4+8*d212*p2p4- $ 4*d213*p2p4+4*d22*p2p4-4*d223*p2p4+12*d11*p3p4+ $ 12*d12*p3p4-8*d21*p3p4-16*d212*p3p4-8*d22*p3p4) kmv(6,3)=(-12*d20*mt-2*d22*mt**3+4*d223*mt**3-2*d23*mt**3- $ 2*d22*mt*p1p2+4*d223*mt*p1p2-2*d23*mt*p1p2- $ 10*d12*mt*p1p3+6*d13*mt*p1p3-6*d212*mt*p1p3- $ 2*d213*mt*p1p3-4*d22*mt*p1p3-4*d223*mt*p1p3+ $ 6*d12*mt*p1p4-2*d13*mt*p1p4+10*d212*mt*p1p4- $ 2*d213*mt*p1p4+12*d22*mt*p1p4-4*d223*mt*p1p4+ $ 8*d12*mt*p2p3-4*d13*mt*p2p3+2*d212*mt*p2p3+ $ 6*d213*mt*p2p3+2*d22*mt*p2p3+4*d223*mt*p2p3+ $ 2*d23*mt*p2p3-4*d13*mt*p2p4+2*d212*mt*p2p4- $ 10*d213*mt*p2p4+2*d22*mt*p2p4-12*d223*mt*p2p4+ $ 2*d23*mt*p2p4-2*d12*mt*p3p4+2*d13*mt*p3p4- $ 4*d212*mt*p3p4+4*d213*mt*p3p4-4*d22*mt*p3p4+ $ 4*d223*mt*p3p4) kmv(6,4)=(12*d20*mt+2*d22*mt**3-4*d223*mt**3+2*d23*mt**3+ $ 2*d22*mt*p1p2-4*d223*mt*p1p2+2*d23*mt*p1p2- $ 6*d12*mt*p1p3+2*d13*mt*p1p3-10*d212*mt*p1p3+ $ 2*d213*mt*p1p3-12*d22*mt*p1p3+4*d223*mt*p1p3+ $ 10*d12*mt*p1p4-6*d13*mt*p1p4+6*d212*mt*p1p4+ $ 2*d213*mt*p1p4+4*d22*mt*p1p4+4*d223*mt*p1p4+ $ 4*d13*mt*p2p3-2*d212*mt*p2p3+10*d213*mt*p2p3- $ 2*d22*mt*p2p3+12*d223*mt*p2p3-2*d23*mt*p2p3- $ 8*d12*mt*p2p4+4*d13*mt*p2p4-2*d212*mt*p2p4- $ 6*d213*mt*p2p4-2*d22*mt*p2p4-4*d223*mt*p2p4- $ 2*d23*mt*p2p4+2*d12*mt*p3p4-2*d13*mt*p3p4+ $ 4*d212*mt*p3p4-4*d213*mt*p3p4+4*d22*mt*p3p4- $ 4*d223*mt*p3p4) c B4 c B4 develops three different color structures: c s-channel color structure: kmv(7,1)=(-2*c0+4*d12*p1p3+4*d12*p1p4-4*d11*p3p4- $ 4*d12*p3p4) kmv(7,3)=(2*d12*mt-2*d13*mt) kmv(7,4)=(2*d12*mt-2*d13*mt) kmv(7,5)=(2*c0-4*d12*p1p3-4*d12*p1p4+4*d11*p3p4+ $ 4*d12*p3p4) kmv(7,7)=(2*d12*mt-2*d13*mt) kmv(7,8)=(2*d12*mt-2*d13*mt) kmv(7,16)=(2*d0+2*d11+2*d12+2*d13) kmv(7,17)=-2*d11 kmv(7,19)=(2*d0+2*d11+2*d12+2*d13) kmv(7,20)=-2*d11 kmv(7,22)=(2*d0+2*d11+2*d12+2*d13) kmv(7,23)=-2*d11 kmv(7,25)=(2*d0+2*d11+2*d12+2*d13) kmv(7,26)=-2*d11 kmv(7,28)=(2*d12*mt-2*d13*mt) kmv(7,29)=(-2*d12*mt+2*d13*mt) kmv(7,31)=(-2*d12*mt+2*d13*mt) kmv(7,32)=(2*d12*mt-2*d13*mt) kmv(7,65)=(-4*d0-4*d12-4*d13) kmv(7,67)=(4*d0+4*d12+4*d13) c t-channel color structure, same as of B8_t: kmv(8,1)=(2*c0-4*d0*p1p2-4*d12*p1p2-4*d13*p1p2- $ 4*d11*p1p3-4*d12*p1p3-4*d11*p1p4-4*d12*p1p4+ $ 4*d0*p2p3+4*d11*p2p3+4*d12*p2p3+4*d13*p2p3+ $ 4*d0*p2p4+4*d11*p2p4+4*d12*p2p4+4*d13*p2p4+ $ 4*d11*p3p4+4*d12*p3p4) kmv(8,3)=(-2*d0*mt-4*d11*mt-2*d12*mt-2*d13*mt) kmv(8,4)=(-2*d0*mt-4*d11*mt-2*d12*mt-2*d13*mt) kmv(8,5)=(c0-2*d12*p1p3-2*d12*p1p4+2*d11*p3p4+ $ 2*d12*p3p4) kmv(8,7)=(d12*mt-d13*mt) kmv(8,8)=(d12*mt-d13*mt) kmv(8,16)=(2*d0+2*d11+2*d12+2*d13) kmv(8,20)=-2*d11 kmv(8,22)=(2*d0+2*d11+2*d12+2*d13) kmv(8,26)=-2*d11 kmv(8,28)=(2*d12*mt-2*d13*mt) kmv(8,32)=(2*d12*mt-2*d13*mt) kmv(8,67)=(4*d0+4*d12+4*d13) c u-channel color structure, same as of B8_u: kmv(9,1)=(-4*c0+4*d0*p1p2+4*d12*p1p2+4*d13*p1p2+ $ 4*d11*p1p3+8*d12*p1p3+4*d11*p1p4+8*d12*p1p4- $ 4*d0*p2p3-4*d11*p2p3-4*d12*p2p3-4*d13*p2p3- $ 4*d0*p2p4-4*d11*p2p4-4*d12*p2p4-4*d13*p2p4- $ 8*d11*p3p4-8*d12*p3p4) kmv(9,3)=(2*d0*mt+4*d11*mt+4*d12*mt) kmv(9,4)=(2*d0*mt+4*d11*mt+4*d12*mt) kmv(9,5)=(c0-2*d12*p1p3-2*d12*p1p4+2*d11*p3p4+ $ 2*d12*p3p4) kmv(9,7)=(d12*mt-d13*mt) kmv(9,8)=(d12*mt-d13*mt) kmv(9,17)=-2*d11 kmv(9,19)=(2*d0+2*d11+2*d12+2*d13) kmv(9,23)=-2*d11 kmv(9,25)=(2*d0+2*d11+2*d12+2*d13) kmv(9,29)=(-2*d12*mt+2*d13*mt) kmv(9,31)=(-2*d12*mt+2*d13*mt) kmv(9,65)=(-4*d0-4*d12-4*d13) c V6(1) c V6(1) develops three different color structures: call ccfunc2(s,mt**2,p1pq,0d0,0d0,mt, $ c0,c11,c12,c21,c22,c20,c23) c s-channel color structure: kmv(10,1)=(4*c12*mt**2+4*c11*p1p3+4*c11*p1p4-4*c11*p3p4) kmv(10,3)=2*c12*mt kmv(10,4)=2*c12*mt kmv(10,5)=(-4*c12*mt**2-4*c11*p1p3-4*c11*p1p4+4*c11*p3p4) kmv(10,7)=2*c12*mt kmv(10,8)=2*c12*mt kmv(10,17)=(2*c0+4*c11+2*c12) kmv(10,20)=(2*c0+4*c11+2*c12) kmv(10,23)=(2*c0+4*c11+2*c12) kmv(10,26)=(2*c0+4*c11+2*c12) kmv(10,29)=-4*c12*mt kmv(10,32)=4*c12*mt c t-channel color structure, same as of B8_t: kmv(11,1)=4*c0*mt**2 kmv(11,3)=2*c0*mt kmv(11,4)=2*c0*mt kmv(11,5)=(-2*c12*mt**2-2*c11*p1p3-2*c11*p1p4+2*c11*p3p4) kmv(11,7)=c12*mt kmv(11,8)=c12*mt kmv(11,17)=2*c11 kmv(11,20)=(2*c0+2*c11+2*c12) kmv(11,23)=2*c11 kmv(11,26)=(2*c0+2*c11+2*c12) kmv(11,29)=-2*c12*mt kmv(11,32)=2*c12*mt kmv(11,68)=(-4*c0-4*c12) c u-channel color structure, same as of B8_u: kmv(12,1)=(-4*c0*mt**2+4*c12*mt**2+4*c11*p1p3+4*c11*p1p4- $ 4*c11*p3p4) kmv(12,3)=(-2*c0*mt+2*c12*mt) kmv(12,4)=(-2*c0*mt+2*c12*mt) kmv(12,5)=(-2*c12*mt**2-2*c11*p1p3-2*c11*p1p4+2*c11*p3p4) kmv(12,7)=c12*mt kmv(12,8)=c12*mt kmv(12,17)=(2*c0+2*c11+2*c12) kmv(12,20)=2*c11 kmv(12,23)=(2*c0+2*c11+2*c12) kmv(12,26)=2*c11 kmv(12,29)=-2*c12*mt kmv(12,32)=2*c12*mt kmv(12,68)=(4*c0+4*c12) c V6(2) c V6(2) develops three different color structures: call ccfunc2(s,mt**2,p2pq,0d0,0d0,mt, $ c0,c11,c12,c21,c22,c20,c23) c s-channel color structure: kmv(13,1)=(4*c12*mt**2+4*c11*p2p3+4*c11*p2p4-4*c11*p3p4) kmv(13,3)=-2*c12*mt kmv(13,4)=-2*c12*mt kmv(13,5)=(-4*c12*mt**2-4*c11*p2p3-4*c11*p2p4+4*c11*p3p4) kmv(13,7)=-2*c12*mt kmv(13,8)=-2*c12*mt kmv(13,16)=(2*c0+4*c11+2*c12) kmv(13,19)=(2*c0+4*c11+2*c12) kmv(13,22)=(2*c0+4*c11+2*c12) kmv(13,25)=(2*c0+4*c11+2*c12) kmv(13,28)=-4*c12*mt kmv(13,31)=4*c12*mt c t-channel color structure, same as of B8_t: kmv(14,1)=4*c0*mt**2 kmv(14,3)=-2*c0*mt kmv(14,4)=-2*c0*mt kmv(14,5)=(-2*c12*mt**2-2*c11*p2p3-2*c11*p2p4+2*c11*p3p4) kmv(14,7)=-(c12*mt) kmv(14,8)=-(c12*mt) kmv(14,16)=(2*c0+2*c11+2*c12) kmv(14,19)=2*c11 kmv(14,22)=(2*c0+2*c11+2*c12) kmv(14,25)=2*c11 kmv(14,28)=-2*c12*mt kmv(14,31)=2*c12*mt kmv(14,64)=(-4*c0-4*c12) c u-channel color structure, same as of B8_u: kmv(15,1)=(-4*c0*mt**2+4*c12*mt**2+4*c11*p2p3+4*c11*p2p4- $ 4*c11*p3p4) kmv(15,3)=(2*c0*mt-2*c12*mt) kmv(15,4)=(2*c0*mt-2*c12*mt) kmv(15,5)=(-2*c12*mt**2-2*c11*p2p3-2*c11*p2p4+2*c11*p3p4) kmv(15,7)=-(c12*mt) kmv(15,8)=-(c12*mt) kmv(15,16)=2*c11 kmv(15,19)=(2*c0+2*c11+2*c12) kmv(15,22)=2*c11 kmv(15,25)=(2*c0+2*c11+2*c12) kmv(15,28)=-2*c12*mt kmv(15,31)=2*c12*mt kmv(15,64)=(4*c0+4*c12) do i=1,68 do j=6,15 kmv(j,i)=-cg/2d0*kmv(j,i) enddo enddo return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine kmvt_finite(s,t1,t2,u1,u2,mt,mh,kmv) c form factors for the t(u)-channel UV+IR finite contribution c vertex corr. V10(1-4), box diagrams B5,B6,B9 implicit none integer i,j real*8 ncf,cg,cf,mt,mh real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(15,68) complex*16 c0,d0,c11,c12,c20,c21,c22,c23 complex*16 b0,b1,b20 complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4) complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323, $ d331,d332,d3123 zero=dcmplx(0d0,0d0) do i=1,68 do j=1,15 kmv(j,i)=zero enddo enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c color factors: ncf=3d0 cg=ncf cf=(ncf**2-1d0)/ncf/2d0 c V10(1)+V10(2) call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3, $ p1p4+p2p4-p3p4,mt,mt,mt, $ c0,c11,c12,c21,c22,c20,c23) call bfunc(mh**2,mt,mt,b0,b1,b20) kmv(1,8)=(4*b0 - 16*c20 - 4*c0*p1p4 - 4*c0*p2p4 + $ 4*c0*p3p4) kmv(1,13)=(4*c0 - 16*c23) kmv(1,14)=(4*c0 - 16*c23) kmv(1,29)=(-8*b0 + 32*c20 + 8*c0*p1p4 + 8*c0*p2p4 - $ 8*c0*p3p4) kmv(1,31)=(-16*c12*p1p3 - 32*c22*p1p3) kmv(1,32)=(-16*c12*p1p3 - 32*c22*p1p3) kmv(1,47)=(-8*c0 + 32*c23) kmv(1,50)=(-8*c0 + 32*c23) c V10(3)+V10(4) call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4, $ p1p3+p2p3-p3p4,mt,mt,mt, $ c0,c11,c12,c21,c22,c20,c23) kmv(2,7)=(-4*b0+16*c20+4*c0*p1p3+4*c0*p2p3- $ 4*c0*p3p4) kmv(2,10)=(-4*c0+16*c23) kmv(2,11)=(-4*c0+16*c23) kmv(2,28)=(16*c12*p2p4+32*c22*p2p4) kmv(2,29)=(16*c12*p2p4+32*c22*p2p4) kmv(2,31)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+ $ 8*c0*p3p4) kmv(2,55)=(8*c0-32*c23) kmv(2,56)=(8*c0-32*c23) c 1/2 comes from color factor do i=1,68 kmv(1,i)=kmv(1,i)*mt/2d0 kmv(2,i)=kmv(2,i)*mt/2d0 enddo c B5(1) call ddfunc(mt**2,s+mt**2-2d0*p1pq,mt**2-2d0*p1p3,p2pq-p1p2, $ -p1p2+p2p3,mt**2-p1p3-p1pq+p3p4,0d0,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv(3,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4- $ 8*d12*p1p3*p2p4-8*d13*p1p3*p2p4) kmv(3,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2- $ 4*d0*p2p3-4*d11*p2p3-4*d12*p2p3-4*d13*p2p3) kmv(3,7)=(-4*d0*mt*p1p3-8*d11*mt*p1p3) kmv(3,8)=(2*c0*mt-8*d20*mt+4*d12*mt**3+4*d13*mt**3- $ 4*d11*mt*p1p2-4*d0*mt*p1p3-8*d12*mt*p1p3- $ 8*d13*mt*p1p3+4*d11*mt*p1p4-4*d12*mt*p1p4+ $ 4*d11*mt*p2p3+4*d12*mt*p2p4+4*d13*mt*p2p4- $ 4*d11*mt*p3p4+4*d12*mt*p3p4) kmv(3,13)=(-4*d12*mt-4*d13*mt-8*d212*mt) kmv(3,14)=(-4*d11*mt+8*d12*mt+8*d22*mt+8*d223*mt) kmv(3,17)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2- $ 8*d13*p1p2+8*d0*p2p3+8*d11*p2p3+8*d12*p2p3+ $ 8*d13*p2p3) kmv(3,19)=(8*d0*p1p3+8*d11*p1p3+8*d12*p1p3+8*d13*p1p3) kmv(3,25)=(-8*c0-4*c11-4*c12+8*d20-8*d12*mt**2-8*d13*mt**2- $ 8*d212*mt**2-8*d213*mt**2-8*d212*p1p2-8*d213*p1p2+ $ 8*d0*p1p3+8*d11*p1p3+16*d12*p1p3+16*d13*p1p3+ $ 8*d12*p1p4+8*d212*p2p3+8*d213*p2p3+8*d212*p2p4- $ 8*d12*p3p4) kmv(3,26)=(-8*c0-4*c11-4*c12+8*d22*mt**2+16*d223*mt**2+ $ 8*d23*mt**2+8*d0*p1p2+8*d11*p1p2+16*d12*p1p2+ $ 16*d13*p1p2+8*d22*p1p2+16*d223*p1p2+8*d23*p1p2+ $ 8*d12*p1p3+8*d13*p1p3+8*d12*p1p4-8*d0*p2p3- $ 8*d11*p2p3-16*d12*p2p3-16*d13*p2p3-8*d22*p2p3- $ 16*d223*p2p3-8*d23*p2p3-8*d12*p2p4-8*d22*p2p4- $ 8*d223*p2p4-8*d12*p3p4) kmv(3,29)=(-4*c0*mt+16*d20*mt-8*d12*mt**3-8*d13*mt**3+ $ 8*d11*mt*p1p2+8*d0*mt*p1p3+16*d12*mt*p1p3+ $ 16*d13*mt*p1p3-8*d11*mt*p1p4+8*d12*mt*p1p4- $ 8*d11*mt*p2p3-8*d12*mt*p2p4-8*d13*mt*p2p4+ $ 8*d11*mt*p3p4-8*d12*mt*p3p4) kmv(3,31)=(8*d11*mt*p1p3+16*d212*mt*p1p3+16*d213*mt*p1p3) kmv(3,32)=(-8*d0*mt*p1p3-24*d12*mt*p1p3-24*d13*mt*p1p3- $ 16*d22*mt*p1p3-32*d223*mt*p1p3-16*d23*mt*p1p3) kmv(3,47)=(8*d12*mt+8*d13*mt+16*d212*mt) kmv(3,50)=(8*d11*mt-16*d12*mt-16*d22*mt-16*d223*mt) kmv(3,65)=(16*c0+8*c11+8*c12-16*d20+16*d12*mt**2+16*d13*mt**2+ $ 16*d212*mt**2+16*d213*mt**2+16*d212*p1p2+16*d213*p1p2- $ 16*d0*p1p3-16*d11*p1p3-32*d12*p1p3-32*d13*p1p3- $ 16*d12*p1p4-16*d212*p2p3-16*d213*p2p3- $ 16*d212*p2p4+16*d12*p3p4) kmv(3,68)=(16*c0+8*c11+8*c12-16*d22*mt**2-32*d223*mt**2- $ 16*d23*mt**2-16*d0*p1p2-16*d11*p1p2-32*d12*p1p2- $ 32*d13*p1p2-16*d22*p1p2-32*d223*p1p2-16*d23*p1p2- $ 16*d12*p1p3-16*d13*p1p3-16*d12*p1p4+16*d0*p2p3+ $ 16*d11*p2p3+32*d12*p2p3+32*d13*p2p3+16*d22*p2p3+ $ 32*d223*p2p3+16*d23*p2p3+16*d12*p2p4+16*d22*p2p4+ $ 16*d223*p2p4+16*d12*p3p4) c B5(2) call ddfunc(mt**2,mt**2-2d0*p2p4,mt**2-2d0*p1p3,mt**2-p2p4, $ -p1p2+p2p3,p1p4-p3p4-p1p2+p2p3,0d0,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv(4,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4- $ 8*d12*p1p3*p2p4-8*d13*p1p3*p2p4) kmv(4,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2- $ 4*d0*p2p3-4*d11*p2p3-4*d12*p2p3-4*d13*p2p3) kmv(4,7)=(-4*d0*mt*p1p3-8*d11*mt*p1p3-8*d12*mt*p1p3) kmv(4,8)=(2*c0*mt-8*d20*mt+4*d11*mt**3+4*d12*mt**3- $ 4*d13*mt*p1p2+4*d11*mt*p1p4+4*d12*mt*p1p4+ $ 4*d13*mt*p2p3-4*d12*mt*p2p4+4*d13*mt*p2p4- $ 4*d11*mt*p3p4-4*d12*mt*p3p4) kmv(4,13)=(8*d12*mt-4*d13*mt+8*d212*mt+8*d22*mt) kmv(4,14)=(-4*d11*mt-4*d12*mt-8*d223*mt) kmv(4,17)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2- $ 8*d13*p1p2+8*d0*p2p3+8*d11*p2p3+8*d12*p2p3+ $ 8*d13*p2p3) kmv(4,19)=(8*d0*p1p3+8*d11*p1p3+8*d12*p1p3+8*d13*p1p3) kmv(4,25)=(4*c0-4*c12-8*d21*mt**2-16*d212*mt**2-8*d22*mt**2- $ 8*d0*p1p2-16*d11*p1p2-16*d12*p1p2-8*d13*p1p2- $ 8*d21*p1p2-16*d212*p1p2-8*d22*p1p2-16*d13*p1p3- $ 16*d213*p1p3-16*d223*p1p3+8*d12*p1p4+8*d212*p1p4+ $ 8*d22*p1p4+8*d0*p2p3+16*d11*p2p3+16*d12*p2p3+ $ 8*d13*p2p3+8*d21*p2p3+16*d212*p2p3+8*d22*p2p3- $ 8*d12*p2p4-8*d12*p3p4-8*d212*p3p4-8*d22*p3p4) kmv(4,26)=(4*c0-4*c12-8*d20+8*d11*mt**2+8*d12*mt**2+8*d213*mt**2+ $ 8*d223*mt**2+8*d213*p1p2+8*d223*p1p2+16*d23*p1p3- $ 8*d223*p1p4-8*d213*p2p3-8*d223*p2p3-8*d12*p2p4+ $ 8*d223*p3p4) kmv(4,29)=(-4*c0*mt+16*d20*mt-8*d11*mt**3-8*d12*mt**3+ $ 8*d13*mt*p1p2-8*d11*mt*p1p4-8*d12*mt*p1p4- $ 8*d13*mt*p2p3+8*d12*mt*p2p4-8*d13*mt*p2p4+ $ 8*d11*mt*p3p4+8*d12*mt*p3p4) kmv(4,31)=(8*d0*mt*p1p3+8*d11*mt*p1p3+8*d12*mt*p1p3+ $ 16*d13*mt*p1p3+16*d213*mt*p1p3+16*d223*mt*p1p3) kmv(4,32)=(-8*d13*mt*p1p3-16*d23*mt*p1p3) kmv(4,47)=(-16*d12*mt+8*d13*mt-16*d212*mt-16*d22*mt) kmv(4,50)=(8*d11*mt+8*d12*mt+16*d223*mt) kmv(4,65)=(-8*c0+8*c12+16*d21*mt**2+32*d212*mt**2+16*d22*mt**2+ $ 16*d0*p1p2+32*d11*p1p2+32*d12*p1p2+16*d13*p1p2+ $ 16*d21*p1p2+32*d212*p1p2+16*d22*p1p2+32*d13*p1p3+ $ 32*d213*p1p3+32*d223*p1p3-16*d12*p1p4- $ 16*d212*p1p4-16*d22*p1p4-16*d0*p2p3-32*d11*p2p3- $ 32*d12*p2p3-16*d13*p2p3-16*d21*p2p3-32*d212*p2p3- $ 16*d22*p2p3+16*d12*p2p4+16*d12*p3p4+16*d212*p3p4+ $ 16*d22*p3p4) kmv(4,68)=(-8*c0+8*c12+16*d20-16*d11*mt**2-16*d12*mt**2- $ 16*d213*mt**2-16*d223*mt**2-16*d213*p1p2-16*d223*p1p2- $ 32*d23*p1p3+16*d223*p1p4+16*d213*p2p3+ $ 16*d223*p2p3+16*d12*p2p4-16*d223*p3p4) c B6(1) call ddfunc(mt**2,mt**2-2d0*p2p4,s+mt**2-2d0*p2pq,p1p4-p1p2, $ -p1p2+p1pq,mt**2-p2p4-p2pq+p3p4,0d0,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv(5,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4- $ 8*d12*p1p3*p2p4-8*d13*p1p3*p2p4) kmv(5,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2- $ 4*d0*p1p4-4*d11*p1p4-4*d12*p1p4-4*d13*p1p4) kmv(5,7)=(-2*c0*mt+8*d20*mt-4*d12*mt**3-4*d13*mt**3+ $ 4*d11*mt*p1p2-4*d12*mt*p1p3-4*d13*mt*p1p3- $ 4*d11*mt*p1p4-4*d11*mt*p2p3+4*d13*mt*p2p3+ $ 4*d0*mt*p2p4+8*d12*mt*p2p4+8*d13*mt*p2p4+ $ 4*d11*mt*p3p4-4*d13*mt*p3p4) kmv(5,8)=(4*d0*mt*p2p4+8*d11*mt*p2p4) kmv(5,10)=(4*d11*mt-8*d13*mt-8*d223*mt-8*d23*mt) kmv(5,11)=(4*d12*mt+4*d13*mt+8*d213*mt) kmv(5,16)=(-8*c0-4*c11-4*c12+8*d22*mt**2+16*d223*mt**2+ $ 8*d23*mt**2+8*d0*p1p2+8*d11*p1p2+16*d12*p1p2+ $ 16*d13*p1p2+8*d22*p1p2+16*d223*p1p2+8*d23*p1p2- $ 8*d13*p1p3-8*d223*p1p3-8*d23*p1p3-8*d0*p1p4- $ 8*d11*p1p4-16*d12*p1p4-16*d13*p1p4-8*d22*p1p4- $ 16*d223*p1p4-8*d23*p1p4+8*d13*p2p3+8*d12*p2p4+ $ 8*d13*p2p4-8*d13*p3p4) kmv(5,17)=(-8*c0-4*c11-4*c12+8*d20-8*d12*mt**2-8*d13*mt**2- $ 8*d212*mt**2-8*d213*mt**2-8*d212*p1p2-8*d213*p1p2+ $ 8*d213*p1p3+8*d212*p1p4+8*d213*p1p4+8*d13*p2p3+ $ 8*d0*p2p4+8*d11*p2p4+16*d12*p2p4+16*d13*p2p4- $ 8*d13*p3p4) kmv(5,23)=(8*d0*p2p4+8*d11*p2p4+8*d12*p2p4+8*d13*p2p4) kmv(5,25)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2- $ 8*d13*p1p2+8*d0*p1p4+8*d11*p1p4+8*d12*p1p4+ $ 8*d13*p1p4) kmv(5,28)=(8*d0*mt*p2p4+24*d12*mt*p2p4+24*d13*mt*p2p4+ $ 16*d22*mt*p2p4+32*d223*mt*p2p4+16*d23*mt*p2p4) kmv(5,29)=(-8*d11*mt*p2p4-16*d212*mt*p2p4-16*d213*mt*p2p4) kmv(5,31)=(4*c0*mt-16*d20*mt+8*d12*mt**3+8*d13*mt**3- $ 8*d11*mt*p1p2+8*d12*mt*p1p3+8*d13*mt*p1p3+ $ 8*d11*mt*p1p4+8*d11*mt*p2p3-8*d13*mt*p2p3- $ 8*d0*mt*p2p4-16*d12*mt*p2p4-16*d13*mt*p2p4- $ 8*d11*mt*p3p4+8*d13*mt*p3p4) kmv(5,55)=(-8*d11*mt+16*d13*mt+16*d223*mt+16*d23*mt) kmv(5,56)=(-8*d12*mt-8*d13*mt-16*d213*mt) kmv(5,64)=(16*c0+8*c11+8*c12-16*d22*mt**2-32*d223*mt**2- $ 16*d23*mt**2-16*d0*p1p2-16*d11*p1p2-32*d12*p1p2- $ 32*d13*p1p2-16*d22*p1p2-32*d223*p1p2-16*d23*p1p2+ $ 16*d13*p1p3+16*d223*p1p3+16*d23*p1p3+16*d0*p1p4+ $ 16*d11*p1p4+32*d12*p1p4+32*d13*p1p4+16*d22*p1p4+ $ 32*d223*p1p4+16*d23*p1p4-16*d13*p2p3-16*d12*p2p4- $ 16*d13*p2p4+16*d13*p3p4) kmv(5,65)=(16*c0+8*c11+8*c12-16*d20+16*d12*mt**2+16*d13*mt**2+ $ 16*d212*mt**2+16*d213*mt**2+16*d212*p1p2+16*d213*p1p2- $ 16*d213*p1p3-16*d212*p1p4-16*d213*p1p4- $ 16*d13*p2p3-16*d0*p2p4-16*d11*p2p4-32*d12*p2p4- $ 32*d13*p2p4+16*d13*p3p4) c B6(2) call ddfunc(mt**2,mt**2-2d0*p2p4,mt**2-2d0*p1p3,p1p4-p1p2, $ mt**2-p1p3,p1p4-p3p4-p1p2+p2p3,0d0,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) kmv(6,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4- $ 8*d12*p1p3*p2p4-8*d13*p1p3*p2p4) kmv(6,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2- $ 4*d0*p1p4-4*d11*p1p4-4*d12*p1p4-4*d13*p1p4) kmv(6,7)=(-2*c0*mt+8*d20*mt-4*d11*mt**3-4*d13*mt**3+ $ 4*d12*mt*p1p2-4*d12*mt*p1p3+4*d13*mt*p1p3- $ 4*d12*mt*p1p4-4*d11*mt*p2p3-4*d13*mt*p2p3+ $ 4*d11*mt*p3p4+4*d13*mt*p3p4) kmv(6,8)=(4*d0*mt*p2p4+8*d11*mt*p2p4+8*d13*mt*p2p4) kmv(6,10)=(4*d11*mt+4*d13*mt+8*d223*mt) kmv(6,11)=(4*d12*mt-8*d13*mt-8*d213*mt-8*d23*mt) kmv(6,16)=(4*c0-4*c11-8*d20+8*d11*mt**2+8*d13*mt**2+8*d212*mt**2+ $ 8*d223*mt**2+8*d212*p1p2+8*d223*p1p2-8*d13*p1p3- $ 8*d212*p1p4-8*d223*p1p4-8*d223*p2p3+16*d22*p2p4+ $ 8*d223*p3p4) kmv(6,17)=(4*c0-4*c11-8*d21*mt**2-16*d213*mt**2-8*d23*mt**2- $ 8*d0*p1p2-16*d11*p1p2-8*d12*p1p2-16*d13*p1p2- $ 8*d21*p1p2-16*d213*p1p2-8*d23*p1p2-8*d13*p1p3+ $ 8*d0*p1p4+16*d11*p1p4+8*d12*p1p4+16*d13*p1p4+ $ 8*d21*p1p4+16*d213*p1p4+8*d23*p1p4+8*d13*p2p3+ $ 8*d213*p2p3+8*d23*p2p3-16*d12*p2p4-16*d212*p2p4- $ 16*d223*p2p4-8*d13*p3p4-8*d213*p3p4-8*d23*p3p4) kmv(6,23)=(8*d0*p2p4+8*d11*p2p4+8*d12*p2p4+8*d13*p2p4) kmv(6,25)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2- $ 8*d13*p1p2+8*d0*p1p4+8*d11*p1p4+8*d12*p1p4+ $ 8*d13*p1p4) kmv(6,28)=(8*d12*mt*p2p4+16*d22*mt*p2p4) kmv(6,29)=(-8*d0*mt*p2p4-8*d11*mt*p2p4-16*d12*mt*p2p4- $ 8*d13*mt*p2p4-16*d212*mt*p2p4-16*d223*mt*p2p4) kmv(6,31)=(4*c0*mt-16*d20*mt+8*d11*mt**3+8*d13*mt**3- $ 8*d12*mt*p1p2+8*d12*mt*p1p3-8*d13*mt*p1p3+ $ 8*d12*mt*p1p4+8*d11*mt*p2p3+8*d13*mt*p2p3- $ 8*d11*mt*p3p4-8*d13*mt*p3p4) kmv(6,55)=(-8*d11*mt-8*d13*mt-16*d223*mt) kmv(6,56)=(-8*d12*mt+16*d13*mt+16*d213*mt+16*d23*mt) kmv(6,64)=(-8*c0+8*c11+16*d20-16*d11*mt**2-16*d13*mt**2- $ 16*d212*mt**2-16*d223*mt**2-16*d212*p1p2-16*d223*p1p2+ $ 16*d13*p1p3+16*d212*p1p4+16*d223*p1p4+ $ 16*d223*p2p3-32*d22*p2p4-16*d223*p3p4) kmv(6,65)=(-8*c0+8*c11+16*d21*mt**2+32*d213*mt**2+16*d23*mt**2+ $ 16*d0*p1p2+32*d11*p1p2+16*d12*p1p2+32*d13*p1p2+ $ 16*d21*p1p2+32*d213*p1p2+16*d23*p1p2+16*d13*p1p3- $ 16*d0*p1p4-32*d11*p1p4-16*d12*p1p4-32*d13*p1p4- $ 16*d21*p1p4-32*d213*p1p4-16*d23*p1p4-16*d13*p2p3- $ 16*d213*p2p3-16*d23*p2p3+32*d12*p2p4+ $ 32*d212*p2p4+32*d223*p2p4+16*d13*p3p4+ $ 16*d213*p3p4+16*d23*p3p4) do i=1,68 kmv(3,i)=(cf-cg/2d0)*kmv(3,i) kmv(4,i)=(cf-cg/2d0)*kmv(4,i) kmv(5,i)=(cf-cg/2d0)*kmv(5,i) kmv(6,i)=(cf-cg/2d0)*kmv(6,i) enddo c B9(1) call ddfunc(mt**2,mt**2+s-2d0*p1pq,mt**2-2d0*p1p3,mt**2-p1pq, $ mt**2-p1p3,mt**2-p1p3-p1pq+p3p4, $ 0d0,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv(7,1)=(-8*c0*mt**2+32*d20*mt**2-16*d301*mt**2-16*d302*mt**2- $ 16*d303*mt**2+16*d21*mt**4+32*d212*mt**4+32*d213*mt**4+ $ 16*d22*mt**4+32*d223*mt**4+16*d23*mt**4-8*c11*p1p3- $ 8*c12*p1p3-16*d20*p1p3+16*d302*p1p3+16*d303*p1p3- $ 16*d11*mt**2*p1p3-16*d12*mt**2*p1p3-16*d13*mt**2*p1p3- $ 16*d21*mt**2*p1p3-64*d212*mt**2*p1p3- $ 64*d213*mt**2*p1p3-48*d22*mt**2*p1p3- $ 96*d223*mt**2*p1p3-48*d23*mt**2*p1p3+16*d12*p1p3**2+ $ 16*d13*p1p3**2+16*d212*p1p3**2+16*d213*p1p3**2+ $ 32*d22*p1p3**2+64*d223*p1p3**2+32*d23*p1p3**2- $ 8*c0*p1p4-8*c11*p1p4+16*d20*p1p4+16*d302*p1p4- $ 16*d11*mt**2*p1p4-16*d12*mt**2*p1p4-16*d13*mt**2*p1p4- $ 32*d212*mt**2*p1p4-32*d22*mt**2*p1p4- $ 32*d223*mt**2*p1p4+32*d12*p1p3*p1p4+ $ 16*d13*p1p3*p1p4+16*d212*p1p3*p1p4+ $ 48*d22*p1p3*p1p4+48*d223*p1p3*p1p4+ $ 16*d12*p1p4**2+16*d22*p1p4**2+8*c0*p3p4+ $ 8*c11*p3p4-16*d20*p3p4-16*d302*p3p4+ $ 16*d11*mt**2*p3p4+16*d12*mt**2*p3p4+16*d13*mt**2*p3p4+ $ 32*d212*mt**2*p3p4+32*d22*mt**2*p3p4+ $ 32*d223*mt**2*p3p4-32*d12*p1p3*p3p4- $ 16*d13*p1p3*p3p4-16*d212*p1p3*p3p4- $ 48*d22*p1p3*p3p4-48*d223*p1p3*p3p4- $ 32*d12*p1p4*p3p4-32*d22*p1p4*p3p4+ $ 16*d12*p3p4**2+16*d22*p3p4**2) kmv(7,2)=(-4*c0+4*c12+16*d20-8*d303+8*d213*mt**2+8*d223*mt**2+ $ 8*d23*mt**2+8*d12*p1p3-8*d213*p1p3-16*d223*p1p3- $ 16*d23*p1p3+8*d12*p1p4-8*d223*p1p4-8*d12*p3p4+ $ 8*d223*p3p4) kmv(7,3)=(-4*c0*mt+16*d20*mt-8*d301*mt-8*d302*mt-8*d303*mt+ $ 8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+ $ 16*d223*mt**3+8*d23*mt**3-8*d21*mt*p1p3-24*d212*mt*p1p3- $ 24*d213*mt*p1p3-16*d22*mt*p1p3-32*d223*mt*p1p3- $ 16*d23*mt*p1p3-8*d212*mt*p1p4-8*d22*mt*p1p4- $ 8*d223*mt*p1p4+8*d212*mt*p3p4+8*d22*mt*p3p4+ $ 8*d223*mt*p3p4) kmv(7,4)=(-4*c0*mt+16*d20*mt-8*d301*mt-8*d302*mt-8*d303*mt+ $ 8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+ $ 16*d223*mt**3+8*d23*mt**3-8*d11*mt*p1p3-8*d12*mt*p1p3- $ 8*d13*mt*p1p3-8*d21*mt*p1p3-24*d212*mt*p1p3- $ 24*d213*mt*p1p3-16*d22*mt*p1p3-32*d223*mt*p1p3- $ 16*d23*mt*p1p3-8*d11*mt*p1p4-8*d12*mt*p1p4- $ 8*d13*mt*p1p4-8*d212*mt*p1p4-8*d22*mt*p1p4- $ 8*d223*mt*p1p4+8*d11*mt*p3p4+8*d12*mt*p3p4+ $ 8*d13*mt*p3p4+8*d212*mt*p3p4+8*d22*mt*p3p4+ $ 8*d223*mt*p3p4) kmv(7,5)=(-8*d20*mt**2-8*d11*mt**4-8*d12*mt**4-8*d13*mt**4- $ 8*d21*mt**4-16*d212*mt**4-16*d213*mt**4-8*d22*mt**4- $ 16*d223*mt**4-8*d23*mt**4+4*c11*p1p3+4*c12*p1p3+ $ 16*d20*p1p3+8*d0*mt**2*p1p3+16*d11*mt**2*p1p3+ $ 24*d12*mt**2*p1p3+24*d13*mt**2*p1p3+8*d21*mt**2*p1p3+ $ 32*d212*mt**2*p1p3+32*d213*mt**2*p1p3+ $ 24*d22*mt**2*p1p3+48*d223*mt**2*p1p3+24*d23*mt**2*p1p3- $ 8*d12*p1p3**2-8*d13*p1p3**2-8*d212*p1p3**2- $ 8*d213*p1p3**2-16*d22*p1p3**2-32*d223*p1p3**2- $ 16*d23*p1p3**2+4*c0*p1p4+4*c11*p1p4-8*d20*p1p4+ $ 8*d11*mt**2*p1p4+16*d12*mt**2*p1p4+8*d13*mt**2*p1p4+ $ 16*d212*mt**2*p1p4+16*d22*mt**2*p1p4+ $ 16*d223*mt**2*p1p4-16*d12*p1p3*p1p4- $ 8*d13*p1p3*p1p4-8*d212*p1p3*p1p4- $ 24*d22*p1p3*p1p4-24*d223*p1p3*p1p4- $ 8*d12*p1p4**2-8*d22*p1p4**2-4*c0*p3p4-4*c11*p3p4+ $ 8*d20*p3p4-8*d12*mt**2*p3p4-16*d212*mt**2*p3p4- $ 16*d22*mt**2*p3p4-16*d223*mt**2*p3p4- $ 8*d0*p1p3*p3p4-8*d11*p1p3*p3p4+ $ 8*d12*p1p3*p3p4+8*d212*p1p3*p3p4+ $ 24*d22*p1p3*p3p4+24*d223*p1p3*p3p4+ $ 16*d12*p1p4*p3p4+16*d22*p1p4*p3p4- $ 8*d12*p3p4**2-8*d22*p3p4**2) kmv(7,6)=(2*c0-2*c12-12*d20-4*d0*mt**2-8*d11*mt**2-8*d12*mt**2- $ 8*d13*mt**2-4*d213*mt**2-4*d223*mt**2-4*d23*mt**2+ $ 4*d0*p1p3+4*d11*p1p3+4*d13*p1p3+4*d213*p1p3+ $ 8*d223*p1p3+8*d23*p1p3+4*d0*p1p4+4*d11*p1p4+ $ 4*d13*p1p4+4*d223*p1p4+4*d12*p3p4-4*d223*p3p4) kmv(7,7)=(4*d20*mt+4*d11*mt**3+4*d12*mt**3+4*d13*mt**3+ $ 4*d21*mt**3+ $ 8*d212*mt**3+8*d213*mt**3+4*d22*mt**3+8*d223*mt**3+ $ 4*d23*mt**3+ $ 4*d11*mt*p1p3-4*d21*mt*p1p3-12*d212*mt*p1p3- $ 12*d213*mt*p1p3-8*d22*mt*p1p3-16*d223*mt*p1p3- $ 8*d23*mt*p1p3-4*d12*mt*p1p4-4*d212*mt*p1p4- $ 4*d22*mt*p1p4-4*d223*mt*p1p4-4*d11*mt*p3p4- $ 4*d13*mt*p3p4+4*d212*mt*p3p4+4*d22*mt*p3p4+ $ 4*d223*mt*p3p4) kmv(7,8)=(4*d20*mt+4*d11*mt**3+4*d12*mt**3+4*d13*mt**3+ $ 4*d21*mt**3+ $ 8*d212*mt**3+8*d213*mt**3+4*d22*mt**3+8*d223*mt**3+ $ 4*d23*mt**3- $ 4*d0*mt*p1p3-8*d11*mt*p1p3-12*d12*mt*p1p3- $ 12*d13*mt*p1p3-4*d21*mt*p1p3-12*d212*mt*p1p3- $ 12*d213*mt*p1p3-8*d22*mt*p1p3-16*d223*mt*p1p3- $ 8*d23*mt*p1p3-4*d0*mt*p1p4-12*d11*mt*p1p4- $ 16*d12*mt*p1p4-12*d13*mt*p1p4-4*d212*mt*p1p4- $ 4*d22*mt*p1p4-4*d223*mt*p1p4+4*d0*mt*p3p4+ $ 8*d11*mt*p3p4+12*d12*mt*p3p4+8*d13*mt*p3p4+ $ 4*d212*mt*p3p4+4*d22*mt*p3p4+4*d223*mt*p3p4) kmv(7,11)=(-4*d11*mt-4*d12*mt-4*d13*mt+4*d21*mt+8*d212*mt+ $ 8*d213*mt+4*d22*mt+8*d223*mt+4*d23*mt) kmv(7,14)=(4*d11*mt+4*d12*mt+4*d13*mt-4*d21*mt-8*d212*mt- $ 8*d213*mt-4*d22*mt-8*d223*mt-4*d23*mt) kmv(7,17)=(-4*c0-4*c11+8*d20-8*d301-8*d302-8*d303+8*d0*mt**2+ $ 16*d11*mt**2+16*d12*mt**2+16*d13*mt**2+16*d21*mt**2+ $ 24*d212*mt**2+32*d213*mt**2+8*d22*mt**2+24*d223*mt**2+ $ 16*d23*mt**2-8*d0*p1p3-16*d11*p1p3-16*d12*p1p3- $ 24*d13*p1p3-8*d21*p1p3-24*d212*p1p3-32*d213*p1p3- $ 8*d22*p1p3-32*d223*p1p3-24*d23*p1p3-8*d0*p1p4- $ 16*d11*p1p4-16*d12*p1p4-16*d13*p1p4-8*d21*p1p4- $ 24*d212*p1p4-16*d213*p1p4-8*d22*p1p4- $ 24*d223*p1p4-8*d23*p1p4+8*d12*p3p4+8*d13*p3p4+ $ 16*d212*p3p4+8*d213*p3p4+8*d22*p3p4+24*d223*p3p4+ $ 8*d23*p3p4) kmv(7,20)=(-4*c0-4*c11+16*d20+8*d301+8*d302+8*d303-8*d11*mt**2- $ 8*d12*mt**2-8*d13*mt**2-8*d212*mt**2-8*d22*mt**2- $ 8*d223*mt**2+ $ 8*d12*p1p3+8*d13*p1p3+8*d22*p1p3+8*d223*p1p3+ $ 8*d12*p1p4+8*d22*p1p4+8*d212*p3p4+8*d223*p3p4) kmv(7,23)=(-4*c11-4*c12-16*d20-8*d301-8*d302-8*d303+ $ 8*d11*mt**2+8*d12*mt**2+8*d13*mt**2+8*d21*mt**2+ $ 8*d212*mt**2+ $ 8*d213*mt**2-8*d0*p1p3-16*d11*p1p3-16*d12*p1p3- $ 16*d13*p1p3-8*d21*p1p3-16*d212*p1p3-16*d213*p1p3- $ 8*d0*p1p4-16*d11*p1p4-16*d12*p1p4-8*d13*p1p4- $ 8*d21*p1p4-16*d212*p1p4-8*d213*p1p4+8*d0*p3p4+ $ 8*d11*p3p4+16*d12*p3p4+8*d13*p3p4+8*d212*p3p4) kmv(7,26)=(-4*c11-4*c12-8*d20+8*d301+8*d302+8*d303-8*d0*mt**2- $ 16*d11*mt**2-16*d12*mt**2-16*d13*mt**2-8*d21*mt**2- $ 24*d212*mt**2-24*d213*mt**2-16*d22*mt**2-32*d223*mt**2- $ 16*d23*mt**2+8*d12*p1p3+8*d13*p1p3+8*d212*p1p3+ $ 8*d213*p1p3+16*d22*p1p3+32*d223*p1p3+16*d23*p1p3+ $ 8*d12*p1p4+8*d212*p1p4+16*d22*p1p4+16*d223*p1p4+ $ 8*d0*p3p4+8*d11*p3p4+8*d12*p3p4+8*d13*p3p4- $ 8*d22*p3p4-8*d223*p3p4) kmv(7,29)=(-8*d20*mt-8*d11*mt**3-8*d12*mt**3-8*d13*mt**3- $ 8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3- $ 16*d223*mt**3-8*d23*mt**3+8*d0*mt*p1p3+16*d11*mt*p1p3+ $ 24*d12*mt*p1p3+24*d13*mt*p1p3+8*d21*mt*p1p3+ $ 24*d212*mt*p1p3+24*d213*mt*p1p3+16*d22*mt*p1p3+ $ 32*d223*mt*p1p3+16*d23*mt*p1p3+8*d0*mt*p1p4+ $ 16*d11*mt*p1p4+24*d12*mt*p1p4+16*d13*mt*p1p4+ $ 8*d21*mt*p1p4+24*d212*mt*p1p4+16*d213*mt*p1p4+ $ 16*d22*mt*p1p4+24*d223*mt*p1p4+8*d23*mt*p1p4- $ 8*d0*mt*p3p4-8*d11*mt*p3p4-16*d12*mt*p3p4- $ 8*d13*mt*p3p4-8*d21*mt*p3p4-24*d212*mt*p3p4- $ 16*d213*mt*p3p4-16*d22*mt*p3p4-24*d223*mt*p3p4- $ 8*d23*mt*p3p4) kmv(7,32)=(8*d20*mt+8*d11*mt**3+8*d12*mt**3+8*d13*mt**3+ $ 8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+ $ 16*d223*mt**3+8*d23*mt**3-8*d12*mt*p1p3-8*d13*mt*p1p3- $ 8*d212*mt*p1p3-8*d213*mt*p1p3-8*d22*mt*p1p3- $ 16*d223*mt*p1p3-8*d23*mt*p1p3-8*d12*mt*p1p4- $ 8*d212*mt*p1p4-8*d22*mt*p1p4-8*d223*mt*p1p4- $ 8*d11*mt*p3p4-8*d13*mt*p3p4+8*d212*mt*p3p4+ $ 8*d22*mt*p3p4+8*d223*mt*p3p4) kmv(7,41)=(-16*d13-24*d213-24*d223-24*d23-16*d3123-8*d313- $ 8*d323-8*d33-16*d331-16*d332) kmv(7,50)=(-8*d11*mt-8*d12*mt-8*d13*mt-16*d21*mt-32*d212*mt- $ 32*d213*mt-16*d22*mt-32*d223*mt-16*d23*mt-8*d31*mt- $ 24*d312*mt-48*d3123*mt-24*d313*mt-8*d32*mt-24*d321*mt- $ 24*d323*mt-8*d33*mt-24*d331*mt-24*d332*mt) kmv(7,59)=(-8*d11*mt-8*d12*mt-8*d13*mt-16*d21*mt-32*d212*mt- $ 32*d213*mt-16*d22*mt-32*d223*mt-16*d23*mt-8*d31*mt- $ 24*d312*mt-48*d3123*mt-24*d313*mt-8*d32*mt-24*d321*mt- $ 24*d323*mt-8*d33*mt-24*d331*mt-24*d332*mt) kmv(7,68)=(-16*d20-32*d301-32*d302-32*d303+16*d0*mt**2+ $ 32*d11*mt**2+32*d12*mt**2+32*d13*mt**2-16*d31*mt**2- $ 48*d312*mt**2-96*d3123*mt**2-48*d313*mt**2-16*d32*mt**2- $ 48*d321*mt**2-48*d323*mt**2-16*d33*mt**2-48*d331*mt**2- $ 48*d332*mt**2+16*d212*p1p3+16*d213*p1p3+16*d22*p1p3+ $ 32*d223*p1p3+16*d23*p1p3+16*d312*p1p3+ $ 64*d3123*p1p3+16*d313*p1p3+16*d32*p1p3+ $ 32*d321*p1p3+48*d323*p1p3+16*d33*p1p3+ $ 32*d331*p1p3+48*d332*p1p3+16*d212*p1p4+ $ 16*d22*p1p4+16*d223*p1p4+16*d312*p1p4+ $ 32*d3123*p1p4+16*d32*p1p4+32*d321*p1p4+ $ 32*d323*p1p4+16*d332*p1p4-16*d0*p3p4-32*d11*p3p4- $ 32*d12*p3p4-16*d13*p3p4-16*d21*p3p4-48*d212*p3p4- $ 16*d213*p3p4-32*d22*p3p4-32*d223*p3p4- $ 16*d312*p3p4-32*d3123*p3p4-16*d32*p3p4- $ 32*d321*p3p4-32*d323*p3p4-16*d332*p3p4) c B9(2) call ddfunc(mt**2,mt**2-2d0*p2p4,mt**2+s-2d0*p2pq,mt**2-p2p4, $ mt**2-p2pq,mt**2-p2p4-p2pq+p3p4, $ 0d0,mt,mt,mt,d1,d2,d3,c1,c2) c0=c1(0,1) c11=c1(1,1) c12=c1(2,1) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) d301=d3(0,1) d302=d3(0,2) d303=d3(0,3) d31=d3(1,1) d32=d3(2,2) d33=d3(3,3) d312=d3(1,2) d313=d3(1,3) d321=d3(2,1) d323=d3(2,3) d331=d3(3,1) d332=d3(3,2) d3123=d3(0,0) kmv(8,1)=(-8*c0*mt**2+32*d20*mt**2-16*d301*mt**2-16*d302*mt**2- $ 16*d303*mt**2+16*d21*mt**4+32*d212*mt**4+32*d213*mt**4+ $ 16*d22*mt**4+32*d223*mt**4+16*d23*mt**4-8*c0*p2p3- $ 8*c12*p2p3+16*d20*p2p3+16*d303*p2p3- $ 16*d11*mt**2*p2p3-16*d12*mt**2*p2p3-16*d13*mt**2*p2p3- $ 32*d213*mt**2*p2p3-32*d223*mt**2*p2p3- $ 32*d23*mt**2*p2p3+16*d13*p2p3**2+16*d23*p2p3**2- $ 8*c11*p2p4-8*c12*p2p4-16*d20*p2p4+16*d302*p2p4+ $ 16*d303*p2p4-16*d11*mt**2*p2p4-16*d12*mt**2*p2p4- $ 16*d13*mt**2*p2p4-16*d21*mt**2*p2p4-64*d212*mt**2*p2p4- $ 64*d213*mt**2*p2p4-48*d22*mt**2*p2p4- $ 96*d223*mt**2*p2p4-48*d23*mt**2*p2p4+ $ 16*d12*p2p3*p2p4+32*d13*p2p3*p2p4+ $ 16*d213*p2p3*p2p4+48*d223*p2p3*p2p4+ $ 48*d23*p2p3*p2p4+16*d12*p2p4**2+16*d13*p2p4**2+ $ 16*d212*p2p4**2+16*d213*p2p4**2+32*d22*p2p4**2+ $ 64*d223*p2p4**2+32*d23*p2p4**2+8*c0*p3p4+ $ 8*c12*p3p4-16*d20*p3p4-16*d303*p3p4+ $ 16*d11*mt**2*p3p4+16*d12*mt**2*p3p4+16*d13*mt**2*p3p4+ $ 32*d213*mt**2*p3p4+32*d223*mt**2*p3p4+ $ 32*d23*mt**2*p3p4-32*d13*p2p3*p3p4- $ 32*d23*p2p3*p3p4-16*d12*p2p4*p3p4- $ 32*d13*p2p4*p3p4-16*d213*p2p4*p3p4- $ 48*d223*p2p4*p3p4-48*d23*p2p4*p3p4+ $ 16*d13*p3p4**2+16*d23*p3p4**2) kmv(8,2)=(-4*c0+4*c11+16*d20-8*d302+8*d212*mt**2+8*d22*mt**2+ $ 8*d223*mt**2+8*d13*p2p3-8*d223*p2p3+8*d13*p2p4- $ 8*d212*p2p4-16*d22*p2p4-16*d223*p2p4-8*d13*p3p4+ $ 8*d223*p3p4) kmv(8,3)=(4*c0*mt-16*d20*mt+8*d301*mt+8*d302*mt+8*d303*mt- $ 8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3- $ 16*d223*mt**3-8*d23*mt**3+8*d11*mt*p2p3+8*d12*mt*p2p3+ $ 8*d13*mt*p2p3+8*d213*mt*p2p3+8*d223*mt*p2p3+ $ 8*d23*mt*p2p3+8*d11*mt*p2p4+8*d12*mt*p2p4+ $ 8*d13*mt*p2p4+8*d21*mt*p2p4+24*d212*mt*p2p4+ $ 24*d213*mt*p2p4+16*d22*mt*p2p4+32*d223*mt*p2p4+ $ 16*d23*mt*p2p4-8*d11*mt*p3p4-8*d12*mt*p3p4- $ 8*d13*mt*p3p4-8*d213*mt*p3p4-8*d223*mt*p3p4- $ 8*d23*mt*p3p4) kmv(8,4)=(4*c0*mt-16*d20*mt+8*d301*mt+8*d302*mt+8*d303*mt- $ 8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3- $ 16*d223*mt**3-8*d23*mt**3+8*d213*mt*p2p3+8*d223*mt*p2p3+ $ 8*d23*mt*p2p3+8*d21*mt*p2p4+24*d212*mt*p2p4+ $ 24*d213*mt*p2p4+16*d22*mt*p2p4+32*d223*mt*p2p4+ $ 16*d23*mt*p2p4-8*d213*mt*p3p4-8*d223*mt*p3p4- $ 8*d23*mt*p3p4) kmv(8,5)=(-8*d20*mt**2-8*d11*mt**4-8*d12*mt**4-8*d13*mt**4- $ 8*d21*mt**4-16*d212*mt**4-16*d213*mt**4-8*d22*mt**4- $ 16*d223*mt**4-8*d23*mt**4+4*c0*p2p3+4*c12*p2p3- $ 8*d20*p2p3+8*d11*mt**2*p2p3+8*d12*mt**2*p2p3+ $ 16*d13*mt**2*p2p3+16*d213*mt**2*p2p3+ $ 16*d223*mt**2*p2p3+16*d23*mt**2*p2p3-8*d13*p2p3**2- $ 8*d23*p2p3**2+4*c11*p2p4+4*c12*p2p4+16*d20*p2p4+ $ 8*d0*mt**2*p2p4+16*d11*mt**2*p2p4+24*d12*mt**2*p2p4+ $ 24*d13*mt**2*p2p4+8*d21*mt**2*p2p4+32*d212*mt**2*p2p4+ $ 32*d213*mt**2*p2p4+24*d22*mt**2*p2p4+ $ 48*d223*mt**2*p2p4+24*d23*mt**2*p2p4- $ 8*d12*p2p3*p2p4-16*d13*p2p3*p2p4- $ 8*d213*p2p3*p2p4-24*d223*p2p3*p2p4- $ 24*d23*p2p3*p2p4-8*d12*p2p4**2-8*d13*p2p4**2- $ 8*d212*p2p4**2-8*d213*p2p4**2-16*d22*p2p4**2- $ 32*d223*p2p4**2-16*d23*p2p4**2-4*c0*p3p4- $ 4*c12*p3p4+8*d20*p3p4-8*d13*mt**2*p3p4- $ 16*d213*mt**2*p3p4-16*d223*mt**2*p3p4- $ 16*d23*mt**2*p3p4+16*d13*p2p3*p3p4+ $ 16*d23*p2p3*p3p4-8*d0*p2p4*p3p4- $ 8*d11*p2p4*p3p4+8*d13*p2p4*p3p4+ $ 8*d213*p2p4*p3p4+24*d223*p2p4*p3p4+ $ 24*d23*p2p4*p3p4-8*d13*p3p4**2-8*d23*p3p4**2) kmv(8,6)=(2*c0-2*c11-12*d20-4*d0*mt**2-8*d11*mt**2-8*d12*mt**2- $ 8*d13*mt**2-4*d212*mt**2-4*d22*mt**2-4*d223*mt**2+ $ 4*d0*p2p3+4*d11*p2p3+4*d12*p2p3+4*d223*p2p3+ $ 4*d0*p2p4+4*d11*p2p4+4*d12*p2p4+4*d212*p2p4+ $ 8*d22*p2p4+8*d223*p2p4+4*d13*p3p4-4*d223*p3p4) kmv(8,7)=(-4*d20*mt-4*d11*mt**3-4*d12*mt**3-4*d13*mt**3- $ 4*d21*mt**3-8*d212*mt**3-8*d213*mt**3-4*d22*mt**3- $ 8*d223*mt**3- $ 4*d23*mt**3+4*d0*mt*p2p3+12*d11*mt*p2p3+ $ 12*d12*mt*p2p3+16*d13*mt*p2p3+4*d213*mt*p2p3+ $ 4*d223*mt*p2p3+4*d23*mt*p2p3+4*d0*mt*p2p4+ $ 8*d11*mt*p2p4+12*d12*mt*p2p4+12*d13*mt*p2p4+ $ 4*d21*mt*p2p4+12*d212*mt*p2p4+12*d213*mt*p2p4+ $ 8*d22*mt*p2p4+16*d223*mt*p2p4+8*d23*mt*p2p4- $ 4*d0*mt*p3p4-8*d11*mt*p3p4-8*d12*mt*p3p4- $ 12*d13*mt*p3p4-4*d213*mt*p3p4-4*d223*mt*p3p4- $ 4*d23*mt*p3p4) kmv(8,8)=(-4*d20*mt-4*d11*mt**3-4*d12*mt**3-4*d13*mt**3- $ 4*d21*mt**3-8*d212*mt**3-8*d213*mt**3-4*d22*mt**3- $ 8*d223*mt**3- $ 4*d23*mt**3+4*d13*mt*p2p3+4*d213*mt*p2p3+ $ 4*d223*mt*p2p3+4*d23*mt*p2p3-4*d11*mt*p2p4+ $ 4*d21*mt*p2p4+12*d212*mt*p2p4+12*d213*mt*p2p4+ $ 8*d22*mt*p2p4+16*d223*mt*p2p4+8*d23*mt*p2p4+ $ 4*d11*mt*p3p4+4*d12*mt*p3p4-4*d213*mt*p3p4- $ 4*d223*mt*p3p4-4*d23*mt*p3p4) kmv(8,10)=(-4*d11*mt-4*d12*mt-4*d13*mt+4*d21*mt+8*d212*mt+ $ 8*d213*mt+4*d22*mt+8*d223*mt+4*d23*mt) kmv(8,13)=(4*d11*mt+4*d12*mt+4*d13*mt-4*d21*mt-8*d212*mt- $ 8*d213*mt-4*d22*mt-8*d223*mt-4*d23*mt) kmv(8,16)=(-4*c11-4*c12-8*d20+8*d301+8*d302+8*d303-8*d0*mt**2- $ 16*d11*mt**2-16*d12*mt**2-16*d13*mt**2-8*d21*mt**2- $ 24*d212*mt**2-24*d213*mt**2-16*d22*mt**2-32*d223*mt**2- $ 16*d23*mt**2+8*d13*p2p3+8*d213*p2p3+16*d223*p2p3+ $ 16*d23*p2p3+8*d12*p2p4+8*d13*p2p4+8*d212*p2p4+ $ 8*d213*p2p4+16*d22*p2p4+32*d223*p2p4+16*d23*p2p4+ $ 8*d0*p3p4+8*d11*p3p4+8*d12*p3p4+8*d13*p3p4- $ 8*d223*p3p4-8*d23*p3p4) kmv(8,19)=(-4*c11-4*c12-16*d20-8*d301-8*d302-8*d303+ $ 8*d11*mt**2+8*d12*mt**2+8*d13*mt**2+8*d21*mt**2+ $ 8*d212*mt**2+ $ 8*d213*mt**2-8*d0*p2p3-16*d11*p2p3-8*d12*p2p3- $ 16*d13*p2p3-8*d21*p2p3-8*d212*p2p3-16*d213*p2p3- $ 8*d0*p2p4-16*d11*p2p4-16*d12*p2p4-16*d13*p2p4- $ 8*d21*p2p4-16*d212*p2p4-16*d213*p2p4+8*d0*p3p4+ $ 8*d11*p3p4+8*d12*p3p4+16*d13*p3p4+8*d213*p3p4) kmv(8,22)=(-4*c0-4*c12+16*d20+8*d301+8*d302+8*d303-8*d11*mt**2- $ 8*d12*mt**2-8*d13*mt**2-8*d213*mt**2-8*d223*mt**2- $ 8*d23*mt**2+ $ 8*d13*p2p3+8*d23*p2p3+8*d12*p2p4+8*d13*p2p4+ $ 8*d223*p2p4+8*d23*p2p4+8*d213*p3p4+8*d223*p3p4) kmv(8,25)=(-4*c0-4*c12+8*d20-8*d301-8*d302-8*d303+8*d0*mt**2+ $ 16*d11*mt**2+16*d12*mt**2+16*d13*mt**2+16*d21*mt**2+ $ 32*d212*mt**2+24*d213*mt**2+16*d22*mt**2+24*d223*mt**2+ $ 8*d23*mt**2-8*d0*p2p3-16*d11*p2p3-16*d12*p2p3- $ 16*d13*p2p3-8*d21*p2p3-16*d212*p2p3-24*d213*p2p3- $ 8*d22*p2p3-24*d223*p2p3-8*d23*p2p3-8*d0*p2p4- $ 16*d11*p2p4-24*d12*p2p4-16*d13*p2p4-8*d21*p2p4- $ 32*d212*p2p4-24*d213*p2p4-24*d22*p2p4- $ 32*d223*p2p4-8*d23*p2p4+8*d12*p3p4+8*d13*p3p4+ $ 8*d212*p3p4+16*d213*p3p4+8*d22*p3p4+24*d223*p3p4+ $ 8*d23*p3p4) kmv(8,28)=(-8*d20*mt-8*d11*mt**3-8*d12*mt**3-8*d13*mt**3- $ 8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3- $ 16*d223*mt**3-8*d23*mt**3+8*d13*mt*p2p3+8*d213*mt*p2p3+ $ 8*d223*mt*p2p3+8*d23*mt*p2p3+8*d12*mt*p2p4+ $ 8*d13*mt*p2p4+8*d212*mt*p2p4+8*d213*mt*p2p4+ $ 8*d22*mt*p2p4+16*d223*mt*p2p4+8*d23*mt*p2p4+ $ 8*d11*mt*p3p4+8*d12*mt*p3p4-8*d213*mt*p3p4- $ 8*d223*mt*p3p4-8*d23*mt*p3p4) kmv(8,31)=(8*d20*mt+8*d11*mt**3+8*d12*mt**3+8*d13*mt**3+ $ 8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+ $ 16*d223*mt**3+8*d23*mt**3-8*d0*mt*p2p3-16*d11*mt*p2p3- $ 16*d12*mt*p2p3-24*d13*mt*p2p3-8*d21*mt*p2p3- $ 16*d212*mt*p2p3-24*d213*mt*p2p3-8*d22*mt*p2p3- $ 24*d223*mt*p2p3-16*d23*mt*p2p3-8*d0*mt*p2p4- $ 16*d11*mt*p2p4-24*d12*mt*p2p4-24*d13*mt*p2p4- $ 8*d21*mt*p2p4-24*d212*mt*p2p4-24*d213*mt*p2p4- $ 16*d22*mt*p2p4-32*d223*mt*p2p4-16*d23*mt*p2p4+ $ 8*d0*mt*p3p4+8*d11*mt*p3p4+8*d12*mt*p3p4+ $ 16*d13*mt*p3p4+8*d21*mt*p3p4+16*d212*mt*p3p4+ $ 24*d213*mt*p3p4+8*d22*mt*p3p4+24*d223*mt*p3p4+ $ 16*d23*mt*p3p4) kmv(8,37)=(-16*d12-24*d212-24*d22-24*d223-8*d312-16*d3123- $ 8*d32-16*d321-16*d323-8*d332) kmv(8,46)=(8*d11*mt+8*d12*mt+8*d13*mt+16*d21*mt+32*d212*mt+ $ 32*d213*mt+16*d22*mt+32*d223*mt+16*d23*mt+8*d31*mt+ $ 24*d312*mt+48*d3123*mt+24*d313*mt+8*d32*mt+24*d321*mt+ $ 24*d323*mt+8*d33*mt+24*d331*mt+24*d332*mt) kmv(8,55)=(8*d11*mt+8*d12*mt+8*d13*mt+16*d21*mt+32*d212*mt+ $ 32*d213*mt+16*d22*mt+32*d223*mt+16*d23*mt+8*d31*mt+ $ 24*d312*mt+48*d3123*mt+24*d313*mt+8*d32*mt+24*d321*mt+ $ 24*d323*mt+8*d33*mt+24*d331*mt+24*d332*mt) kmv(8,64)=(-16*d20-32*d301-32*d302-32*d303+16*d0*mt**2+ $ 32*d11*mt**2+32*d12*mt**2+32*d13*mt**2-16*d31*mt**2- $ 48*d312*mt**2-96*d3123*mt**2-48*d313*mt**2-16*d32*mt**2- $ 48*d321*mt**2-48*d323*mt**2-16*d33*mt**2-48*d331*mt**2- $ 48*d332*mt**2+16*d213*p2p3+16*d223*p2p3+16*d23*p2p3+ $ 32*d3123*p2p3+16*d313*p2p3+16*d323*p2p3+ $ 16*d33*p2p3+32*d331*p2p3+32*d332*p2p3+ $ 16*d212*p2p4+16*d213*p2p4+16*d22*p2p4+ $ 32*d223*p2p4+16*d23*p2p4+16*d312*p2p4+ $ 64*d3123*p2p4+16*d313*p2p4+16*d32*p2p4+ $ 32*d321*p2p4+48*d323*p2p4+16*d33*p2p4+ $ 32*d331*p2p4+48*d332*p2p4-16*d0*p3p4-32*d11*p3p4- $ 16*d12*p3p4-32*d13*p3p4-16*d21*p3p4-16*d212*p3p4- $ 48*d213*p3p4-32*d223*p3p4-32*d23*p3p4- $ 32*d3123*p3p4-16*d313*p3p4-16*d323*p3p4- $ 16*d33*p3p4-32*d331*p3p4-32*d332*p3p4) return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine pentp2_t(s,t1,t2,u1,u2,mt,mh,kmv) implicit none integer i,j,k real*8 mt,mh real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(68) complex*16 d1(0:3),d2(0:6),d3(0:3,0:3) complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4) complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223, $ e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341, $ e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234 zero=dcmplx(0d0,0d0) do i=1,68 kmv(i)=zero enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c P2 e1(0)=E0_ir(2,mt,mt**2,0d0,0d0,mh**2,mt**2,mt**2-2d0*p1p3, $ 2d0*p3p4,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3, $ mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4,2d0*mt**2+2d0*p1p2, $ 0d0,mt,mt,mt,mt) c write(6,*)'e0',e1(0) call eefunc_ir(2,mt,mt**2,mt**2,mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4, $ mt**2-2d0*p1p3,-p1p2,mt**2-p1p3-p1p4,mt**2-p1p3, $ -p1p2+p2p3+p2p4,-p1p2+p2p3,mt**2-2d0*p1p3-p1p4+p3p4, $ 0d0,mt,mt,mt,mt,e1,e2,e3,d1,d2,d3) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) e0=e1(0) e11=e1(1) e12=e1(2) e13=e1(3) e14=e1(4) e21=e2(1,1) e22=e2(2,2) e23=e2(3,3) e24=e2(4,4) e212=e2(1,2) e213=e2(1,3) e214=e2(1,4) e223=e2(2,3) e224=e2(2,4) e234=e2(3,4) e31=e3(1,1) e32=e3(2,2) e33=e3(3,3) e34=e3(4,4) e312=e3(1,2) e313=e3(1,3) e314=e3(1,4) e321=e3(2,1) e331=e3(3,1) e341=e3(4,1) e323=e3(2,3) e324=e3(2,4) e332=e3(3,2) e342=e3(4,2) e334=e3(3,4) e343=e3(4,3) e3123=e3(0,1) e3124=e3(0,2) e3134=e3(0,3) e3234=e3(0,4) 10 continue kmv(1)=(-8*d20+4*d0*mt**2-8*d21*mt**2-8*d21*p1p2- $ 8*d11*p1p3-8*d212*p1p3-8*d213*p1p3-8*d0*p1p4- $ 8*d11*p1p4-8*d212*p1p4+16*e21*mt**2*p1p4+ $ 32*e213*mt**2*p1p4+32*e214*mt**2*p1p4+ $ 16*e23*mt**2*p1p4+32*e234*mt**2*p1p4+16*e24*mt**2*p1p4- $ 16*e212*p1p2*p1p4-16*e223*p1p2*p1p4- $ 16*e224*p1p2*p1p4-16*e213*p1p3*p1p4- $ 16*e214*p1p3*p1p4-16*e23*p1p3*p1p4- $ 32*e234*p1p3*p1p4-16*e24*p1p3*p1p4- $ 16*e213*p1p4**2-16*e23*p1p4**2-16*e234*p1p4**2- $ 8*d11*p2p3-8*d212*p2p3-8*d213*p2p3+ $ 16*e212*p1p4*p2p3+16*e223*p1p4*p2p3+ $ 16*e224*p1p4*p2p3-8*d212*p2p4- $ 16*e212*p1p3*p2p4-16*e223*p1p3*p2p4- $ 16*e224*p1p3*p2p4-16*d12*p3p4-8*d13*p3p4- $ 8*d22*p3p4-8*d223*p3p4-16*e213*mt**2*p3p4- $ 16*e214*mt**2*p3p4-16*e23*mt**2*p3p4- $ 32*e234*mt**2*p3p4-16*e24*mt**2*p3p4+ $ 16*e223*p1p2*p3p4+16*e224*p1p2*p3p4+ $ 16*e23*p1p3*p3p4+32*e234*p1p3*p3p4+ $ 16*e24*p1p3*p3p4+16*e213*p1p4*p3p4+ $ 32*e23*p1p4*p3p4+32*e234*p1p4*p3p4- $ 16*e223*p2p3*p3p4-16*e224*p2p3*p3p4- $ 16*e23*p3p4**2-16*e234*p3p4**2) kmv(2)=(-4*d0+4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+ $ 8*e23*mt**2+16*e234*mt**2+8*e24*mt**2-8*e223*p1p2- $ 8*e224*p1p2-8*e213*p1p3-8*e214*p1p3-16*e23*p1p3- $ 32*e234*p1p3-16*e24*p1p3-8*e213*p1p4-16*e23*p1p4- $ 16*e234*p1p4+8*e223*p2p3+8*e224*p2p3+8*e223*p2p4+ $ 16*e23*p3p4+16*e234*p3p4) kmv(3)=(-4*d0*mt-8*d11*mt+8*e21*mt**3-8*e212*mt**3+16*e213*mt**3+ $ 16*e214*mt**3-8*e223*mt**3-8*e224*mt**3+8*e23*mt**3+ $ 16*e234*mt**3+8*e24*mt**3-8*e212*mt*p1p2+8*e22*mt*p1p2- $ 8*e223*mt*p1p2-8*e224*mt*p1p2-8*e21*mt*p1p3+ $ 8*e212*mt*p1p3-24*e213*mt*p1p3-24*e214*mt*p1p3+ $ 16*e223*mt*p1p3+16*e224*mt*p1p3-16*e23*mt*p1p3- $ 32*e234*mt*p1p3-16*e24*mt*p1p3-8*e213*mt*p1p4+ $ 8*e223*mt*p1p4-8*e23*mt*p1p4-8*e234*mt*p1p4+ $ 8*e212*mt*p2p3-8*e22*mt*p2p3+8*e223*mt*p2p3+ $ 8*e224*mt*p2p3+8*e213*mt*p3p4-8*e223*mt*p3p4+ $ 8*e23*mt*p3p4+8*e234*mt*p3p4) kmv(4)=(8*e21*mt*p1p4-8*e212*mt*p1p4+16*e213*mt*p1p4+ $ 16*e214*mt*p1p4-8*e223*mt*p1p4-8*e224*mt*p1p4+ $ 8*e23*mt*p1p4+16*e234*mt*p1p4+8*e24*mt*p1p4- $ 8*e212*mt*p2p4+8*e22*mt*p2p4-8*e223*mt*p2p4- $ 8*e224*mt*p2p4-8*e213*mt*p3p4-8*e214*mt*p3p4+ $ 8*e223*mt*p3p4+8*e224*mt*p3p4-8*e23*mt*p3p4- $ 16*e234*mt*p3p4-8*e24*mt*p3p4) kmv(5)=(8*e11*mt**2*p1p2+8*e13*mt**2*p1p2+ $ 8*e14*mt**2*p1p2+8*e21*mt**2*p1p2+8*e212*mt**2*p1p2+ $ 16*e213*mt**2*p1p2+16*e214*mt**2*p1p2+ $ 8*e223*mt**2*p1p2+8*e224*mt**2*p1p2+8*e23*mt**2*p1p2+ $ 16*e234*mt**2*p1p2+8*e24*mt**2*p1p2-8*e12*p1p2**2- $ 8*e212*p1p2**2-8*e22*p1p2**2-8*e223*p1p2**2- $ 8*e224*p1p2**2+4*d12*p1p3+4*d13*p1p3+ $ 8*e213*mt**2*p1p3+8*e214*mt**2*p1p3+8*e23*mt**2*p1p3+ $ 16*e234*mt**2*p1p3+8*e24*mt**2*p1p3-8*e0*p1p2*p1p3- $ 16*e11*p1p2*p1p3-8*e12*p1p2*p1p3- $ 24*e13*p1p2*p1p3-24*e14*p1p2*p1p3- $ 8*e21*p1p2*p1p3-8*e212*p1p2*p1p3- $ 24*e213*p1p2*p1p3-24*e214*p1p2*p1p3- $ 24*e223*p1p2*p1p3-24*e224*p1p2*p1p3- $ 16*e23*p1p2*p1p3-32*e234*p1p2*p1p3- $ 16*e24*p1p2*p1p3-8*e13*p1p3**2-8*e14*p1p3**2- $ 8*e213*p1p3**2-8*e214*p1p3**2-16*e23*p1p3**2- $ 32*e234*p1p3**2-16*e24*p1p3**2+4*d0*p1p4+ $ 4*d11*p1p4+4*d12*p1p4-8*e21*mt**2*p1p4- $ 8*e213*mt**2*p1p4-16*e214*mt**2*p1p4-8*e234*mt**2*p1p4- $ 8*e24*mt**2*p1p4-8*e13*p1p2*p1p4+ $ 8*e212*p1p2*p1p4-8*e213*p1p2*p1p4- $ 8*e223*p1p2*p1p4+8*e224*p1p2*p1p4- $ 8*e23*p1p2*p1p4-8*e234*p1p2*p1p4- $ 8*e13*p1p3*p1p4+8*e214*p1p3*p1p4- $ 16*e23*p1p3*p1p4-8*e234*p1p3*p1p4+ $ 8*e24*p1p3*p1p4+8*e213*p1p4**2+8*e234*p1p4**2- $ 4*d12*p2p3-4*d13*p2p3-8*e213*mt**2*p2p3- $ 8*e214*mt**2*p2p3-8*e23*mt**2*p2p3-16*e234*mt**2*p2p3- $ 8*e24*mt**2*p2p3+8*e12*p1p2*p2p3+ $ 8*e212*p1p2*p2p3+8*e22*p1p2*p2p3+ $ 16*e223*p1p2*p2p3+16*e224*p1p2*p2p3+ $ 8*e13*p1p3*p2p3+8*e14*p1p3*p2p3+ $ 8*e213*p1p3*p2p3+8*e214*p1p3*p2p3+ $ 8*e223*p1p3*p2p3+8*e224*p1p3*p2p3+ $ 16*e23*p1p3*p2p3+32*e234*p1p3*p2p3+ $ 16*e24*p1p3*p2p3-16*e212*p1p4*p2p3- $ 8*e223*p1p4*p2p3-16*e224*p1p4*p2p3+ $ 8*e23*p1p4*p2p3+8*e234*p1p4*p2p3- $ 8*e223*p2p3**2-8*e224*p2p3**2-4*d0*p2p4- $ 4*d11*p2p4-4*d12*p2p4-8*e11*mt**2*p2p4- $ 8*e13*mt**2*p2p4-8*e14*mt**2*p2p4-8*e212*mt**2*p2p4- $ 8*e213*mt**2*p2p4-8*e223*mt**2*p2p4-8*e224*mt**2*p2p4- $ 8*e23*mt**2*p2p4-8*e234*mt**2*p2p4+8*e12*p1p2*p2p4+ $ 8*e22*p1p2*p2p4+8*e223*p1p2*p2p4+ $ 16*e13*p1p3*p2p4+8*e14*p1p3*p2p4+ $ 16*e212*p1p3*p2p4+8*e213*p1p3*p2p4+ $ 24*e223*p1p3*p2p4+24*e224*p1p3*p2p4+ $ 16*e23*p1p3*p2p4+16*e234*p1p3*p2p4+ $ 8*e13*p1p4*p2p4+8*e223*p1p4*p2p4+ $ 8*e23*p1p4*p2p4-8*e223*p2p3*p2p4-4*d0*p3p4+ $ 4*d12*p3p4+4*d13*p3p4+8*e213*mt**2*p3p4+ $ 8*e214*mt**2*p3p4+8*e23*mt**2*p3p4+16*e234*mt**2*p3p4+ $ 8*e24*mt**2*p3p4+8*e13*p1p2*p3p4+ $ 8*e213*p1p2*p3p4-8*e224*p1p2*p3p4+ $ 8*e23*p1p2*p3p4+8*e234*p1p2*p3p4+ $ 8*e13*p1p3*p3p4+8*e14*p1p3*p3p4- $ 8*e234*p1p3*p3p4-8*e24*p1p3*p3p4- $ 16*e213*p1p4*p3p4-16*e23*p1p4*p3p4- $ 24*e234*p1p4*p3p4+16*e223*p2p3*p3p4+ $ 16*e224*p2p3*p3p4-8*e23*p2p3*p3p4- $ 8*e234*p2p3*p3p4-8*e13*p2p4*p3p4- $ 8*e23*p2p4*p3p4+16*e23*p3p4**2+16*e234*p3p4**2) kmv(6)=(4*d0-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2- $ 16*e234*mt**2-8*e24*mt**2+4*e0*p1p2+4*e11*p1p2+ $ 4*e12*p1p2+4*e13*p1p2+4*e14*p1p2+8*e223*p1p2+ $ 8*e224*p1p2+8*e213*p1p3+8*e214*p1p3+16*e23*p1p3+ $ 32*e234*p1p3+16*e24*p1p3+8*e213*p1p4+16*e23*p1p4+ $ 16*e234*p1p4-8*e223*p2p3-8*e224*p2p3-8*e223*p2p4- $ 16*e23*p3p4-16*e234*p3p4) kmv(7)=(-6*d0*mt-8*d11*mt-4*d12*mt-4*e11*mt**3-4*e13*mt**3- $ 4*e14*mt**3+8*e21*mt**3-8*e212*mt**3+8*e213*mt**3+ $ 16*e214*mt**3-8*e223*mt**3-8*e224*mt**3+8*e234*mt**3+ $ 8*e24*mt**3+4*e12*mt*p1p2-8*e212*mt*p1p2+ $ 8*e22*mt*p1p2-8*e224*mt*p1p2-4*e12*mt*p1p3+ $ 12*e13*mt*p1p3+4*e14*mt*p1p3-8*e21*mt*p1p3+ $ 8*e212*mt*p1p3-16*e213*mt*p1p3-24*e214*mt*p1p3+ $ 16*e223*mt*p1p3+16*e224*mt*p1p3-16*e234*mt*p1p3- $ 16*e24*mt*p1p3+4*e13*mt*p1p4-8*e213*mt*p1p4+ $ 8*e223*mt*p1p4-8*e234*mt*p1p4-4*e11*mt*p2p3- $ 4*e13*mt*p2p3-4*e14*mt*p2p3+8*e212*mt*p2p3- $ 8*e22*mt*p2p3+8*e224*mt*p2p3-4*e13*mt*p3p4+ $ 8*e213*mt*p3p4-8*e223*mt*p3p4+8*e234*mt*p3p4) kmv(8)=(-4*d12*mt-4*d13*mt-8*e213*mt**3-8*e214*mt**3-8*e23*mt**3- $ 16*e234*mt**3-8*e24*mt**3+8*e223*mt*p1p2+8*e224*mt*p1p2+ $ 8*e13*mt*p1p3+8*e14*mt*p1p3+8*e213*mt*p1p3+ $ 8*e214*mt*p1p3+16*e23*mt*p1p3+32*e234*mt*p1p3+ $ 16*e24*mt*p1p3+4*e12*mt*p1p4+8*e21*mt*p1p4- $ 8*e212*mt*p1p4+16*e213*mt*p1p4+16*e214*mt*p1p4- $ 8*e223*mt*p1p4-8*e224*mt*p1p4+16*e23*mt*p1p4+ $ 24*e234*mt*p1p4+8*e24*mt*p1p4-8*e223*mt*p2p3- $ 8*e224*mt*p2p3+4*e11*mt*p2p4+4*e13*mt*p2p4+ $ 4*e14*mt*p2p4-8*e212*mt*p2p4+8*e22*mt*p2p4- $ 8*e223*mt*p2p4-8*e224*mt*p2p4-4*e13*mt*p3p4- $ 4*e14*mt*p3p4-8*e213*mt*p3p4-8*e214*mt*p3p4+ $ 8*e223*mt*p3p4+8*e224*mt*p3p4-16*e23*mt*p3p4- $ 24*e234*mt*p3p4-8*e24*mt*p3p4) kmv(10)=(4*e11*mt+4*e13*mt+4*e14*mt-8*e212*mt+8*e22*mt) kmv(11)=(4*e12*mt-8*e13*mt-8*e14*mt+8*e21*mt-8*e212*mt+ $ 8*e213*mt+8*e214*mt-8*e223*mt-8*e224*mt) kmv(13)=(-4*e11*mt-4*e13*mt-4*e14*mt+8*e212*mt-8*e22*mt+ $ 8*e224*mt) kmv(14)=(-4*e12*mt+8*e13*mt-8*e21*mt+8*e212*mt-8*e213*mt- $ 16*e214*mt+8*e223*mt+8*e224*mt-8*e234*mt-8*e24*mt) kmv(16)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+ $ 8*e212*mt**2+8*e213*mt**2+8*e223*mt**2+8*e224*mt**2+ $ 8*e23*mt**2+8*e234*mt**2+8*e212*p1p2+8*e224*p1p2- $ 16*e13*p1p3-8*e14*p1p3-16*e212*p1p3-8*e213*p1p3- $ 16*e223*p1p3-16*e224*p1p3-16*e23*p1p3- $ 16*e234*p1p3-8*e13*p1p4-8*e223*p1p4-8*e23*p1p4- $ 8*e224*p2p3+8*e13*p3p4+8*e223*p3p4+8*e23*p3p4) kmv(17)=(-4*d0-4*d11-4*d12+8*e21*mt**2+8*e213*mt**2+ $ 16*e214*mt**2+8*e234*mt**2+8*e24*mt**2-8*e0*p1p2- $ 16*e11*p1p2-8*e12*p1p2-16*e13*p1p2-16*e14*p1p2- $ 8*e21*p1p2-16*e212*p1p2-16*e213*p1p2- $ 16*e214*p1p2-8*e223*p1p2-16*e224*p1p2-8*e23*p1p2- $ 16*e234*p1p2-8*e24*p1p2-8*e14*p1p3-8*e213*p1p3- $ 16*e214*p1p3-16*e234*p1p3-16*e24*p1p3- $ 8*e213*p1p4-8*e234*p1p4+8*e13*p2p3+8*e14*p2p3+ $ 16*e212*p2p3+8*e213*p2p3+8*e214*p2p3+8*e223*p2p3+ $ 16*e224*p2p3+8*e23*p2p3+16*e234*p2p3+8*e24*p2p3+ $ 8*e213*p3p4+8*e234*p3p4) kmv(19)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+ $ 8*e212*mt**2+8*e213*mt**2+8*e223*mt**2+8*e224*mt**2+ $ 8*e23*mt**2+8*e234*mt**2-8*e12*p1p2-8*e22*p1p2- $ 8*e223*p1p2-16*e13*p1p3-8*e14*p1p3-16*e212*p1p3- $ 8*e213*p1p3-16*e223*p1p3-24*e224*p1p3- $ 16*e23*p1p3-16*e234*p1p3-8*e13*p1p4-8*e223*p1p4- $ 8*e23*p1p4+8*e13*p3p4+8*e223*p3p4+8*e23*p3p4) kmv(20)=(-4*d0-4*d11-4*d12+8*e21*mt**2+8*e213*mt**2+ $ 16*e214*mt**2+8*e234*mt**2+8*e24*mt**2-8*e212*p1p2- $ 8*e224*p1p2-8*e213*p1p3-8*e214*p1p3-8*e234*p1p3- $ 8*e24*p1p3-8*e213*p1p4-8*e234*p1p4+8*e13*p2p3+ $ 16*e212*p2p3+8*e213*p2p3+8*e223*p2p3+ $ 16*e224*p2p3+8*e23*p2p3+8*e234*p2p3+8*e213*p3p4+ $ 8*e234*p3p4) kmv(22)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+ $ 16*e234*mt**2+8*e24*mt**2-8*e223*p1p2-8*e224*p1p2- $ 8*e13*p1p3-8*e14*p1p3-8*e213*p1p3-8*e214*p1p3- $ 16*e23*p1p3-32*e234*p1p3-16*e24*p1p3+ $ 16*e212*p1p4+8*e223*p1p4+8*e224*p1p4-8*e23*p1p4- $ 8*e234*p1p4+8*e223*p2p3+8*e224*p2p3+8*e223*p2p4+ $ 8*e224*p2p4-8*e223*p3p4-8*e224*p3p4+8*e23*p3p4+ $ 8*e234*p3p4) kmv(23)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2- $ 16*e234*mt**2-8*e24*mt**2+8*e223*p1p2+8*e224*p1p2+ $ 8*e13*p1p3+8*e14*p1p3+8*e213*p1p3+8*e214*p1p3+ $ 16*e23*p1p3+32*e234*p1p3+16*e24*p1p3+8*e13*p1p4+ $ 8*e14*p1p4+8*e213*p1p4+8*e214*p1p4+16*e23*p1p4+ $ 24*e234*p1p4+8*e24*p1p4-8*e223*p2p3-8*e224*p2p3- $ 8*e13*p2p4-8*e14*p2p4-16*e212*p2p4-8*e213*p2p4- $ 8*e214*p2p4-16*e223*p2p4-16*e224*p2p4-8*e23*p2p4- $ 16*e234*p2p4-8*e24*p2p4-8*e13*p3p4-8*e14*p3p4- $ 8*e213*p3p4-8*e214*p3p4-16*e23*p3p4-24*e234*p3p4- $ 8*e24*p3p4) kmv(25)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+ $ 16*e234*mt**2+8*e24*mt**2-8*e12*p1p2-8*e212*p1p2- $ 8*e22*p1p2-16*e223*p1p2-16*e224*p1p2-8*e13*p1p3- $ 8*e14*p1p3-8*e213*p1p3-8*e214*p1p3-16*e23*p1p3- $ 32*e234*p1p3-16*e24*p1p3+16*e212*p1p4+ $ 8*e223*p1p4+16*e224*p1p4-8*e23*p1p4-8*e234*p1p4+ $ 8*e223*p2p3+8*e224*p2p3+8*e223*p2p4-8*e223*p3p4- $ 8*e224*p3p4+8*e23*p3p4+8*e234*p3p4) kmv(26)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2- $ 16*e234*mt**2-8*e24*mt**2+8*e0*p1p2+16*e11*p1p2+ $ 8*e12*p1p2+16*e13*p1p2+16*e14*p1p2+8*e21*p1p2+ $ 8*e212*p1p2+16*e213*p1p2+16*e214*p1p2+ $ 16*e223*p1p2+16*e224*p1p2+8*e23*p1p2+ $ 16*e234*p1p2+8*e24*p1p2+8*e13*p1p3+8*e14*p1p3+ $ 8*e213*p1p3+8*e214*p1p3+16*e23*p1p3+32*e234*p1p3+ $ 16*e24*p1p3+8*e13*p1p4+8*e213*p1p4+16*e23*p1p4+ $ 16*e234*p1p4-8*e223*p2p3-8*e224*p2p3-8*e13*p2p4- $ 16*e212*p2p4-8*e213*p2p4-16*e223*p2p4- $ 16*e224*p2p4-8*e23*p2p4-8*e234*p2p4-8*e13*p3p4- $ 8*e14*p3p4-8*e213*p3p4-8*e214*p3p4-16*e23*p3p4- $ 24*e234*p3p4-8*e24*p3p4) kmv(28)=(-4*d0*mt-4*d11*mt+8*e21*mt**3+16*e213*mt**3+ $ 16*e214*mt**3+8*e23*mt**3+16*e234*mt**3+8*e24*mt**3- $ 8*e212*mt*p1p2-8*e223*mt*p1p2-8*e224*mt*p1p2- $ 8*e11*mt*p1p3-8*e13*mt*p1p3-8*e14*mt*p1p3- $ 8*e21*mt*p1p3-24*e213*mt*p1p3-24*e214*mt*p1p3- $ 16*e23*mt*p1p3-32*e234*mt*p1p3-16*e24*mt*p1p3- $ 8*e213*mt*p1p4+8*e22*mt*p1p4-8*e23*mt*p1p4- $ 8*e234*mt*p1p4+8*e212*mt*p2p3+8*e223*mt*p2p3+ $ 8*e224*mt*p2p3+8*e212*mt*p2p4+8*e223*mt*p2p4+ $ 8*e224*mt*p2p4+8*e212*mt*p3p4+8*e213*mt*p3p4- $ 8*e22*mt*p3p4+8*e23*mt*p3p4+8*e234*mt*p3p4) kmv(29)=(4*d11*mt+8*e212*mt**3+8*e223*mt**3+8*e224*mt**3- $ 8*e22*mt*p1p2-8*e12*mt*p1p3-8*e212*mt*p1p3- $ 16*e223*mt*p1p3-16*e224*mt*p1p3-8*e12*mt*p1p4- $ 8*e212*mt*p1p4-16*e223*mt*p1p4-8*e224*mt*p1p4+ $ 8*e22*mt*p2p3-8*e11*mt*p2p4-8*e13*mt*p2p4- $ 8*e14*mt*p2p4-8*e21*mt*p2p4-16*e213*mt*p2p4- $ 16*e214*mt*p2p4-8*e23*mt*p2p4-16*e234*mt*p2p4- $ 8*e24*mt*p2p4+8*e13*mt*p3p4+8*e14*mt*p3p4- $ 8*e21*mt*p3p4+8*e212*mt*p3p4-8*e213*mt*p3p4- $ 8*e214*mt*p3p4+16*e223*mt*p3p4+8*e224*mt*p3p4) kmv(31)=(4*d0*mt+8*d11*mt-8*e21*mt**3+8*e212*mt**3-16*e213*mt**3- $ 16*e214*mt**3+8*e223*mt**3+8*e224*mt**3-8*e23*mt**3- $ 16*e234*mt**3-8*e24*mt**3+8*e212*mt*p1p2-8*e22*mt*p1p2+ $ 8*e223*mt*p1p2+8*e224*mt*p1p2+8*e11*mt*p1p3+ $ 8*e13*mt*p1p3+8*e14*mt*p1p3+8*e21*mt*p1p3+ $ 24*e213*mt*p1p3+24*e214*mt*p1p3+8*e22*mt*p1p3- $ 8*e223*mt*p1p3-8*e224*mt*p1p3+16*e23*mt*p1p3+ $ 32*e234*mt*p1p3+16*e24*mt*p1p3+8*e213*mt*p1p4- $ 8*e223*mt*p1p4+8*e23*mt*p1p4+8*e234*mt*p1p4- $ 8*e212*mt*p3p4-8*e213*mt*p3p4+8*e22*mt*p3p4- $ 8*e224*mt*p3p4-8*e23*mt*p3p4-8*e234*mt*p3p4) kmv(32)=(-8*e11*mt**3-8*e13*mt**3-8*e14*mt**3-8*e21*mt**3- $ 8*e212*mt**3-16*e213*mt**3-16*e214*mt**3-8*e223*mt**3- $ 8*e224*mt**3-8*e23*mt**3-16*e234*mt**3-8*e24*mt**3+ $ 8*e12*mt*p1p2+8*e212*mt*p1p2+8*e22*mt*p1p2+ $ 8*e223*mt*p1p2+8*e224*mt*p1p2+8*e13*mt*p1p3+ $ 8*e14*mt*p1p3+8*e213*mt*p1p3+8*e214*mt*p1p3+ $ 8*e223*mt*p1p3+8*e224*mt*p1p3+8*e23*mt*p1p3+ $ 16*e234*mt*p1p3+8*e24*mt*p1p3+8*e13*mt*p1p4+ $ 8*e213*mt*p1p4+8*e223*mt*p1p4+8*e23*mt*p1p4+ $ 8*e234*mt*p1p4-8*e11*mt*p2p3-8*e13*mt*p2p3- $ 8*e14*mt*p2p3-8*e21*mt*p2p3-16*e213*mt*p2p3- $ 16*e214*mt*p2p3-8*e22*mt*p2p3-8*e23*mt*p2p3- $ 16*e234*mt*p2p3-8*e24*mt*p2p3-8*e13*mt*p3p4+ $ 8*e21*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4+ $ 16*e214*mt*p3p4-16*e223*mt*p3p4-8*e224*mt*p3p4+ $ 8*e234*mt*p3p4+8*e24*mt*p3p4) kmv(37)=-8*e224 kmv(38)=(8*e13+8*e14+16*e212+8*e213+8*e214+8*e223+16*e224+ $ 8*e23+16*e234+8*e24) kmv(40)=(-8*e13-16*e212-8*e213-8*e223-8*e224-8*e23-8*e234) kmv(41)=(-8*e14-8*e214-8*e234-8*e24) kmv(46)=(-8*e212*mt-8*e223*mt-8*e224*mt) kmv(47)=(8*e11*mt+8*e13*mt+8*e14*mt+8*e21*mt+16*e213*mt+ $ 16*e214*mt+16*e223*mt+8*e23*mt+16*e234*mt+8*e24*mt) kmv(49)=(-8*e22*mt+16*e223*mt) kmv(50)=(8*e12*mt-16*e13*mt+8*e212*mt-32*e213*mt+8*e223*mt+ $ 8*e224*mt-32*e23*mt-32*e234*mt) kmv(55)=(-8*e212*mt - 8*e223*mt - 8*e224*mt) kmv(56)=(-8*e22*mt+16*e223*mt+16*e224*mt) kmv(58)=(8*e11*mt+8*e13*mt+8*e14*mt+8*e21*mt+16*e213*mt+ $ 16*e214*mt+16*e223*mt+16*e224*mt+8*e23*mt+16*e234*mt+ $ 8*e24*mt) kmv(59)=(8*e12*mt-16*e13*mt-16*e14*mt+8*e212*mt-32*e213*mt- $ 32*e214*mt+8*e223*mt+8*e224*mt-32*e23*mt-64*e234*mt- $ 32*e24*mt) kmv(64)=(-8*d11+8*d21-16*e212*mt**2-16*e223*mt**2-16*e224*mt**2+ $ 16*e223*p1p3+16*e224*p1p3+16*e223*p1p4-16*e223*p3p4) kmv(65)=(-8*d11+8*d21+16*e12*p1p2+32*e212*p1p2+ $ 16*e22*p1p2+32*e223*p1p2+32*e224*p1p2+ $ 16*e223*p1p3+16*e224*p1p3+16*e223*p1p4- $ 16*e223*p2p3-16*e224*p2p3-16*e223*p2p4- $ 16*e212*p3p4-16*e223*p3p4-16*e224*p3p4) kmv(67)=(-8*d11+8*d21+16*e11*mt**2+16*e13*mt**2+16*e14*mt**2+ $ 16*e21*mt**2+16*e212*mt**2+32*e213*mt**2+32*e214*mt**2+ $ 16*e223*mt**2+16*e224*mt**2+16*e23*mt**2+32*e234*mt**2+ $ 16*e24*mt**2+16*e212*p1p2+16*e223*p1p2+16*e224*p1p2- $ 16*e13*p1p3-16*e14*p1p3-16*e213*p1p3- $ 16*e214*p1p3-16*e23*p1p3-32*e234*p1p3- $ 16*e24*p1p3-16*e13*p1p4-16*e213*p1p4-16*e23*p1p4- $ 16*e234*p1p4-16*e223*p2p3-16*e224*p2p3- $ 16*e223*p2p4+16*e13*p3p4+16*e212*p3p4+ $ 16*e213*p3p4+16*e23*p3p4+16*e234*p3p4) kmv(68)=(-8*d11+8*d21-16*e21*mt**2-32*e213*mt**2-32*e214*mt**2- $ 16*e23*mt**2-32*e234*mt**2-16*e24*mt**2-16*e0*p1p2- $ 48*e11*p1p2-16*e12*p1p2-48*e13*p1p2-48*e14*p1p2- $ 48*e21*p1p2-16*e212*p1p2-96*e213*p1p2- $ 96*e214*p1p2-16*e223*p1p2-16*e224*p1p2- $ 48*e23*p1p2-96*e234*p1p2-48*e24*p1p2-16*e13*p1p3- $ 16*e14*p1p3-16*e213*p1p3-16*e214*p1p3- $ 16*e23*p1p3-32*e234*p1p3-16*e24*p1p3-16*e13*p1p4- $ 16*e213*p1p4-16*e23*p1p4-16*e234*p1p4+ $ 16*e13*p2p3+16*e14*p2p3+32*e213*p2p3+ $ 32*e214*p2p3+32*e23*p2p3+64*e234*p2p3+ $ 32*e24*p2p3+16*e13*p2p4+32*e213*p2p4+32*e23*p2p4+ $ 32*e234*p2p4+16*e13*p3p4+16*e14*p3p4+ $ 16*e213*p3p4+16*e214*p3p4+16*e23*p3p4+ $ 32*e234*p3p4+16*e24*p3p4) c add contribution from e3_m_n_r: kmv(46)=kmv(46)-16*e323*mt kmv(47)=kmv(47)+(16*e3123*mt+16*e3234*mt+16*e332*mt) kmv(49)=kmv(49)+(16*e3123*mt+16*e3234*mt+16*e332*mt) kmv(50)=kmv(50)+(-16*e313*mt-32*e3134*mt-16*e33*mt- $ 32*e331*mt-32*e334*mt- $ 16*e343*mt) kmv(55)=kmv(55)+(-16*e323*mt-16*e324*mt) kmv(56)=kmv(56)+(16*e3123*mt+16*e3124*mt+32*e3234*mt+ $ 16*e332*mt+16*e342*mt) kmv(58)=kmv(58)+(16*e3123*mt+16*e3124*mt+32*e3234*mt+ $ 16*e332*mt+16*e342*mt) kmv(59)=kmv(59)+(-16*e313*mt-64*e3134*mt-16*e314*mt- $ 16*e33*mt-32*e331*mt- $ 48*e334*mt-16*e34*mt-32*e341*mt-48*e343*mt) kmv(64)=kmv(64)+(-16*e321*mt**2-16*e323*mt**2-16*e324*mt**2- $ 16*e321*p1p2-16*e323*p1p2-16*e324*p1p2+ $ 16*e323*p2p3+16*e324*p2p3+16*e323*p2p4) kmv(65)=kmv(65)+(16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+ $ 32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+ $ 32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+ $ 16*e332*p1p2+16*e342*p1p2-16*e3123*p2p3- $ 16*e3124*p2p3-32*e3234*p2p3-16*e332*p2p3- $ 16*e342*p2p3-16*e3123*p2p4-16*e3234*p2p4- $ 16*e332*p2p4) kmv(67)=kmv(67)+(16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+ $ 32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+ $ 32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+ $ 16*e332*p1p2+16*e342*p1p2-16*e3123*p2p3- $ 16*e3124*p2p3-32*e3234*p2p3-16*e332*p2p3- $ 16*e342*p2p3-16*e3123*p2p4-16*e3234*p2p4- $ 16*e332*p2p4) kmv(68)=kmv(68)+(-16*e31*mt**2-48*e313*mt**2- $ 96*e3134*mt**2-48*e314*mt**2- $ 16*e33*mt**2-48*e331*mt**2-48*e334*mt**2-16*e34*mt**2- $ 48*e341*mt**2-48*e343*mt**2-16*e31*p1p2-48*e313*p1p2- $ 96*e3134*p1p2-48*e314*p1p2-16*e33*p1p2- $ 48*e331*p1p2-48*e334*p1p2-16*e34*p1p2- $ 48*e341*p1p2-48*e343*p1p2+16*e313*p2p3+ $ 64*e3134*p2p3+16*e314*p2p3+16*e33*p2p3+ $ 32*e331*p2p3+48*e334*p2p3+16*e34*p2p3+ $ 32*e341*p2p3+48*e343*p2p3+16*e313*p2p4+ $ 32*e3134*p2p4+16*e33*p2p4+32*e331*p2p4+ $ 32*e334*p2p4+16*e343*p2p4) return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine pentp3_t(s,t1,t2,u1,u2,mt,mh,kmv) implicit none integer i,j real*8 mt,mh real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(68) complex*16 d1(0:3),d2(0:6),d3(0:3,0:3) complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4) complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223, $ e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341, $ e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234 zero=dcmplx(0d0,0d0) do i=1,68 kmv(i)=zero enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c P3 e1(0)=E0_ir(3,mt,mt**2,0d0,mh**2,0d0,mt**2,mt**2-2d0*p1p3, $ 2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4, $ 2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,mt**2-2d0*p2p4, $ 2d0*mt**2+2d0*p1p2,0d0,mt,mt,mt,mt) c write(6,*)'E0=',e1(0) call eefunc_ir(3,mt,mt**2,mt**2,mt**2-2d0*p2p4, $ mt**2-2d0*p1p3,-p1p2,p1p4-p1p2,mt**2-p1p3, $ mt**2-p2p4,-p1p2+p2p3,p1p4-p3p4-p1p2+p2p3, $ 0d0,mt,mt,mt,mt,e1,e2,e3,d1,d2,d3) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) e0=e1(0) e11=e1(1) e12=e1(2) e13=e1(3) e14=e1(4) e21=e2(1,1) e22=e2(2,2) e23=e2(3,3) e24=e2(4,4) e212=e2(1,2) e213=e2(1,3) e214=e2(1,4) e223=e2(2,3) e224=e2(2,4) e234=e2(3,4) e31=e3(1,1) e32=e3(2,2) e33=e3(3,3) e34=e3(4,4) e312=e3(1,2) e313=e3(1,3) e314=e3(1,4) e321=e3(2,1) e331=e3(3,1) e341=e3(4,1) e323=e3(2,3) e324=e3(2,4) e332=e3(3,2) e342=e3(4,2) e334=e3(3,4) e343=e3(4,3) e3123=e3(0,1) e3124=e3(0,2) e3134=e3(0,3) e3234=e3(0,4) kmv(1)=(16*d20-4*d0*mt**2+8*d11*mt**2+8*d12*mt**2+8*d21*mt**2+ $ 16*d212*mt**2+8*d22*mt**2+16*e212*mt**4+16*e213*mt**4+ $ 16*e224*mt**4+16*e234*mt**4+8*d0*p1p2+8*d11*p1p2+ $ 8*d12*p1p2+8*d21*p1p2+16*d212*p1p2+8*d22*p1p2- $ 16*e21*mt**2*p1p2-32*e214*mt**2*p1p2-16*e22*mt**2*p1p2- $ 32*e223*mt**2*p1p2-16*e23*mt**2*p1p2-16*e24*mt**2*p1p2+ $ 16*e212*p1p2**2+16*e213*p1p2**2+16*e224*p1p2**2+ $ 16*e234*p1p2**2+8*d213*p1p3+8*d223*p1p3- $ 16*e224*mt**2*p1p3-16*e234*mt**2*p1p3+ $ 16*e214*p1p2*p1p3+16*e24*p1p2*p1p3-8*d0*p1p4- $ 8*d11*p1p4-8*d12*p1p4-8*d212*p1p4-8*d22*p1p4+ $ 16*e21*mt**2*p1p4+32*e214*mt**2*p1p4+ $ 16*e223*mt**2*p1p4+16*e23*mt**2*p1p4+16*e24*mt**2*p1p4- $ 16*e212*p1p2*p1p4-32*e213*p1p2*p1p4- $ 16*e224*p1p2*p1p4-32*e234*p1p2*p1p4- $ 16*e214*p1p3*p1p4-16*e24*p1p3*p1p4+ $ 16*e213*p1p4**2+16*e234*p1p4**2+8*d11*p2p3+ $ 8*d12*p2p3+8*d13*p2p3+8*d213*p2p3+8*d223*p2p3+ $ 16*e214*mt**2*p2p3+16*e22*mt**2*p2p3+ $ 32*e223*mt**2*p2p3+16*e23*mt**2*p2p3+16*e24*mt**2*p2p3- $ 16*e212*p1p2*p2p3-16*e213*p1p2*p2p3- $ 32*e224*p1p2*p2p3-32*e234*p1p2*p2p3- $ 16*e24*p1p3*p2p3+16*e212*p1p4*p2p3+ $ 16*e213*p1p4*p2p3+16*e224*p1p4*p2p3+ $ 32*e234*p1p4*p2p3+16*e224*p2p3**2+16*e234*p2p3**2- $ 8*d12*p2p4-8*d212*p2p4-8*d22*p2p4- $ 16*e213*mt**2*p2p4-16*e234*mt**2*p2p4+ $ 16*e223*p1p2*p2p4+16*e23*p1p2*p2p4- $ 16*e212*p1p3*p2p4-16*e213*p1p3*p2p4- $ 16*e224*p1p3*p2p4-16*e23*p1p4*p2p4- $ 16*e223*p2p3*p2p4-16*e23*p2p3*p2p4-8*d12*p3p4- $ 8*d13*p3p4-8*d223*p3p4-16*e214*mt**2*p3p4- $ 16*e223*mt**2*p3p4-16*e23*mt**2*p3p4-16*e24*mt**2*p3p4+ $ 16*e213*p1p2*p3p4+16*e224*p1p2*p3p4+ $ 32*e234*p1p2*p3p4+16*e24*p1p3*p3p4- $ 16*e213*p1p4*p3p4-32*e234*p1p4*p3p4- $ 16*e224*p2p3*p3p4-32*e234*p2p3*p3p4+ $ 16*e23*p2p4*p3p4+16*e234*p3p4**2) kmv(2)=(-4*d0+4*d12+4*d13+8*e214*mt**2+8*e223*mt**2+ $ 8*e23*mt**2+8*e24*mt**2-8*e213*p1p2-8*e224*p1p2- $ 16*e234*p1p2-8*e214*p1p3-16*e24*p1p3+8*e213*p1p4+ $ 16*e234*p1p4+8*e224*p2p3+16*e234*p2p3- $ 8*e223*p2p4-16*e23*p2p4-16*e234*p3p4) kmv(3)=(-4*d0*mt-8*d11*mt-8*d12*mt+8*e21*mt**3-8*e212*mt**3- $ 8*e213*mt**3+16*e214*mt**3-8*e224*mt**3-8*e234*mt**3+ $ 8*e24*mt**3-8*e212*mt*p1p2-8*e213*mt*p1p2+ $ 8*e22*mt*p1p2+16*e223*mt*p1p2-8*e224*mt*p1p2+ $ 8*e23*mt*p1p2-8*e234*mt*p1p2-8*e21*mt*p1p3+ $ 8*e212*mt*p1p3+8*e213*mt*p1p3-24*e214*mt*p1p3+ $ 16*e224*mt*p1p3+16*e234*mt*p1p3-16*e24*mt*p1p3+ $ 8*e213*mt*p1p4-8*e223*mt*p1p4-8*e23*mt*p1p4+ $ 8*e234*mt*p1p4+8*e212*mt*p2p3+8*e213*mt*p2p3- $ 8*e22*mt*p2p3-16*e223*mt*p2p3+8*e224*mt*p2p3- $ 8*e23*mt*p2p3+8*e234*mt*p2p3-8*e213*mt*p3p4+ $ 8*e223*mt*p3p4+8*e23*mt*p3p4-8*e234*mt*p3p4) kmv(4)=(-4*d0*mt-8*d11*mt-8*d12*mt+8*e212*mt**3+8*e213*mt**3- $ 8*e22*mt**3-16*e223*mt**3+8*e224*mt**3-8*e23*mt**3+ $ 8*e234*mt**3-8*e21*mt*p1p2+8*e212*mt*p1p2+ $ 8*e213*mt*p1p2-16*e214*mt*p1p2+8*e224*mt*p1p2+ $ 8*e234*mt*p1p2-8*e24*mt*p1p2+8*e21*mt*p1p4- $ 8*e212*mt*p1p4-8*e213*mt*p1p4+16*e214*mt*p1p4- $ 8*e224*mt*p1p4-8*e234*mt*p1p4+8*e24*mt*p1p4+ $ 8*e214*mt*p2p3-8*e224*mt*p2p3-8*e234*mt*p2p3+ $ 8*e24*mt*p2p3-8*e212*mt*p2p4-16*e213*mt*p2p4+ $ 8*e22*mt*p2p4+24*e223*mt*p2p4-8*e224*mt*p2p4+ $ 16*e23*mt*p2p4-16*e234*mt*p2p4-8*e214*mt*p3p4+ $ 8*e224*mt*p3p4+8*e234*mt*p3p4-8*e24*mt*p3p4) kmv(5)=(4*d11*p1p3+4*d12*p1p3-8*e12*mt**2*p1p3- $ 8*e13*mt**2*p1p3-8*e212*mt**2*p1p3-8*e213*mt**2*p1p3- $ 8*e224*mt**2*p1p3-8*e234*mt**2*p1p3+ $ 8*e11*p1p2*p1p3+8*e14*p1p2*p1p3+ $ 8*e21*p1p2*p1p3+16*e214*p1p2*p1p3+ $ 8*e24*p1p2*p1p3+4*d0*p1p4+4*d11*p1p4+ $ 4*d12*p1p4-8*e21*mt**2*p1p4-16*e214*mt**2*p1p4- $ 8*e24*mt**2*p1p4+8*e212*p1p2*p1p4+ $ 8*e213*p1p2*p1p4+8*e224*p1p2*p1p4+ $ 8*e234*p1p2*p1p4+8*e214*p1p3*p1p4+ $ 8*e24*p1p3*p1p4-8*e213*p1p4**2-8*e234*p1p4**2- $ 4*d11*p2p3-4*d12*p2p3-8*e22*mt**2*p2p3- $ 16*e223*mt**2*p2p3-8*e23*mt**2*p2p3+ $ 8*e212*p1p2*p2p3+8*e213*p1p2*p2p3+ $ 8*e224*p1p2*p2p3+8*e234*p1p2*p2p3- $ 8*e14*p1p3*p2p3-8*e214*p1p3*p2p3- $ 8*e24*p1p3*p2p3-16*e212*p1p4*p2p3- $ 16*e213*p1p4*p2p3-16*e224*p1p4*p2p3- $ 16*e234*p1p4*p2p3-8*e224*p2p3**2-8*e234*p2p3**2- $ 4*d0*p2p4-4*d11*p2p4-4*d12*p2p4-8*e11*mt**2*p2p4- $ 8*e14*mt**2*p2p4-8*e212*mt**2*p2p4-8*e213*mt**2*p2p4- $ 8*e224*mt**2*p2p4-8*e234*mt**2*p2p4+ $ 8*e12*p1p2*p2p4+8*e13*p1p2*p2p4+ $ 8*e22*p1p2*p2p4+16*e223*p1p2*p2p4+ $ 8*e23*p1p2*p2p4+8*e13*p1p3*p2p4+ $ 8*e14*p1p3*p2p4+16*e212*p1p3*p2p4+ $ 24*e213*p1p3*p2p4+24*e224*p1p3*p2p4+ $ 32*e234*p1p3*p2p4-8*e13*p1p4*p2p4- $ 8*e223*p1p4*p2p4-8*e23*p1p4*p2p4+ $ 8*e223*p2p3*p2p4+8*e23*p2p3*p2p4-4*d0*p3p4+ $ 4*d12*p3p4+4*d13*p3p4+8*e214*mt**2*p3p4+ $ 8*e223*mt**2*p3p4+8*e23*mt**2*p3p4+8*e24*mt**2*p3p4- $ 8*e213*p1p2*p3p4-8*e224*p1p2*p3p4- $ 16*e234*p1p2*p3p4+8*e14*p1p3*p3p4- $ 8*e24*p1p3*p3p4+16*e213*p1p4*p3p4+ $ 24*e234*p1p4*p3p4+16*e224*p2p3*p3p4+ $ 24*e234*p2p3*p3p4+8*e13*p2p4*p3p4- $ 8*e23*p2p4*p3p4-16*e234*p3p4**2) kmv(6)=(4*d0-4*d12-4*d13-8*e214*mt**2-8*e223*mt**2-8*e23*mt**2- $ 8*e24*mt**2+4*e0*p1p2+4*e11*p1p2+4*e12*p1p2+ $ 4*e13*p1p2+4*e14*p1p2+8*e213*p1p2+8*e224*p1p2+ $ 16*e234*p1p2+8*e214*p1p3+16*e24*p1p3-8*e213*p1p4- $ 16*e234*p1p4-8*e224*p2p3-16*e234*p2p3+ $ 8*e223*p2p4+16*e23*p2p4+16*e234*p3p4) kmv(7)=(-6*d0*mt-8*d11*mt-8*d12*mt-4*e11*mt**3-4*e14*mt**3+ $ 8*e21*mt**3-8*e212*mt**3-8*e213*mt**3+16*e214*mt**3- $ 8*e224*mt**3-8*e234*mt**3+8*e24*mt**3+4*e12*mt*p1p2+ $ 4*e13*mt*p1p2-8*e212*mt*p1p2-8*e213*mt*p1p2+ $ 8*e22*mt*p1p2+16*e223*mt*p1p2-8*e224*mt*p1p2+ $ 8*e23*mt*p1p2-8*e234*mt*p1p2-4*e12*mt*p1p3- $ 4*e13*mt*p1p3+4*e14*mt*p1p3-8*e21*mt*p1p3+ $ 8*e212*mt*p1p3+8*e213*mt*p1p3-24*e214*mt*p1p3+ $ 16*e224*mt*p1p3+16*e234*mt*p1p3-16*e24*mt*p1p3- $ 4*e13*mt*p1p4+8*e213*mt*p1p4-8*e223*mt*p1p4- $ 8*e23*mt*p1p4+8*e234*mt*p1p4-4*e11*mt*p2p3- $ 4*e14*mt*p2p3+8*e212*mt*p2p3+8*e213*mt*p2p3- $ 8*e22*mt*p2p3-16*e223*mt*p2p3+8*e224*mt*p2p3- $ 8*e23*mt*p2p3+8*e234*mt*p2p3+4*e13*mt*p3p4- $ 8*e213*mt*p3p4+8*e223*mt*p3p4+8*e23*mt*p3p4- $ 8*e234*mt*p3p4) kmv(8)=(-2*d0*mt-8*d11*mt-8*d12*mt+4*e12*mt**3+4*e13*mt**3+ $ 8*e212*mt**3+8*e213*mt**3-8*e22*mt**3-16*e223*mt**3+ $ 8*e224*mt**3-8*e23*mt**3+8*e234*mt**3-4*e11*mt*p1p2- $ 4*e14*mt*p1p2-8*e21*mt*p1p2+8*e212*mt*p1p2+ $ 8*e213*mt*p1p2-16*e214*mt*p1p2+8*e224*mt*p1p2+ $ 8*e234*mt*p1p2-8*e24*mt*p1p2+4*e12*mt*p1p4+ $ 4*e13*mt*p1p4+8*e21*mt*p1p4-8*e212*mt*p1p4- $ 8*e213*mt*p1p4+16*e214*mt*p1p4-8*e224*mt*p1p4- $ 8*e234*mt*p1p4+8*e24*mt*p1p4+4*e14*mt*p2p3+ $ 8*e214*mt*p2p3-8*e224*mt*p2p3-8*e234*mt*p2p3+ $ 8*e24*mt*p2p3+4*e11*mt*p2p4-4*e13*mt*p2p4+ $ 4*e14*mt*p2p4-8*e212*mt*p2p4-16*e213*mt*p2p4+ $ 8*e22*mt*p2p4+24*e223*mt*p2p4-8*e224*mt*p2p4+ $ 16*e23*mt*p2p4-16*e234*mt*p2p4-4*e14*mt*p3p4- $ 8*e214*mt*p3p4+8*e224*mt*p3p4+8*e234*mt*p3p4- $ 8*e24*mt*p3p4) kmv(10)=(4*e11*mt+4*e14*mt-8*e212*mt-8*e213*mt+8*e22*mt+ $ 16*e223*mt+8*e23*mt) kmv(11)=(4*e12*mt+4*e13*mt-8*e14*mt+8*e21*mt-8*e212*mt- $ 8*e213*mt+8*e214*mt-8*e224*mt-8*e234*mt) kmv(13)=(-4*e11*mt+8*e13*mt-4*e14*mt+8*e212*mt+8*e213*mt- $ 8*e22*mt-8*e223*mt+8*e224*mt+8*e234*mt) kmv(14)=(-4*e12*mt-4*e13*mt-8*e21*mt+8*e212*mt-16*e214*mt+ $ 8*e224*mt-8*e24*mt) kmv(16)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e14*mt**2+8*e212*mt**2+ $ 8*e213*mt**2+8*e224*mt**2+8*e234*mt**2+8*e212*p1p2+ $ 8*e213*p1p2+8*e224*p1p2+8*e234*p1p2-8*e14*p1p3- $ 16*e212*p1p3-16*e213*p1p3-16*e224*p1p3- $ 16*e234*p1p3+8*e13*p1p4+8*e223*p1p4+8*e23*p1p4- $ 8*e224*p2p3-8*e234*p2p3-8*e13*p3p4-8*e223*p3p4- $ 8*e23*p3p4) kmv(17)=(-4*d0-4*d11-4*d12+8*e21*mt**2+16*e214*mt**2+ $ 8*e24*mt**2-8*e0*p1p2-16*e11*p1p2-8*e12*p1p2- $ 8*e13*p1p2-16*e14*p1p2-8*e21*p1p2-16*e212*p1p2- $ 16*e213*p1p2-16*e214*p1p2-16*e224*p1p2- $ 16*e234*p1p2-8*e24*p1p2-8*e14*p1p3-16*e214*p1p3- $ 16*e24*p1p3+8*e213*p1p4+8*e234*p1p4+8*e14*p2p3+ $ 16*e212*p2p3+16*e213*p2p3+8*e214*p2p3+ $ 16*e224*p2p3+16*e234*p2p3+8*e24*p2p3-8*e213*p3p4- $ 8*e234*p3p4) kmv(19)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e14*mt**2+8*e212*mt**2+ $ 8*e213*mt**2+8*e224*mt**2+8*e234*mt**2-8*e12*p1p2- $ 8*e13*p1p2-8*e22*p1p2-16*e223*p1p2-8*e23*p1p2- $ 8*e13*p1p3-8*e14*p1p3-16*e212*p1p3-16*e213*p1p3- $ 8*e223*p1p3-24*e224*p1p3-8*e23*p1p3-24*e234*p1p3+ $ 8*e13*p1p4+8*e223*p1p4+8*e23*p1p4+8*e13*p2p3+ $ 8*e223*p2p3+8*e23*p2p3-8*e13*p3p4-8*e223*p3p4- $ 8*e23*p3p4) kmv(20)=(-4*d0-4*d11-4*d12+8*e21*mt**2+16*e214*mt**2+ $ 8*e24*mt**2-8*e212*p1p2-8*e213*p1p2-8*e224*p1p2- $ 8*e234*p1p2+8*e213*p1p3-8*e214*p1p3+8*e234*p1p3- $ 8*e24*p1p3+8*e213*p1p4+8*e234*p1p4+16*e212*p2p3+ $ 8*e213*p2p3+16*e224*p2p3+8*e234*p2p3-8*e213*p3p4- $ 8*e234*p3p4) kmv(22)=(4*d11+4*d12+8*e22*mt**2+16*e223*mt**2+8*e23*mt**2- $ 8*e212*p1p2-8*e213*p1p2-8*e224*p1p2-8*e234*p1p2+ $ 16*e212*p1p4+16*e213*p1p4+8*e224*p1p4+ $ 8*e234*p1p4+8*e224*p2p3+8*e234*p2p3-8*e223*p2p4+ $ 8*e224*p2p4-8*e23*p2p4+8*e234*p2p4-8*e224*p3p4- $ 8*e234*p3p4) kmv(23)=(-4*d11-4*d12+8*e12*mt**2+8*e13*mt**2+8*e212*mt**2+ $ 8*e213*mt**2+8*e224*mt**2+8*e234*mt**2-8*e11*p1p2- $ 8*e14*p1p2-8*e21*p1p2-16*e214*p1p2-8*e24*p1p2+ $ 8*e14*p1p4+8*e214*p1p4+8*e24*p1p4+8*e14*p2p3+ $ 8*e214*p2p3+8*e24*p2p3-8*e13*p2p4-8*e14*p2p4- $ 16*e212*p2p4-24*e213*p2p4-8*e214*p2p4- $ 16*e224*p2p4-24*e234*p2p4-8*e24*p2p4-8*e14*p3p4- $ 8*e214*p3p4-8*e24*p3p4) kmv(25)=(4*d11+4*d12+8*e22*mt**2+16*e223*mt**2+8*e23*mt**2- $ 8*e0*p1p2-8*e11*p1p2-16*e12*p1p2-16*e13*p1p2- $ 8*e14*p1p2-16*e212*p1p2-16*e213*p1p2-8*e22*p1p2- $ 16*e223*p1p2-16*e224*p1p2-8*e23*p1p2- $ 16*e234*p1p2+8*e13*p1p4+16*e212*p1p4+ $ 16*e213*p1p4+8*e223*p1p4+16*e224*p1p4+8*e23*p1p4+ $ 16*e234*p1p4+8*e224*p2p3+8*e234*p2p3-8*e13*p2p4- $ 16*e223*p2p4-16*e23*p2p4-8*e224*p3p4-8*e234*p3p4) kmv(26)=(-4*d11-4*d12+8*e12*mt**2+8*e13*mt**2+8*e212*mt**2+ $ 8*e213*mt**2+8*e224*mt**2+8*e234*mt**2+8*e212*p1p2+ $ 8*e213*p1p2+8*e224*p1p2+8*e234*p1p2-8*e213*p1p4- $ 8*e234*p1p4+8*e14*p2p3+8*e214*p2p3+8*e24*p2p3- $ 8*e13*p2p4-16*e212*p2p4-16*e213*p2p4- $ 16*e224*p2p4-16*e234*p2p4-8*e14*p3p4-8*e214*p3p4- $ 8*e24*p3p4) kmv(28)=(4*d11*mt+4*d12*mt+8*e22*mt**3+16*e223*mt**3+8*e23*mt**3- $ 8*e212*mt*p1p2-8*e213*mt*p1p2-8*e224*mt*p1p2- $ 8*e234*mt*p1p2+8*e22*mt*p1p4+16*e223*mt*p1p4+ $ 8*e23*mt*p1p4+8*e224*mt*p2p3+8*e234*mt*p2p3+ $ 8*e212*mt*p2p4+8*e213*mt*p2p4-8*e223*mt*p2p4+ $ 8*e224*mt*p2p4-8*e23*mt*p2p4+8*e234*mt*p2p4+ $ 8*e212*mt*p3p4+8*e213*mt*p3p4-8*e22*mt*p3p4- $ 16*e223*mt*p3p4-8*e23*mt*p3p4) kmv(29)=(4*d11*mt+4*d12*mt-8*e12*mt**3-8*e13*mt**3-8*e212*mt**3- $ 8*e213*mt**3-8*e224*mt**3-8*e234*mt**3+8*e11*mt*p1p2+ $ 8*e14*mt*p1p2+8*e21*mt*p1p2+16*e214*mt*p1p2+ $ 8*e24*mt*p1p2-8*e12*mt*p1p4-8*e13*mt*p1p4- $ 8*e212*mt*p1p4-8*e213*mt*p1p4-8*e224*mt*p1p4- $ 8*e234*mt*p1p4-8*e14*mt*p2p3-8*e214*mt*p2p3- $ 8*e24*mt*p2p3-8*e11*mt*p2p4+8*e13*mt*p2p4- $ 8*e14*mt*p2p4-8*e21*mt*p2p4+8*e213*mt*p2p4- $ 16*e214*mt*p2p4+8*e234*mt*p2p4-8*e24*mt*p2p4+ $ 8*e14*mt*p3p4-8*e21*mt*p3p4+8*e212*mt*p3p4+ $ 8*e213*mt*p3p4-8*e214*mt*p3p4+8*e224*mt*p3p4+ $ 8*e234*mt*p3p4) kmv(31)=(4*d0*mt+4*d11*mt+4*d12*mt+8*e11*mt**3+8*e14*mt**3+ $ 8*e212*mt**3+8*e213*mt**3+8*e224*mt**3+8*e234*mt**3- $ 8*e12*mt*p1p2-8*e13*mt*p1p2-8*e22*mt*p1p2- $ 16*e223*mt*p1p2-8*e23*mt*p1p2+8*e12*mt*p1p3+ $ 8*e13*mt*p1p3-8*e14*mt*p1p3+8*e22*mt*p1p3+ $ 16*e223*mt*p1p3-8*e224*mt*p1p3+8*e23*mt*p1p3- $ 8*e234*mt*p1p3+8*e13*mt*p1p4+8*e223*mt*p1p4+ $ 8*e23*mt*p1p4+8*e11*mt*p2p3+8*e14*mt*p2p3+ $ 8*e212*mt*p2p3+8*e213*mt*p2p3+8*e224*mt*p2p3+ $ 8*e234*mt*p2p3-8*e13*mt*p3p4-8*e212*mt*p3p4- $ 8*e213*mt*p3p4+8*e22*mt*p3p4+8*e223*mt*p3p4- $ 8*e224*mt*p3p4-8*e234*mt*p3p4) kmv(32)=(4*d0*mt+4*d11*mt+4*d12*mt-8*e21*mt**3-16*e214*mt**3- $ 8*e24*mt**3+8*e212*mt*p1p2+8*e213*mt*p1p2+ $ 8*e224*mt*p1p2+8*e234*mt*p1p2-8*e212*mt*p1p3- $ 8*e213*mt*p1p3+8*e214*mt*p1p3-8*e224*mt*p1p3- $ 8*e234*mt*p1p3+8*e24*mt*p1p3-8*e213*mt*p1p4- $ 8*e234*mt*p1p4-8*e21*mt*p2p3-16*e214*mt*p2p3- $ 8*e24*mt*p2p3+8*e21*mt*p3p4-8*e212*mt*p3p4+ $ 16*e214*mt*p3p4-8*e224*mt*p3p4+8*e24*mt*p3p4) kmv(37)=(-8*e13-8*e223-8*e224-8*e23-8*e234) kmv(38)=(8*e13+8*e14+16*e212+16*e213+8*e214+8*e223+16*e224+ $ 8*e23+16*e234+8*e24) kmv(40)=(-16*e212-8*e213-8*e224) kmv(41)=(-8*e14-8*e213-8*e214-8*e234-8*e24) kmv(46)=(-8*e212*mt-8*e213*mt+16*e223*mt-8*e224*mt+16*e23*mt- $ 8*e234*mt) kmv(47)=(8*e11*mt-16*e13*mt+8*e14*mt+8*e21*mt-16*e213*mt+ $ 16*e214*mt-16*e223*mt-16*e23*mt-16*e234*mt+8*e24*mt) kmv(49)=(-8*e22*mt-16*e223*mt-8*e23*mt) kmv(50)=(8*e12*mt+8*e13*mt+8*e212*mt+24*e213*mt+8*e224*mt+ $ 24*e234*mt) kmv(55)=(-8*e11*mt-8*e14*mt-8*e212*mt-8*e213*mt-24*e224*mt- $ 24*e234*mt) kmv(56)=(-8*e12*mt-8*e13*mt+16*e14*mt+16*e214*mt-8*e22*mt- $ 16*e223*mt+16*e224*mt-8*e23*mt+16*e234*mt+16*e24*mt) kmv(58)=(8*e21*mt+16*e214*mt+8*e24*mt) kmv(59)=(8*e212*mt+8*e213*mt-16*e214*mt+8*e224*mt+8*e234*mt- $ 16*e24*mt) kmv(64)=(-8*d0-16*e11*mt**2-16*e14*mt**2-32*e212*mt**2- $ 32*e213*mt**2-32*e224*mt**2-32*e234*mt**2-16*e212*p1p2- $ 16*e213*p1p2-16*e224*p1p2-16*e234*p1p2+ $ 16*e14*p1p3+16*e224*p1p3+16*e234*p1p3- $ 16*e13*p1p4-16*e223*p1p4-16*e23*p1p4+ $ 16*e224*p2p3+16*e234*p2p3-16*e223*p2p4- $ 16*e23*p2p4+16*e13*p3p4+16*e223*p3p4+16*e23*p3p4) kmv(65)=(-8*d0+16*e21*mt**2+32*e214*mt**2+16*e22*mt**2+ $ 32*e223*mt**2+16*e23*mt**2+16*e24*mt**2+16*e0*p1p2+ $ 32*e11*p1p2+32*e12*p1p2+32*e13*p1p2+32*e14*p1p2+ $ 16*e21*p1p2+16*e212*p1p2+16*e213*p1p2+ $ 32*e214*p1p2+16*e22*p1p2+32*e223*p1p2+ $ 16*e224*p1p2+16*e23*p1p2+16*e234*p1p2+ $ 16*e24*p1p2+16*e14*p1p3+16*e224*p1p3+ $ 16*e234*p1p3-16*e13*p1p4-16*e223*p1p4- $ 16*e23*p1p4-16*e14*p2p3-16*e214*p2p3-16*e24*p2p3+ $ 16*e13*p2p4+16*e213*p2p4+16*e234*p2p4- $ 16*e212*p3p4-16*e213*p3p4-16*e224*p3p4-16*e234*p3p4) kmv(67)=(-8*d0+16*e21*mt**2+32*e214*mt**2+16*e22*mt**2+ $ 32*e223*mt**2+16*e23*mt**2+16*e24*mt**2-16*e212*p1p2- $ 16*e213*p1p2-16*e224*p1p2-16*e234*p1p2- $ 16*e214*p1p3-16*e24*p1p3+16*e213*p1p4+ $ 16*e234*p1p4+16*e224*p2p3+16*e234*p2p3- $ 16*e223*p2p4-16*e23*p2p4+16*e212*p3p4-16*e234*p3p4) kmv(68)=(-8*d0-16*e12*mt**2-16*e13*mt**2-32*e212*mt**2- $ 32*e213*mt**2-32*e224*mt**2-32*e234*mt**2-16*e212*p1p2- $ 16*e213*p1p2-16*e224*p1p2-16*e234*p1p2- $ 16*e214*p1p3-16*e24*p1p3+16*e213*p1p4+ $ 16*e234*p1p4-16*e14*p2p3-16*e214*p2p3- $ 16*e24*p2p3+16*e13*p2p4+16*e213*p2p4+ $ 16*e234*p2p4+16*e14*p3p4+16*e214*p3p4+16*e24*p3p4) kmv(46)=kmv(46)+2*(8*e323*mt+8*e33*mt+16*e332*mt) kmv(47)=kmv(47)+2*(-8*e3123*mt-8*e3234*mt-8*e331*mt-8*e334*mt) kmv(49)=kmv(49)+2*(-8*e3123*mt-8*e3234*mt-8*e331*mt-8*e334*mt) kmv(50)=kmv(50)+2*(8*e313*mt+16*e3134*mt+8*e343*mt) kmv(55)=kmv(55)+2*(-16*e3234*mt-8*e324*mt-8*e334*mt) kmv(56)=kmv(56)+2*(8*e3124*mt+8*e3134*mt+8*e342*mt+8*e343*mt) kmv(58)=kmv(58)+2*(8*e3124*mt+8*e3134*mt+8*e342*mt+8*e343*mt) kmv(59)=kmv(59)+2*(-8*e314*mt-8*e34*mt-16*e341*mt) kmv(64)=kmv(64)+2* $ (-16*e3123*mt**2-8*e32*mt**2-8*e321*mt**2-24*e323*mt**2- $ 16*e3234*mt**2-8*e324*mt**2-8*e33*mt**2-8*e331*mt**2- $ 24*e332*mt**2-8*e334*mt**2) kmv(65)=kmv(65)+2* $ (8*e312*mt**2+16*e3123*mt**2+16*e3124*mt**2+8*e313*mt**2+ $ 16*e3134*mt**2+8*e321*mt**2+16*e3234*mt**2+8*e324*mt**2+ $ 8*e331*mt**2+8*e334*mt**2+8*e342*mt**2+8*e343*mt**2) kmv(67)=kmv(67)+2* $ (8*e312*mt**2+16*e3123*mt**2+16*e3124*mt**2+8*e313*mt**2+ $ 16*e3134*mt**2+8*e321*mt**2+16*e3234*mt**2+8*e324*mt**2+ $ 8*e331*mt**2+8*e334*mt**2+8*e342*mt**2+8*e343*mt**2) kmv(68)=kmv(68)+2* $ (-8*e31*mt**2-8*e312*mt**2-16*e3124*mt**2-8*e313*mt**2- $ 16*e3134*mt**2-24*e314*mt**2-8*e34*mt**2-24*e341*mt**2- $ 8*e342*mt**2-8*e343*mt**2) return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine pentp4_t(s,t1,t2,u1,u2,mt,mh,kmv) implicit none integer i,j real*8 mt,mh real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(68) complex*16 d1(0:3),d2(0:6),d3(0:3,0:3) complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4) complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223, $ e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341, $ e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234 zero=dcmplx(0d0,0d0) do i=1,68 kmv(i)=zero enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c P4 e1(0)=E0_ir(4,mt,mt**2,0d0,0d0,mh**2,mt**2,mt**2-2d0*p2p4, $ 2d0*p3p4,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4, $ mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,2d0*mt**2+2d0*p1p2, $ 0d0,mt,mt,mt,mt) c write(6,*)'E0=',e1(0) call eefunc_ir(4,mt,mt**2,mt**2,mt**2-2d0*p2p4, $ mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,-p1p2,mt**2-p2p4, $ mt**2-p2p3-p2p4,-p1p2+p1p4,-p1p2+p1p3+p1p4, $ mt**2-2d0*p2p4-p2p3+p3p4, $ 0d0,mt,mt,mt,mt,e1,e2,e3,d1,d2,d3) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) e0=e1(0) e11=e1(1) e12=e1(2) e13=e1(3) e14=e1(4) e21=e2(1,1) e22=e2(2,2) e23=e2(3,3) e24=e2(4,4) e212=e2(1,2) e213=e2(1,3) e214=e2(1,4) e223=e2(2,3) e224=e2(2,4) e234=e2(3,4) e31=e3(1,1) e32=e3(2,2) e33=e3(3,3) e34=e3(4,4) e312=e3(1,2) e313=e3(1,3) e314=e3(1,4) e321=e3(2,1) e331=e3(3,1) e341=e3(4,1) e323=e3(2,3) e324=e3(2,4) e332=e3(3,2) e342=e3(4,2) e334=e3(3,4) e343=e3(4,3) e3123=e3(0,1) e3124=e3(0,2) e3134=e3(0,3) e3234=e3(0,4) kmv(1)=(-8*d20+4*d0*mt**2-8*d21*mt**2-8*d21*p1p2- $ 8*d213*p1p3-8*d11*p1p4-8*d212*p1p4-8*d213*p1p4- $ 8*d0*p2p3-8*d11*p2p3-8*d213*p2p3+ $ 16*e21*mt**2*p2p3+32*e213*mt**2*p2p3+ $ 32*e214*mt**2*p2p3+16*e23*mt**2*p2p3+ $ 32*e234*mt**2*p2p3+16*e24*mt**2*p2p3- $ 16*e212*p1p2*p2p3-16*e223*p1p2*p2p3- $ 16*e224*p1p2*p2p3+16*e212*p1p4*p2p3+ $ 16*e223*p1p4*p2p3+16*e224*p1p4*p2p3- $ 16*e214*p2p3**2-16*e234*p2p3**2-16*e24*p2p3**2- $ 8*d11*p2p4-8*d212*p2p4-8*d213*p2p4- $ 16*e212*p1p3*p2p4-16*e223*p1p3*p2p4- $ 16*e224*p1p3*p2p4-16*e213*p2p3*p2p4- $ 16*e214*p2p3*p2p4-16*e23*p2p3*p2p4- $ 32*e234*p2p3*p2p4-16*e24*p2p3*p2p4-8*d12*p3p4- $ 16*d13*p3p4-8*d223*p3p4-8*d23*p3p4- $ 16*e213*mt**2*p3p4-16*e214*mt**2*p3p4- $ 16*e23*mt**2*p3p4-32*e234*mt**2*p3p4-16*e24*mt**2*p3p4+ $ 16*e223*p1p2*p3p4+16*e224*p1p2*p3p4- $ 16*e223*p1p4*p3p4-16*e224*p1p4*p3p4+ $ 16*e214*p2p3*p3p4+32*e234*p2p3*p3p4+ $ 32*e24*p2p3*p3p4+16*e23*p2p4*p3p4+ $ 32*e234*p2p4*p3p4+16*e24*p2p4*p3p4- $ 16*e234*p3p4**2-16*e24*p3p4**2) kmv(2)=(-4*d0+4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+ $ 8*e23*mt**2+16*e234*mt**2+8*e24*mt**2-8*e223*p1p2- $ 8*e224*p1p2+8*e224*p1p3+8*e223*p1p4+8*e224*p1p4- $ 8*e214*p2p3-16*e234*p2p3-16*e24*p2p3-8*e213*p2p4- $ 8*e214*p2p4-16*e23*p2p4-32*e234*p2p4-16*e24*p2p4+ $ 16*e234*p3p4+16*e24*p3p4) kmv(3)=(8*e212*mt*p1p3-8*e22*mt*p1p3+8*e223*mt*p1p3+ $ 8*e224*mt*p1p3-8*e21*mt*p2p3+8*e212*mt*p2p3- $ 16*e213*mt*p2p3-16*e214*mt*p2p3+8*e223*mt*p2p3+ $ 8*e224*mt*p2p3-8*e23*mt*p2p3-16*e234*mt*p2p3- $ 8*e24*mt*p2p3+8*e213*mt*p3p4+8*e214*mt*p3p4- $ 8*e223*mt*p3p4-8*e224*mt*p3p4+8*e23*mt*p3p4+ $ 16*e234*mt*p3p4+8*e24*mt*p3p4) kmv(4)=(4*d0*mt+8*d11*mt-8*e21*mt**3+8*e212*mt**3-16*e213*mt**3- $ 16*e214*mt**3+8*e223*mt**3+8*e224*mt**3-8*e23*mt**3- $ 16*e234*mt**3-8*e24*mt**3+8*e212*mt*p1p2-8*e22*mt*p1p2+ $ 8*e223*mt*p1p2+8*e224*mt*p1p2-8*e212*mt*p1p4+ $ 8*e22*mt*p1p4-8*e223*mt*p1p4-8*e224*mt*p1p4+ $ 8*e214*mt*p2p3-8*e224*mt*p2p3+8*e234*mt*p2p3+ $ 8*e24*mt*p2p3+8*e21*mt*p2p4-8*e212*mt*p2p4+ $ 24*e213*mt*p2p4+24*e214*mt*p2p4-16*e223*mt*p2p4- $ 16*e224*mt*p2p4+16*e23*mt*p2p4+32*e234*mt*p2p4+ $ 16*e24*mt*p2p4-8*e214*mt*p3p4+8*e224*mt*p3p4- $ 8*e234*mt*p3p4-8*e24*mt*p3p4) kmv(5)=(8*e11*mt**2*p1p2+8*e13*mt**2*p1p2+ $ 8*e14*mt**2*p1p2+8*e21*mt**2*p1p2+8*e212*mt**2*p1p2+ $ 16*e213*mt**2*p1p2+16*e214*mt**2*p1p2+ $ 8*e223*mt**2*p1p2+8*e224*mt**2*p1p2+8*e23*mt**2*p1p2+ $ 16*e234*mt**2*p1p2+8*e24*mt**2*p1p2-8*e12*p1p2**2- $ 8*e212*p1p2**2-8*e22*p1p2**2-8*e223*p1p2**2- $ 8*e224*p1p2**2-4*d0*p1p3-4*d11*p1p3-4*d13*p1p3- $ 8*e11*mt**2*p1p3-8*e13*mt**2*p1p3-8*e14*mt**2*p1p3- $ 8*e212*mt**2*p1p3-8*e214*mt**2*p1p3-8*e223*mt**2*p1p3- $ 8*e224*mt**2*p1p3-8*e234*mt**2*p1p3-8*e24*mt**2*p1p3+ $ 8*e12*p1p2*p1p3+8*e22*p1p2*p1p3+ $ 8*e224*p1p2*p1p3-4*d12*p1p4-4*d13*p1p4- $ 8*e213*mt**2*p1p4-8*e214*mt**2*p1p4-8*e23*mt**2*p1p4- $ 16*e234*mt**2*p1p4-8*e24*mt**2*p1p4+ $ 8*e12*p1p2*p1p4+8*e212*p1p2*p1p4+ $ 8*e22*p1p2*p1p4+16*e223*p1p2*p1p4+ $ 16*e224*p1p2*p1p4-8*e224*p1p3*p1p4- $ 8*e223*p1p4**2-8*e224*p1p4**2+4*d0*p2p3+ $ 4*d11*p2p3+4*d13*p2p3-8*e21*mt**2*p2p3- $ 16*e213*mt**2*p2p3-8*e214*mt**2*p2p3-8*e23*mt**2*p2p3- $ 8*e234*mt**2*p2p3-8*e14*p1p2*p2p3+ $ 8*e212*p1p2*p2p3-8*e214*p1p2*p2p3+ $ 8*e223*p1p2*p2p3-8*e224*p1p2*p2p3- $ 8*e234*p1p2*p2p3-8*e24*p1p2*p2p3+ $ 8*e14*p1p3*p2p3+8*e224*p1p3*p2p3+ $ 8*e24*p1p3*p2p3-16*e212*p1p4*p2p3- $ 16*e223*p1p4*p2p3-8*e224*p1p4*p2p3+ $ 8*e234*p1p4*p2p3+8*e24*p1p4*p2p3+ $ 8*e214*p2p3**2+8*e234*p2p3**2+4*d12*p2p4+ $ 4*d13*p2p4+8*e213*mt**2*p2p4+8*e214*mt**2*p2p4+ $ 8*e23*mt**2*p2p4+16*e234*mt**2*p2p4+8*e24*mt**2*p2p4- $ 8*e0*p1p2*p2p4-16*e11*p1p2*p2p4- $ 8*e12*p1p2*p2p4-24*e13*p1p2*p2p4- $ 24*e14*p1p2*p2p4-8*e21*p1p2*p2p4- $ 8*e212*p1p2*p2p4-24*e213*p1p2*p2p4- $ 24*e214*p1p2*p2p4-24*e223*p1p2*p2p4- $ 24*e224*p1p2*p2p4-16*e23*p1p2*p2p4- $ 32*e234*p1p2*p2p4-16*e24*p1p2*p2p4+ $ 8*e13*p1p3*p2p4+16*e14*p1p3*p2p4+ $ 16*e212*p1p3*p2p4+8*e214*p1p3*p2p4+ $ 24*e223*p1p3*p2p4+24*e224*p1p3*p2p4+ $ 16*e234*p1p3*p2p4+16*e24*p1p3*p2p4+ $ 8*e13*p1p4*p2p4+8*e14*p1p4*p2p4+ $ 8*e213*p1p4*p2p4+8*e214*p1p4*p2p4+ $ 8*e223*p1p4*p2p4+8*e224*p1p4*p2p4+ $ 16*e23*p1p4*p2p4+32*e234*p1p4*p2p4+ $ 16*e24*p1p4*p2p4-8*e14*p2p3*p2p4+ $ 8*e213*p2p3*p2p4+8*e23*p2p3*p2p4- $ 8*e234*p2p3*p2p4-16*e24*p2p3*p2p4- $ 8*e13*p2p4**2-8*e14*p2p4**2-8*e213*p2p4**2- $ 8*e214*p2p4**2-16*e23*p2p4**2-32*e234*p2p4**2- $ 16*e24*p2p4**2-4*d0*p3p4+4*d12*p3p4+4*d13*p3p4+ $ 8*e213*mt**2*p3p4+8*e214*mt**2*p3p4+8*e23*mt**2*p3p4+ $ 16*e234*mt**2*p3p4+8*e24*mt**2*p3p4+ $ 8*e14*p1p2*p3p4+8*e214*p1p2*p3p4- $ 8*e223*p1p2*p3p4+8*e234*p1p2*p3p4+ $ 8*e24*p1p2*p3p4-8*e14*p1p3*p3p4- $ 8*e24*p1p3*p3p4+16*e223*p1p4*p3p4+ $ 16*e224*p1p4*p3p4-8*e234*p1p4*p3p4- $ 8*e24*p1p4*p3p4-16*e214*p2p3*p3p4- $ 24*e234*p2p3*p3p4-16*e24*p2p3*p3p4+ $ 8*e13*p2p4*p3p4+8*e14*p2p4*p3p4- $ 8*e23*p2p4*p3p4-8*e234*p2p4*p3p4+ $ 16*e234*p3p4**2+16*e24*p3p4**2) kmv(6)=(4*d0-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2- $ 16*e234*mt**2-8*e24*mt**2+4*e0*p1p2+4*e11*p1p2+ $ 4*e12*p1p2+4*e13*p1p2+4*e14*p1p2+8*e223*p1p2+ $ 8*e224*p1p2-8*e224*p1p3-8*e223*p1p4-8*e224*p1p4+ $ 8*e214*p2p3+16*e234*p2p3+16*e24*p2p3+8*e213*p2p4+ $ 8*e214*p2p4+16*e23*p2p4+32*e234*p2p4+16*e24*p2p4- $ 16*e234*p3p4-16*e24*p3p4) kmv(7)=(4*d12*mt+4*d13*mt+8*e213*mt**3+8*e214*mt**3+8*e23*mt**3+ $ 16*e234*mt**3+8*e24*mt**3-8*e223*mt*p1p2-8*e224*mt*p1p2- $ 4*e11*mt*p1p3-4*e13*mt*p1p3-4*e14*mt*p1p3+ $ 8*e212*mt*p1p3-8*e22*mt*p1p3+8*e223*mt*p1p3+ $ 8*e224*mt*p1p3+8*e223*mt*p1p4+8*e224*mt*p1p4- $ 4*e12*mt*p2p3-8*e21*mt*p2p3+8*e212*mt*p2p3- $ 16*e213*mt*p2p3-16*e214*mt*p2p3+8*e223*mt*p2p3+ $ 8*e224*mt*p2p3-8*e23*mt*p2p3-24*e234*mt*p2p3- $ 16*e24*mt*p2p3-8*e13*mt*p2p4-8*e14*mt*p2p4- $ 8*e213*mt*p2p4-8*e214*mt*p2p4-16*e23*mt*p2p4- $ 32*e234*mt*p2p4-16*e24*mt*p2p4+4*e13*mt*p3p4+ $ 4*e14*mt*p3p4+8*e213*mt*p3p4+8*e214*mt*p3p4- $ 8*e223*mt*p3p4-8*e224*mt*p3p4+8*e23*mt*p3p4+ $ 24*e234*mt*p3p4+16*e24*mt*p3p4) kmv(8)=(6*d0*mt+8*d11*mt+4*d13*mt+4*e11*mt**3+4*e13*mt**3+ $ 4*e14*mt**3-8*e21*mt**3+8*e212*mt**3-16*e213*mt**3- $ 8*e214*mt**3+8*e223*mt**3+8*e224*mt**3-8*e23*mt**3- $ 8*e234*mt**3-4*e12*mt*p1p2+8*e212*mt*p1p2- $ 8*e22*mt*p1p2+8*e223*mt*p1p2+4*e11*mt*p1p4+ $ 4*e13*mt*p1p4+4*e14*mt*p1p4-8*e212*mt*p1p4+ $ 8*e22*mt*p1p4-8*e223*mt*p1p4-4*e14*mt*p2p3+ $ 8*e214*mt*p2p3-8*e224*mt*p2p3+8*e234*mt*p2p3+ $ 4*e12*mt*p2p4-4*e13*mt*p2p4-12*e14*mt*p2p4+ $ 8*e21*mt*p2p4-8*e212*mt*p2p4+24*e213*mt*p2p4+ $ 16*e214*mt*p2p4-16*e223*mt*p2p4-16*e224*mt*p2p4+ $ 16*e23*mt*p2p4+16*e234*mt*p2p4+4*e14*mt*p3p4- $ 8*e214*mt*p3p4+8*e224*mt*p3p4-8*e234*mt*p3p4) kmv(10)=(4*e12*mt-8*e14*mt+8*e21*mt-8*e212*mt+16*e213*mt+ $ 8*e214*mt-8*e223*mt-8*e224*mt+8*e23*mt+8*e234*mt) kmv(11)=(4*e11*mt+4*e13*mt+4*e14*mt-8*e212*mt+8*e22*mt-8*e223*mt) kmv(13)=(-4*e12*mt+8*e13*mt+8*e14*mt-8*e21*mt+8*e212*mt- $ 8*e213*mt-8*e214*mt+8*e223*mt+8*e224*mt) kmv(14)=(-4*e11*mt-4*e13*mt-4*e14*mt+8*e212*mt-8*e22*mt) kmv(16)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2- $ 16*e234*mt**2-8*e24*mt**2+8*e0*p1p2+16*e11*p1p2+ $ 8*e12*p1p2+16*e13*p1p2+16*e14*p1p2+8*e21*p1p2+ $ 8*e212*p1p2+16*e213*p1p2+16*e214*p1p2+ $ 16*e223*p1p2+16*e224*p1p2+8*e23*p1p2+ $ 16*e234*p1p2+8*e24*p1p2-8*e14*p1p3-16*e212*p1p3- $ 8*e214*p1p3-16*e223*p1p3-16*e224*p1p3- $ 8*e234*p1p3-8*e24*p1p3-8*e223*p1p4-8*e224*p1p4+ $ 8*e14*p2p3+8*e214*p2p3+16*e234*p2p3+16*e24*p2p3+ $ 8*e13*p2p4+8*e14*p2p4+8*e213*p2p4+8*e214*p2p4+ $ 16*e23*p2p4+32*e234*p2p4+16*e24*p2p4-8*e13*p3p4- $ 8*e14*p3p4-8*e213*p3p4-8*e214*p3p4-8*e23*p3p4- $ 24*e234*p3p4-16*e24*p3p4) kmv(17)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+ $ 16*e234*mt**2+8*e24*mt**2-8*e12*p1p2-8*e212*p1p2- $ 8*e22*p1p2-16*e223*p1p2-16*e224*p1p2+8*e224*p1p3+ $ 8*e223*p1p4+8*e224*p1p4+16*e212*p2p3+ $ 16*e223*p2p3+8*e224*p2p3-8*e234*p2p3-8*e24*p2p3- $ 8*e13*p2p4-8*e14*p2p4-8*e213*p2p4-8*e214*p2p4- $ 16*e23*p2p4-32*e234*p2p4-16*e24*p2p4-8*e223*p3p4- $ 8*e224*p3p4+8*e234*p3p4+8*e24*p3p4) kmv(19)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2- $ 16*e234*mt**2-8*e24*mt**2+8*e223*p1p2+8*e224*p1p2- $ 8*e13*p1p3-8*e14*p1p3-16*e212*p1p3-8*e213*p1p3- $ 8*e214*p1p3-16*e223*p1p3-16*e224*p1p3-8*e23*p1p3- $ 16*e234*p1p3-8*e24*p1p3-8*e223*p1p4-8*e224*p1p4+ $ 8*e13*p2p3+8*e14*p2p3+8*e213*p2p3+8*e214*p2p3+ $ 8*e23*p2p3+24*e234*p2p3+16*e24*p2p3+8*e13*p2p4+ $ 8*e14*p2p4+8*e213*p2p4+8*e214*p2p4+16*e23*p2p4+ $ 32*e234*p2p4+16*e24*p2p4-8*e13*p3p4-8*e14*p3p4- $ 8*e213*p3p4-8*e214*p3p4-8*e23*p3p4-24*e234*p3p4- $ 16*e24*p3p4) kmv(20)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+ $ 16*e234*mt**2+8*e24*mt**2-8*e223*p1p2-8*e224*p1p2+ $ 8*e223*p1p3+8*e224*p1p3+8*e223*p1p4+8*e224*p1p4+ $ 16*e212*p2p3+8*e223*p2p3+8*e224*p2p3-8*e234*p2p3- $ 8*e24*p2p3-8*e13*p2p4-8*e14*p2p4-8*e213*p2p4- $ 8*e214*p2p4-16*e23*p2p4-32*e234*p2p4-16*e24*p2p4- $ 8*e223*p3p4-8*e224*p3p4+8*e234*p3p4+8*e24*p3p4) kmv(22)=(-4*d0-4*d11-4*d13+8*e21*mt**2+16*e213*mt**2+ $ 8*e214*mt**2+8*e23*mt**2+8*e234*mt**2-8*e212*p1p2- $ 8*e223*p1p2+8*e14*p1p4+16*e212*p1p4+8*e214*p1p4+ $ 16*e223*p1p4+8*e224*p1p4+8*e234*p1p4+8*e24*p1p4- $ 8*e214*p2p3-8*e234*p2p3-8*e213*p2p4-8*e214*p2p4- $ 8*e23*p2p4-8*e234*p2p4+8*e214*p3p4+8*e234*p3p4) kmv(23)=(4*d0+4*d11+4*d13+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+ $ 8*e212*mt**2+8*e214*mt**2+8*e223*mt**2+8*e224*mt**2+ $ 8*e234*mt**2+8*e24*mt**2-8*e12*p1p2-8*e22*p1p2- $ 8*e224*p1p2-8*e14*p2p3-8*e224*p2p3-8*e24*p2p3- $ 8*e13*p2p4-16*e14*p2p4-16*e212*p2p4-8*e214*p2p4- $ 24*e223*p2p4-16*e224*p2p4-16*e234*p2p4- $ 16*e24*p2p4+8*e14*p3p4+8*e224*p3p4+8*e24*p3p4) kmv(25)=(-4*d0-4*d11-4*d13+8*e21*mt**2+16*e213*mt**2+ $ 8*e214*mt**2+8*e23*mt**2+8*e234*mt**2-8*e0*p1p2- $ 16*e11*p1p2-8*e12*p1p2-16*e13*p1p2-16*e14*p1p2- $ 8*e21*p1p2-16*e212*p1p2-16*e213*p1p2- $ 16*e214*p1p2-16*e223*p1p2-8*e224*p1p2-8*e23*p1p2- $ 16*e234*p1p2-8*e24*p1p2+8*e13*p1p4+8*e14*p1p4+ $ 16*e212*p1p4+8*e213*p1p4+8*e214*p1p4+ $ 16*e223*p1p4+8*e224*p1p4+8*e23*p1p4+16*e234*p1p4+ $ 8*e24*p1p4-8*e214*p2p3-8*e234*p2p3-8*e13*p2p4- $ 16*e213*p2p4-8*e214*p2p4-16*e23*p2p4- $ 16*e234*p2p4+8*e214*p3p4+8*e234*p3p4) kmv(26)=(4*d0+4*d11+4*d13+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+ $ 8*e212*mt**2+8*e214*mt**2+8*e223*mt**2+8*e224*mt**2+ $ 8*e234*mt**2+8*e24*mt**2+8*e212*p1p2+8*e223*p1p2- $ 8*e223*p1p4-8*e14*p2p3-8*e224*p2p3-8*e24*p2p3- $ 8*e13*p2p4-16*e14*p2p4-16*e212*p2p4-8*e214*p2p4- $ 16*e223*p2p4-16*e224*p2p4-16*e234*p2p4- $ 16*e24*p2p4+8*e14*p3p4+8*e224*p3p4+8*e24*p3p4) kmv(28)=(8*e11*mt**3+8*e13*mt**3+8*e14*mt**3+8*e21*mt**3+ $ 8*e212*mt**3+16*e213*mt**3+16*e214*mt**3+8*e223*mt**3+ $ 8*e224*mt**3+8*e23*mt**3+16*e234*mt**3+8*e24*mt**3- $ 8*e12*mt*p1p2-8*e212*mt*p1p2-8*e22*mt*p1p2- $ 8*e223*mt*p1p2-8*e224*mt*p1p2+8*e11*mt*p1p4+ $ 8*e13*mt*p1p4+8*e14*mt*p1p4+8*e21*mt*p1p4+ $ 16*e213*mt*p1p4+16*e214*mt*p1p4+8*e22*mt*p1p4+ $ 8*e23*mt*p1p4+16*e234*mt*p1p4+8*e24*mt*p1p4- $ 8*e14*mt*p2p3-8*e214*mt*p2p3-8*e224*mt*p2p3- $ 8*e234*mt*p2p3-8*e24*mt*p2p3-8*e13*mt*p2p4- $ 8*e14*mt*p2p4-8*e213*mt*p2p4-8*e214*mt*p2p4- $ 8*e223*mt*p2p4-8*e224*mt*p2p4-8*e23*mt*p2p4- $ 16*e234*mt*p2p4-8*e24*mt*p2p4+8*e14*mt*p3p4- $ 8*e21*mt*p3p4+8*e212*mt*p3p4-16*e213*mt*p3p4- $ 8*e214*mt*p3p4+8*e223*mt*p3p4+16*e224*mt*p3p4- $ 8*e23*mt*p3p4-8*e234*mt*p3p4) kmv(29)=(-4*d0*mt-8*d11*mt+8*e21*mt**3-8*e212*mt**3+ $ 16*e213*mt**3+16*e214*mt**3-8*e223*mt**3-8*e224*mt**3+ $ 8*e23*mt**3+16*e234*mt**3+8*e24*mt**3-8*e212*mt*p1p2+ $ 8*e22*mt*p1p2-8*e223*mt*p1p2-8*e224*mt*p1p2- $ 8*e214*mt*p2p3+8*e224*mt*p2p3-8*e234*mt*p2p3- $ 8*e24*mt*p2p3-8*e11*mt*p2p4-8*e13*mt*p2p4- $ 8*e14*mt*p2p4-8*e21*mt*p2p4-24*e213*mt*p2p4- $ 24*e214*mt*p2p4-8*e22*mt*p2p4+8*e223*mt*p2p4+ $ 8*e224*mt*p2p4-16*e23*mt*p2p4-32*e234*mt*p2p4- $ 16*e24*mt*p2p4+8*e212*mt*p3p4+8*e214*mt*p3p4- $ 8*e22*mt*p3p4+8*e223*mt*p3p4+8*e234*mt*p3p4+ $ 8*e24*mt*p3p4) kmv(31)=(-4*d11*mt-8*e212*mt**3-8*e223*mt**3-8*e224*mt**3+ $ 8*e22*mt*p1p2+8*e11*mt*p1p3+8*e13*mt*p1p3+ $ 8*e14*mt*p1p3+8*e21*mt*p1p3+16*e213*mt*p1p3+ $ 16*e214*mt*p1p3+8*e23*mt*p1p3+16*e234*mt*p1p3+ $ 8*e24*mt*p1p3-8*e22*mt*p1p4+8*e12*mt*p2p3+ $ 8*e212*mt*p2p3+8*e223*mt*p2p3+16*e224*mt*p2p3+ $ 8*e12*mt*p2p4+8*e212*mt*p2p4+16*e223*mt*p2p4+ $ 16*e224*mt*p2p4-8*e13*mt*p3p4-8*e14*mt*p3p4+ $ 8*e21*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4+ $ 8*e214*mt*p3p4-8*e223*mt*p3p4-16*e224*mt*p3p4) kmv(32)=(4*d0*mt+4*d11*mt-8*e21*mt**3-16*e213*mt**3- $ 16*e214*mt**3-8*e23*mt**3-16*e234*mt**3-8*e24*mt**3+ $ 8*e212*mt*p1p2+8*e223*mt*p1p2+8*e224*mt*p1p2- $ 8*e212*mt*p1p3-8*e223*mt*p1p3-8*e224*mt*p1p3- $ 8*e212*mt*p1p4-8*e223*mt*p1p4-8*e224*mt*p1p4+ $ 8*e214*mt*p2p3-8*e22*mt*p2p3+8*e234*mt*p2p3+ $ 8*e24*mt*p2p3+8*e11*mt*p2p4+8*e13*mt*p2p4+ $ 8*e14*mt*p2p4+8*e21*mt*p2p4+24*e213*mt*p2p4+ $ 24*e214*mt*p2p4+16*e23*mt*p2p4+32*e234*mt*p2p4+ $ 16*e24*mt*p2p4-8*e212*mt*p3p4-8*e214*mt*p3p4+ $ 8*e22*mt*p3p4-8*e234*mt*p3p4-8*e24*mt*p3p4) kmv(37)=(-8*e13-8*e213-8*e23-8*e234) kmv(38)=(8*e13+8*e14+16*e212+8*e213+8*e214+16*e223+8*e224+ $ 8*e23+16*e234+8*e24) kmv(40)=(-8*e14-16*e212-8*e214-8*e223-8*e224-8*e234-8*e24) kmv(41)=-8*e223 kmv(46)=(-8*e12*mt+16*e13*mt+16*e14*mt-8*e212*mt+32*e213*mt+ $ 32*e214*mt-8*e223*mt-8*e224*mt+32*e23*mt+ $ 64*e234*mt+32*e24*mt) kmv(47)=(8*e22*mt-16*e223*mt-16*e224*mt) kmv(49)=(-8*e11*mt-8*e13*mt-8*e14*mt-8*e21*mt-16*e213*mt- $ 16*e214*mt-16*e223*mt-16*e224*mt-8*e23*mt- $ 16*e234*mt-8*e24*mt) kmv(50)=(8*e212*mt+8*e223*mt+8*e224*mt) kmv(55)=(-8*e12*mt+16*e14*mt-8*e212*mt+32*e214*mt-8*e223*mt- $ 8*e224*mt+32*e234*mt+32*e24*mt) kmv(56)=(-8*e11*mt-8*e13*mt-8*e14*mt-8*e21*mt-16*e213*mt- $ 16*e214*mt-16*e224*mt-8*e23*mt-16*e234*mt-8*e24*mt) kmv(58)=(8*e22*mt-16*e224*mt) kmv(59)=(8*e212*mt+8*e223*mt+8*e224*mt) kmv(64)=(-8*d11+8*d21-16*e21*mt**2-32*e213*mt**2-32*e214*mt**2- $ 16*e23*mt**2-32*e234*mt**2-16*e24*mt**2-16*e0*p1p2- $ 48*e11*p1p2-16*e12*p1p2-48*e13*p1p2-48*e14*p1p2- $ 48*e21*p1p2-16*e212*p1p2-96*e213*p1p2- $ 96*e214*p1p2-16*e223*p1p2-16*e224*p1p2- $ 48*e23*p1p2-96*e234*p1p2-48*e24*p1p2+16*e14*p1p3+ $ 32*e214*p1p3+32*e234*p1p3+32*e24*p1p3+ $ 16*e13*p1p4+16*e14*p1p4+32*e213*p1p4+ $ 32*e214*p1p4+32*e23*p1p4+64*e234*p1p4+ $ 32*e24*p1p4-16*e14*p2p3-16*e214*p2p3- $ 16*e234*p2p3-16*e24*p2p3-16*e13*p2p4-16*e14*p2p4- $ 16*e213*p2p4-16*e214*p2p4-16*e23*p2p4- $ 32*e234*p2p4-16*e24*p2p4+16*e13*p3p4+16*e14*p3p4+ $ 16*e213*p3p4+16*e214*p3p4+16*e23*p3p4+ $ 32*e234*p3p4+16*e24*p3p4) kmv(65)=(-8*d11+8*d21+16*e12*p1p2+32*e212*p1p2+ $ 16*e22*p1p2+32*e223*p1p2+32*e224*p1p2- $ 16*e224*p1p3-16*e223*p1p4-16*e224*p1p4+ $ 16*e224*p2p3+16*e223*p2p4+16*e224*p2p4- $ 16*e212*p3p4-16*e223*p3p4-16*e224*p3p4) kmv(67)=(-8*d11+8*d21+16*e11*mt**2+16*e13*mt**2+16*e14*mt**2+ $ 16*e21*mt**2+16*e212*mt**2+32*e213*mt**2+32*e214*mt**2+ $ 16*e223*mt**2+16*e224*mt**2+16*e23*mt**2+32*e234*mt**2+ $ 16*e24*mt**2+16*e212*p1p2+16*e223*p1p2+16*e224*p1p2- $ 16*e224*p1p3-16*e223*p1p4-16*e224*p1p4- $ 16*e14*p2p3-16*e214*p2p3-16*e234*p2p3- $ 16*e24*p2p3-16*e13*p2p4-16*e14*p2p4-16*e213*p2p4- $ 16*e214*p2p4-16*e23*p2p4-32*e234*p2p4- $ 16*e24*p2p4+16*e14*p3p4+16*e212*p3p4+ $ 16*e214*p3p4+16*e234*p3p4+16*e24*p3p4) kmv(68)=(-8*d11+8*d21-16*e212*mt**2-16*e223*mt**2-16*e224*mt**2+ $ 16*e224*p2p3+16*e223*p2p4+16*e224*p2p4-16*e224*p3p4) kmv(46)=kmv(46)+ $ (16*e313*mt+64*e3134*mt+16*e314*mt+16*e33*mt+32*e331*mt+ $ 48*e334*mt+16*e34*mt+32*e341*mt+48*e343*mt) kmv(47)=kmv(47)+ $ (-16*e3123*mt-16*e3124*mt-32*e3234*mt-16*e332*mt- $ 16*e342*mt) kmv(49)=kmv(49)+ $ (-16*e3123*mt-16*e3124*mt-32*e3234*mt-16*e332*mt- $ 16*e342*mt) kmv(50)=kmv(50)+(16*e323*mt+16*e324*mt) kmv(55)=kmv(55)+ $ (32*e3134*mt+16*e314*mt+16*e334*mt+16*e34*mt+32*e341*mt+ $ 32*e343*mt) kmv(56)=kmv(56)+(-16*e3124*mt-16*e3234*mt-16*e342*mt) kmv(58)=kmv(58)+(-16*e3124*mt-16*e3234*mt-16*e342*mt) kmv(59)=kmv(59)+16*e324*mt kmv(64)=kmv(64)+ $ (-16*e31*mt**2-48*e313*mt**2-96*e3134*mt**2-48*e314*mt**2- $ 16*e33*mt**2-48*e331*mt**2-48*e334*mt**2-16*e34*mt**2- $ 48*e341*mt**2-48*e343*mt**2-16*e31*p1p2-48*e313*p1p2- $ 96*e3134*p1p2-48*e314*p1p2-16*e33*p1p2- $ 48*e331*p1p2-48*e334*p1p2-16*e34*p1p2- $ 48*e341*p1p2-48*e343*p1p2+32*e3134*p1p3+ $ 16*e314*p1p3+16*e334*p1p3+16*e34*p1p3+ $ 32*e341*p1p3+32*e343*p1p3+16*e313*p1p4+ $ 64*e3134*p1p4+16*e314*p1p4+16*e33*p1p4+ $ 32*e331*p1p4+48*e334*p1p4+16*e34*p1p4+ $ 32*e341*p1p4+48*e343*p1p4) kmv(65)=kmv(65)+ $ (16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+ $ 32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+ $ 32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+ $ 16*e332*p1p2+16*e342*p1p2-16*e3124*p1p3- $ 16*e3234*p1p3-16*e342*p1p3-16*e3123*p1p4- $ 16*e3124*p1p4-32*e3234*p1p4-16*e332*p1p4- $ 16*e342*p1p4) kmv(67)=kmv(67)+ $ (16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+ $ 32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+ $ 32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+ $ 16*e332*p1p2+16*e342*p1p2-16*e3124*p1p3- $ 16*e3234*p1p3-16*e342*p1p3-16*e3123*p1p4- $ 16*e3124*p1p4-32*e3234*p1p4-16*e332*p1p4- $ 16*e342*p1p4) kmv(68)=kmv(68)+ $ (-16*e321*mt**2-16*e323*mt**2-16*e324*mt**2- $ 16*e321*p1p2-16*e323*p1p2-16*e324*p1p2+ $ 16*e324*p1p3+16*e323*p1p4+16*e324*p1p4) return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine pentp1_t(s,t1,t2,u1,u2,mt,mh,kmv) implicit none integer i,j real*8 mt,mh,ncf,cg real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(68) complex*16 d1(0:3),d2(0:6),d3(0:3,0:3) complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4) complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223, $ e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341, $ e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234 zero=dcmplx(0d0,0d0) do i=1,68 kmv(i)=zero enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c color factors: ncf=3d0 cg=ncf c P1 e1(0)=E0_ir(1,mt,0d0,mt**2,mh**2,mt**2,0d0,mt**2-2d0*p2p4, $ mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4, $ mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,mt**2-2d0*p1p3, $ 2d0*p3p4,0d0,0d0,mt,mt,0d0) call eefunc_ir(1,mt,0d0,0d0,mt**2-2d0*p2p4, $ mt**2-2d0*p1p3,-p3p4,-p2p4,p1p4-p3p4,p2p3-p3p4,-p1p3, $ p1p4-p3p4-p1p2+p2p3, $ 0d0,0d0,0d0,mt,mt,e1,e2,e3,d1,d2,d3) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) e0=e1(0) e11=e1(1) e12=e1(2) e13=e1(3) e14=e1(4) e21=e2(1,1) e22=e2(2,2) e23=e2(3,3) e24=e2(4,4) e212=e2(1,2) e213=e2(1,3) e214=e2(1,4) e223=e2(2,3) e224=e2(2,4) e234=e2(3,4) e31=e3(1,1) e32=e3(2,2) e33=e3(3,3) e34=e3(4,4) e312=e3(1,2) e313=e3(1,3) e314=e3(1,4) e321=e3(2,1) e331=e3(3,1) e341=e3(4,1) e323=e3(2,3) e324=e3(2,4) e332=e3(3,2) e342=e3(4,2) e334=e3(3,4) e343=e3(4,3) e3123=e3(0,1) e3124=e3(0,2) e3134=e3(0,3) e3234=e3(0,4) c if(mt.gt.0d0) goto 99 kmv(1)=(12*d20+2*d12*mt**2+2*d13*mt**2+d22*mt**2+d23*mt**2+ $ 4*e234*mt**4-2*d12*p1p2-2*d13*p1p2-2*d223*p1p2- $ 4*e23*mt**2*p1p2-4*e24*mt**2*p1p2+4*e234*p1p2**2+ $ 2*d0*p1p3-2*d11*p1p3-2*d213*p1p3-2*d23*p1p3+ $ 4*e13*mt**2*p1p3-4*e223*mt**2*p1p3-4*e14*p1p2*p1p3+ $ 4*e224*p1p2*p1p3-2*d0*p1p4-2*d11*p1p4- $ 2*d13*p1p4-2*d213*p1p4-2*d23*p1p4+ $ 4*e213*mt**2*p1p4+4*e23*mt**2*p1p4+4*e24*mt**2*p1p4- $ 4*e214*p1p2*p1p4-8*e234*p1p2*p1p4+ $ 4*e14*p1p3*p1p4-4*e224*p1p3*p1p4+ $ 4*e214*p1p4**2+4*e234*p1p4**2+2*d11*p2p3+ $ 2*d12*p2p3+2*d13*p2p3+2*d212*p2p3+2*d223*p2p3+ $ 4*e224*mt**2*p2p3+4*e23*mt**2*p2p3+4*e24*mt**2*p2p3- $ 4*e223*p1p2*p2p3-8*e234*p1p2*p2p3+ $ 4*e12*p1p3*p2p3+4*e14*p1p3*p2p3- $ 4*e22*p1p3*p2p3-4*e224*p1p3*p2p3+ $ 4*e212*p1p4*p2p3+4*e214*p1p4*p2p3+ $ 4*e223*p1p4*p2p3+8*e234*p1p4*p2p3+ $ 4*e223*p2p3**2+4*e234*p2p3**2+4*d0*p2p4+ $ 2*d11*p2p4+4*d12*p2p4+2*d13*p2p4+2*d212*p2p4+ $ 2*d223*p2p4+4*e14*mt**2*p2p4-4*e214*mt**2*p2p4- $ 4*e13*p1p2*p2p4+4*e213*p1p2*p2p4+ $ 4*e0*p1p3*p2p4-4*e11*p1p3*p2p4- $ 4*e12*p1p3*p2p4+4*e212*p1p3*p2p4- $ 16*e234*p1p3*p2p4+4*e11*p1p4*p2p4+ $ 4*e13*p1p4*p2p4-4*e21*p1p4*p2p4- $ 4*e213*p1p4*p2p4+4*e13*p2p3*p2p4- $ 4*e213*p2p3*p2p4+2*d0*p3p4+2*d11*p3p4+ $ 2*d13*p3p4+2*d21*p3p4+4*d213*p3p4+2*d23*p3p4- $ 4*e213*mt**2*p3p4-4*e224*mt**2*p3p4-4*e23*mt**2*p3p4- $ 4*e24*mt**2*p3p4+4*e214*p1p2*p3p4+ $ 4*e223*p1p2*p3p4+8*e234*p1p2*p3p4- $ 4*e12*p1p3*p3p4-4*e14*p1p3*p3p4+ $ 4*e22*p1p3*p3p4+4*e224*p1p3*p3p4- $ 4*e212*p1p4*p3p4-8*e214*p1p4*p3p4- $ 4*e223*p1p4*p3p4-8*e234*p1p4*p3p4- $ 4*e212*p2p3*p3p4-4*e214*p2p3*p3p4- $ 8*e223*p2p3*p3p4-8*e234*p2p3*p3p4- $ 4*e11*p2p4*p3p4-4*e13*p2p4*p3p4+ $ 4*e21*p2p4*p3p4+4*e213*p2p4*p3p4+ $ 4*e212*p3p4**2+4*e214*p3p4**2+4*e223*p3p4**2+ $ 4*e234*p3p4**2) kmv(2)=(-6*d0+4*e213*mt**2+4*e224*mt**2+4*e23*mt**2+4*e24*mt**2- $ 4*e214*p1p2-4*e223*p1p2-8*e234*p1p2+4*e12*p1p3+ $ 4*e14*p1p3-4*e22*p1p3-12*e224*p1p3-8*e24*p1p3+ $ 4*e212*p1p4+8*e214*p1p4+4*e223*p1p4+8*e234*p1p4+ $ 4*e212*p2p3+4*e214*p2p3+8*e223*p2p3+8*e234*p2p3+ $ 4*e11*p2p4+4*e13*p2p4-4*e21*p2p4-12*e213*p2p4- $ 8*e23*p2p4-8*e212*p3p4-8*e214*p3p4-8*e223*p3p4- $ 8*e234*p3p4) kmv(3)=(-2*d12*mt+2*d13*mt-4*e234*mt**3+4*e24*mt**3+ $ 4*e23*mt*p1p2-4*e234*mt*p1p2-4*e13*mt*p1p3+ $ 4*e14*mt*p1p3+4*e223*mt*p1p3-4*e224*mt*p1p3+ $ 8*e234*mt*p1p3-8*e24*mt*p1p3-4*e213*mt*p1p4+ $ 4*e214*mt*p1p4-4*e23*mt*p1p4+4*e234*mt*p1p4- $ 4*e23*mt*p2p3+4*e234*mt*p2p3+4*e213*mt*p3p4- $ 4*e214*mt*p3p4+4*e23*mt*p3p4-4*e234*mt*p3p4) kmv(4)=(-2*d12*mt+2*d13*mt-4*e23*mt**3+4*e234*mt**3+ $ 4*e234*mt*p1p2-4*e24*mt*p1p2-4*e234*mt*p1p4+ $ 4*e24*mt*p1p4-4*e223*mt*p2p3+4*e224*mt*p2p3- $ 4*e234*mt*p2p3+4*e24*mt*p2p3-4*e13*mt*p2p4+ $ 4*e14*mt*p2p4+4*e213*mt*p2p4-4*e214*mt*p2p4+ $ 8*e23*mt*p2p4-8*e234*mt*p2p4+4*e223*mt*p3p4- $ 4*e224*mt*p3p4+4*e234*mt*p3p4-4*e24*mt*p3p4) kmv(5)=(6*d20+d22*mt**2+d23*mt**2-2*d223*p1p2-4*d13*p1p3- $ 2*d213*p1p3-2*d23*p1p3+4*e24*p1p3**2-2*d213*p1p4- $ 2*d23*p1p4-4*e24*p1p3*p1p4+2*d12*p2p3+ $ 2*d212*p2p3+2*d223*p2p3-4*e234*p1p3*p2p3- $ 2*d12*p2p4+2*d212*p2p4+2*d223*p2p4+ $ 8*e234*p1p3*p2p4-4*e234*p1p4*p2p4- $ 4*e23*p2p3*p2p4+4*e23*p2p4**2-2*d0*p3p4+ $ 2*d11*p3p4+2*d13*p3p4+2*d21*p3p4+4*d213*p3p4+ $ 2*d23*p3p4+8*e14*p1p3*p3p4+4*e214*p1p3*p3p4+ $ 4*e224*p1p3*p3p4+4*e234*p1p3*p3p4+ $ 4*e24*p1p3*p3p4+8*e13*p2p4*p3p4+ $ 4*e213*p2p4*p3p4+4*e223*p2p4*p3p4+ $ 4*e23*p2p4*p3p4+4*e234*p2p4*p3p4) kmv(6)=(2*e14*p1p3+2*e214*p1p3+2*e224*p1p3+ $ 2*e234*p1p3+2*e24*p1p3-2*e14*p1p4-2*e214*p1p4- $ 2*e224*p1p4-2*e234*p1p4-2*e24*p1p4-2*e13*p2p3- $ 2*e213*p2p3-2*e223*p2p3-2*e23*p2p3-2*e234*p2p3+ $ 2*e13*p2p4+2*e213*p2p4+2*e223*p2p4+2*e23*p2p4+ $ 2*e234*p2p4+4*e0*p3p4+6*e11*p3p4+6*e12*p3p4+ $ 6*e13*p3p4+6*e14*p3p4+2*e21*p3p4+4*e212*p3p4+ $ 4*e213*p3p4+4*e214*p3p4+2*e22*p3p4+4*e223*p3p4+ $ 4*e224*p3p4+2*e23*p3p4+4*e234*p3p4+2*e24*p3p4) kmv(7)=(-(d12*mt)+d13*mt+2*e234*mt*p1p3-2*e24*mt*p1p3- $ 2*e234*mt*p1p4+2*e24*mt*p1p4-2*e23*mt*p2p3+ $ 2*e234*mt*p2p3+2*e23*mt*p2p4-2*e234*mt*p2p4+ $ 4*e13*mt*p3p4-4*e14*mt*p3p4+2*e213*mt*p3p4- $ 2*e214*mt*p3p4+2*e223*mt*p3p4-2*e224*mt*p3p4+ $ 2*e23*mt*p3p4-2*e24*mt*p3p4) kmv(8)=(-(d12*mt)+d13*mt+2*e234*mt*p1p3-2*e24*mt*p1p3- $ 2*e234*mt*p1p4+2*e24*mt*p1p4-2*e23*mt*p2p3+ $ 2*e234*mt*p2p3+2*e23*mt*p2p4-2*e234*mt*p2p4+ $ 4*e13*mt*p3p4-4*e14*mt*p3p4+2*e213*mt*p3p4- $ 2*e214*mt*p3p4+2*e223*mt*p3p4-2*e224*mt*p3p4+ $ 2*e23*mt*p3p4-2*e24*mt*p3p4) kmv(10)=(8*e23*mt-8*e234*mt) kmv(11)=(-8*e234*mt+8*e24*mt) kmv(13)=(-8*e23*mt+8*e234*mt) kmv(14)=(8*e234*mt-8*e24*mt) kmv(16)=(10*d12+d212+d223+2*e234*mt**2-2*e23*p1p2- $ 2*e13*p1p3-2*e213*p1p3-2*e223*p1p3-2*e23*p1p3- $ 20*e234*p1p3+8*e13*p1p4+10*e213*p1p4+10*e23*p1p4+ $ 8*e234*p1p4+2*e23*p2p3-4*e213*p2p4-12*e23*p2p4- $ 8*e13*p3p4-10*e213*p3p4-8*e223*p3p4-10*e23*p3p4- $ 8*e234*p3p4) kmv(17)=(-2*d11-10*d13-d213-d23-2*e24*mt**2+2*e234*p1p2- $ 2*e14*p1p3-2*e214*p1p3+2*e224*p1p3-2*e234*p1p3+ $ 16*e24*p1p3-4*e14*p1p4-6*e214*p1p4-6*e234*p1p4- $ 4*e24*p1p4+4*e13*p2p3+4*e213*p2p3+4*e23*p2p3+ $ 2*e234*p2p3-4*e13*p2p4-4*e213*p2p4+4*e214*p2p4- $ 4*e23*p2p4+8*e234*p2p4-8*e0*p3p4-12*e11*p3p4- $ 4*e12*p3p4-12*e13*p3p4-4*e14*p3p4-4*e21*p3p4- $ 4*e212*p3p4-8*e213*p3p4+2*e214*p3p4-4*e223*p3p4+ $ 4*e224*p3p4-4*e23*p3p4+2*e234*p3p4+4*e24*p3p4) kmv(19)=(2*d0+2*d11+d12+2*d13+d212+d223-4*e234*mt**2+ $ 4*e23*p1p2-4*e13*p1p3-4*e213*p1p3+4*e214*p1p3+ $ 4*e223*p1p3-4*e23*p1p3-4*e213*p1p4-4*e214*p1p4- $ 4*e23*p1p4+4*e213*p2p3-4*e23*p2p3+2*e213*p2p4- $ 2*e23*p2p4+8*e11*p3p4+4*e21*p3p4+4*e212*p3p4+ $ 8*e213*p3p4+4*e214*p3p4+4*e23*p3p4) kmv(20)=(d13-d213-d23+4*e24*mt**2-4*e234*p1p2+ $ 4*e14*p1p3+4*e214*p1p3-4*e224*p1p3+4*e234*p1p3+ $ 4*e214*p1p4+4*e234*p1p4-8*e214*p2p3+4*e234*p2p3+ $ 2*e214*p2p4+2*e234*p2p4-4*e214*p3p4-4*e234*p3p4) kmv(22)=(2*d12+d212+d223+4*e23*mt**2-4*e234*p1p2+ $ 2*e223*p1p3+2*e234*p1p3-8*e223*p1p4+4*e234*p1p4+ $ 4*e223*p2p3+4*e234*p2p3+4*e13*p2p4-4*e213*p2p4+ $ 4*e223*p2p4+4*e234*p2p4-4*e223*p3p4-4*e234*p3p4) kmv(23)=(-2*d11-2*d13-d213-d23-4*e234*mt**2+4*e24*p1p2+ $ 2*e224*p1p3-2*e24*p1p3+4*e224*p1p4-4*e24*p1p4- $ 4*e223*p2p3-4*e224*p2p3-4*e24*p2p3-4*e14*p2p4+ $ 4*e214*p2p4+4*e223*p2p4-4*e224*p2p4-4*e24*p2p4+ $ 8*e12*p3p4+4*e212*p3p4+4*e22*p3p4+4*e223*p3p4+ $ 8*e224*p3p4+4*e24*p3p4) kmv(25)=(2*d0+2*d11-7*d12+2*d13+d212+d223-2*e23*mt**2+ $ 2*e234*p1p2-4*e14*p1p3+4*e223*p1p3-4*e224*p1p3+ $ 8*e234*p1p3-4*e24*p1p3+4*e14*p1p4+4*e224*p1p4+ $ 2*e234*p1p4+4*e24*p1p4-4*e13*p2p3-6*e223*p2p3- $ 4*e23*p2p3-6*e234*p2p3-2*e13*p2p4+2*e213*p2p4- $ 2*e223*p2p4+16*e23*p2p4-2*e234*p2p4-8*e0*p3p4- $ 4*e11*p3p4-12*e12*p3p4-4*e13*p3p4-12*e14*p3p4- $ 4*e212*p3p4+4*e213*p3p4-4*e214*p3p4-4*e22*p3p4+ $ 2*e223*p3p4-8*e224*p3p4+4*e23*p3p4+2*e234*p3p4- $ 4*e24*p3p4) kmv(26)=(9*d13-d213-d23+2*e234*mt**2-2*e24*p1p2- $ 4*e224*p1p3-12*e24*p1p3+2*e24*p1p4+8*e14*p2p3+ $ 10*e224*p2p3+8*e234*p2p3+10*e24*p2p3-2*e14*p2p4- $ 2*e214*p2p4-2*e224*p2p4-20*e234*p2p4-2*e24*p2p4- $ 8*e14*p3p4-8*e214*p3p4-10*e224*p3p4-8*e234*p3p4- $ 10*e24*p3p4) kmv(28)=(-(d22*mt)+d223*mt-2*e23*mt*p1p3+2*e234*mt*p1p3+ $ 8*e23*mt*p1p4-8*e234*mt*p1p4-4*e23*mt*p2p4+ $ 4*e234*mt*p2p4-8*e23*mt*p3p4+8*e234*mt*p3p4) kmv(29)=(2*d12*mt-2*d13*mt+d223*mt-d23*mt-2*e234*mt*p1p3+ $ 2*e24*mt*p1p3-4*e234*mt*p1p4+4*e24*mt*p1p4+ $ 4*e23*mt*p2p3-4*e234*mt*p2p3-4*e23*mt*p2p4+ $ 8*e234*mt*p2p4-4*e24*mt*p2p4-8*e13*mt*p3p4+ $ 8*e14*mt*p3p4-4*e213*mt*p3p4+4*e214*mt*p3p4- $ 4*e223*mt*p3p4+4*e224*mt*p3p4-4*e23*mt*p3p4+ $ 8*e234*mt*p3p4-4*e24*mt*p3p4) kmv(31)=(2*d12*mt-2*d13*mt+d22*mt-d223*mt+4*e23*mt*p1p3- $ 8*e234*mt*p1p3+4*e24*mt*p1p3+4*e234*mt*p1p4- $ 4*e24*mt*p1p4-4*e23*mt*p2p3+4*e234*mt*p2p3- $ 2*e23*mt*p2p4+2*e234*mt*p2p4-8*e13*mt*p3p4+ $ 8*e14*mt*p3p4-4*e213*mt*p3p4+4*e214*mt*p3p4- $ 4*e223*mt*p3p4+4*e224*mt*p3p4+4*e23*mt*p3p4- $ 8*e234*mt*p3p4+4*e24*mt*p3p4) kmv(32)=(-(d223*mt)+d23*mt-4*e234*mt*p1p3+4*e24*mt*p1p3+ $ 8*e234*mt*p2p3-8*e24*mt*p2p3-2*e234*mt*p2p4+ $ 2*e24*mt*p2p4-8*e234*mt*p3p4+8*e24*mt*p3p4) kmv(37)=(-8*e13-8*e213-8*e223-8*e23-8*e234) kmv(38)=(8*e13+8*e14+8*e213+8*e224+8*e23+16*e234+8*e24) kmv(40)=(8*e214+8*e223) kmv(41)=(-8*e14-8*e214-8*e224-8*e234-8*e24) kmv(46)=(16*e23*mt-8*e234*mt) kmv(47)=(-16*e234*mt+8*e24*mt) kmv(49)=-8*e23*mt kmv(50)=8*e234*mt kmv(55)=-8*e234*mt kmv(56)=(-8*e23*mt+16*e234*mt) kmv(58)=8*e24*mt kmv(59)=(8*e234*mt-16*e24*mt) kmv(64)=(-6*d12+10*d22-12*e234*mt**2-4*e23*p1p2- $ 4*e13*p1p3+12*e223*p1p3-4*e23*p1p3+8*e234*p1p3- $ 16*e13*p1p4-12*e213*p1p4-12*e23*p1p4- $ 16*e234*p1p4+4*e23*p2p3+16*e13*p3p4+12*e213*p3p4+ $ 16*e223*p3p4+12*e23*p3p4+16*e234*p3p4) kmv(65)=(-4*d0-2*d12-2*d13-12*d223+4*e23*mt**2+4*e24*mt**2+ $ 8*e234*p1p2+4*e14*p1p3-4*e224*p1p3+4*e234*p1p3+ $ 8*e14*p1p4+4*e214*p1p4+8*e24*p1p4+8*e13*p2p3+ $ 4*e223*p2p3+8*e23*p2p3+4*e13*p2p4-4*e213*p2p4+ $ 4*e234*p2p4+16*e0*p3p4+8*e11*p3p4+8*e12*p3p4+ $ 8*e13*p3p4+8*e14*p3p4-8*e213*p3p4+4*e214*p3p4+ $ 4*e223*p3p4-8*e224*p3p4-8*e23*p3p4-8*e234*p3p4- $ 8*e24*p3p4) kmv(67)=(4*d12+4*d13-8*d223+8*e23*mt**2+8*e24*mt**2+ $ 8*e14*p1p3-8*e224*p1p3+8*e234*p1p3+8*e214*p1p4+ $ 8*e223*p2p3+8*e13*p2p4-8*e213*p2p4+8*e234*p2p4- $ 8*e214*p3p4-8*e223*p3p4) kmv(68)=(-6*d13+10*d23-12*e234*mt**2-4*e24*p1p2+ $ 4*e24*p1p4-16*e14*p2p3-12*e224*p2p3-16*e234*p2p3- $ 12*e24*p2p3-4*e14*p2p4+12*e214*p2p4+8*e234*p2p4- $ 4*e24*p2p4+16*e14*p3p4+16*e214*p3p4+12*e224*p3p4+ $ 16*e234*p3p4+12*e24*p3p4) 99 continue c if(mt.gt.0d0) goto 999 kmv(16)=kmv(16)+ $ (2*e3134*mt**2-4*e33*mt**2-4*e331*mt**2+2*e334*mt**2+ $ 4*e3134*p1p2-2*e33*p1p2-2*e331*p1p2+4*e334*p1p2- $ 2*e3123*p1p3-4*e3134*p1p3-2*e332*p1p3- $ 4*e334*p1p3+2*e313*p1p4-4*e3134*p1p4+2*e33*p1p4+ $ 4*e331*p1p4-4*e334*p1p4-4*e3123*p2p3- $ 4*e3134*p2p3+2*e33*p2p3+2*e331*p2p3-4*e332*p2p3- $ 4*e334*p2p3+4*e313*p2p4+8*e33*p2p4+12*e331*p2p4+ $ 4*e3123*p3p4-2*e313*p3p4+4*e3134*p3p4-2*e33*p3p4- $ 4*e331*p3p4+4*e332*p3p4+4*e334*p3p4) kmv(17)=kmv(17)+ $ (4*e3134*mt**2+4*e334*mt**2-2*e341*mt**2-2*e343*mt**2+ $ 2*e3134*p1p2+2*e334*p1p2-4*e341*p1p2-4*e343*p1p2+ $ 2*e3124*p1p3+2*e3234*p1p3+4*e341*p1p3+ $ 4*e343*p1p3-4*e3134*p1p4-2*e314*p1p4-2*e334*p1p4+ $ 4*e341*p1p4+4*e343*p1p4+4*e3124*p2p3- $ 2*e3134*p2p3+4*e3234*p2p3-2*e334*p2p3+ $ 4*e341*p2p3+4*e343*p2p3-12*e3134*p2p4- $ 4*e314*p2p4-8*e334*p2p4-4*e3124*p3p4+ $ 4*e3134*p3p4+2*e314*p3p4-4*e3234*p3p4+ $ 2*e334*p3p4-4*e341*p3p4-4*e343*p3p4) kmv(19)=kmv(19)+ $ (-4*e3134*mt**2+2*e33*mt**2+2*e331*mt**2-4*e334*mt**2- $ 2*e3134*p1p2+4*e33*p1p2+4*e331*p1p2-2*e334*p1p2+ $ 4*e3123*p1p3+8*e3134*p1p3+4*e332*p1p3+ $ 8*e334*p1p3-4*e313*p1p4+2*e3134*p1p4-4*e33*p1p4- $ 8*e331*p1p4+2*e334*p1p4+2*e3123*p2p3+ $ 2*e3134*p2p3-4*e33*p2p3-4*e331*p2p3+2*e332*p2p3+ $ 2*e334*p2p3-2*e313*p2p4-4*e33*p2p4-6*e331*p2p4- $ 2*e3123*p3p4+4*e313*p3p4-2*e3134*p3p4+4*e33*p3p4+ $ 8*e331*p3p4-2*e332*p3p4-2*e334*p3p4) kmv(20)=kmv(20)+ $ (-2*e3134*mt**2-2*e334*mt**2+4*e341*mt**2+4*e343*mt**2- $ 4*e3134*p1p2-4*e334*p1p2+2*e341*p1p2+2*e343*p1p2- $ 4*e3124*p1p3-4*e3234*p1p3-8*e341*p1p3- $ 8*e343*p1p3+8*e3134*p1p4+4*e314*p1p4+4*e334*p1p4- $ 2*e341*p1p4-2*e343*p1p4-2*e3124*p2p3+ $ 4*e3134*p2p3-2*e3234*p2p3+4*e334*p2p3- $ 2*e341*p2p3-2*e343*p2p3+6*e3134*p2p4+2*e314*p2p4+ $ 4*e334*p2p4+2*e3124*p3p4-8*e3134*p3p4- $ 4*e314*p3p4+2*e3234*p3p4-4*e334*p3p4+2*e341*p3p4+ $ 2*e343*p3p4) kmv(22)=kmv(22)+ $ (-2*e3234*mt**2+4*e332*mt**2+4*e334*mt**2-2*e343*mt**2- $ 4*e3234*p1p2+2*e332*p1p2+2*e334*p1p2-4*e343*p1p2+ $ 2*e323*p1p3+6*e3234*p1p3+4*e343*p1p3- $ 2*e3123*p1p4-2*e3134*p1p4+4*e3234*p1p4- $ 2*e332*p1p4-2*e334*p1p4+4*e343*p1p4+4*e323*p2p3+ $ 8*e3234*p2p3-2*e332*p2p3-2*e334*p2p3+4*e343*p2p3- $ 4*e3123*p2p4-4*e3134*p2p4-8*e332*p2p4- $ 8*e334*p2p4+2*e3123*p3p4+2*e3134*p3p4- $ 4*e323*p3p4-8*e3234*p3p4+2*e332*p3p4+2*e334*p3p4- $ 4*e343*p3p4) kmv(23)=kmv(23)+ $ (-4*e3234*mt**2+2*e34*mt**2+2*e342*mt**2-4*e343*mt**2- $ 2*e3234*p1p2+4*e34*p1p2+4*e342*p1p2-2*e343*p1p2- $ 2*e324*p1p3-4*e34*p1p3-6*e342*p1p3+2*e3124*p1p4+ $ 2*e3234*p1p4-4*e34*p1p4+2*e341*p1p4-4*e342*p1p4+ $ 2*e343*p1p4+2*e3234*p2p3-4*e324*p2p3-4*e34*p2p3- $ 8*e342*p2p3+2*e343*p2p3+4*e3124*p2p4+ $ 8*e3234*p2p4+4*e341*p2p4+8*e343*p2p4- $ 2*e3124*p3p4-2*e3234*p3p4+4*e324*p3p4+4*e34*p3p4- $ 2*e341*p3p4+8*e342*p3p4-2*e343*p3p4) kmv(25)=kmv(25)+ $ (4*e3234*mt**2-2*e332*mt**2-2*e334*mt**2+4*e343*mt**2+ $ 2*e3234*p1p2-4*e332*p1p2-4*e334*p1p2+2*e343*p1p2- $ 4*e323*p1p3-12*e3234*p1p3-8*e343*p1p3+ $ 4*e3123*p1p4+4*e3134*p1p4-2*e3234*p1p4+ $ 4*e332*p1p4+4*e334*p1p4-2*e343*p1p4-2*e323*p2p3- $ 4*e3234*p2p3+4*e332*p2p3+4*e334*p2p3-2*e343*p2p3+ $ 2*e3123*p2p4+2*e3134*p2p4+4*e332*p2p4+ $ 4*e334*p2p4-4*e3123*p3p4-4*e3134*p3p4+ $ 2*e323*p3p4+4*e3234*p3p4-4*e332*p3p4-4*e334*p3p4+ $ 2*e343*p3p4) kmv(26)=kmv(26)+ $ (2*e3234*mt**2-4*e34*mt**2-4*e342*mt**2+2*e343*mt**2+ $ 4*e3234*p1p2-2*e34*p1p2-2*e342*p1p2+4*e343*p1p2+ $ 4*e324*p1p3+8*e34*p1p3+12*e342*p1p3-4*e3124*p1p4- $ 4*e3234*p1p4+2*e34*p1p4-4*e341*p1p4+2*e342*p1p4- $ 4*e343*p1p4-4*e3234*p2p3+2*e324*p2p3+2*e34*p2p3+ $ 4*e342*p2p3-4*e343*p2p3-2*e3124*p2p4- $ 4*e3234*p2p4-2*e341*p2p4-4*e343*p2p4+ $ 4*e3124*p3p4+4*e3234*p3p4-2*e324*p3p4-2*e34*p3p4+ $ 4*e341*p3p4-4*e342*p3p4+4*e343*p3p4) kmv(28)=kmv(28)+ $ (-4*e33*mt**3+6*e334*mt**3-2*e343*mt**3-2*e33*mt*p1p2+ $ 6*e334*mt*p1p2-4*e343*mt*p1p2+2*e3234*mt*p1p3- $ 2*e332*mt*p1p3-4*e334*mt*p1p3+4*e343*mt*p1p3- $ 2*e3134*mt*p1p4+2*e33*mt*p1p4+2*e331*mt*p1p4- $ 6*e334*mt*p1p4+4*e343*mt*p1p4+4*e3234*mt*p2p3+ $ 2*e33*mt*p2p3-4*e332*mt*p2p3-6*e334*mt*p2p3+ $ 4*e343*mt*p2p3-4*e3134*mt*p2p4+8*e33*mt*p2p4+ $ 4*e331*mt*p2p4-8*e334*mt*p2p4+2*e3134*mt*p3p4- $ 4*e3234*mt*p3p4-2*e33*mt*p3p4-2*e331*mt*p3p4+ $ 4*e332*mt*p3p4+6*e334*mt*p3p4-4*e343*mt*p3p4) kmv(29)=kmv(29)+ $ (4*e334*mt**3+2*e34*mt**3-6*e343*mt**3+2*e334*mt*p1p2+ $ 4*e34*mt*p1p2-6*e343*mt*p1p2+2*e3234*mt*p1p3- $ 4*e34*mt*p1p3-2*e342*mt*p1p3+4*e343*mt*p1p3- $ 2*e3134*mt*p1p4-2*e334*mt*p1p4-4*e34*mt*p1p4+ $ 2*e341*mt*p1p4+6*e343*mt*p1p4+4*e3234*mt*p2p3- $ 2*e334*mt*p2p3-4*e34*mt*p2p3-4*e342*mt*p2p3+ $ 6*e343*mt*p2p3-4*e3134*mt*p2p4-8*e334*mt*p2p4+ $ 4*e341*mt*p2p4+8*e343*mt*p2p4+2*e3134*mt*p3p4- $ 4*e3234*mt*p3p4+2*e334*mt*p3p4+4*e34*mt*p3p4- $ 2*e341*mt*p3p4+4*e342*mt*p3p4-6*e343*mt*p3p4) kmv(31)=kmv(31)+ $ (-2*e33*mt**3+6*e334*mt**3-4*e343*mt**3-4*e33*mt*p1p2+ $ 6*e334*mt*p1p2-2*e343*mt*p1p2+4*e3234*mt*p1p3- $ 4*e332*mt*p1p3-8*e334*mt*p1p3+8*e343*mt*p1p3- $ 4*e3134*mt*p1p4+4*e33*mt*p1p4+4*e331*mt*p1p4- $ 6*e334*mt*p1p4+2*e343*mt*p1p4+2*e3234*mt*p2p3+ $ 4*e33*mt*p2p3-2*e332*mt*p2p3-6*e334*mt*p2p3+ $ 2*e343*mt*p2p3-2*e3134*mt*p2p4+4*e33*mt*p2p4+ $ 2*e331*mt*p2p4-4*e334*mt*p2p4+4*e3134*mt*p3p4- $ 2*e3234*mt*p3p4-4*e33*mt*p3p4-4*e331*mt*p3p4+ $ 2*e332*mt*p3p4+6*e334*mt*p3p4-2*e343*mt*p3p4) kmv(32)=kmv(32)+ $ (2*e334*mt**3+4*e34*mt**3-6*e343*mt**3+4*e334*mt*p1p2+ $ 2*e34*mt*p1p2-6*e343*mt*p1p2+4*e3234*mt*p1p3- $ 8*e34*mt*p1p3-4*e342*mt*p1p3+8*e343*mt*p1p3- $ 4*e3134*mt*p1p4-4*e334*mt*p1p4-2*e34*mt*p1p4+ $ 4*e341*mt*p1p4+6*e343*mt*p1p4+2*e3234*mt*p2p3- $ 4*e334*mt*p2p3-2*e34*mt*p2p3-2*e342*mt*p2p3+ $ 6*e343*mt*p2p3-2*e3134*mt*p2p4-4*e334*mt*p2p4+ $ 2*e341*mt*p2p4+4*e343*mt*p2p4+4*e3134*mt*p3p4- $ 2*e3234*mt*p3p4+4*e334*mt*p3p4+2*e34*mt*p3p4- $ 4*e341*mt*p3p4+2*e342*mt*p3p4-6*e343*mt*p3p4) kmv(46)=kmv(46)+(16*e33*mt+16*e331*mt) kmv(47)=kmv(47)+(-16*e3134*mt-16*e334*mt) kmv(49)=kmv(49)+(-16*e3134*mt-16*e334*mt) kmv(50)=kmv(50)+(16*e341*mt+16*e343*mt) kmv(55)=kmv(55)+(-16*e332*mt-16*e334*mt) kmv(56)=kmv(56)+(16*e3234*mt+16*e343*mt) kmv(58)=kmv(58)+(16*e3234*mt+16*e343*mt) kmv(59)=kmv(59)+(-16*e34*mt-16*e342*mt) kmv(64)=kmv(64)+ $ (-12*e334*mt**2-4*e33*p1p2-16*e334*p1p2- $ 4*e332*p1p3-8*e334*p1p3+4*e33*p1p4+4*e331*p1p4+ $ 16*e334*p1p4+4*e33*p2p3+16*e332*p2p3+ $ 16*e334*p2p3-32*e33*p2p4-16*e331*p2p4-4*e33*p3p4- $ 4*e331*p3p4-16*e332*p3p4-16*e334*p3p4) kmv(65)=kmv(65)+ $ (4*e334*mt**2+4*e343*mt**2+12*e334*p1p2+ $ 12*e343*p1p2+12*e3234*p1p3+24*e343*p1p3- $ 12*e3134*p1p4-12*e334*p1p4-12*e343*p1p4- $ 12*e3234*p2p3-12*e334*p2p3-12*e343*p2p3+ $ 12*e3134*p2p4+24*e334*p2p4+12*e3134*p3p4+ $ 12*e3234*p3p4+12*e334*p3p4+12*e343*p3p4) kmv(67)=kmv(67)+ $ (8*e334*mt**2+8*e343*mt**2+8*e334*p1p2+8*e343*p1p2+ $ 8*e3234*p1p3+16*e343*p1p3-8*e3134*p1p4- $ 8*e334*p1p4-8*e343*p1p4-8*e3234*p2p3-8*e334*p2p3- $ 8*e343*p2p3+8*e3134*p2p4+16*e334*p2p4+ $ 8*e3134*p3p4+8*e3234*p3p4+8*e334*p3p4+8*e343*p3p4) kmv(68)=kmv(68)+ $ (-12*e343*mt**2-4*e34*p1p2-16*e343*p1p2- $ 32*e34*p1p3-16*e342*p1p3+4*e34*p1p4+16*e341*p1p4+ $ 16*e343*p1p4+4*e34*p2p3+4*e342*p2p3+16*e343*p2p3- $ 4*e341*p2p4-8*e343*p2p4-4*e34*p3p4-16*e341*p3p4- $ 4*e342*p3p4-16*e343*p3p4) 999 continue do i=1,68 kmv(i)=cg/2d0*kmv(i) enddo return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine pentp5_t(s,t1,t2,u1,u2,mt,mh,kmv) implicit none integer i,j real*8 mt,mh,ncf,cg real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(68) complex*16 d1(0:3),d2(0:6),d3(0:3,0:3) complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4) complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223, $ e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341, $ e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234 zero=dcmplx(0d0,0d0) do i=1,68 kmv(i)=zero enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c color factors: ncf=3d0 cg=ncf c P5 e1(0)=E0_ir(5,mt,0d0,mt**2,mh**2,0d0,mt**2,mt**2-2d0*p2p4, $ mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4, $ 2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,mt**2-2d0*p1p3, $ mt**2-2d0*p1p4,0d0,0d0,mt,mt,mt) c write(6,*)'e0=',e1(0) call eefunc_ir(5,mt,0d0,mt**2,mt**2-2d0*p2p4, $ mt**2-2d0*p1p3,p1p4,-p2p4,p1p4-p3p4,p1p4-p1p2,mt**2-p1p3, $ p1p4-p3p4-p1p2+p2p3, $ 0d0,0d0,mt,mt,mt,e1,e2,e3,d1,d2,d3) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) e0=e1(0) e11=e1(1) e12=e1(2) e13=e1(3) e14=e1(4) e21=e2(1,1) e22=e2(2,2) e23=e2(3,3) e24=e2(4,4) e212=e2(1,2) e213=e2(1,3) e214=e2(1,4) e223=e2(2,3) e224=e2(2,4) e234=e2(3,4) e31=e3(1,1) e32=e3(2,2) e33=e3(3,3) e34=e3(4,4) e312=e3(1,2) e313=e3(1,3) e314=e3(1,4) e321=e3(2,1) e331=e3(3,1) e341=e3(4,1) e323=e3(2,3) e324=e3(2,4) e332=e3(3,2) e342=e3(4,2) e334=e3(3,4) e343=e3(4,3) e3123=e3(0,1) e3124=e3(0,2) e3134=e3(0,3) e3234=e3(0,4) kmv(1)=(12*d20+4*d11*mt**2+4*d12*mt**2+4*d13*mt**2+2*d21*mt**2+ $ 4*d213*mt**2+2*d22*mt**2+2*d23*mt**2+8*e223*mt**4+ $ 8*e234*mt**4- $ 4*d11*p1p2-4*d12*p1p2-4*d13*p1p2-4*d212*p1p2- $ 4*d223*p1p2-8*e22*mt**2*p1p2-16*e224*mt**2*p1p2- $ 8*e23*mt**2*p1p2-8*e24*mt**2*p1p2+8*e223*p1p2**2+ $ 8*e234*p1p2**2-4*d13*p1p3-4*d213*p1p3-4*d23*p1p3- $ 8*e234*mt**2*p1p3+8*e224*p1p2*p1p3+ $ 8*e24*p1p2*p1p3-4*d0*p1p4-4*d11*p1p4- $ 4*d13*p1p4-4*d21*p1p4-8*d213*p1p4-4*d23*p1p4+ $ 8*e213*mt**2*p1p4+8*e22*mt**2*p1p4+16*e224*mt**2*p1p4+ $ 8*e23*mt**2*p1p4+8*e24*mt**2*p1p4-8*e212*p1p2*p1p4- $ 8*e214*p1p2*p1p4-16*e223*p1p2*p1p4- $ 16*e234*p1p2*p1p4-8*e224*p1p3*p1p4- $ 8*e24*p1p3*p1p4+8*e212*p1p4**2+8*e214*p1p4**2+ $ 8*e223*p1p4**2+8*e234*p1p4**2+4*d12*p2p3+ $ 4*d13*p2p3+4*d223*p2p3+8*e224*mt**2*p2p3+ $ 8*e23*mt**2*p2p3+8*e24*mt**2*p2p3-8*e223*p1p2*p2p3- $ 16*e234*p1p2*p2p3-8*e24*p1p3*p2p3+ $ 8*e214*p1p4*p2p3+8*e223*p1p4*p2p3+ $ 16*e234*p1p4*p2p3+8*e234*p2p3**2+8*d0*p2p4+ $ 4*d11*p2p4+8*d12*p2p4+4*d13*p2p4+4*d212*p2p4+ $ 4*d223*p2p4+8*e12*mt**2*p2p4+8*e14*mt**2*p2p4- $ 8*e212*mt**2*p2p4-8*e214*mt**2*p2p4- $ 8*e13*p1p2*p2p4+8*e213*p1p2*p2p4- $ 8*e14*p1p3*p2p4+8*e214*p1p3*p2p4- $ 16*e223*p1p3*p2p4-16*e234*p1p3*p2p4+ $ 8*e11*p1p4*p2p4+8*e13*p1p4*p2p4- $ 8*e21*p1p4*p2p4-8*e213*p1p4*p2p4+ $ 8*e13*p2p3*p2p4-8*e213*p2p3*p2p4+4*d0*p3p4+ $ 4*d11*p3p4+4*d13*p3p4+4*d213*p3p4+4*d23*p3p4- $ 8*e213*mt**2*p3p4-8*e224*mt**2*p3p4-8*e23*mt**2*p3p4- $ 8*e24*mt**2*p3p4+8*e212*p1p2*p3p4+ $ 8*e214*p1p2*p3p4+8*e223*p1p2*p3p4+ $ 16*e234*p1p2*p3p4+8*e24*p1p3*p3p4- $ 8*e212*p1p4*p3p4-16*e214*p1p4*p3p4- $ 8*e223*p1p4*p3p4-16*e234*p1p4*p3p4- $ 8*e214*p2p3*p3p4-16*e234*p2p3*p3p4- $ 8*e11*p2p4*p3p4-8*e13*p2p4*p3p4+ $ 8*e21*p2p4*p3p4+8*e213*p2p4*p3p4+ $ 8*e214*p3p4**2+8*e234*p3p4**2) kmv(2)=(-6*d0-2*d11+2*d13+4*e213*mt**2+8*e224*mt**2+ $ 4*e23*mt**2+8*e24*mt**2-4*e212*p1p2-4*e214*p1p2- $ 4*e223*p1p2-12*e234*p1p2-8*e224*p1p3-16*e24*p1p3+ $ 4*e212*p1p4+12*e214*p1p4+4*e223*p1p4+ $ 12*e234*p1p4+4*e214*p2p3+12*e234*p2p3+4*e11*p2p4+ $ 4*e13*p2p4-4*e21*p2p4-12*e213*p2p4-8*e23*p2p4- $ 12*e214*p3p4-12*e234*p3p4) kmv(3)=(4*d11*mt-4*d12*mt+4*d13*mt+8*e22*mt**3-8*e223*mt**3+ $ 16*e224*mt**3-8*e234*mt**3+8*e24*mt**3-8*e223*mt*p1p2+ $ 8*e23*mt*p1p2-8*e234*mt*p1p2-8*e22*mt*p1p3+ $ 8*e223*mt*p1p3-24*e224*mt*p1p3+16*e234*mt*p1p3- $ 16*e24*mt*p1p3+8*e212*mt*p1p4-8*e213*mt*p1p4+ $ 8*e214*mt*p1p4+8*e223*mt*p1p4-8*e23*mt*p1p4+ $ 8*e234*mt*p1p4+8*e223*mt*p2p3-8*e23*mt*p2p3+ $ 8*e234*mt*p2p3-8*e212*mt*p3p4+8*e213*mt*p3p4- $ 8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4- $ 8*e234*mt*p3p4) kmv(4)=(2*d11*mt-2*d12*mt+2*d13*mt+4*e223*mt**3-4*e23*mt**3+ $ 4*e234*mt**3-4*e22*mt*p1p2+4*e223*mt*p1p2- $ 8*e224*mt*p1p2+4*e234*mt*p1p2-4*e24*mt*p1p2+ $ 4*e22*mt*p1p4-4*e223*mt*p1p4+8*e224*mt*p1p4- $ 4*e234*mt*p1p4+4*e24*mt*p1p4+4*e224*mt*p2p3- $ 4*e234*mt*p2p3+4*e24*mt*p2p3+4*e12*mt*p2p4- $ 4*e13*mt*p2p4+4*e14*mt*p2p4-4*e212*mt*p2p4+ $ 4*e213*mt*p2p4-4*e214*mt*p2p4-8*e223*mt*p2p4+ $ 8*e23*mt*p2p4-8*e234*mt*p2p4-4*e224*mt*p3p4+ $ 4*e234*mt*p3p4-4*e24*mt*p3p4) kmv(5)=(-6*d20-4*d11*mt**2-2*d12*mt**2-4*d13*mt**2-2*d21*mt**2- $ 4*d213*mt**2-2*d22*mt**2-2*d23*mt**2-4*e223*mt**4- $ 4*e234*mt**4+ $ 2*d11*p1p2+4*d12*p1p2+2*d13*p1p2+4*d212*p1p2+ $ 4*d223*p1p2+4*e22*mt**2*p1p2+8*e224*mt**2*p1p2+ $ 4*e23*mt**2*p1p2+4*e24*mt**2*p1p2-4*e223*p1p2**2- $ 4*e234*p1p2**2+2*d11*p1p3+6*d13*p1p3+4*d213*p1p3+ $ 4*d23*p1p3+4*e22*mt**2*p1p3+8*e224*mt**2*p1p3+ $ 4*e234*mt**2*p1p3+4*e24*mt**2*p1p3- $ 4*e223*p1p2*p1p3-4*e224*p1p2*p1p3- $ 4*e234*p1p2*p1p3-4*e24*p1p2*p1p3- $ 4*e224*p1p3**2-4*e24*p1p3**2+4*d0*p1p4+ $ 2*d11*p1p4+2*d13*p1p4+4*d21*p1p4+8*d213*p1p4+ $ 4*d23*p1p4-4*e213*mt**2*p1p4-12*e22*mt**2*p1p4- $ 24*e224*mt**2*p1p4-4*e23*mt**2*p1p4-12*e24*mt**2*p1p4+ $ 4*e212*p1p2*p1p4+4*e214*p1p2*p1p4+ $ 16*e223*p1p2*p1p4+16*e234*p1p2*p1p4+ $ 8*e12*p1p3*p1p4+8*e14*p1p3*p1p4+ $ 4*e212*p1p3*p1p4+4*e214*p1p3*p1p4+ $ 8*e22*p1p3*p1p4+4*e223*p1p3*p1p4+ $ 28*e224*p1p3*p1p4+4*e234*p1p3*p1p4+ $ 20*e24*p1p3*p1p4-12*e212*p1p4**2-12*e214*p1p4**2- $ 12*e223*p1p4**2-12*e234*p1p4**2-2*d12*p2p3- $ 2*d13*p2p3-4*d223*p2p3-4*e224*mt**2*p2p3- $ 4*e23*mt**2*p2p3-4*e24*mt**2*p2p3+4*e223*p1p2*p2p3+ $ 8*e234*p1p2*p2p3+4*e24*p1p3*p2p3- $ 4*e214*p1p4*p2p3-12*e223*p1p4*p2p3- $ 16*e234*p1p4*p2p3-4*e234*p2p3**2-4*d0*p2p4- $ 2*d11*p2p4-4*d12*p2p4-2*d13*p2p4-4*d212*p2p4- $ 4*d223*p2p4-4*e12*mt**2*p2p4-4*e14*mt**2*p2p4+ $ 4*e212*mt**2*p2p4+4*e214*mt**2*p2p4+4*e223*mt**2*p2p4+ $ 4*e234*mt**2*p2p4+4*e13*p1p2*p2p4- $ 4*e213*p1p2*p2p4-4*e23*p1p2*p2p4+ $ 4*e14*p1p3*p2p4-4*e214*p1p3*p2p4+ $ 8*e223*p1p3*p2p4+4*e234*p1p3*p2p4- $ 4*e11*p1p4*p2p4-4*e13*p1p4*p2p4+ $ 4*e21*p1p4*p2p4+8*e213*p1p4*p2p4+ $ 4*e23*p1p4*p2p4-4*e13*p2p3*p2p4+ $ 4*e213*p2p3*p2p4-6*d0*p3p4-2*d11*p3p4- $ 4*d213*p3p4-4*d23*p3p4+4*e213*mt**2*p3p4+ $ 12*e224*mt**2*p3p4+4*e23*mt**2*p3p4+12*e24*mt**2*p3p4- $ 4*e212*p1p2*p3p4-4*e214*p1p2*p3p4- $ 4*e223*p1p2*p3p4-16*e234*p1p2*p3p4- $ 8*e224*p1p3*p3p4-20*e24*p1p3*p3p4+ $ 12*e212*p1p4*p3p4+24*e214*p1p4*p3p4+ $ 12*e223*p1p4*p3p4+24*e234*p1p4*p3p4+ $ 4*e214*p2p3*p3p4+16*e234*p2p3*p3p4+ $ 4*e11*p2p4*p3p4+12*e13*p2p4*p3p4- $ 4*e21*p2p4*p3p4-4*e213*p2p4*p3p4- $ 12*e214*p3p4**2-12*e234*p3p4**2) kmv(6)=(5*d0-3*d13+2*e12*mt**2+2*e14*mt**2+2*e212*mt**2- $ 2*e213*mt**2+2*e214*mt**2+2*e223*mt**2-6*e224*mt**2- $ 2*e23*mt**2+2*e234*mt**2-6*e24*mt**2-2*e13*p1p2+ $ 2*e212*p1p2-2*e213*p1p2+2*e214*p1p2+2*e223*p1p2- $ 2*e23*p1p2+8*e234*p1p2-2*e14*p1p3-2*e214*p1p3+ $ 8*e224*p1p3-2*e234*p1p3+14*e24*p1p3+4*e0*p1p4+ $ 6*e11*p1p4+4*e12*p1p4+6*e13*p1p4+4*e14*p1p4+ $ 2*e21*p1p4-2*e212*p1p4+4*e213*p1p4-8*e214*p1p4- $ 2*e223*p1p4+2*e23*p1p4-8*e234*p1p4-2*e214*p2p3- $ 10*e234*p2p3-2*e11*p2p4-6*e13*p2p4+2*e21*p2p4+ $ 6*e213*p2p4+4*e23*p2p4+10*e214*p3p4+10*e234*p3p4) kmv(7)=(3*d11*mt-3*d12*mt+3*d13*mt+6*e22*mt**3-6*e223*mt**3+ $ 12*e224*mt**3-6*e234*mt**3+6*e24*mt**3-6*e223*mt*p1p2+ $ 6*e23*mt*p1p2-6*e234*mt*p1p2-8*e22*mt*p1p3+ $ 8*e223*mt*p1p3-22*e224*mt*p1p3+14*e234*mt*p1p3- $ 14*e24*mt*p1p3+6*e212*mt*p1p4-6*e213*mt*p1p4+ $ 6*e214*mt*p1p4+6*e223*mt*p1p4-6*e23*mt*p1p4+ $ 6*e234*mt*p1p4+8*e223*mt*p2p3-8*e23*mt*p2p3+ $ 8*e234*mt*p2p3-4*e12*mt*p3p4+4*e13*mt*p3p4- $ 4*e14*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4- $ 8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4- $ 8*e234*mt*p3p4) kmv(8)=(-2*e22*mt**3+4*e223*mt**3-4*e224*mt**3-2*e23*mt**3+ $ 4*e234*mt**3-2*e24*mt**3-2*e22*mt*p1p2+4*e223*mt*p1p2- $ 4*e224*mt*p1p2-2*e23*mt*p1p2+4*e234*mt*p1p2- $ 2*e24*mt*p1p2+2*e224*mt*p1p3-2*e234*mt*p1p3+ $ 2*e24*mt*p1p3-4*e12*mt*p1p4+4*e13*mt*p1p4- $ 4*e14*mt*p1p4-2*e212*mt*p1p4+2*e213*mt*p1p4- $ 2*e214*mt*p1p4+2*e22*mt*p1p4-4*e223*mt*p1p4+ $ 4*e224*mt*p1p4+2*e23*mt*p1p4-4*e234*mt*p1p4+ $ 2*e24*mt*p1p4+2*e224*mt*p2p3-2*e234*mt*p2p3+ $ 2*e24*mt*p2p3+2*e12*mt*p2p4-2*e13*mt*p2p4+ $ 2*e14*mt*p2p4-2*e212*mt*p2p4+2*e213*mt*p2p4- $ 2*e214*mt*p2p4-4*e223*mt*p2p4+4*e23*mt*p2p4- $ 4*e234*mt*p2p4-2*e224*mt*p3p4+2*e234*mt*p3p4- $ 2*e24*mt*p3p4) kmv(10)=(-8*e223*mt+8*e23*mt-8*e234*mt) kmv(11)=(8*e22*mt-8*e223*mt+16*e224*mt-8*e234*mt+8*e24*mt) kmv(13)=(-4*e12*mt+8*e13*mt-4*e14*mt+8*e213*mt+8*e223*mt+ $ 8*e234*mt) kmv(14)=(-4*e13*mt-8*e212*mt-8*e214*mt-8*e22*mt-16*e224*mt- $ 8*e24*mt) kmv(16)=(10*d12+2*d212+2*d223-16*e223*p1p3-16*e234*p1p3+ $ 8*e13*p1p4+8*e213*p1p4+8*e223*p1p4+8*e23*p1p4+ $ 8*e234*p1p4-4*e213*p2p4-12*e23*p2p4-8*e13*p3p4- $ 8*e213*p3p4-8*e23*p3p4-8*e234*p3p4) kmv(17)=(-10*d0-4*d11-4*d13-2*d21-4*d213-2*d23-4*e12*mt**2- $ 4*e14*mt**2-4*e212*mt**2+4*e213*mt**2-4*e214*mt**2+ $ 12*e22*mt**2-4*e223*mt**2+24*e224*mt**2+4*e23*mt**2- $ 4*e234*mt**2+12*e24*mt**2+4*e13*p1p2-4*e212*p1p2+ $ 4*e213*p1p2-4*e214*p1p2-16*e223*p1p2+4*e23*p1p2- $ 16*e234*p1p2+4*e14*p1p3+4*e214*p1p3-12*e224*p1p3+ $ 4*e234*p1p3-12*e24*p1p3-8*e0*p1p4-12*e11*p1p4- $ 16*e12*p1p4-12*e13*p1p4-16*e14*p1p4-4*e21*p1p4+ $ 8*e212*p1p4-8*e213*p1p4+8*e214*p1p4-8*e22*p1p4+ $ 8*e223*p1p4-16*e224*p1p4-4*e23*p1p4+8*e234*p1p4- $ 8*e24*p1p4+4*e214*p2p3+16*e223*p2p3+20*e234*p2p3+ $ 4*e11*p2p4+12*e13*p2p4-4*e21*p2p4+4*e212*p2p4- $ 12*e213*p2p4+4*e214*p2p4+12*e223*p2p4-8*e23*p2p4+ $ 12*e234*p2p4+8*e14*p3p4-8*e212*p3p4-12*e214*p3p4- $ 8*e223*p3p4+8*e224*p3p4-12*e234*p3p4+8*e24*p3p4) kmv(19)=(2*d0-2*d11+2*d12-2*d13+8*e12*mt**2+8*e14*mt**2+ $ 4*e212*mt**2+4*e214*mt**2+8*e223*mt**2+8*e234*mt**2- $ 8*e13*p1p2-4*e213*p1p2-8*e23*p1p2-8*e13*p1p3- $ 8*e14*p1p3-8*e213*p1p3-4*e214*p1p3-16*e223*p1p3- $ 8*e23*p1p3-24*e234*p1p3+8*e11*p1p4+8*e13*p1p4+ $ 4*e21*p1p4+12*e213*p1p4+8*e23*p1p4+8*e13*p2p3+ $ 8*e213*p2p3+8*e23*p2p3-8*e13*p3p4-8*e213*p3p4- $ 8*e23*p3p4) kmv(20)=(4*d11+4*d13+8*e22*mt**2+16*e224*mt**2+8*e24*mt**2- $ 8*e223*p1p2-8*e234*p1p2+8*e212*p1p3+8*e214*p1p3+ $ 8*e223*p1p3-8*e224*p1p3+8*e234*p1p3-8*e24*p1p3+ $ 8*e212*p1p4+8*e214*p1p4+8*e223*p1p4+8*e234*p1p4- $ 8*e212*p2p3-8*e214*p2p3+8*e223*p2p3+8*e234*p2p3- $ 8*e212*p3p4-8*e214*p3p4-8*e223*p3p4-8*e234*p3p4) kmv(22)=(2*d12+2*d223+4*e23*mt**2-4*e223*p1p2- $ 4*e234*p1p2+12*e223*p1p4+4*e234*p1p4+4*e234*p2p3+ $ 4*e13*p2p4-4*e213*p2p4+4*e234*p2p4-4*e234*p3p4) kmv(23)=(-2*d11-2*d13-2*d213-2*d23-4*e22*mt**2-4*e224*mt**2- $ 4*e234*mt**2+4*e223*p1p2+4*e224*p1p2+4*e24*p1p2+ $ 4*e224*p1p3-8*e12*p1p4-4*e212*p1p4-8*e22*p1p4- $ 4*e223*p1p4-12*e224*p1p4-4*e24*p1p4-4*e24*p2p3- $ 4*e14*p2p4+4*e214*p2p4-8*e223*p2p4-4*e224*p2p4- $ 4*e24*p2p4+4*e24*p3p4) kmv(25)=(-2*d0-2*d12-2*d13-4*e12*mt**2-4*e14*mt**2- $ 4*e223*mt**2-4*e224*mt**2-4*e234*mt**2-4*e24*mt**2- $ 4*e13*p1p2-8*e223*p1p2-4*e23*p1p2-4*e234*p1p2+ $ 4*e14*p1p3+4*e234*p1p3+4*e24*p1p3-8*e0*p1p4- $ 4*e11*p1p4-8*e12*p1p4-4*e13*p1p4-8*e14*p1p4+ $ 4*e213*p1p4-4*e214*p1p4+8*e223*p1p4+4*e23*p1p4+ $ 4*e234*p1p4-8*e213*p2p4) kmv(26)=(2*d0+2*d11+2*d13+4*e13*mt**2+4*e223*mt**2+ $ 4*e234*mt**2+4*e12*p1p2+4*e14*p1p2+4*e22*p1p2+ $ 8*e223*p1p2+8*e224*p1p2+8*e234*p1p2+4*e24*p1p2- $ 4*e12*p1p4-4*e14*p1p4-8*e212*p1p4-8*e214*p1p4- $ 4*e22*p1p4-8*e223*p1p4-8*e224*p1p4-8*e234*p1p4- $ 4*e24*p1p4+4*e14*p2p3+4*e224*p2p3+4*e24*p2p3+ $ 4*e0*p2p4-4*e11*p2p4+4*e12*p2p4+4*e14*p2p4+ $ 4*e212*p2p4+4*e214*p2p4-8*e223*p2p4-8*e234*p2p4- $ 4*e14*p3p4-4*e224*p3p4-4*e24*p3p4) kmv(28)=(2*d212*mt-2*d22*mt+2*d223*mt-8*e223*mt*p1p4+ $ 8*e23*mt*p1p4-8*e234*mt*p1p4+4*e223*mt*p2p4- $ 4*e23*mt*p2p4+4*e234*mt*p2p4+8*e223*mt*p3p4- $ 8*e23*mt*p3p4+8*e234*mt*p3p4) kmv(29)=(-2*d21*mt+2*d212*mt-4*d213*mt+2*d223*mt-2*d23*mt+ $ 4*e22*mt**3-8*e223*mt**3+8*e224*mt**3+4*e23*mt**3- $ 8*e234*mt**3+ $ 4*e24*mt**3+4*e22*mt*p1p2-8*e223*mt*p1p2+ $ 8*e224*mt*p1p2+4*e23*mt*p1p2-8*e234*mt*p1p2+ $ 4*e24*mt*p1p2-4*e224*mt*p1p3+4*e234*mt*p1p3- $ 4*e24*mt*p1p3+8*e12*mt*p1p4-8*e13*mt*p1p4+ $ 8*e14*mt*p1p4+4*e212*mt*p1p4-4*e213*mt*p1p4+ $ 4*e214*mt*p1p4+4*e22*mt*p1p4+8*e224*mt*p1p4- $ 4*e23*mt*p1p4+4*e24*mt*p1p4-4*e224*mt*p2p3+ $ 4*e234*mt*p2p3-4*e24*mt*p2p3-4*e12*mt*p2p4+ $ 4*e13*mt*p2p4-4*e14*mt*p2p4+4*e212*mt*p2p4- $ 4*e213*mt*p2p4+4*e214*mt*p2p4-4*e22*mt*p2p4+ $ 12*e223*mt*p2p4-8*e224*mt*p2p4-8*e23*mt*p2p4+ $ 12*e234*mt*p2p4-4*e24*mt*p2p4-8*e22*mt*p3p4+ $ 8*e223*mt*p3p4-12*e224*mt*p3p4+4*e234*mt*p3p4- $ 4*e24*mt*p3p4) kmv(31)=(2*d11*mt+2*d12*mt+2*d13*mt+4*e22*mt**3+4*e223*mt**3+ $ 8*e224*mt**3+4*e234*mt**3+4*e24*mt**3-4*e223*mt*p1p2- $ 4*e23*mt*p1p2-4*e234*mt*p1p2-4*e224*mt*p1p3+ $ 8*e23*mt*p1p3-4*e234*mt*p1p3-4*e24*mt*p1p3+ $ 4*e212*mt*p1p4+4*e213*mt*p1p4+4*e214*mt*p1p4+ $ 4*e223*mt*p1p4+4*e23*mt*p1p4+4*e234*mt*p1p4+ $ 8*e223*mt*p2p3+8*e234*mt*p2p3+8*e12*mt*p3p4- $ 8*e13*mt*p3p4+8*e14*mt*p3p4-8*e213*mt*p3p4- $ 8*e223*mt*p3p4-8*e234*mt*p3p4) kmv(32)=(-4*d11*mt-4*d13*mt-8*e22*mt**3-16*e224*mt**3- $ 8*e24*mt**3+8*e223*mt*p1p2+8*e234*mt*p1p2- $ 8*e223*mt*p1p3+8*e224*mt*p1p3-8*e234*mt*p1p3+ $ 8*e24*mt*p1p3-8*e212*mt*p1p4-8*e214*mt*p1p4- $ 8*e223*mt*p1p4-8*e234*mt*p1p4-8*e22*mt*p2p3- $ 16*e224*mt*p2p3-8*e24*mt*p2p3+8*e212*mt*p3p4+ $ 8*e214*mt*p3p4+8*e22*mt*p3p4+16*e224*mt*p3p4+ $ 8*e24*mt*p3p4) kmv(37)=(-8*e13-8*e213-8*e23-8*e234) kmv(38)=(8*e13+8*e14+8*e213+16*e223+8*e224+8*e23+16*e234+ $ 8*e24) kmv(40)=(8*e212+8*e214-8*e223) kmv(41)=(-8*e14-8*e212-8*e214-8*e223-8*e224-8*e234-8*e24) kmv(46)=(-8*e223*mt+16*e23*mt-8*e234*mt) kmv(47)=(8*e12*mt-16*e13*mt+8*e14*mt-16*e213*mt+8*e22*mt- $ 16*e223*mt+16*e224*mt-16*e23*mt-16*e234*mt+8*e24*mt) kmv(49)=-8*e23*mt kmv(50)=(8*e13*mt+16*e212*mt+16*e214*mt+24*e223*mt+24*e234*mt) kmv(55)=(-8*e223*mt-8*e234*mt) kmv(56)=(-8*e23*mt+16*e234*mt) kmv(58)=(8*e22*mt+16*e224*mt+8*e24*mt) kmv(59)=(8*e223*mt-16*e224*mt+8*e234*mt-16*e24*mt) kmv(64)=(-8*d12+8*d22-16*e223*mt**2-16*e234*mt**2+ $ 16*e234*p1p3-16*e13*p1p4-16*e213*p1p4- $ 16*e223*p1p4-16*e23*p1p4-16*e234*p1p4+ $ 16*e13*p3p4+16*e213*p3p4+16*e23*p3p4+16*e234*p3p4) kmv(65)=(4*d0+4*d11-12*d12+4*d13-8*d212-8*d223+8*e12*mt**2+ $ 8*e14*mt**2+8*e22*mt**2+8*e223*mt**2+16*e224*mt**2+ $ 8*e234*mt**2+8*e24*mt**2+8*e13*p1p2+24*e223*p1p2+ $ 8*e23*p1p2+24*e234*p1p2-8*e14*p1p3-8*e224*p1p3+ $ 8*e234*p1p3-8*e24*p1p3+16*e0*p1p4+8*e11*p1p4+ $ 32*e12*p1p4+8*e13*p1p4+32*e14*p1p4+8*e212*p1p4- $ 8*e213*p1p4+8*e214*p1p4+16*e22*p1p4-8*e223*p1p4+ $ 32*e224*p1p4-8*e23*p1p4-8*e234*p1p4+16*e24*p1p4- $ 16*e234*p2p3+16*e213*p2p4+32*e23*p2p4- $ 16*e14*p3p4-16*e223*p3p4-16*e224*p3p4-16*e24*p3p4) kmv(67)=(8*d11+4*d12+8*d13-4*d212-4*d223+16*e22*mt**2+ $ 32*e224*mt**2+8*e23*mt**2+16*e24*mt**2-8*e223*p1p2- $ 8*e234*p1p2-16*e224*p1p3-16*e24*p1p3+ $ 16*e212*p1p4+16*e214*p1p4+8*e223*p1p4+ $ 8*e234*p1p4+8*e234*p2p3+8*e13*p2p4-8*e213*p2p4+ $ 8*e223*p2p4+8*e234*p2p4-16*e212*p3p4- $ 16*e214*p3p4-8*e234*p3p4) kmv(68)=(-4*d0+8*d11+8*d13+4*d21+8*d213+4*d23-8*e13*mt**2- $ 16*e223*mt**2-16*e234*mt**2-8*e12*p1p2-8*e14*p1p2- $ 16*e22*p1p2-16*e223*p1p2-32*e224*p1p2- $ 16*e234*p1p2-16*e24*p1p2-16*e224*p1p3- $ 16*e24*p1p3+8*e12*p1p4+8*e14*p1p4+16*e212*p1p4+ $ 16*e214*p1p4+16*e22*p1p4+16*e223*p1p4+ $ 32*e224*p1p4+16*e234*p1p4+16*e24*p1p4-8*e14*p2p3- $ 8*e0*p2p4+8*e11*p2p4-16*e12*p2p4-16*e14*p2p4- $ 8*e22*p2p4-16*e223*p2p4-16*e224*p2p4- $ 16*e234*p2p4-8*e24*p2p4+8*e14*p3p4) kmv(16)=kmv(16)+ $ (-4*e33*mt**2-4*e331*mt**2+4*e3123*p1p2+ $ 4*e3134*p1p2+4*e332*p1p2+4*e334*p1p2- $ 4*e3123*p1p4-4*e3134*p1p4-4*e332*p1p4- $ 4*e334*p1p4-4*e3134*p2p3-4*e334*p2p3+4*e313*p2p4+ $ 8*e33*p2p4+12*e331*p2p4+4*e3134*p3p4+4*e334*p3p4) kmv(17)=kmv(17)+ $ (4*e3123*mt**2+4*e3134*mt**2+4*e332*mt**2+4*e334*mt**2- $ 8*e3124*p1p2-4*e321*p1p2-4*e323*p1p2- $ 8*e3234*p1p2-4*e341*p1p2-4*e343*p1p2+ $ 8*e3124*p1p4+4*e321*p1p4+4*e323*p1p4+ $ 8*e3234*p1p4+4*e341*p1p4+4*e343*p1p4+ $ 4*e3124*p2p3+4*e3234*p2p3+4*e341*p2p3+ $ 4*e343*p2p3-4*e312*p2p4-12*e3123*p2p4- $ 12*e3134*p2p4-4*e314*p2p4-8*e332*p2p4- $ 8*e334*p2p4-4*e3124*p3p4-4*e3234*p3p4- $ 4*e341*p3p4-4*e343*p3p4) kmv(22)=kmv(22)+ $ (4*e334*mt**2-4*e3234*p1p2-4*e343*p1p2+ $ 4*e3234*p1p4+4*e343*p1p4+4*e343*p2p3- $ 4*e3134*p2p4-8*e334*p2p4-4*e343*p3p4) kmv(23)=kmv(23)+ $ (-4*e3234*mt**2-4*e343*mt**2+4*e324*p1p2+ $ 4*e34*p1p2+8*e342*p1p2-4*e324*p1p4-4*e34*p1p4- $ 8*e342*p1p4-4*e34*p2p3-4*e342*p2p3+4*e3124*p2p4+ $ 8*e3234*p2p4+4*e341*p2p4+8*e343*p2p4+4*e34*p3p4+ $ 4*e342*p3p4) kmv(28)=kmv(28)+ $ (-4*e33*mt**3+4*e332*mt**3+4*e334*mt**3-4*e323*mt*p1p2- $ 8*e3234*mt*p1p2+4*e332*mt*p1p2+4*e334*mt*p1p2- $ 4*e343*mt*p1p2+4*e323*mt*p1p4+8*e3234*mt*p1p4- $ 4*e332*mt*p1p4-4*e334*mt*p1p4+4*e343*mt*p1p4+ $ 4*e3234*mt*p2p3-4*e334*mt*p2p3+4*e343*mt*p2p3- $ 4*e3123*mt*p2p4-4*e3134*mt*p2p4+8*e33*mt*p2p4+ $ 4*e331*mt*p2p4-8*e332*mt*p2p4-8*e334*mt*p2p4- $ 4*e3234*mt*p3p4+4*e334*mt*p3p4-4*e343*mt*p3p4) kmv(29)=kmv(29)+ $ (-4*e323*mt**3-8*e3234*mt**3+4*e332*mt**3+4*e334*mt**3- $ 4*e343*mt**3+4*e32*mt*p1p2-4*e323*mt*p1p2- $ 8*e3234*mt*p1p2+12*e324*mt*p1p2+4*e34*mt*p1p2+ $ 12*e342*mt*p1p2-4*e343*mt*p1p2-4*e32*mt*p1p4+ $ 4*e323*mt*p1p4+8*e3234*mt*p1p4-12*e324*mt*p1p4- $ 4*e34*mt*p1p4-12*e342*mt*p1p4+4*e343*mt*p1p4+ $ 4*e3234*mt*p2p3-4*e324*mt*p2p3-4*e34*mt*p2p3- $ 8*e342*mt*p2p3+4*e343*mt*p2p3-4*e3123*mt*p2p4+ $ 8*e3124*mt*p2p4-4*e3134*mt*p2p4+4*e321*mt*p2p4+ $ 8*e323*mt*p2p4+16*e3234*mt*p2p4-8*e332*mt*p2p4- $ 8*e334*mt*p2p4+4*e341*mt*p2p4+8*e343*mt*p2p4- $ 4*e3234*mt*p3p4+4*e324*mt*p3p4+4*e34*mt*p3p4+ $ 8*e342*mt*p3p4-4*e343*mt*p3p4) kmv(46)=kmv(46)+(16*e33*mt+16*e331*mt) kmv(47)=kmv(47)+ $ (-16*e3123*mt-16*e3134*mt-16*e332*mt-16*e334*mt) kmv(49)=kmv(49)+ $ (-16*e3123*mt-16*e3134*mt-16*e332*mt-16*e334*mt) kmv(50)=kmv(50)+ $ (32*e3124*mt+16*e321*mt+16*e323*mt+32*e3234*mt+ $ 16*e341*mt+16*e343*mt) kmv(55)=kmv(55)-16*e334*mt kmv(56)=kmv(56)+(16*e3234*mt+16*e343*mt) kmv(58)=kmv(58)+(16*e3234*mt+16*e343*mt) kmv(59)=kmv(59)+(-16*e324*mt-16*e34*mt-32*e342*mt) kmv(64)=kmv(64)+ $ (-16*e332*mt**2-16*e334*mt**2-16*e332*p1p2- $ 16*e334*p1p2+16*e332*p1p4+16*e334*p1p4+ $ 16*e334*p2p3-32*e33*p2p4-16*e331*p2p4-16*e334*p3p4) kmv(65)=kmv(65)+ $ (16*e323*mt**2+32*e3234*mt**2+16*e343*mt**2+ $ 16*e323*p1p2+32*e3234*p1p2+16*e343*p1p2- $ 16*e323*p1p4-32*e3234*p1p4-16*e343*p1p4- $ 16*e3234*p2p3-16*e343*p2p3+16*e3123*p2p4+ $ 16*e3134*p2p4+32*e332*p2p4+32*e334*p2p4+ $ 16*e3234*p3p4+16*e343*p3p4) kmv(67)=kmv(67)+ $ (16*e323*mt**2+32*e3234*mt**2+8*e332*mt**2+8*e334*mt**2+ $ 16*e343*mt**2+8*e323*p1p2+16*e3234*p1p2+8*e343*p1p2- $ 8*e323*p1p4-16*e3234*p1p4-8*e343*p1p4- $ 8*e3234*p2p3-8*e343*p2p3+8*e3123*p2p4+ $ 8*e3134*p2p4+16*e332*p2p4+16*e334*p2p4+ $ 8*e3234*p3p4+8*e343*p3p4) kmv(68)=kmv(68)+ $ (-16*e32*mt**2-8*e323*mt**2-16*e3234*mt**2-48*e324*mt**2- $ 16*e34*mt**2-48*e342*mt**2-8*e343*mt**2-8*e32*p1p2- $ 24*e324*p1p2-8*e34*p1p2-24*e342*p1p2+8*e32*p1p4+ $ 24*e324*p1p4+8*e34*p1p4+24*e342*p1p4+8*e324*p2p3+ $ 8*e34*p2p3+16*e342*p2p3-16*e3124*p2p4- $ 8*e321*p2p4-16*e323*p2p4-32*e3234*p2p4- $ 8*e341*p2p4-16*e343*p2p4-8*e324*p3p4-8*e34*p3p4- $ 16*e342*p3p4) do i=1,68 kmv(i)=cg/2d0*kmv(i) enddo return end c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine pentp6_t(s,t1,t2,u1,u2,mt,mh,kmv) implicit none integer i,j real*8 mt,mh,ncf,cg real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq real*8 s1,s2 complex*16 zero,kmv(68) complex*16 d1(0:3),d2(0:6),d3(0:3,0:3) complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223 complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4) complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223, $ e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341, $ e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234 zero=dcmplx(0d0,0d0) do i=1,68 kmv(i)=zero enddo s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2 s1=s+t2+u2-mt**2 s2=s+t1+u1-mt**2 p3p4=s/2d0 p1p2=(s3-2d0*mt**2)/2d0 p1p3=(mt**2-t2)/2d0 p1p4=(mt**2-u2)/2d0 p2p3=(mt**2-u1)/2d0 p2p4=(mt**2-t1)/2d0 p1pq=p1p3+p1p4 p2pq=p2p3+p2p4 c color factors: ncf=3d0 cg=ncf c P6 e1(0)=E0_ir(6,mt,0d0,mt**2,mh**2,0d0,mt**2,mt**2-2d0*p1p4, $ mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4, $ 2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,mt**2-2d0*p2p3, $ mt**2-2d0*p2p4,0d0,0d0,mt,mt,mt) c write(6,*)'e0=',e1(0) call eefunc_ir(6,mt,0d0,mt**2,mt**2-2d0*p1p4, $ mt**2-2d0*p2p3,p2p4,-p1p4,p2p4-p3p4,p2p4-p1p2,mt**2-p2p3, $ p2p4-p3p4-p1p2+p1p3, $ 0d0,0d0,mt,mt,mt,e1,e2,e3,d1,d2,d3) d0=d1(0) d11=d1(1) d12=d1(2) d13=d1(3) d20=d2(0) d21=d2(1) d22=d2(2) d23=d2(3) d212=d2(4) d213=d2(5) d223=d2(6) e0=e1(0) e11=e1(1) e12=e1(2) e13=e1(3) e14=e1(4) e21=e2(1,1) e22=e2(2,2) e23=e2(3,3) e24=e2(4,4) e212=e2(1,2) e213=e2(1,3) e214=e2(1,4) e223=e2(2,3) e224=e2(2,4) e234=e2(3,4) e31=e3(1,1) e32=e3(2,2) e33=e3(3,3) e34=e3(4,4) e312=e3(1,2) e313=e3(1,3) e314=e3(1,4) e321=e3(2,1) e331=e3(3,1) e341=e3(4,1) e323=e3(2,3) e324=e3(2,4) e332=e3(3,2) e342=e3(4,2) e334=e3(3,4) e343=e3(4,3) e3123=e3(0,1) e3124=e3(0,2) e3134=e3(0,3) e3234=e3(0,4) kmv(1)=(-4*d11*mt**2-4*d13*mt**2-2*d21*mt**2-4*d213*mt**2- $ 2*d22*mt**2-2*d23*mt**2+4*d12*p1p2+4*d212*p1p2+ $ 4*d223*p1p2-4*d223*p1p3-4*d212*p1p4-4*d223*p1p4+ $ 8*e223*mt**2*p1p4+8*e234*mt**2*p1p4- $ 8*e23*p1p2*p1p4+4*d11*p2p3+8*d13*p2p3+ $ 4*d213*p2p3+4*d23*p2p3+8*e22*mt**2*p2p3+ $ 16*e224*mt**2*p2p3+8*e24*mt**2*p2p3- $ 8*e223*p1p2*p2p3-8*e234*p1p2*p2p3- $ 8*e234*p1p4*p2p3-8*e224*p2p3**2-8*e24*p2p3**2+ $ 4*d0*p2p4+4*d21*p2p4+8*d213*p2p4+4*d23*p2p4- $ 16*e22*mt**2*p2p4-32*e224*mt**2*p2p4-16*e24*mt**2*p2p4+ $ 16*e223*p1p2*p2p4+16*e234*p1p2*p2p4- $ 16*e223*p1p3*p2p4-16*e234*p1p3*p2p4+ $ 8*e213*p1p4*p2p4+8*e23*p1p4*p2p4+ $ 16*e12*p2p3*p2p4+16*e14*p2p3*p2p4+ $ 8*e212*p2p3*p2p4+8*e214*p2p3*p2p4+ $ 16*e22*p2p3*p2p4+8*e223*p2p3*p2p4+ $ 48*e224*p2p3*p2p4+8*e234*p2p3*p2p4+ $ 32*e24*p2p3*p2p4-16*e212*p2p4**2-16*e214*p2p4**2- $ 16*e223*p2p4**2-16*e234*p2p4**2-4*d11*p3p4- $ 4*d13*p3p4-4*d213*p3p4-4*d23*p3p4+ $ 8*e12*mt**2*p3p4+8*e14*mt**2*p3p4+8*e212*mt**2*p3p4+ $ 8*e214*mt**2*p3p4+8*e223*mt**2*p3p4+8*e224*mt**2*p3p4+ $ 8*e234*mt**2*p3p4+8*e24*mt**2*p3p4-8*e13*p1p2*p3p4- $ 8*e213*p1p2*p3p4-8*e23*p1p2*p3p4- $ 8*e234*p1p2*p3p4-8*e14*p2p3*p3p4- $ 8*e214*p2p3*p3p4-8*e234*p2p3*p3p4- $ 8*e24*p2p3*p3p4+16*e0*p2p4*p3p4+ $ 24*e11*p2p4*p3p4+16*e12*p2p4*p3p4+ $ 24*e13*p2p4*p3p4+16*e14*p2p4*p3p4+ $ 8*e21*p2p4*p3p4+16*e212*p2p4*p3p4+ $ 16*e213*p2p4*p3p4+24*e214*p2p4*p3p4+ $ 16*e223*p2p4*p3p4+8*e23*p2p4*p3p4+ $ 24*e234*p2p4*p3p4) kmv(2)=(-4*d0+2*d11+4*d13-4*e12*mt**2-4*e14*mt**2-4*e212*mt**2- $ 4*e214*mt**2-4*e223*mt**2+4*e224*mt**2-4*e234*mt**2+ $ 4*e24*mt**2+4*e13*p1p2+4*e213*p1p2+4*e23*p1p2- $ 4*e234*p1p2+8*e234*p1p3+8*e13*p1p4+4*e14*p2p3+ $ 4*e214*p2p3-8*e224*p2p3+4*e234*p2p3-12*e24*p2p3- $ 8*e0*p2p4-12*e11*p2p4-8*e12*p2p4-12*e13*p2p4- $ 8*e14*p2p4-4*e21*p2p4-8*e213*p2p4+4*e214*p2p4- $ 4*e23*p2p4+4*e234*p2p4-8*e214*p3p4-8*e234*p3p4) kmv(3)=(2*d11*mt-2*d12*mt+2*d13*mt+4*e22*mt**3-4*e223*mt**3+ $ 8*e224*mt**3-4*e234*mt**3+4*e24*mt**3-4*e223*mt*p1p2+ $ 4*e23*mt*p1p2-4*e234*mt*p1p2+8*e223*mt*p1p3- $ 8*e23*mt*p1p3+8*e234*mt*p1p3-8*e22*mt*p2p3+ $ 8*e223*mt*p2p3-20*e224*mt*p2p3+12*e234*mt*p2p3- $ 12*e24*mt*p2p3+4*e212*mt*p2p4-4*e213*mt*p2p4+ $ 4*e214*mt*p2p4+4*e223*mt*p2p4-4*e23*mt*p2p4+ $ 4*e234*mt*p2p4-8*e12*mt*p3p4+8*e13*mt*p3p4- $ 8*e14*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4- $ 8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4- $ 8*e234*mt*p3p4) kmv(4)=(-2*d11*mt+2*d12*mt-2*d13*mt-4*e22*mt**3+4*e223*mt**3- $ 8*e224*mt**3+4*e234*mt**3-4*e24*mt**3+4*e223*mt*p1p2- $ 4*e23*mt*p1p2+4*e234*mt*p1p2+4*e224*mt*p2p3- $ 4*e234*mt*p2p3+4*e24*mt*p2p3-8*e12*mt*p2p4+ $ 8*e13*mt*p2p4-8*e14*mt*p2p4-4*e212*mt*p2p4+ $ 4*e213*mt*p2p4-4*e214*mt*p2p4-4*e223*mt*p2p4+ $ 4*e23*mt*p2p4-4*e234*mt*p2p4) kmv(5)=(6*d20+4*d11*mt**2+2*d12*mt**2+4*d13*mt**2+2*d21*mt**2+ $ 4*d213*mt**2+2*d22*mt**2+2*d23*mt**2+4*e223*mt**4+ $ 4*e234*mt**4- $ 2*d11*p1p2-4*d12*p1p2-2*d13*p1p2-4*d212*p1p2- $ 4*d223*p1p2-4*e22*mt**2*p1p2-8*e224*mt**2*p1p2- $ 4*e23*mt**2*p1p2-4*e24*mt**2*p1p2+4*e223*p1p2**2+ $ 4*e234*p1p2**2+2*d12*p1p3+2*d13*p1p3+4*d223*p1p3+ $ 4*e224*mt**2*p1p3+4*e23*mt**2*p1p3+4*e24*mt**2*p1p3- $ 4*e223*p1p2*p1p3-8*e234*p1p2*p1p3+ $ 4*e234*p1p3**2+4*d0*p1p4+2*d11*p1p4+4*d12*p1p4+ $ 2*d13*p1p4+4*d212*p1p4+4*d223*p1p4+ $ 4*e12*mt**2*p1p4+4*e14*mt**2*p1p4-4*e212*mt**2*p1p4- $ 4*e214*mt**2*p1p4-4*e223*mt**2*p1p4-4*e234*mt**2*p1p4- $ 4*e13*p1p2*p1p4+4*e213*p1p2*p1p4+ $ 4*e23*p1p2*p1p4+4*e13*p1p3*p1p4- $ 4*e213*p1p3*p1p4-2*d11*p2p3-6*d13*p2p3- $ 4*d213*p2p3-4*d23*p2p3-4*e22*mt**2*p2p3- $ 8*e224*mt**2*p2p3-4*e234*mt**2*p2p3-4*e24*mt**2*p2p3+ $ 4*e223*p1p2*p2p3+4*e224*p1p2*p2p3+ $ 4*e234*p1p2*p2p3+4*e24*p1p2*p2p3- $ 4*e24*p1p3*p2p3-4*e14*p1p4*p2p3+ $ 4*e214*p1p4*p2p3-8*e223*p1p4*p2p3- $ 4*e234*p1p4*p2p3+4*e224*p2p3**2+4*e24*p2p3**2- $ 4*d0*p2p4-2*d11*p2p4-2*d13*p2p4-4*d21*p2p4- $ 8*d213*p2p4-4*d23*p2p4+4*e213*mt**2*p2p4+ $ 12*e22*mt**2*p2p4+24*e224*mt**2*p2p4+4*e23*mt**2*p2p4+ $ 12*e24*mt**2*p2p4-4*e212*p1p2*p2p4- $ 4*e214*p1p2*p2p4-16*e223*p1p2*p2p4- $ 16*e234*p1p2*p2p4+4*e214*p1p3*p2p4+ $ 12*e223*p1p3*p2p4+16*e234*p1p3*p2p4+ $ 4*e11*p1p4*p2p4+4*e13*p1p4*p2p4- $ 4*e21*p1p4*p2p4-8*e213*p1p4*p2p4- $ 4*e23*p1p4*p2p4-8*e12*p2p3*p2p4- $ 8*e14*p2p3*p2p4-4*e212*p2p3*p2p4- $ 4*e214*p2p3*p2p4-8*e22*p2p3*p2p4- $ 4*e223*p2p3*p2p4-28*e224*p2p3*p2p4- $ 4*e234*p2p3*p2p4-20*e24*p2p3*p2p4+ $ 12*e212*p2p4**2+12*e214*p2p4**2+12*e223*p2p4**2+ $ 12*e234*p2p4**2-4*d0*p3p4+2*d11*p3p4+6*d13*p3p4+ $ 4*d213*p3p4+4*d23*p3p4-4*e12*mt**2*p3p4- $ 4*e14*mt**2*p3p4-4*e212*mt**2*p3p4-4*e214*mt**2*p3p4- $ 4*e223*mt**2*p3p4-4*e234*mt**2*p3p4+ $ 4*e13*p1p2*p3p4+4*e213*p1p2*p3p4+ $ 4*e23*p1p2*p3p4+4*e234*p1p3*p3p4- $ 8*e213*p1p4*p3p4-8*e23*p1p4*p3p4+ $ 4*e14*p2p3*p3p4+4*e214*p2p3*p3p4- $ 8*e224*p2p3*p3p4+4*e234*p2p3*p3p4- $ 8*e24*p2p3*p3p4-8*e0*p2p4*p3p4- $ 12*e11*p2p4*p3p4-8*e12*p2p4*p3p4- $ 12*e13*p2p4*p3p4-8*e14*p2p4*p3p4- $ 4*e21*p2p4*p3p4-8*e212*p2p4*p3p4- $ 8*e213*p2p4*p3p4-8*e214*p2p4*p3p4- $ 8*e223*p2p4*p3p4-4*e23*p2p4*p3p4- $ 8*e234*p2p4*p3p4-8*e214*p3p4**2-8*e234*p3p4**2) kmv(6)=(5*d0-3*d13+2*e12*mt**2+2*e14*mt**2+2*e212*mt**2- $ 2*e213*mt**2+2*e214*mt**2+2*e223*mt**2-6*e224*mt**2- $ 2*e23*mt**2+2*e234*mt**2-6*e24*mt**2-2*e13*p1p2+ $ 2*e212*p1p2-2*e213*p1p2+2*e214*p1p2+2*e223*p1p2- $ 2*e23*p1p2+8*e234*p1p2-2*e214*p1p3-10*e234*p1p3- $ 2*e11*p1p4-6*e13*p1p4+2*e21*p1p4+6*e213*p1p4+ $ 4*e23*p1p4-2*e14*p2p3-2*e214*p2p3+8*e224*p2p3- $ 2*e234*p2p3+14*e24*p2p3+4*e0*p2p4+6*e11*p2p4+ $ 4*e12*p2p4+6*e13*p2p4+4*e14*p2p4+2*e21*p2p4- $ 2*e212*p2p4+4*e213*p2p4-8*e214*p2p4-2*e223*p2p4+ $ 2*e23*p2p4-8*e234*p2p4+10*e214*p3p4+10*e234*p3p4) kmv(7)=(3*d11*mt-3*d12*mt+3*d13*mt+6*e22*mt**3-6*e223*mt**3+ $ 12*e224*mt**3-6*e234*mt**3+6*e24*mt**3-6*e223*mt*p1p2+ $ 6*e23*mt*p1p2-6*e234*mt*p1p2+8*e223*mt*p1p3- $ 8*e23*mt*p1p3+8*e234*mt*p1p3-8*e22*mt*p2p3+ $ 8*e223*mt*p2p3-22*e224*mt*p2p3+14*e234*mt*p2p3- $ 14*e24*mt*p2p3+6*e212*mt*p2p4-6*e213*mt*p2p4+ $ 6*e214*mt*p2p4+6*e223*mt*p2p4-6*e23*mt*p2p4+ $ 6*e234*mt*p2p4-4*e12*mt*p3p4+4*e13*mt*p3p4- $ 4*e14*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4- $ 8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4- $ 8*e234*mt*p3p4) kmv(8)=(-2*e22*mt**3+4*e223*mt**3-4*e224*mt**3-2*e23*mt**3+ $ 4*e234*mt**3-2*e24*mt**3-2*e22*mt*p1p2+4*e223*mt*p1p2- $ 4*e224*mt*p1p2-2*e23*mt*p1p2+4*e234*mt*p1p2- $ 2*e24*mt*p1p2+2*e224*mt*p1p3-2*e234*mt*p1p3+ $ 2*e24*mt*p1p3+2*e12*mt*p1p4-2*e13*mt*p1p4+ $ 2*e14*mt*p1p4-2*e212*mt*p1p4+2*e213*mt*p1p4- $ 2*e214*mt*p1p4-4*e223*mt*p1p4+4*e23*mt*p1p4- $ 4*e234*mt*p1p4+2*e224*mt*p2p3-2*e234*mt*p2p3+ $ 2*e24*mt*p2p3-4*e12*mt*p2p4+4*e13*mt*p2p4- $ 4*e14*mt*p2p4-2*e212*mt*p2p4+2*e213*mt*p2p4- $ 2*e214*mt*p2p4+2*e22*mt*p2p4-4*e223*mt*p2p4+ $ 4*e224*mt*p2p4+2*e23*mt*p2p4-4*e234*mt*p2p4+ $ 2*e24*mt*p2p4-2*e224*mt*p3p4+2*e234*mt*p3p4- $ 2*e24*mt*p3p4) kmv(10)=(8*e22*mt-8*e223*mt+16*e224*mt-8*e234*mt+8*e24*mt) kmv(11)=(-8*e223*mt+8*e23*mt-8*e234*mt) kmv(13)=(-4*e13*mt-8*e212*mt-8*e214*mt-8*e22*mt-16*e224*mt- $ 8*e24*mt) kmv(14)=(-4*e12*mt+8*e13*mt-4*e14*mt+8*e213*mt+8*e223*mt+ $ 8*e234*mt) kmv(16)=(10*d0+4*d11+4*d13+2*d21+4*d213+2*d23+4*e12*mt**2+ $ 4*e14*mt**2+4*e212*mt**2-4*e213*mt**2+4*e214*mt**2- $ 12*e22*mt**2+4*e223*mt**2-24*e224*mt**2-4*e23*mt**2+ $ 4*e234*mt**2-12*e24*mt**2-4*e13*p1p2+4*e212*p1p2- $ 4*e213*p1p2+4*e214*p1p2+16*e223*p1p2-4*e23*p1p2+ $ 16*e234*p1p2-4*e214*p1p3-16*e223*p1p3- $ 20*e234*p1p3-4*e11*p1p4-12*e13*p1p4+4*e21*p1p4- $ 4*e212*p1p4+12*e213*p1p4-4*e214*p1p4- $ 12*e223*p1p4+8*e23*p1p4-12*e234*p1p4-4*e14*p2p3- $ 4*e214*p2p3+12*e224*p2p3-4*e234*p2p3+12*e24*p2p3+ $ 8*e0*p2p4+12*e11*p2p4+16*e12*p2p4+12*e13*p2p4+ $ 16*e14*p2p4+4*e21*p2p4-8*e212*p2p4+8*e213*p2p4- $ 8*e214*p2p4+8*e22*p2p4-8*e223*p2p4+16*e224*p2p4+ $ 4*e23*p2p4-8*e234*p2p4+8*e24*p2p4-8*e14*p3p4+ $ 8*e212*p3p4+12*e214*p3p4+8*e223*p3p4-8*e224*p3p4+ $ 12*e234*p3p4-8*e24*p3p4) kmv(17)=(-10*d12-2*d212-2*d223+4*e213*p1p4+12*e23*p1p4+ $ 16*e223*p2p3+16*e234*p2p3-8*e13*p2p4-8*e213*p2p4- $ 8*e223*p2p4-8*e23*p2p4-8*e234*p2p4+8*e13*p3p4+ $ 8*e213*p3p4+8*e23*p3p4+8*e234*p3p4) kmv(19)=(-4*d11-4*d13-8*e22*mt**2-16*e224*mt**2-8*e24*mt**2+ $ 8*e223*p1p2+8*e234*p1p2+8*e212*p1p3+8*e214*p1p3- $ 8*e223*p1p3-8*e234*p1p3-8*e212*p2p3-8*e214*p2p3- $ 8*e223*p2p3+8*e224*p2p3-8*e234*p2p3+8*e24*p2p3- $ 8*e212*p2p4-8*e214*p2p4-8*e223*p2p4-8*e234*p2p4+ $ 8*e212*p3p4+8*e214*p3p4+8*e223*p3p4+8*e234*p3p4) kmv(20)=(-2*d0+2*d11-2*d12+2*d13-8*e12*mt**2-8*e14*mt**2- $ 4*e212*mt**2-4*e214*mt**2-8*e223*mt**2-8*e234*mt**2+ $ 8*e13*p1p2+4*e213*p1p2+8*e23*p1p2-8*e13*p1p3- $ 8*e213*p1p3-8*e23*p1p3+8*e13*p2p3+8*e14*p2p3+ $ 8*e213*p2p3+4*e214*p2p3+16*e223*p2p3+8*e23*p2p3+ $ 24*e234*p2p3-8*e11*p2p4-8*e13*p2p4-4*e21*p2p4- $ 12*e213*p2p4-8*e23*p2p4+8*e13*p3p4+8*e213*p3p4+ $ 8*e23*p3p4) kmv(22)=(2*d11+2*d13+2*d213+2*d23+4*e22*mt**2+4*e224*mt**2+ $ 4*e234*mt**2-4*e223*p1p2-4*e224*p1p2-4*e24*p1p2+ $ 4*e24*p1p3+4*e14*p1p4-4*e214*p1p4+8*e223*p1p4+ $ 4*e224*p1p4+4*e24*p1p4-4*e224*p2p3+8*e12*p2p4+ $ 4*e212*p2p4+8*e22*p2p4+4*e223*p2p4+12*e224*p2p4+ $ 4*e24*p2p4-4*e24*p3p4) kmv(23)=(-2*d12-2*d223-4*e23*mt**2+4*e223*p1p2+ $ 4*e234*p1p2-4*e234*p1p3-4*e13*p1p4+4*e213*p1p4- $ 4*e234*p1p4-12*e223*p2p4-4*e234*p2p4+4*e234*p3p4) kmv(25)=(-2*d0-2*d11-2*d13-4*e13*mt**2-4*e223*mt**2- $ 4*e234*mt**2-4*e12*p1p2-4*e14*p1p2-4*e22*p1p2- $ 8*e223*p1p2-8*e224*p1p2-8*e234*p1p2-4*e24*p1p2- $ 4*e14*p1p3-4*e224*p1p3-4*e24*p1p3-4*e0*p1p4+ $ 4*e11*p1p4-4*e12*p1p4-4*e14*p1p4-4*e212*p1p4- $ 4*e214*p1p4+8*e223*p1p4+8*e234*p1p4+4*e12*p2p4+ $ 4*e14*p2p4+8*e212*p2p4+8*e214*p2p4+4*e22*p2p4+ $ 8*e223*p2p4+8*e224*p2p4+8*e234*p2p4+4*e24*p2p4+ $ 4*e14*p3p4+4*e224*p3p4+4*e24*p3p4) kmv(26)=(2*d0+2*d12+2*d13+4*e12*mt**2+4*e14*mt**2+4*e223*mt**2+ $ 4*e224*mt**2+4*e234*mt**2+4*e24*mt**2+4*e13*p1p2+ $ 8*e223*p1p2+4*e23*p1p2+4*e234*p1p2+8*e213*p1p4- $ 4*e14*p2p3-4*e234*p2p3-4*e24*p2p3+8*e0*p2p4+ $ 4*e11*p2p4+8*e12*p2p4+4*e13*p2p4+8*e14*p2p4- $ 4*e213*p2p4+4*e214*p2p4-8*e223*p2p4-4*e23*p2p4- $ 4*e234*p2p4) kmv(28)=(2*d21*mt-2*d212*mt+4*d213*mt-2*d223*mt+2*d23*mt- $ 4*e22*mt**3+8*e223*mt**3-8*e224*mt**3-4*e23*mt**3+ $ 8*e234*mt**3- $ 4*e24*mt**3-4*e22*mt*p1p2+8*e223*mt*p1p2- $ 8*e224*mt*p1p2-4*e23*mt*p1p2+8*e234*mt*p1p2- $ 4*e24*mt*p1p2+4*e224*mt*p1p3-4*e234*mt*p1p3+ $ 4*e24*mt*p1p3+4*e12*mt*p1p4-4*e13*mt*p1p4+ $ 4*e14*mt*p1p4-4*e212*mt*p1p4+4*e213*mt*p1p4- $ 4*e214*mt*p1p4+4*e22*mt*p1p4-12*e223*mt*p1p4+ $ 8*e224*mt*p1p4+8*e23*mt*p1p4-12*e234*mt*p1p4+ $ 4*e24*mt*p1p4+4*e224*mt*p2p3-4*e234*mt*p2p3+ $ 4*e24*mt*p2p3-8*e12*mt*p2p4+8*e13*mt*p2p4- $ 8*e14*mt*p2p4-4*e212*mt*p2p4+4*e213*mt*p2p4- $ 4*e214*mt*p2p4-4*e22*mt*p2p4-8*e224*mt*p2p4+ $ 4*e23*mt*p2p4-4*e24*mt*p2p4-8*e22*mt*p3p4+ $ 8*e223*mt*p3p4-20*e224*mt*p3p4+12*e234*mt*p3p4- $ 12*e24*mt*p3p4) kmv(29)=(-2*d212*mt+2*d22*mt-2*d223*mt-4*e223*mt*p1p4+ $ 4*e23*mt*p1p4-4*e234*mt*p1p4+8*e223*mt*p2p4- $ 8*e23*mt*p2p4+8*e234*mt*p2p4+8*e223*mt*p3p4- $ 8*e23*mt*p3p4+8*e234*mt*p3p4) kmv(31)=(4*d11*mt+4*d13*mt+8*e22*mt**3+16*e224*mt**3+8*e24*mt**3- $ 8*e223*mt*p1p2-8*e234*mt*p1p2+8*e22*mt*p1p3+ $ 16*e224*mt*p1p3+8*e24*mt*p1p3+8*e223*mt*p2p3- $ 8*e224*mt*p2p3+8*e234*mt*p2p3-8*e24*mt*p2p3+ $ 8*e212*mt*p2p4+8*e214*mt*p2p4+8*e223*mt*p2p4+ $ 8*e234*mt*p2p4+8*e13*mt*p3p4+8*e212*mt*p3p4+ $ 8*e214*mt*p3p4+8*e22*mt*p3p4+16*e224*mt*p3p4+ $ 8*e24*mt*p3p4) kmv(32)=(-2*d11*mt-2*d12*mt-2*d13*mt-4*e22*mt**3-4*e223*mt**3- $ 8*e224*mt**3-4*e234*mt**3-4*e24*mt**3+4*e223*mt*p1p2+ $ 4*e23*mt*p1p2+4*e234*mt*p1p2-8*e223*mt*p1p3- $ 8*e234*mt*p1p3+4*e224*mt*p2p3-8*e23*mt*p2p3+ $ 4*e234*mt*p2p3+4*e24*mt*p2p3-4*e212*mt*p2p4- $ 4*e213*mt*p2p4-4*e214*mt*p2p4-4*e223*mt*p2p4- $ 4*e23*mt*p2p4-4*e234*mt*p2p4-8*e13*mt*p3p4- $ 8*e213*mt*p3p4-8*e223*mt*p3p4-8*e234*mt*p3p4) kmv(37)=(8*e14+8*e212+8*e214+8*e223+8*e224+8*e234+8*e24) kmv(38)=(-8*e212-8*e214+8*e223) kmv(40)=(-8*e13-8*e14-8*e213-16*e223-8*e224-8*e23-16*e234- $ 8*e24) kmv(41)=(8*e13+8*e213+8*e23+8*e234) kmv(46)=(-8*e13*mt-16*e212*mt-16*e214*mt-24*e223*mt-24*e234*mt) kmv(47)=8*e23*mt kmv(49)=(-8*e12*mt+16*e13*mt-8*e14*mt+16*e213*mt-8*e22*mt+ $ 16*e223*mt-16*e224*mt+16*e23*mt+16*e234*mt-8*e24*mt) kmv(50)=(8*e223*mt-16*e23*mt+8*e234*mt) kmv(55)=(-8*e223*mt+16*e224*mt-8*e234*mt+16*e24*mt) kmv(56)=(-8*e22*mt-16*e224*mt-8*e24*mt) kmv(58)=(8*e23*mt-16*e234*mt) kmv(59)=(8*e223*mt+8*e234*mt) kmv(64)=(-4*d0+8*d11+8*d13+4*d21+8*d213+4*d23-8*e13*mt**2- $ 16*e223*mt**2-16*e234*mt**2-8*e12*p1p2-8*e14*p1p2- $ 16*e22*p1p2-16*e223*p1p2-32*e224*p1p2- $ 16*e234*p1p2-16*e24*p1p2-8*e14*p1p3-8*e0*p1p4+ $ 8*e11*p1p4-16*e12*p1p4-16*e14*p1p4-8*e22*p1p4- $ 16*e223*p1p4-16*e224*p1p4-16*e234*p1p4- $ 8*e24*p1p4-16*e224*p2p3-16*e24*p2p3+8*e12*p2p4+ $ 8*e14*p2p4+16*e212*p2p4+16*e214*p2p4+16*e22*p2p4+ $ 16*e223*p2p4+32*e224*p2p4+16*e234*p2p4+ $ 16*e24*p2p4-8*e14*p3p4-16*e212*p3p4-16*e214*p3p4- $ 16*e223*p3p4-16*e224*p3p4-16*e234*p3p4-16*e24*p3p4) kmv(65)=(8*d11+4*d12+8*d13-4*d212-4*d223+16*e22*mt**2+ $ 32*e224*mt**2+8*e23*mt**2+16*e24*mt**2-8*e223*p1p2- $ 8*e234*p1p2+8*e234*p1p3+8*e13*p1p4-8*e213*p1p4+ $ 8*e223*p1p4+8*e234*p1p4-16*e224*p2p3-16*e24*p2p3+ $ 16*e212*p2p4+16*e214*p2p4+8*e223*p2p4+ $ 8*e234*p2p4-16*e223*p3p4-8*e234*p3p4) kmv(67)=(4*d0+4*d11-12*d12+4*d13-8*d212-8*d223+8*e12*mt**2+ $ 8*e14*mt**2+8*e22*mt**2+8*e223*mt**2+16*e224*mt**2+ $ 8*e234*mt**2+8*e24*mt**2+8*e13*p1p2+24*e223*p1p2+ $ 8*e23*p1p2+24*e234*p1p2-16*e234*p1p3+ $ 16*e213*p1p4+32*e23*p1p4-8*e14*p2p3-8*e224*p2p3+ $ 8*e234*p2p3-8*e24*p2p3+16*e0*p2p4+8*e11*p2p4+ $ 32*e12*p2p4+8*e13*p2p4+32*e14*p2p4+8*e212*p2p4- $ 8*e213*p2p4+8*e214*p2p4+16*e22*p2p4-8*e223*p2p4+ $ 32*e224*p2p4-8*e23*p2p4-8*e234*p2p4+16*e24*p2p4+ $ 16*e13*p3p4+16*e213*p3p4+16*e223*p3p4+ $ 16*e23*p3p4+32*e234*p3p4) kmv(68)=(-8*d12+8*d22-16*e223*mt**2-16*e234*mt**2+ $ 16*e234*p2p3-16*e13*p2p4-16*e213*p2p4- $ 16*e223*p2p4-16*e23*p2p4-16*e234*p2p4) kmv(16)=kmv(16)+ $ (-4*e3123*mt**2-4*e3134*mt**2-4*e332*mt**2-4*e334*mt**2+ $ 8*e3124*p1p2+4*e321*p1p2+4*e323*p1p2+ $ 8*e3234*p1p2+4*e341*p1p2+4*e343*p1p2- $ 4*e3124*p1p3-4*e3234*p1p3-4*e341*p1p3- $ 4*e343*p1p3+4*e312*p1p4+12*e3123*p1p4+ $ 12*e3134*p1p4+4*e314*p1p4+8*e332*p1p4+ $ 8*e334*p1p4-8*e3124*p2p4-4*e321*p2p4-4*e323*p2p4- $ 8*e3234*p2p4-4*e341*p2p4-4*e343*p2p4+ $ 4*e3124*p3p4+4*e3234*p3p4+4*e341*p3p4+4*e343*p3p4) kmv(17)=kmv(17)+ $ (4*e33*mt**2+4*e331*mt**2-4*e3123*p1p2- $ 4*e3134*p1p2-4*e332*p1p2-4*e334*p1p2+ $ 4*e3134*p1p3+4*e334*p1p3-4*e313*p1p4-8*e33*p1p4- $ 12*e331*p1p4+4*e3123*p2p4+4*e3134*p2p4+ $ 4*e332*p2p4+4*e334*p2p4-4*e3134*p3p4-4*e334*p3p4) kmv(22)=kmv(22)+ $ (4*e3234*mt**2+4*e343*mt**2-4*e324*p1p2-4*e34*p1p2- $ 8*e342*p1p2+4*e34*p1p3+4*e342*p1p3-4*e3124*p1p4- $ 8*e3234*p1p4-4*e341*p1p4-8*e343*p1p4+4*e324*p2p4+ $ 4*e34*p2p4+8*e342*p2p4-4*e34*p3p4-4*e342*p3p4) kmv(23)=kmv(23)+ $ (-4*e334*mt**2+4*e3234*p1p2+4*e343*p1p2- $ 4*e343*p1p3+4*e3134*p1p4+8*e334*p1p4- $ 4*e3234*p2p4-4*e343*p2p4+4*e343*p3p4) kmv(28)=kmv(28)+ $ (4*e323*mt**3+8*e3234*mt**3-4*e332*mt**3-4*e334*mt**3+ $ 4*e343*mt**3-4*e32*mt*p1p2+4*e323*mt*p1p2+ $ 8*e3234*mt*p1p2-12*e324*mt*p1p2-4*e34*mt*p1p2- $ 12*e342*mt*p1p2+4*e343*mt*p1p2-4*e3234*mt*p1p3+ $ 4*e324*mt*p1p3+4*e34*mt*p1p3+8*e342*mt*p1p3- $ 4*e343*mt*p1p3+4*e3123*mt*p1p4-8*e3124*mt*p1p4+ $ 4*e3134*mt*p1p4-4*e321*mt*p1p4-8*e323*mt*p1p4- $ 16*e3234*mt*p1p4+8*e332*mt*p1p4+8*e334*mt*p1p4- $ 4*e341*mt*p1p4-8*e343*mt*p1p4+4*e32*mt*p2p4- $ 4*e323*mt*p2p4-8*e3234*mt*p2p4+12*e324*mt*p2p4+ $ 4*e34*mt*p2p4+12*e342*mt*p2p4-4*e343*mt*p2p4+ $ 4*e3234*mt*p3p4-4*e324*mt*p3p4-4*e34*mt*p3p4- $ 8*e342*mt*p3p4+4*e343*mt*p3p4) kmv(29)=kmv(29)+ $ (4*e33*mt**3-4*e332*mt**3-4*e334*mt**3+4*e323*mt*p1p2+ $ 8*e3234*mt*p1p2-4*e332*mt*p1p2-4*e334*mt*p1p2+ $ 4*e343*mt*p1p2-4*e3234*mt*p1p3+4*e334*mt*p1p3- $ 4*e343*mt*p1p3+4*e3123*mt*p1p4+4*e3134*mt*p1p4- $ 8*e33*mt*p1p4-4*e331*mt*p1p4+8*e332*mt*p1p4+ $ 8*e334*mt*p1p4-4*e323*mt*p2p4-8*e3234*mt*p2p4+ $ 4*e332*mt*p2p4+4*e334*mt*p2p4-4*e343*mt*p2p4+ $ 4*e3234*mt*p3p4-4*e334*mt*p3p4+4*e343*mt*p3p4) kmv(46)=kmv(46)+(-32*e3124*mt-16*e321*mt-16*e323*mt-32*e3234*mt- $ 16*e341*mt-16*e343*mt) kmv(47)=kmv(47)+(16*e3123*mt+16*e3134*mt+16*e332*mt+16*e334*mt) kmv(49)=kmv(49)+(16*e3123*mt+16*e3134*mt+16*e332*mt+16*e334*mt) kmv(50)=kmv(50)+(-16*e33*mt-16*e331*mt) kmv(55)=kmv(55)+(16*e324*mt+16*e34*mt+32*e342*mt) kmv(56)=kmv(56)+(-16*e3234*mt-16*e343*mt) kmv(58)=kmv(58)+(-16*e3234*mt-16*e343*mt) kmv(59)=kmv(59)+16*e334*mt kmv(64)=kmv(64)+ $ (-16*e32*mt**2-8*e323*mt**2-16*e3234*mt**2-48*e324*mt**2- $ 16*e34*mt**2-48*e342*mt**2-8*e343*mt**2-8*e32*p1p2- $ 24*e324*p1p2-8*e34*p1p2-24*e342*p1p2+8*e324*p1p3+ $ 8*e34*p1p3+16*e342*p1p3-16*e3124*p1p4- $ 8*e321*p1p4-16*e323*p1p4-32*e3234*p1p4- $ 8*e341*p1p4-16*e343*p1p4+8*e32*p2p4+24*e324*p2p4+ $ 8*e34*p2p4+24*e342*p2p4-8*e324*p3p4-8*e34*p3p4- $ 16*e342*p3p4) kmv(65)=kmv(65)+ $ (16*e323*mt**2+32*e3234*mt**2+8*e332*mt**2+8*e334*mt**2+ $ 16*e343*mt**2+8*e323*p1p2+16*e3234*p1p2+8*e343*p1p2- $ 8*e3234*p1p3-8*e343*p1p3+8*e3123*p1p4+ $ 8*e3134*p1p4+16*e332*p1p4+16*e334*p1p4- $ 8*e323*p2p4-16*e3234*p2p4-8*e343*p2p4+ $ 8*e3234*p3p4+8*e343*p3p4) kmv(67)=kmv(67)+ $ (16*e323*mt**2+32*e3234*mt**2+16*e343*mt**2+ $ 16*e323*p1p2+32*e3234*p1p2+16*e343*p1p2- $ 16*e3234*p1p3-16*e343*p1p3+16*e3123*p1p4+ $ 16*e3134*p1p4+32*e332*p1p4+32*e334*p1p4- $ 16*e323*p2p4-32*e3234*p2p4-16*e343*p2p4+ $ 16*e3234*p3p4+16*e343*p3p4) kmv(68)=kmv(68)+ $ (-16*e332*mt**2-16*e334*mt**2-16*e332*p1p2- $ 16*e334*p1p2+16*e334*p1p3-32*e33*p1p4- $ 16*e331*p1p4+16*e332*p2p4+16*e334*p2p4-16*e334*p3p4) do i=1,68 kmv(i)=cg/2d0*kmv(i) enddo return end