c--------------------------------------------------------------------- * c--------------------------------------------------------------------- subroutine qqbox_ir(s,t1,t2,u1,u2,mt,mh,kmv) c form factors for the UV finite, but IR div. contribution c box diagrams kmv1: B3(1),B3(3), kmv2: B3(2),B3(4) 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 d1r(0:3),d2r(0:6),d3r(0:3,0:3),ch1(0:2),s1,s2,cs1,cs2 complex*16 zero,kmv(4),kmv1(4),kmv2(4) 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,4 kmv(i)=zero kmv1(i)=zero kmv2(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 cs1=1d0/(s1-mt**2)/s cs2=1d0/(s2-mt**2)/s c B3(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,*)'B3(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(1)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+ $ 64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2- $ 64*d11*mt**4*s**2+32*d13*mt**4*s**2+32*d223*mt**4*s**2+ $ 32*d23*mt**4*s**2-16*d11*mt**2*s**3+16*d212*mt**2*s**3+ $ 16*d213*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d213*s**3*p1p2+32*c0*mt**2*s*p1p3+ $ 64*d20*mt**2*s*p1p3-128*d12*mt**4*s*p1p3- $ 192*d13*mt**4*s*p1p3-64*d223*mt**4*s*p1p3- $ 64*d23*mt**4*s*p1p3-32*d11*mt**2*s**2*p1p3- $ 64*d12*mt**2*s**2*p1p3-96*d13*mt**2*s**2*p1p3- $ 32*d212*mt**2*s**2*p1p3-32*d213*mt**2*s**2*p1p3+ $ 32*d223*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3- $ 96*c0*s*p1p2*p1p3-128*d20*s*p1p2*p1p3+ $ 128*d12*mt**2*s*p1p2*p1p3+128*d13*mt**2*s*p1p2*p1p3+ $ 64*d223*mt**2*s*p1p2*p1p3+64*d11*s**2*p1p2*p1p3+ $ 32*d212*s**2*p1p2*p1p3+32*d213*s**2*p1p2*p1p3- $ 32*d223*s**2*p1p2*p1p3-32*d23*s**2*p1p2*p1p3- $ 64*d13*mt**2*s*p1p3**2-64*d223*mt**2*s*p1p3**2- $ 64*d23*mt**2*s*p1p3**2+128*d12*s*p1p2*p1p3**2+ $ 256*d13*s*p1p2*p1p3**2+64*d223*s*p1p2*p1p3**2+ $ 64*d23*s*p1p2*p1p3**2-32*c0*mt**2*s*p1p4- $ 64*d20*mt**2*s*p1p4+128*d11*mt**4*s*p1p4+ $ 64*d213*mt**4*s*p1p4-64*d23*mt**4*s*p1p4+ $ 32*d11*mt**2*s**2*p1p4+32*d212*mt**2*s**2*p1p4- $ 32*c0*s*p1p2*p1p4-128*d11*mt**2*s*p1p2*p1p4- $ 64*d13*mt**2*s*p1p2*p1p4-64*d213*mt**2*s*p1p2*p1p4+ $ 32*d11*s**2*p1p2*p1p4-32*d212*s**2*p1p2*p1p4+ $ 32*d213*s**2*p1p2*p1p4-256*c0*mt**2*p1p3*p1p4- $ 256*d20*mt**2*p1p3*p1p4-256*d13*mt**4*p1p3*p1p4- $ 256*d23*mt**4*p1p3*p1p4+256*d11*mt**2*s*p1p3*p1p4+ $ 64*d13*mt**2*s*p1p3*p1p4+64*d213*mt**2*s*p1p3*p1p4- $ 64*d223*mt**2*s*p1p3*p1p4-128*d23*mt**2*s*p1p3*p1p4+ $ 256*c0*p1p2*p1p3*p1p4+256*d20*p1p2*p1p3*p1p4+ $ 256*d13*mt**2*p1p2*p1p3*p1p4+ $ 256*d23*mt**2*p1p2*p1p3*p1p4- $ 320*d11*s*p1p2*p1p3*p1p4+ $ 128*d12*s*p1p2*p1p3*p1p4+ $ 128*d13*s*p1p2*p1p3*p1p4- $ 128*d213*s*p1p2*p1p3*p1p4+ $ 64*d223*s*p1p2*p1p3*p1p4+ $ 64*d23*s*p1p2*p1p3*p1p4+ $ 512*d12*mt**2*p1p3**2*p1p4+ $ 768*d13*mt**2*p1p3**2*p1p4+ $ 256*d223*mt**2*p1p3**2*p1p4+ $ 384*d23*mt**2*p1p3**2*p1p4- $ 512*d12*p1p2*p1p3**2*p1p4- $ 768*d13*p1p2*p1p3**2*p1p4- $ 256*d223*p1p2*p1p3**2*p1p4- $ 256*d23*p1p2*p1p3**2*p1p4-64*d213*mt**2*s*p1p4**2- $ 64*d11*s*p1p2*p1p4**2-512*d11*mt**2*p1p3*p1p4**2- $ 256*d213*mt**2*p1p3*p1p4**2+ $ 128*d23*mt**2*p1p3*p1p4**2+ $ 512*d11*p1p2*p1p3*p1p4**2+ $ 256*d213*p1p2*p1p3*p1p4**2+64*c0*mt**2*s*p2p3+ $ 64*d20*mt**2*s*p2p3+64*d13*mt**4*s*p2p3+ $ 64*d23*mt**4*s*p2p3-64*d11*mt**2*s**2*p2p3+ $ 128*c0*s*p1p3*p2p3-128*d12*mt**2*s*p1p3*p2p3- $ 128*d13*mt**2*s*p1p3*p2p3-64*d11*s**2*p1p3*p2p3- $ 128*d12*s*p1p3**2*p2p3-256*d13*s*p1p3**2*p2p3+ $ 32*c0*s*p1p4*p2p3-128*d20*s*p1p4*p2p3+ $ 128*d11*mt**2*s*p1p4*p2p3+64*d213*mt**2*s*p1p4*p2p3+ $ 64*d223*mt**2*s*p1p4*p2p3+32*d212*s**2*p1p4*p2p3+ $ 32*d213*s**2*p1p4*p2p3-192*c0*p1p3*p1p4*p2p3- $ 256*d20*p1p3*p1p4*p2p3- $ 128*d13*mt**2*p1p3*p1p4*p2p3- $ 256*d23*mt**2*p1p3*p1p4*p2p3+ $ 256*d11*s*p1p3*p1p4*p2p3+ $ 64*d212*s*p1p3*p1p4*p2p3+ $ 64*d213*s*p1p3*p1p4*p2p3+ $ 64*d223*s*p1p3*p1p4*p2p3+ $ 64*d23*s*p1p3*p1p4*p2p3+ $ 256*d12*p1p3**2*p1p4*p2p3+ $ 512*d13*p1p3**2*p1p4*p2p3+ $ 128*d223*p1p3**2*p1p4*p2p3+ $ 128*d23*p1p3**2*p1p4*p2p3+64*c0*p1p4**2*p2p3+ $ 128*d13*mt**2*p1p4**2*p2p3-64*d11*s*p1p4**2*p2p3+ $ 64*d212*s*p1p4**2*p2p3-64*d213*s*p1p4**2*p2p3- $ 384*d11*p1p3*p1p4**2*p2p3- $ 256*d12*p1p3*p1p4**2*p2p3- $ 256*d13*p1p3*p1p4**2*p2p3- $ 256*d213*p1p3*p1p4**2*p2p3- $ 128*d223*p1p3*p1p4**2*p2p3- $ 128*d23*p1p3*p1p4**2*p2p3+128*d11*p1p4**3*p2p3+ $ 64*c0*mt**2*s*p2p4+64*d20*mt**2*s*p2p4+ $ 64*d13*mt**4*s*p2p4+64*d23*mt**4*s*p2p4- $ 32*d11*mt**2*s**2*p2p4+32*d223*mt**2*s**2*p2p4+ $ 32*d23*mt**2*s**2*p2p4+32*c0*s*p1p3*p2p4- $ 128*d20*s*p1p3*p2p4-64*d11*mt**2*s*p1p3*p2p4- $ 128*d12*mt**2*s*p1p3*p2p4-192*d13*mt**2*s*p1p3*p2p4- $ 64*d223*mt**2*s*p1p3*p2p4-128*d23*mt**2*s*p1p3*p2p4+ $ 32*d212*s**2*p1p3*p2p4+32*d213*s**2*p1p3*p2p4+ $ 192*c0*p1p3**2*p2p4+256*d20*p1p3**2*p2p4+ $ 128*d13*mt**2*p1p3**2*p2p4+ $ 128*d23*mt**2*p1p3**2*p2p4-128*d11*s*p1p3**2*p2p4- $ 64*d212*s*p1p3**2*p2p4-64*d213*s*p1p3**2*p2p4+ $ 64*d223*s*p1p3**2*p2p4+64*d23*s*p1p3**2*p2p4- $ 256*d12*p1p3**3*p2p4-512*d13*p1p3**3*p2p4- $ 128*d223*p1p3**3*p2p4-128*d23*p1p3**3*p2p4+ $ 64*c0*s*p1p4*p2p4-128*d20*s*p1p4*p2p4+ $ 64*d11*mt**2*s*p1p4*p2p4+64*d13*mt**2*s*p1p4*p2p4+ $ 64*d213*mt**2*s*p1p4*p2p4-64*d23*mt**2*s*p1p4*p2p4+ $ 64*d212*s**2*p1p4*p2p4+64*d213*s**2*p1p4*p2p4- $ 64*c0*p1p3*p1p4*p2p4- $ 128*d13*mt**2*p1p3*p1p4*p2p4- $ 128*d23*mt**2*p1p3*p1p4*p2p4- $ 64*d11*s*p1p3*p1p4*p2p4- $ 128*d12*s*p1p3*p1p4*p2p4- $ 128*d13*s*p1p3*p1p4*p2p4- $ 64*d212*s*p1p3*p1p4*p2p4- $ 192*d213*s*p1p3*p1p4*p2p4+ $ 384*d11*p1p3**2*p1p4*p2p4+ $ 256*d12*p1p3**2*p1p4*p2p4+ $ 256*d13*p1p3**2*p1p4*p2p4+ $ 256*d213*p1p3**2*p1p4*p2p4+ $ 128*d223*p1p3**2*p1p4*p2p4+ $ 128*d23*p1p3**2*p1p4*p2p4- $ 128*d213*s*p1p4**2*p2p4-128*d11*p1p3*p1p4**2*p2p4) kmv2(1)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+ $ 32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2- $ 16*d11*mt**2*s**3+16*d212*mt**2*s**3+16*d213*mt**2*s**3- $ 64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d213*s**3*p1p2+64*c0*s*p1p2**2+ $ 64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+ $ 64*d23*mt**2*s*p1p2**2-64*d11*s**2*p1p2**2- $ 32*d213*s**2*p1p2**2+64*c0*mt**2*s*p1p3+ $ 192*d20*mt**2*s*p1p3+32*d13*mt**4*s*p1p3+ $ 64*d23*mt**4*s*p1p3-64*d11*mt**2*s**2*p1p3- $ 64*d12*mt**2*s**2*p1p3-96*d13*mt**2*s**2*p1p3- $ 64*d212*mt**2*s**2*p1p3-64*d213*mt**2*s**2*p1p3+ $ 32*d223*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3- $ 64*c0*s*p1p2*p1p3+128*d12*mt**2*s*p1p2*p1p3+ $ 160*d13*mt**2*s*p1p2*p1p3+64*d223*mt**2*s*p1p2*p1p3+ $ 64*d23*mt**2*s*p1p2*p1p3+32*d11*s**2*p1p2*p1p3- $ 32*d223*s**2*p1p2*p1p3-32*d23*s**2*p1p2*p1p3- $ 128*d12*s*p1p2**2*p1p3-192*d13*s*p1p2**2*p1p3- $ 64*d223*s*p1p2**2*p1p3-64*d23*s*p1p2**2*p1p3- $ 64*d12*mt**2*s*p1p3**2-192*d13*mt**2*s*p1p3**2- $ 128*d223*mt**2*s*p1p3**2-128*d23*mt**2*s*p1p3**2+ $ 64*d12*s*p1p2*p1p3**2+128*d13*s*p1p2*p1p3**2- $ 128*d20*mt**2*s*p1p4+32*d13*mt**4*s*p1p4- $ 64*d23*mt**4*s*p1p4+32*d11*mt**2*s**2*p1p4+ $ 64*d212*mt**2*s**2*p1p4+32*d213*mt**2*s**2*p1p4- $ 64*d20*s*p1p2*p1p4-128*d11*mt**2*s*p1p2*p1p4- $ 32*d13*mt**2*s*p1p2*p1p4-64*d213*mt**2*s*p1p2*p1p4+ $ 32*d11*s**2*p1p2*p1p4+64*d213*s**2*p1p2*p1p4+ $ 128*d11*s*p1p2**2*p1p4+64*d213*s*p1p2**2*p1p4- $ 64*d12*mt**2*s*p1p3*p1p4-64*d23*mt**2*s*p1p3*p1p4- $ 64*d11*s*p1p2*p1p3*p1p4+ $ 64*d12*s*p1p2*p1p3*p1p4+ $ 64*d13*s*p1p2*p1p3*p1p4+ $ 64*d223*s*p1p2*p1p3*p1p4+ $ 64*d23*s*p1p2*p1p3*p1p4-128*d213*mt**2*s*p1p4**2- $ 64*d11*s*p1p2*p1p4**2-64*d213*s*p1p2*p1p4**2+ $ 32*c0*mt**2*s*p2p3-64*d20*mt**2*s*p2p3+ $ 32*d13*mt**4*s*p2p3-32*d11*mt**2*s**2*p2p3+ $ 32*d212*mt**2*s**2*p2p3+32*d213*mt**2*s**2*p2p3- $ 32*c0*s*p1p2*p2p3-128*d20*s*p1p2*p2p3- $ 32*d13*mt**2*s*p1p2*p2p3-64*d23*mt**2*s*p1p2*p2p3+ $ 32*d11*s**2*p1p2*p2p3+32*d212*s**2*p1p2*p2p3+ $ 32*d213*s**2*p1p2*p2p3+128*c0*s*p1p3*p2p3- $ 64*d12*mt**2*s*p1p3*p2p3+64*d223*mt**2*s*p1p3*p2p3+ $ 64*d23*mt**2*s*p1p3*p2p3-64*d11*s**2*p1p3*p2p3+ $ 64*d12*s*p1p2*p1p3*p2p3+ $ 128*d13*s*p1p2*p1p3*p2p3+ $ 64*d223*s*p1p2*p1p3*p2p3+ $ 64*d23*s*p1p2*p1p3*p2p3-128*d12*s*p1p3**2*p2p3- $ 256*d13*s*p1p3**2*p2p3+128*c0*mt**2*p1p4*p2p3+ $ 128*d20*mt**2*p1p4*p2p3+128*d13*mt**4*p1p4*p2p3+ $ 128*d23*mt**4*p1p4*p2p3+32*c0*s*p1p4*p2p3- $ 128*d20*s*p1p4*p2p3-64*d11*mt**2*s*p1p4*p2p3- $ 64*d213*mt**2*s*p1p4*p2p3+64*d223*mt**2*s*p1p4*p2p3+ $ 32*d212*s**2*p1p4*p2p3+32*d213*s**2*p1p4*p2p3- $ 128*c0*p1p2*p1p4*p2p3-128*d20*p1p2*p1p4*p2p3- $ 128*d13*mt**2*p1p2*p1p4*p2p3- $ 128*d23*mt**2*p1p2*p1p4*p2p3+ $ 64*d11*s*p1p2*p1p4*p2p3- $ 128*c0*p1p3*p1p4*p2p3- $ 256*d12*mt**2*p1p3*p1p4*p2p3- $ 448*d13*mt**2*p1p3*p1p4*p2p3- $ 128*d223*mt**2*p1p3*p1p4*p2p3- $ 256*d23*mt**2*p1p3*p1p4*p2p3+ $ 192*d11*s*p1p3*p1p4*p2p3+ $ 64*d223*s*p1p3*p1p4*p2p3+ $ 64*d23*s*p1p3*p1p4*p2p3+ $ 256*d12*p1p2*p1p3*p1p4*p2p3+ $ 384*d13*p1p2*p1p3*p1p4*p2p3+ $ 128*d223*p1p2*p1p3*p1p4*p2p3+ $ 128*d23*p1p2*p1p3*p1p4*p2p3+ $ 128*d12*p1p3**2*p1p4*p2p3+ $ 256*d13*p1p3**2*p1p4*p2p3+128*d20*p1p4**2*p2p3+ $ 256*d11*mt**2*p1p4**2*p2p3+64*d13*mt**2*p1p4**2*p2p3+ $ 128*d213*mt**2*p1p4**2*p2p3-64*d11*s*p1p4**2*p2p3- $ 128*d213*s*p1p4**2*p2p3- $ 256*d11*p1p2*p1p4**2*p2p3- $ 128*d213*p1p2*p1p4**2*p2p3- $ 128*d11*p1p3*p1p4**2*p2p3- $ 128*d12*p1p3*p1p4**2*p2p3- $ 128*d13*p1p3*p1p4**2*p2p3- $ 128*d223*p1p3*p1p4**2*p2p3- $ 128*d23*p1p3*p1p4**2*p2p3+128*d11*p1p4**3*p2p3+ $ 128*d213*p1p4**3*p2p3+64*c0*p1p4*p2p3**2+ $ 256*d20*p1p4*p2p3**2+64*d13*mt**2*p1p4*p2p3**2+ $ 128*d23*mt**2*p1p4*p2p3**2-64*d11*s*p1p4*p2p3**2- $ 64*d212*s*p1p4*p2p3**2-64*d213*s*p1p4*p2p3**2- $ 128*d12*p1p3*p1p4*p2p3**2- $ 256*d13*p1p3*p1p4*p2p3**2- $ 128*d223*p1p3*p1p4*p2p3**2- $ 128*d23*p1p3*p1p4*p2p3**2+ $ 128*d11*p1p4**2*p2p3**2+128*d213*p1p4**2*p2p3**2+ $ 32*c0*mt**2*s*p2p4+128*d20*mt**2*s*p2p4+ $ 32*d13*mt**4*s*p2p4+64*d23*mt**4*s*p2p4- $ 32*d11*mt**2*s**2*p2p4-32*d212*mt**2*s**2*p2p4- $ 32*d213*mt**2*s**2*p2p4+32*d223*mt**2*s**2*p2p4+ $ 32*d23*mt**2*s**2*p2p4-32*c0*s*p1p2*p2p4+ $ 64*d20*s*p1p2*p2p4-32*d13*mt**2*s*p1p2*p2p4- $ 32*d212*s**2*p1p2*p2p4-32*d213*s**2*p1p2*p2p4+ $ 128*c0*mt**2*p1p3*p2p4+128*d20*mt**2*p1p3*p2p4+ $ 128*d13*mt**4*p1p3*p2p4+128*d23*mt**4*p1p3*p2p4+ $ 32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4- $ 128*d11*mt**2*s*p1p3*p2p4-64*d12*mt**2*s*p1p3*p2p4- $ 128*d13*mt**2*s*p1p3*p2p4-64*d223*mt**2*s*p1p3*p2p4- $ 128*d23*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+ $ 32*d213*s**2*p1p3*p2p4-128*c0*p1p2*p1p3*p2p4- $ 128*d20*p1p2*p1p3*p2p4- $ 128*d13*mt**2*p1p2*p1p3*p2p4- $ 128*d23*mt**2*p1p2*p1p3*p2p4+ $ 192*d11*s*p1p2*p1p3*p2p4+ $ 64*d12*s*p1p2*p1p3*p2p4+ $ 64*d13*s*p1p2*p1p3*p2p4+ $ 128*d213*s*p1p2*p1p3*p2p4+128*c0*p1p3**2*p2p4- $ 256*d12*mt**2*p1p3**2*p2p4- $ 320*d13*mt**2*p1p3**2*p2p4- $ 128*d223*mt**2*p1p3**2*p2p4- $ 128*d23*mt**2*p1p3**2*p2p4-64*d11*s*p1p3**2*p2p4+ $ 64*d223*s*p1p3**2*p2p4+64*d23*s*p1p3**2*p2p4+ $ 256*d12*p1p2*p1p3**2*p2p4+ $ 384*d13*p1p2*p1p3**2*p2p4+ $ 128*d223*p1p2*p1p3**2*p2p4+ $ 128*d23*p1p2*p1p3**2*p2p4-128*d12*p1p3**3*p2p4- $ 256*d13*p1p3**3*p2p4+64*c0*s*p1p4*p2p4- $ 128*d20*s*p1p4*p2p4+64*d11*mt**2*s*p1p4*p2p4+ $ 64*d13*mt**2*s*p1p4*p2p4+128*d213*mt**2*s*p1p4*p2p4- $ 64*d23*mt**2*s*p1p4*p2p4+64*d212*s**2*p1p4*p2p4+ $ 64*d213*s**2*p1p4*p2p4+64*d213*s*p1p2*p1p4*p2p4- $ 128*d20*p1p3*p1p4*p2p4+ $ 256*d11*mt**2*p1p3*p1p4*p2p4- $ 64*d13*mt**2*p1p3*p1p4*p2p4+ $ 128*d213*mt**2*p1p3*p1p4*p2p4- $ 128*d23*mt**2*p1p3*p1p4*p2p4- $ 64*d11*s*p1p3*p1p4*p2p4- $ 128*d12*s*p1p3*p1p4*p2p4- $ 128*d13*s*p1p3*p1p4*p2p4- $ 128*d213*s*p1p3*p1p4*p2p4- $ 256*d11*p1p2*p1p3*p1p4*p2p4- $ 128*d213*p1p2*p1p3*p1p4*p2p4+ $ 128*d11*p1p3**2*p1p4*p2p4+ $ 128*d12*p1p3**2*p1p4*p2p4+ $ 128*d13*p1p3**2*p1p4*p2p4+ $ 128*d223*p1p3**2*p1p4*p2p4+ $ 128*d23*p1p3**2*p1p4*p2p4- $ 128*d213*s*p1p4**2*p2p4- $ 128*d11*p1p3*p1p4**2*p2p4- $ 128*d213*p1p3*p1p4**2*p2p4- $ 64*d213*mt**2*s*p2p3*p2p4-64*d223*mt**2*s*p2p3*p2p4- $ 64*d23*mt**2*s*p2p3*p2p4-64*c0*p1p3*p2p3*p2p4- $ 256*d20*p1p3*p2p3*p2p4- $ 64*d13*mt**2*p1p3*p2p3*p2p4+ $ 64*d11*s*p1p3*p2p3*p2p4+ $ 64*d212*s*p1p3*p2p3*p2p4+ $ 64*d213*s*p1p3*p2p3*p2p4+ $ 128*d12*p1p3**2*p2p3*p2p4+ $ 256*d13*p1p3**2*p2p3*p2p4+ $ 128*d223*p1p3**2*p2p3*p2p4+ $ 128*d23*p1p3**2*p2p3*p2p4- $ 64*c0*p1p4*p2p3*p2p4+128*d20*p1p4*p2p3*p2p4- $ 64*d13*mt**2*p1p4*p2p3*p2p4+ $ 128*d23*mt**2*p1p4*p2p3*p2p4- $ 64*d212*s*p1p4*p2p3*p2p4- $ 64*d213*s*p1p4*p2p3*p2p4+ $ 128*d12*p1p3*p1p4*p2p3*p2p4+ $ 128*d13*p1p3*p1p4*p2p3*p2p4+ $ 128*d213*p1p4**2*p2p3*p2p4+64*c0*p1p3*p2p4**2- $ 128*d20*p1p3*p2p4**2+64*d13*mt**2*p1p3*p2p4**2+ $ 64*d212*s*p1p3*p2p4**2+64*d213*s*p1p3*p2p4**2- $ 128*d11*p1p3**2*p2p4**2-128*d12*p1p3**2*p2p4**2- $ 128*d13*p1p3**2*p2p4**2-128*d213*p1p3**2*p2p4**2- $ 128*d213*p1p3*p1p4*p2p4**2) kmv(1)=(cs1*kmv1(1)+cs2*kmv2(1))/(s1-mt**2)/4d0 c B3(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) kmv1(2)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+ $ 32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2- $ 16*d12*mt**2*s**3+16*d212*mt**2*s**3+16*d223*mt**2*s**3- $ 64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*s*p1p2**2+ $ 64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+ $ 64*d23*mt**2*s*p1p2**2-64*d12*s**2*p1p2**2- $ 32*d223*s**2*p1p2**2+32*c0*mt**2*s*p1p3+ $ 128*d20*mt**2*s*p1p3+32*d13*mt**4*s*p1p3+ $ 64*d23*mt**4*s*p1p3-32*d12*mt**2*s**2*p1p3- $ 32*d212*mt**2*s**2*p1p3+32*d213*mt**2*s**2*p1p3- $ 32*d223*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3- $ 32*c0*s*p1p2*p1p3+64*d20*s*p1p2*p1p3- $ 32*d13*mt**2*s*p1p2*p1p3-32*d212*s**2*p1p2*p1p3- $ 32*d223*s**2*p1p2*p1p3+32*c0*mt**2*s*p1p4- $ 64*d20*mt**2*s*p1p4+32*d13*mt**4*s*p1p4- $ 32*d12*mt**2*s**2*p1p4+32*d212*mt**2*s**2*p1p4+ $ 32*d223*mt**2*s**2*p1p4-32*c0*s*p1p2*p1p4- $ 128*d20*s*p1p2*p1p4-32*d13*mt**2*s*p1p2*p1p4- $ 64*d23*mt**2*s*p1p2*p1p4+32*d12*s**2*p1p2*p1p4+ $ 32*d212*s**2*p1p2*p1p4+32*d223*s**2*p1p2*p1p4- $ 64*d213*mt**2*s*p1p3*p1p4-64*d223*mt**2*s*p1p3*p1p4- $ 64*d23*mt**2*s*p1p3*p1p4-128*d20*mt**2*s*p2p3+ $ 32*d13*mt**4*s*p2p3-64*d23*mt**4*s*p2p3+ $ 32*d12*mt**2*s**2*p2p3+64*d212*mt**2*s**2*p2p3+ $ 32*d223*mt**2*s**2*p2p3-64*d20*s*p1p2*p2p3- $ 128*d12*mt**2*s*p1p2*p2p3-32*d13*mt**2*s*p1p2*p2p3- $ 64*d223*mt**2*s*p1p2*p2p3+32*d12*s**2*p1p2*p2p3+ $ 64*d223*s**2*p1p2*p2p3+128*d12*s*p1p2**2*p2p3+ $ 64*d223*s*p1p2**2*p2p3+64*c0*s*p1p3*p2p3- $ 128*d20*s*p1p3*p2p3+64*d12*mt**2*s*p1p3*p2p3+ $ 64*d13*mt**2*s*p1p3*p2p3+128*d223*mt**2*s*p1p3*p2p3- $ 64*d23*mt**2*s*p1p3*p2p3+64*d212*s**2*p1p3*p2p3+ $ 64*d223*s**2*p1p3*p2p3+64*d223*s*p1p2*p1p3*p2p3+ $ 128*c0*mt**2*p1p4*p2p3+128*d20*mt**2*p1p4*p2p3+ $ 128*d13*mt**4*p1p4*p2p3+128*d23*mt**4*p1p4*p2p3+ $ 32*c0*s*p1p4*p2p3-128*d20*s*p1p4*p2p3- $ 64*d12*mt**2*s*p1p4*p2p3+64*d213*mt**2*s*p1p4*p2p3- $ 64*d223*mt**2*s*p1p4*p2p3+32*d212*s**2*p1p4*p2p3+ $ 32*d223*s**2*p1p4*p2p3-128*c0*p1p2*p1p4*p2p3- $ 128*d20*p1p2*p1p4*p2p3- $ 128*d13*mt**2*p1p2*p1p4*p2p3- $ 128*d23*mt**2*p1p2*p1p4*p2p3+ $ 64*d12*s*p1p2*p1p4*p2p3-64*c0*p1p3*p1p4*p2p3+ $ 128*d20*p1p3*p1p4*p2p3- $ 64*d13*mt**2*p1p3*p1p4*p2p3+ $ 128*d23*mt**2*p1p3*p1p4*p2p3- $ 64*d212*s*p1p3*p1p4*p2p3- $ 64*d223*s*p1p3*p1p4*p2p3+64*c0*p1p4**2*p2p3+ $ 256*d20*p1p4**2*p2p3+64*d13*mt**2*p1p4**2*p2p3+ $ 128*d23*mt**2*p1p4**2*p2p3-64*d12*s*p1p4**2*p2p3- $ 64*d212*s*p1p4**2*p2p3-64*d223*s*p1p4**2*p2p3- $ 128*d223*mt**2*s*p2p3**2-64*d12*s*p1p2*p2p3**2- $ 64*d223*s*p1p2*p2p3**2-128*d223*s*p1p3*p2p3**2+ $ 128*d20*p1p4*p2p3**2+256*d12*mt**2*p1p4*p2p3**2+ $ 64*d13*mt**2*p1p4*p2p3**2+ $ 128*d223*mt**2*p1p4*p2p3**2-64*d12*s*p1p4*p2p3**2- $ 128*d223*s*p1p4*p2p3**2- $ 256*d12*p1p2*p1p4*p2p3**2- $ 128*d223*p1p2*p1p4*p2p3**2+ $ 128*d223*p1p3*p1p4*p2p3**2+ $ 128*d12*p1p4**2*p2p3**2+128*d223*p1p4**2*p2p3**2+ $ 128*d12*p1p4*p2p3**3+128*d223*p1p4*p2p3**3+ $ 64*c0*mt**2*s*p2p4+192*d20*mt**2*s*p2p4+ $ 32*d13*mt**4*s*p2p4+64*d23*mt**4*s*p2p4- $ 64*d11*mt**2*s**2*p2p4-64*d12*mt**2*s**2*p2p4- $ 96*d13*mt**2*s**2*p2p4-64*d212*mt**2*s**2*p2p4+ $ 32*d213*mt**2*s**2*p2p4-64*d223*mt**2*s**2*p2p4+ $ 32*d23*mt**2*s**2*p2p4-64*c0*s*p1p2*p2p4+ $ 128*d11*mt**2*s*p1p2*p2p4+160*d13*mt**2*s*p1p2*p2p4+ $ 64*d213*mt**2*s*p1p2*p2p4+64*d23*mt**2*s*p1p2*p2p4+ $ 32*d12*s**2*p1p2*p2p4-32*d213*s**2*p1p2*p2p4- $ 32*d23*s**2*p1p2*p2p4-128*d11*s*p1p2**2*p2p4- $ 192*d13*s*p1p2**2*p2p4-64*d213*s*p1p2**2*p2p4- $ 64*d23*s*p1p2**2*p2p4+128*c0*mt**2*p1p3*p2p4+ $ 128*d20*mt**2*p1p3*p2p4+128*d13*mt**4*p1p3*p2p4+ $ 128*d23*mt**4*p1p3*p2p4+32*c0*s*p1p3*p2p4- $ 128*d20*s*p1p3*p2p4-64*d11*mt**2*s*p1p3*p2p4- $ 128*d12*mt**2*s*p1p3*p2p4-128*d13*mt**2*s*p1p3*p2p4- $ 64*d213*mt**2*s*p1p3*p2p4-128*d23*mt**2*s*p1p3*p2p4+ $ 32*d212*s**2*p1p3*p2p4+32*d223*s**2*p1p3*p2p4- $ 128*c0*p1p2*p1p3*p2p4-128*d20*p1p2*p1p3*p2p4- $ 128*d13*mt**2*p1p2*p1p3*p2p4- $ 128*d23*mt**2*p1p2*p1p3*p2p4+ $ 64*d11*s*p1p2*p1p3*p2p4+ $ 192*d12*s*p1p2*p1p3*p2p4+ $ 64*d13*s*p1p2*p1p3*p2p4+ $ 128*d223*s*p1p2*p1p3*p2p4+64*c0*p1p3**2*p2p4- $ 128*d20*p1p3**2*p2p4+64*d13*mt**2*p1p3**2*p2p4+ $ 64*d212*s*p1p3**2*p2p4+64*d223*s*p1p3**2*p2p4+ $ 128*c0*s*p1p4*p2p4-64*d11*mt**2*s*p1p4*p2p4+ $ 64*d213*mt**2*s*p1p4*p2p4+64*d23*mt**2*s*p1p4*p2p4- $ 64*d12*s**2*p1p4*p2p4+64*d11*s*p1p2*p1p4*p2p4+ $ 128*d13*s*p1p2*p1p4*p2p4+ $ 64*d213*s*p1p2*p1p4*p2p4+ $ 64*d23*s*p1p2*p1p4*p2p4-64*c0*p1p3*p1p4*p2p4- $ 256*d20*p1p3*p1p4*p2p4- $ 64*d13*mt**2*p1p3*p1p4*p2p4+ $ 64*d12*s*p1p3*p1p4*p2p4+ $ 64*d212*s*p1p3*p1p4*p2p4+ $ 64*d223*s*p1p3*p1p4*p2p4- $ 64*d11*mt**2*s*p2p3*p2p4-64*d23*mt**2*s*p2p3*p2p4+ $ 64*d11*s*p1p2*p2p3*p2p4- $ 64*d12*s*p1p2*p2p3*p2p4+ $ 64*d13*s*p1p2*p2p3*p2p4+ $ 64*d213*s*p1p2*p2p3*p2p4+ $ 64*d23*s*p1p2*p2p3*p2p4- $ 128*d20*p1p3*p2p3*p2p4+ $ 256*d12*mt**2*p1p3*p2p3*p2p4- $ 64*d13*mt**2*p1p3*p2p3*p2p4+ $ 128*d223*mt**2*p1p3*p2p3*p2p4- $ 128*d23*mt**2*p1p3*p2p3*p2p4- $ 128*d11*s*p1p3*p2p3*p2p4- $ 64*d12*s*p1p3*p2p3*p2p4- $ 128*d13*s*p1p3*p2p3*p2p4- $ 128*d223*s*p1p3*p2p3*p2p4- $ 256*d12*p1p2*p1p3*p2p3*p2p4- $ 128*d223*p1p2*p1p3*p2p3*p2p4- $ 128*d223*p1p3**2*p2p3*p2p4- $ 128*c0*p1p4*p2p3*p2p4- $ 256*d11*mt**2*p1p4*p2p3*p2p4- $ 448*d13*mt**2*p1p4*p2p3*p2p4- $ 128*d213*mt**2*p1p4*p2p3*p2p4- $ 256*d23*mt**2*p1p4*p2p3*p2p4+ $ 192*d12*s*p1p4*p2p3*p2p4+ $ 64*d213*s*p1p4*p2p3*p2p4+ $ 64*d23*s*p1p4*p2p3*p2p4+ $ 256*d11*p1p2*p1p4*p2p3*p2p4+ $ 384*d13*p1p2*p1p4*p2p3*p2p4+ $ 128*d213*p1p2*p1p4*p2p3*p2p4+ $ 128*d23*p1p2*p1p4*p2p3*p2p4+ $ 128*d11*p1p3*p1p4*p2p3*p2p4+ $ 128*d13*p1p3*p1p4*p2p3*p2p4- $ 128*d11*p1p4**2*p2p3*p2p4- $ 256*d13*p1p4**2*p2p3*p2p4- $ 128*d213*p1p4**2*p2p3*p2p4- $ 128*d23*p1p4**2*p2p3*p2p4- $ 128*d12*p1p3*p2p3**2*p2p4- $ 128*d223*p1p3*p2p3**2*p2p4- $ 128*d11*p1p4*p2p3**2*p2p4- $ 128*d12*p1p4*p2p3**2*p2p4- $ 128*d13*p1p4*p2p3**2*p2p4- $ 128*d213*p1p4*p2p3**2*p2p4- $ 128*d23*p1p4*p2p3**2*p2p4-64*d11*mt**2*s*p2p4**2- $ 192*d13*mt**2*s*p2p4**2-128*d213*mt**2*s*p2p4**2- $ 128*d23*mt**2*s*p2p4**2+64*d11*s*p1p2*p2p4**2+ $ 128*d13*s*p1p2*p2p4**2+128*c0*p1p3*p2p4**2- $ 256*d11*mt**2*p1p3*p2p4**2- $ 320*d13*mt**2*p1p3*p2p4**2- $ 128*d213*mt**2*p1p3*p2p4**2- $ 128*d23*mt**2*p1p3*p2p4**2-64*d12*s*p1p3*p2p4**2+ $ 64*d213*s*p1p3*p2p4**2+64*d23*s*p1p3*p2p4**2+ $ 256*d11*p1p2*p1p3*p2p4**2+ $ 384*d13*p1p2*p1p3*p2p4**2+ $ 128*d213*p1p2*p1p3*p2p4**2+ $ 128*d23*p1p2*p1p3*p2p4**2- $ 128*d11*p1p3**2*p2p4**2-128*d12*p1p3**2*p2p4**2- $ 128*d13*p1p3**2*p2p4**2-128*d223*p1p3**2*p2p4**2- $ 128*d11*s*p1p4*p2p4**2-256*d13*s*p1p4*p2p4**2+ $ 128*d11*p1p3*p1p4*p2p4**2+ $ 256*d13*p1p3*p1p4*p2p4**2+ $ 128*d213*p1p3*p1p4*p2p4**2+ $ 128*d23*p1p3*p1p4*p2p4**2+ $ 128*d11*p1p3*p2p3*p2p4**2+ $ 128*d12*p1p3*p2p3*p2p4**2+ $ 128*d13*p1p3*p2p3*p2p4**2+ $ 128*d213*p1p3*p2p3*p2p4**2+ $ 128*d23*p1p3*p2p3*p2p4**2+ $ 128*d11*p1p4*p2p3*p2p4**2+ $ 256*d13*p1p4*p2p3*p2p4**2-128*d11*p1p3*p2p4**3- $ 256*d13*p1p3*p2p4**3) kmv2(2)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+ $ 64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2- $ 64*d12*mt**4*s**2+32*d13*mt**4*s**2+32*d213*mt**4*s**2+ $ 32*d23*mt**4*s**2-16*d12*mt**2*s**3+16*d212*mt**2*s**3+ $ 16*d223*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*mt**2*s*p1p3+ $ 64*d20*mt**2*s*p1p3+64*d13*mt**4*s*p1p3+ $ 64*d23*mt**4*s*p1p3-32*d12*mt**2*s**2*p1p3+ $ 32*d213*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3+ $ 64*c0*mt**2*s*p1p4+64*d20*mt**2*s*p1p4+ $ 64*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4- $ 64*d12*mt**2*s**2*p1p4-32*c0*mt**2*s*p2p3- $ 64*d20*mt**2*s*p2p3+128*d12*mt**4*s*p2p3+ $ 64*d223*mt**4*s*p2p3-64*d23*mt**4*s*p2p3+ $ 32*d12*mt**2*s**2*p2p3+32*d212*mt**2*s**2*p2p3- $ 32*c0*s*p1p2*p2p3-128*d12*mt**2*s*p1p2*p2p3- $ 64*d13*mt**2*s*p1p2*p2p3-64*d223*mt**2*s*p1p2*p2p3+ $ 32*d12*s**2*p1p2*p2p3-32*d212*s**2*p1p2*p2p3+ $ 32*d223*s**2*p1p2*p2p3+64*c0*s*p1p3*p2p3- $ 128*d20*s*p1p3*p2p3+64*d12*mt**2*s*p1p3*p2p3+ $ 64*d13*mt**2*s*p1p3*p2p3+64*d223*mt**2*s*p1p3*p2p3- $ 64*d23*mt**2*s*p1p3*p2p3+64*d212*s**2*p1p3*p2p3+ $ 64*d223*s**2*p1p3*p2p3+32*c0*s*p1p4*p2p3- $ 128*d20*s*p1p4*p2p3+128*d12*mt**2*s*p1p4*p2p3+ $ 64*d213*mt**2*s*p1p4*p2p3+64*d223*mt**2*s*p1p4*p2p3+ $ 32*d212*s**2*p1p4*p2p3+32*d223*s**2*p1p4*p2p3- $ 64*d223*mt**2*s*p2p3**2-64*d12*s*p1p2*p2p3**2- $ 128*d223*s*p1p3*p2p3**2+64*c0*p1p4*p2p3**2+ $ 128*d13*mt**2*p1p4*p2p3**2-64*d12*s*p1p4*p2p3**2+ $ 64*d212*s*p1p4*p2p3**2-64*d223*s*p1p4*p2p3**2+ $ 128*d12*p1p4*p2p3**3+32*c0*mt**2*s*p2p4+ $ 64*d20*mt**2*s*p2p4-128*d11*mt**4*s*p2p4- $ 192*d13*mt**4*s*p2p4-64*d213*mt**4*s*p2p4- $ 64*d23*mt**4*s*p2p4-64*d11*mt**2*s**2*p2p4- $ 32*d12*mt**2*s**2*p2p4-96*d13*mt**2*s**2*p2p4- $ 32*d212*mt**2*s**2*p2p4+32*d213*mt**2*s**2*p2p4- $ 32*d223*mt**2*s**2*p2p4+32*d23*mt**2*s**2*p2p4- $ 96*c0*s*p1p2*p2p4-128*d20*s*p1p2*p2p4+ $ 128*d11*mt**2*s*p1p2*p2p4+128*d13*mt**2*s*p1p2*p2p4+ $ 64*d213*mt**2*s*p1p2*p2p4+64*d12*s**2*p1p2*p2p4+ $ 32*d212*s**2*p1p2*p2p4-32*d213*s**2*p1p2*p2p4+ $ 32*d223*s**2*p1p2*p2p4-32*d23*s**2*p1p2*p2p4+ $ 32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4- $ 128*d11*mt**2*s*p1p3*p2p4-64*d12*mt**2*s*p1p3*p2p4- $ 192*d13*mt**2*s*p1p3*p2p4-64*d213*mt**2*s*p1p3*p2p4- $ 128*d23*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+ $ 32*d223*s**2*p1p3*p2p4+128*c0*s*p1p4*p2p4- $ 128*d11*mt**2*s*p1p4*p2p4-128*d13*mt**2*s*p1p4*p2p4- $ 64*d12*s**2*p1p4*p2p4-256*c0*mt**2*p2p3*p2p4- $ 256*d20*mt**2*p2p3*p2p4-256*d13*mt**4*p2p3*p2p4- $ 256*d23*mt**4*p2p3*p2p4+256*d12*mt**2*s*p2p3*p2p4+ $ 64*d13*mt**2*s*p2p3*p2p4-64*d213*mt**2*s*p2p3*p2p4+ $ 64*d223*mt**2*s*p2p3*p2p4-128*d23*mt**2*s*p2p3*p2p4+ $ 256*c0*p1p2*p2p3*p2p4+256*d20*p1p2*p2p3*p2p4+ $ 256*d13*mt**2*p1p2*p2p3*p2p4+ $ 256*d23*mt**2*p1p2*p2p3*p2p4+ $ 128*d11*s*p1p2*p2p3*p2p4- $ 320*d12*s*p1p2*p2p3*p2p4+ $ 128*d13*s*p1p2*p2p3*p2p4+ $ 64*d213*s*p1p2*p2p3*p2p4- $ 128*d223*s*p1p2*p2p3*p2p4+ $ 64*d23*s*p1p2*p2p3*p2p4-64*c0*p1p3*p2p3*p2p4- $ 128*d13*mt**2*p1p3*p2p3*p2p4- $ 128*d23*mt**2*p1p3*p2p3*p2p4- $ 128*d11*s*p1p3*p2p3*p2p4- $ 64*d12*s*p1p3*p2p3*p2p4- $ 128*d13*s*p1p3*p2p3*p2p4- $ 64*d212*s*p1p3*p2p3*p2p4- $ 192*d223*s*p1p3*p2p3*p2p4- $ 192*c0*p1p4*p2p3*p2p4-256*d20*p1p4*p2p3*p2p4- $ 128*d13*mt**2*p1p4*p2p3*p2p4- $ 256*d23*mt**2*p1p4*p2p3*p2p4+ $ 256*d12*s*p1p4*p2p3*p2p4+ $ 64*d212*s*p1p4*p2p3*p2p4+ $ 64*d213*s*p1p4*p2p3*p2p4+ $ 64*d223*s*p1p4*p2p3*p2p4+ $ 64*d23*s*p1p4*p2p3*p2p4- $ 512*d12*mt**2*p2p3**2*p2p4- $ 256*d223*mt**2*p2p3**2*p2p4+ $ 128*d23*mt**2*p2p3**2*p2p4+ $ 512*d12*p1p2*p2p3**2*p2p4+ $ 256*d223*p1p2*p2p3**2*p2p4- $ 128*d12*p1p3*p2p3**2*p2p4- $ 256*d11*p1p4*p2p3**2*p2p4- $ 384*d12*p1p4*p2p3**2*p2p4- $ 256*d13*p1p4*p2p3**2*p2p4- $ 128*d213*p1p4*p2p3**2*p2p4- $ 256*d223*p1p4*p2p3**2*p2p4- $ 128*d23*p1p4*p2p3**2*p2p4-64*d13*mt**2*s*p2p4**2- $ 64*d213*mt**2*s*p2p4**2-64*d23*mt**2*s*p2p4**2+ $ 128*d11*s*p1p2*p2p4**2+256*d13*s*p1p2*p2p4**2+ $ 64*d213*s*p1p2*p2p4**2+64*d23*s*p1p2*p2p4**2+ $ 192*c0*p1p3*p2p4**2+256*d20*p1p3*p2p4**2+ $ 128*d13*mt**2*p1p3*p2p4**2+ $ 128*d23*mt**2*p1p3*p2p4**2-128*d12*s*p1p3*p2p4**2- $ 64*d212*s*p1p3*p2p4**2+64*d213*s*p1p3*p2p4**2- $ 64*d223*s*p1p3*p2p4**2+64*d23*s*p1p3*p2p4**2- $ 128*d11*s*p1p4*p2p4**2-256*d13*s*p1p4*p2p4**2+ $ 512*d11*mt**2*p2p3*p2p4**2+ $ 768*d13*mt**2*p2p3*p2p4**2+ $ 256*d213*mt**2*p2p3*p2p4**2+ $ 384*d23*mt**2*p2p3*p2p4**2- $ 512*d11*p1p2*p2p3*p2p4**2- $ 768*d13*p1p2*p2p3*p2p4**2- $ 256*d213*p1p2*p2p3*p2p4**2- $ 256*d23*p1p2*p2p3*p2p4**2+ $ 256*d11*p1p3*p2p3*p2p4**2+ $ 384*d12*p1p3*p2p3*p2p4**2+ $ 256*d13*p1p3*p2p3*p2p4**2+ $ 128*d213*p1p3*p2p3*p2p4**2+ $ 256*d223*p1p3*p2p3*p2p4**2+ $ 128*d23*p1p3*p2p3*p2p4**2+ $ 256*d11*p1p4*p2p3*p2p4**2+ $ 512*d13*p1p4*p2p3*p2p4**2+ $ 128*d213*p1p4*p2p3*p2p4**2+ $ 128*d23*p1p4*p2p3*p2p4**2-256*d11*p1p3*p2p4**3- $ 512*d13*p1p3*p2p4**3-128*d213*p1p3*p2p4**3- $ 128*d23*p1p3*p2p4**3) kmv(2)=(cs1*kmv1(2)+cs2*kmv2(2))/(s2-mt**2)/4d0 c B3(3) d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,mt**2,0d0, $ mt**2-2d0*p1p4,s,0d0,mt,0d0) c write(6,*)'B8(1)=',d1(0) call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p1p4, $ -p3p4,p1p3-p3p4,-p1p4, $ 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(3)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+ $ 64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2- $ 64*d11*mt**4*s**2+32*d13*mt**4*s**2+32*d223*mt**4*s**2+ $ 32*d23*mt**4*s**2-16*d11*mt**2*s**3+16*d212*mt**2*s**3+ $ 16*d213*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d213*s**3*p1p2-32*c0*mt**2*s*p1p3- $ 64*d20*mt**2*s*p1p3+128*d11*mt**4*s*p1p3+ $ 64*d213*mt**4*s*p1p3-64*d23*mt**4*s*p1p3+ $ 32*d11*mt**2*s**2*p1p3+32*d212*mt**2*s**2*p1p3- $ 32*c0*s*p1p2*p1p3-128*d11*mt**2*s*p1p2*p1p3- $ 64*d13*mt**2*s*p1p2*p1p3-64*d213*mt**2*s*p1p2*p1p3+ $ 32*d11*s**2*p1p2*p1p3-32*d212*s**2*p1p2*p1p3+ $ 32*d213*s**2*p1p2*p1p3-64*d213*mt**2*s*p1p3**2- $ 64*d11*s*p1p2*p1p3**2+32*c0*mt**2*s*p1p4+ $ 64*d20*mt**2*s*p1p4-128*d12*mt**4*s*p1p4- $ 192*d13*mt**4*s*p1p4-64*d223*mt**4*s*p1p4- $ 64*d23*mt**4*s*p1p4-32*d11*mt**2*s**2*p1p4- $ 64*d12*mt**2*s**2*p1p4-96*d13*mt**2*s**2*p1p4- $ 32*d212*mt**2*s**2*p1p4-32*d213*mt**2*s**2*p1p4+ $ 32*d223*mt**2*s**2*p1p4+32*d23*mt**2*s**2*p1p4- $ 96*c0*s*p1p2*p1p4-128*d20*s*p1p2*p1p4+ $ 128*d12*mt**2*s*p1p2*p1p4+128*d13*mt**2*s*p1p2*p1p4+ $ 64*d223*mt**2*s*p1p2*p1p4+64*d11*s**2*p1p2*p1p4+ $ 32*d212*s**2*p1p2*p1p4+32*d213*s**2*p1p2*p1p4- $ 32*d223*s**2*p1p2*p1p4-32*d23*s**2*p1p2*p1p4- $ 256*c0*mt**2*p1p3*p1p4-256*d20*mt**2*p1p3*p1p4- $ 256*d13*mt**4*p1p3*p1p4-256*d23*mt**4*p1p3*p1p4+ $ 256*d11*mt**2*s*p1p3*p1p4+64*d13*mt**2*s*p1p3*p1p4+ $ 64*d213*mt**2*s*p1p3*p1p4-64*d223*mt**2*s*p1p3*p1p4- $ 128*d23*mt**2*s*p1p3*p1p4+256*c0*p1p2*p1p3*p1p4+ $ 256*d20*p1p2*p1p3*p1p4+ $ 256*d13*mt**2*p1p2*p1p3*p1p4+ $ 256*d23*mt**2*p1p2*p1p3*p1p4- $ 320*d11*s*p1p2*p1p3*p1p4+ $ 128*d12*s*p1p2*p1p3*p1p4+ $ 128*d13*s*p1p2*p1p3*p1p4- $ 128*d213*s*p1p2*p1p3*p1p4+ $ 64*d223*s*p1p2*p1p3*p1p4+ $ 64*d23*s*p1p2*p1p3*p1p4- $ 512*d11*mt**2*p1p3**2*p1p4- $ 256*d213*mt**2*p1p3**2*p1p4+ $ 128*d23*mt**2*p1p3**2*p1p4+ $ 512*d11*p1p2*p1p3**2*p1p4+ $ 256*d213*p1p2*p1p3**2*p1p4-64*d13*mt**2*s*p1p4**2- $ 64*d223*mt**2*s*p1p4**2-64*d23*mt**2*s*p1p4**2+ $ 128*d12*s*p1p2*p1p4**2+256*d13*s*p1p2*p1p4**2+ $ 64*d223*s*p1p2*p1p4**2+64*d23*s*p1p2*p1p4**2+ $ 512*d12*mt**2*p1p3*p1p4**2+ $ 768*d13*mt**2*p1p3*p1p4**2+ $ 256*d223*mt**2*p1p3*p1p4**2+ $ 384*d23*mt**2*p1p3*p1p4**2- $ 512*d12*p1p2*p1p3*p1p4**2- $ 768*d13*p1p2*p1p3*p1p4**2- $ 256*d223*p1p2*p1p3*p1p4**2- $ 256*d23*p1p2*p1p3*p1p4**2+64*c0*mt**2*s*p2p3+ $ 64*d20*mt**2*s*p2p3+64*d13*mt**4*s*p2p3+ $ 64*d23*mt**4*s*p2p3-32*d11*mt**2*s**2*p2p3+ $ 32*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3+ $ 64*c0*s*p1p3*p2p3-128*d20*s*p1p3*p2p3+ $ 64*d11*mt**2*s*p1p3*p2p3+64*d13*mt**2*s*p1p3*p2p3+ $ 64*d213*mt**2*s*p1p3*p2p3-64*d23*mt**2*s*p1p3*p2p3+ $ 64*d212*s**2*p1p3*p2p3+64*d213*s**2*p1p3*p2p3- $ 128*d213*s*p1p3**2*p2p3+32*c0*s*p1p4*p2p3- $ 128*d20*s*p1p4*p2p3-64*d11*mt**2*s*p1p4*p2p3- $ 128*d12*mt**2*s*p1p4*p2p3-192*d13*mt**2*s*p1p4*p2p3- $ 64*d223*mt**2*s*p1p4*p2p3-128*d23*mt**2*s*p1p4*p2p3+ $ 32*d212*s**2*p1p4*p2p3+32*d213*s**2*p1p4*p2p3- $ 64*c0*p1p3*p1p4*p2p3- $ 128*d13*mt**2*p1p3*p1p4*p2p3- $ 128*d23*mt**2*p1p3*p1p4*p2p3- $ 64*d11*s*p1p3*p1p4*p2p3- $ 128*d12*s*p1p3*p1p4*p2p3- $ 128*d13*s*p1p3*p1p4*p2p3- $ 64*d212*s*p1p3*p1p4*p2p3- $ 192*d213*s*p1p3*p1p4*p2p3- $ 128*d11*p1p3**2*p1p4*p2p3+192*c0*p1p4**2*p2p3+ $ 256*d20*p1p4**2*p2p3+128*d13*mt**2*p1p4**2*p2p3+ $ 128*d23*mt**2*p1p4**2*p2p3-128*d11*s*p1p4**2*p2p3- $ 64*d212*s*p1p4**2*p2p3-64*d213*s*p1p4**2*p2p3+ $ 64*d223*s*p1p4**2*p2p3+64*d23*s*p1p4**2*p2p3+ $ 384*d11*p1p3*p1p4**2*p2p3+ $ 256*d12*p1p3*p1p4**2*p2p3+ $ 256*d13*p1p3*p1p4**2*p2p3+ $ 256*d213*p1p3*p1p4**2*p2p3+ $ 128*d223*p1p3*p1p4**2*p2p3+ $ 128*d23*p1p3*p1p4**2*p2p3-256*d12*p1p4**3*p2p3- $ 512*d13*p1p4**3*p2p3-128*d223*p1p4**3*p2p3- $ 128*d23*p1p4**3*p2p3+64*c0*mt**2*s*p2p4+ $ 64*d20*mt**2*s*p2p4+64*d13*mt**4*s*p2p4+ $ 64*d23*mt**4*s*p2p4-64*d11*mt**2*s**2*p2p4+ $ 32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4+ $ 128*d11*mt**2*s*p1p3*p2p4+64*d213*mt**2*s*p1p3*p2p4+ $ 64*d223*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+ $ 32*d213*s**2*p1p3*p2p4+64*c0*p1p3**2*p2p4+ $ 128*d13*mt**2*p1p3**2*p2p4-64*d11*s*p1p3**2*p2p4+ $ 64*d212*s*p1p3**2*p2p4-64*d213*s*p1p3**2*p2p4+ $ 128*d11*p1p3**3*p2p4+128*c0*s*p1p4*p2p4- $ 128*d12*mt**2*s*p1p4*p2p4-128*d13*mt**2*s*p1p4*p2p4- $ 64*d11*s**2*p1p4*p2p4-192*c0*p1p3*p1p4*p2p4- $ 256*d20*p1p3*p1p4*p2p4- $ 128*d13*mt**2*p1p3*p1p4*p2p4- $ 256*d23*mt**2*p1p3*p1p4*p2p4+ $ 256*d11*s*p1p3*p1p4*p2p4+ $ 64*d212*s*p1p3*p1p4*p2p4+ $ 64*d213*s*p1p3*p1p4*p2p4+ $ 64*d223*s*p1p3*p1p4*p2p4+ $ 64*d23*s*p1p3*p1p4*p2p4- $ 384*d11*p1p3**2*p1p4*p2p4- $ 256*d12*p1p3**2*p1p4*p2p4- $ 256*d13*p1p3**2*p1p4*p2p4- $ 256*d213*p1p3**2*p1p4*p2p4- $ 128*d223*p1p3**2*p1p4*p2p4- $ 128*d23*p1p3**2*p1p4*p2p4-128*d12*s*p1p4**2*p2p4- $ 256*d13*s*p1p4**2*p2p4+256*d12*p1p3*p1p4**2*p2p4+ $ 512*d13*p1p3*p1p4**2*p2p4+ $ 128*d223*p1p3*p1p4**2*p2p4+ $ 128*d23*p1p3*p1p4**2*p2p4) kmv2(3)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+ $ 32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2- $ 16*d11*mt**2*s**3+16*d212*mt**2*s**3+16*d213*mt**2*s**3- $ 64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d213*s**3*p1p2+64*c0*s*p1p2**2+ $ 64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+ $ 64*d23*mt**2*s*p1p2**2-64*d11*s**2*p1p2**2- $ 32*d213*s**2*p1p2**2-128*d20*mt**2*s*p1p3+ $ 32*d13*mt**4*s*p1p3-64*d23*mt**4*s*p1p3+ $ 32*d11*mt**2*s**2*p1p3+64*d212*mt**2*s**2*p1p3+ $ 32*d213*mt**2*s**2*p1p3-64*d20*s*p1p2*p1p3- $ 128*d11*mt**2*s*p1p2*p1p3-32*d13*mt**2*s*p1p2*p1p3- $ 64*d213*mt**2*s*p1p2*p1p3+32*d11*s**2*p1p2*p1p3+ $ 64*d213*s**2*p1p2*p1p3+128*d11*s*p1p2**2*p1p3+ $ 64*d213*s*p1p2**2*p1p3-128*d213*mt**2*s*p1p3**2- $ 64*d11*s*p1p2*p1p3**2-64*d213*s*p1p2*p1p3**2+ $ 64*c0*mt**2*s*p1p4+192*d20*mt**2*s*p1p4+ $ 32*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4- $ 64*d11*mt**2*s**2*p1p4-64*d12*mt**2*s**2*p1p4- $ 96*d13*mt**2*s**2*p1p4-64*d212*mt**2*s**2*p1p4- $ 64*d213*mt**2*s**2*p1p4+32*d223*mt**2*s**2*p1p4+ $ 32*d23*mt**2*s**2*p1p4-64*c0*s*p1p2*p1p4+ $ 128*d12*mt**2*s*p1p2*p1p4+160*d13*mt**2*s*p1p2*p1p4+ $ 64*d223*mt**2*s*p1p2*p1p4+64*d23*mt**2*s*p1p2*p1p4+ $ 32*d11*s**2*p1p2*p1p4-32*d223*s**2*p1p2*p1p4- $ 32*d23*s**2*p1p2*p1p4-128*d12*s*p1p2**2*p1p4- $ 192*d13*s*p1p2**2*p1p4-64*d223*s*p1p2**2*p1p4- $ 64*d23*s*p1p2**2*p1p4-64*d12*mt**2*s*p1p3*p1p4- $ 64*d23*mt**2*s*p1p3*p1p4-64*d11*s*p1p2*p1p3*p1p4+ $ 64*d12*s*p1p2*p1p3*p1p4+ $ 64*d13*s*p1p2*p1p3*p1p4+ $ 64*d223*s*p1p2*p1p3*p1p4+ $ 64*d23*s*p1p2*p1p3*p1p4-64*d12*mt**2*s*p1p4**2- $ 192*d13*mt**2*s*p1p4**2-128*d223*mt**2*s*p1p4**2- $ 128*d23*mt**2*s*p1p4**2+64*d12*s*p1p2*p1p4**2+ $ 128*d13*s*p1p2*p1p4**2+32*c0*mt**2*s*p2p3+ $ 128*d20*mt**2*s*p2p3+32*d13*mt**4*s*p2p3+ $ 64*d23*mt**4*s*p2p3-32*d11*mt**2*s**2*p2p3- $ 32*d212*mt**2*s**2*p2p3-32*d213*mt**2*s**2*p2p3+ $ 32*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3- $ 32*c0*s*p1p2*p2p3+64*d20*s*p1p2*p2p3- $ 32*d13*mt**2*s*p1p2*p2p3-32*d212*s**2*p1p2*p2p3- $ 32*d213*s**2*p1p2*p2p3+64*c0*s*p1p3*p2p3- $ 128*d20*s*p1p3*p2p3+64*d11*mt**2*s*p1p3*p2p3+ $ 64*d13*mt**2*s*p1p3*p2p3+128*d213*mt**2*s*p1p3*p2p3- $ 64*d23*mt**2*s*p1p3*p2p3+64*d212*s**2*p1p3*p2p3+ $ 64*d213*s**2*p1p3*p2p3+64*d213*s*p1p2*p1p3*p2p3- $ 128*d213*s*p1p3**2*p2p3+128*c0*mt**2*p1p4*p2p3+ $ 128*d20*mt**2*p1p4*p2p3+128*d13*mt**4*p1p4*p2p3+ $ 128*d23*mt**4*p1p4*p2p3+32*c0*s*p1p4*p2p3- $ 128*d20*s*p1p4*p2p3-128*d11*mt**2*s*p1p4*p2p3- $ 64*d12*mt**2*s*p1p4*p2p3-128*d13*mt**2*s*p1p4*p2p3- $ 64*d223*mt**2*s*p1p4*p2p3-128*d23*mt**2*s*p1p4*p2p3+ $ 32*d212*s**2*p1p4*p2p3+32*d213*s**2*p1p4*p2p3- $ 128*c0*p1p2*p1p4*p2p3-128*d20*p1p2*p1p4*p2p3- $ 128*d13*mt**2*p1p2*p1p4*p2p3- $ 128*d23*mt**2*p1p2*p1p4*p2p3+ $ 192*d11*s*p1p2*p1p4*p2p3+ $ 64*d12*s*p1p2*p1p4*p2p3+ $ 64*d13*s*p1p2*p1p4*p2p3+ $ 128*d213*s*p1p2*p1p4*p2p3- $ 128*d20*p1p3*p1p4*p2p3+ $ 256*d11*mt**2*p1p3*p1p4*p2p3- $ 64*d13*mt**2*p1p3*p1p4*p2p3+ $ 128*d213*mt**2*p1p3*p1p4*p2p3- $ 128*d23*mt**2*p1p3*p1p4*p2p3- $ 64*d11*s*p1p3*p1p4*p2p3- $ 128*d12*s*p1p3*p1p4*p2p3- $ 128*d13*s*p1p3*p1p4*p2p3- $ 128*d213*s*p1p3*p1p4*p2p3- $ 256*d11*p1p2*p1p3*p1p4*p2p3- $ 128*d213*p1p2*p1p3*p1p4*p2p3- $ 128*d11*p1p3**2*p1p4*p2p3- $ 128*d213*p1p3**2*p1p4*p2p3+128*c0*p1p4**2*p2p3- $ 256*d12*mt**2*p1p4**2*p2p3- $ 320*d13*mt**2*p1p4**2*p2p3- $ 128*d223*mt**2*p1p4**2*p2p3- $ 128*d23*mt**2*p1p4**2*p2p3-64*d11*s*p1p4**2*p2p3+ $ 64*d223*s*p1p4**2*p2p3+64*d23*s*p1p4**2*p2p3+ $ 256*d12*p1p2*p1p4**2*p2p3+ $ 384*d13*p1p2*p1p4**2*p2p3+ $ 128*d223*p1p2*p1p4**2*p2p3+ $ 128*d23*p1p2*p1p4**2*p2p3+ $ 128*d11*p1p3*p1p4**2*p2p3+ $ 128*d12*p1p3*p1p4**2*p2p3+ $ 128*d13*p1p3*p1p4**2*p2p3+ $ 128*d223*p1p3*p1p4**2*p2p3+ $ 128*d23*p1p3*p1p4**2*p2p3-128*d12*p1p4**3*p2p3- $ 256*d13*p1p4**3*p2p3+64*c0*p1p4*p2p3**2- $ 128*d20*p1p4*p2p3**2+64*d13*mt**2*p1p4*p2p3**2+ $ 64*d212*s*p1p4*p2p3**2+64*d213*s*p1p4*p2p3**2- $ 128*d213*p1p3*p1p4*p2p3**2- $ 128*d11*p1p4**2*p2p3**2-128*d12*p1p4**2*p2p3**2- $ 128*d13*p1p4**2*p2p3**2-128*d213*p1p4**2*p2p3**2+ $ 32*c0*mt**2*s*p2p4-64*d20*mt**2*s*p2p4+ $ 32*d13*mt**4*s*p2p4-32*d11*mt**2*s**2*p2p4+ $ 32*d212*mt**2*s**2*p2p4+32*d213*mt**2*s**2*p2p4- $ 32*c0*s*p1p2*p2p4-128*d20*s*p1p2*p2p4- $ 32*d13*mt**2*s*p1p2*p2p4-64*d23*mt**2*s*p1p2*p2p4+ $ 32*d11*s**2*p1p2*p2p4+32*d212*s**2*p1p2*p2p4+ $ 32*d213*s**2*p1p2*p2p4+128*c0*mt**2*p1p3*p2p4+ $ 128*d20*mt**2*p1p3*p2p4+128*d13*mt**4*p1p3*p2p4+ $ 128*d23*mt**4*p1p3*p2p4+32*c0*s*p1p3*p2p4- $ 128*d20*s*p1p3*p2p4-64*d11*mt**2*s*p1p3*p2p4- $ 64*d213*mt**2*s*p1p3*p2p4+64*d223*mt**2*s*p1p3*p2p4+ $ 32*d212*s**2*p1p3*p2p4+32*d213*s**2*p1p3*p2p4- $ 128*c0*p1p2*p1p3*p2p4-128*d20*p1p2*p1p3*p2p4- $ 128*d13*mt**2*p1p2*p1p3*p2p4- $ 128*d23*mt**2*p1p2*p1p3*p2p4+ $ 64*d11*s*p1p2*p1p3*p2p4+128*d20*p1p3**2*p2p4+ $ 256*d11*mt**2*p1p3**2*p2p4+64*d13*mt**2*p1p3**2*p2p4+ $ 128*d213*mt**2*p1p3**2*p2p4-64*d11*s*p1p3**2*p2p4- $ 128*d213*s*p1p3**2*p2p4- $ 256*d11*p1p2*p1p3**2*p2p4- $ 128*d213*p1p2*p1p3**2*p2p4+128*d11*p1p3**3*p2p4+ $ 128*d213*p1p3**3*p2p4+128*c0*s*p1p4*p2p4- $ 64*d12*mt**2*s*p1p4*p2p4+64*d223*mt**2*s*p1p4*p2p4+ $ 64*d23*mt**2*s*p1p4*p2p4-64*d11*s**2*p1p4*p2p4+ $ 64*d12*s*p1p2*p1p4*p2p4+ $ 128*d13*s*p1p2*p1p4*p2p4+ $ 64*d223*s*p1p2*p1p4*p2p4+ $ 64*d23*s*p1p2*p1p4*p2p4- $ 128*c0*p1p3*p1p4*p2p4- $ 256*d12*mt**2*p1p3*p1p4*p2p4- $ 448*d13*mt**2*p1p3*p1p4*p2p4- $ 128*d223*mt**2*p1p3*p1p4*p2p4- $ 256*d23*mt**2*p1p3*p1p4*p2p4+ $ 192*d11*s*p1p3*p1p4*p2p4+ $ 64*d223*s*p1p3*p1p4*p2p4+ $ 64*d23*s*p1p3*p1p4*p2p4+ $ 256*d12*p1p2*p1p3*p1p4*p2p4+ $ 384*d13*p1p2*p1p3*p1p4*p2p4+ $ 128*d223*p1p2*p1p3*p1p4*p2p4+ $ 128*d23*p1p2*p1p3*p1p4*p2p4- $ 128*d11*p1p3**2*p1p4*p2p4- $ 128*d12*p1p3**2*p1p4*p2p4- $ 128*d13*p1p3**2*p1p4*p2p4- $ 128*d223*p1p3**2*p1p4*p2p4- $ 128*d23*p1p3**2*p1p4*p2p4-128*d12*s*p1p4**2*p2p4- $ 256*d13*s*p1p4**2*p2p4+128*d12*p1p3*p1p4**2*p2p4+ $ 256*d13*p1p3*p1p4**2*p2p4- $ 64*d213*mt**2*s*p2p3*p2p4-64*d223*mt**2*s*p2p3*p2p4- $ 64*d23*mt**2*s*p2p3*p2p4-64*c0*p1p3*p2p3*p2p4+ $ 128*d20*p1p3*p2p3*p2p4- $ 64*d13*mt**2*p1p3*p2p3*p2p4+ $ 128*d23*mt**2*p1p3*p2p3*p2p4- $ 64*d212*s*p1p3*p2p3*p2p4- $ 64*d213*s*p1p3*p2p3*p2p4+ $ 128*d213*p1p3**2*p2p3*p2p4- $ 64*c0*p1p4*p2p3*p2p4-256*d20*p1p4*p2p3*p2p4- $ 64*d13*mt**2*p1p4*p2p3*p2p4+ $ 64*d11*s*p1p4*p2p3*p2p4+ $ 64*d212*s*p1p4*p2p3*p2p4+ $ 64*d213*s*p1p4*p2p3*p2p4+ $ 128*d12*p1p3*p1p4*p2p3*p2p4+ $ 128*d13*p1p3*p1p4*p2p3*p2p4+ $ 128*d12*p1p4**2*p2p3*p2p4+ $ 256*d13*p1p4**2*p2p3*p2p4+ $ 128*d223*p1p4**2*p2p3*p2p4+ $ 128*d23*p1p4**2*p2p3*p2p4+64*c0*p1p3*p2p4**2+ $ 256*d20*p1p3*p2p4**2+64*d13*mt**2*p1p3*p2p4**2+ $ 128*d23*mt**2*p1p3*p2p4**2-64*d11*s*p1p3*p2p4**2- $ 64*d212*s*p1p3*p2p4**2-64*d213*s*p1p3*p2p4**2+ $ 128*d11*p1p3**2*p2p4**2+128*d213*p1p3**2*p2p4**2- $ 128*d12*p1p3*p1p4*p2p4**2- $ 256*d13*p1p3*p1p4*p2p4**2- $ 128*d223*p1p3*p1p4*p2p4**2- $ 128*d23*p1p3*p1p4*p2p4**2) kmv(3)=-(cs1*kmv1(3)+cs2*kmv2(3))/(s1-mt**2)/4d0 c B3(4) d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,mt**2,0d0, $ mt**2-2d0*p2p3,s,0d0,mt,0d0) c write(6,*)'B8(2)=',d1(0) call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p2p3, $ -p3p4,-p2p3,p2p4-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) kmv1(4)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+ $ 32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2- $ 16*d12*mt**2*s**3+16*d212*mt**2*s**3+16*d223*mt**2*s**3- $ 64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*s*p1p2**2+ $ 64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+ $ 64*d23*mt**2*s*p1p2**2-64*d12*s**2*p1p2**2- $ 32*d223*s**2*p1p2**2+32*c0*mt**2*s*p1p3- $ 64*d20*mt**2*s*p1p3+32*d13*mt**4*s*p1p3- $ 32*d12*mt**2*s**2*p1p3+32*d212*mt**2*s**2*p1p3+ $ 32*d223*mt**2*s**2*p1p3-32*c0*s*p1p2*p1p3- $ 128*d20*s*p1p2*p1p3-32*d13*mt**2*s*p1p2*p1p3- $ 64*d23*mt**2*s*p1p2*p1p3+32*d12*s**2*p1p2*p1p3+ $ 32*d212*s**2*p1p2*p1p3+32*d223*s**2*p1p2*p1p3+ $ 32*c0*mt**2*s*p1p4+128*d20*mt**2*s*p1p4+ $ 32*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4- $ 32*d12*mt**2*s**2*p1p4-32*d212*mt**2*s**2*p1p4+ $ 32*d213*mt**2*s**2*p1p4-32*d223*mt**2*s**2*p1p4+ $ 32*d23*mt**2*s**2*p1p4-32*c0*s*p1p2*p1p4+ $ 64*d20*s*p1p2*p1p4-32*d13*mt**2*s*p1p2*p1p4- $ 32*d212*s**2*p1p2*p1p4-32*d223*s**2*p1p2*p1p4- $ 64*d213*mt**2*s*p1p3*p1p4-64*d223*mt**2*s*p1p3*p1p4- $ 64*d23*mt**2*s*p1p3*p1p4+64*c0*mt**2*s*p2p3+ $ 192*d20*mt**2*s*p2p3+32*d13*mt**4*s*p2p3+ $ 64*d23*mt**4*s*p2p3-64*d11*mt**2*s**2*p2p3- $ 64*d12*mt**2*s**2*p2p3-96*d13*mt**2*s**2*p2p3- $ 64*d212*mt**2*s**2*p2p3+32*d213*mt**2*s**2*p2p3- $ 64*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3- $ 64*c0*s*p1p2*p2p3+128*d11*mt**2*s*p1p2*p2p3+ $ 160*d13*mt**2*s*p1p2*p2p3+64*d213*mt**2*s*p1p2*p2p3+ $ 64*d23*mt**2*s*p1p2*p2p3+32*d12*s**2*p1p2*p2p3- $ 32*d213*s**2*p1p2*p2p3-32*d23*s**2*p1p2*p2p3- $ 128*d11*s*p1p2**2*p2p3-192*d13*s*p1p2**2*p2p3- $ 64*d213*s*p1p2**2*p2p3-64*d23*s*p1p2**2*p2p3+ $ 128*c0*s*p1p3*p2p3-64*d11*mt**2*s*p1p3*p2p3+ $ 64*d213*mt**2*s*p1p3*p2p3+64*d23*mt**2*s*p1p3*p2p3- $ 64*d12*s**2*p1p3*p2p3+64*d11*s*p1p2*p1p3*p2p3+ $ 128*d13*s*p1p2*p1p3*p2p3+ $ 64*d213*s*p1p2*p1p3*p2p3+ $ 64*d23*s*p1p2*p1p3*p2p3+128*c0*mt**2*p1p4*p2p3+ $ 128*d20*mt**2*p1p4*p2p3+128*d13*mt**4*p1p4*p2p3+ $ 128*d23*mt**4*p1p4*p2p3+32*c0*s*p1p4*p2p3- $ 128*d20*s*p1p4*p2p3-64*d11*mt**2*s*p1p4*p2p3- $ 128*d12*mt**2*s*p1p4*p2p3-128*d13*mt**2*s*p1p4*p2p3- $ 64*d213*mt**2*s*p1p4*p2p3-128*d23*mt**2*s*p1p4*p2p3+ $ 32*d212*s**2*p1p4*p2p3+32*d223*s**2*p1p4*p2p3- $ 128*c0*p1p2*p1p4*p2p3-128*d20*p1p2*p1p4*p2p3- $ 128*d13*mt**2*p1p2*p1p4*p2p3- $ 128*d23*mt**2*p1p2*p1p4*p2p3+ $ 64*d11*s*p1p2*p1p4*p2p3+ $ 192*d12*s*p1p2*p1p4*p2p3+ $ 64*d13*s*p1p2*p1p4*p2p3+ $ 128*d223*s*p1p2*p1p4*p2p3- $ 64*c0*p1p3*p1p4*p2p3-256*d20*p1p3*p1p4*p2p3- $ 64*d13*mt**2*p1p3*p1p4*p2p3+ $ 64*d12*s*p1p3*p1p4*p2p3+ $ 64*d212*s*p1p3*p1p4*p2p3+ $ 64*d223*s*p1p3*p1p4*p2p3+64*c0*p1p4**2*p2p3- $ 128*d20*p1p4**2*p2p3+64*d13*mt**2*p1p4**2*p2p3+ $ 64*d212*s*p1p4**2*p2p3+64*d223*s*p1p4**2*p2p3- $ 64*d11*mt**2*s*p2p3**2-192*d13*mt**2*s*p2p3**2- $ 128*d213*mt**2*s*p2p3**2-128*d23*mt**2*s*p2p3**2+ $ 64*d11*s*p1p2*p2p3**2+128*d13*s*p1p2*p2p3**2- $ 128*d11*s*p1p3*p2p3**2-256*d13*s*p1p3*p2p3**2+ $ 128*c0*p1p4*p2p3**2-256*d11*mt**2*p1p4*p2p3**2- $ 320*d13*mt**2*p1p4*p2p3**2- $ 128*d213*mt**2*p1p4*p2p3**2- $ 128*d23*mt**2*p1p4*p2p3**2-64*d12*s*p1p4*p2p3**2+ $ 64*d213*s*p1p4*p2p3**2+64*d23*s*p1p4*p2p3**2+ $ 256*d11*p1p2*p1p4*p2p3**2+ $ 384*d13*p1p2*p1p4*p2p3**2+ $ 128*d213*p1p2*p1p4*p2p3**2+ $ 128*d23*p1p2*p1p4*p2p3**2+ $ 128*d11*p1p3*p1p4*p2p3**2+ $ 256*d13*p1p3*p1p4*p2p3**2+ $ 128*d213*p1p3*p1p4*p2p3**2+ $ 128*d23*p1p3*p1p4*p2p3**2- $ 128*d11*p1p4**2*p2p3**2-128*d12*p1p4**2*p2p3**2- $ 128*d13*p1p4**2*p2p3**2-128*d223*p1p4**2*p2p3**2- $ 128*d11*p1p4*p2p3**3-256*d13*p1p4*p2p3**3- $ 128*d20*mt**2*s*p2p4+32*d13*mt**4*s*p2p4- $ 64*d23*mt**4*s*p2p4+32*d12*mt**2*s**2*p2p4+ $ 64*d212*mt**2*s**2*p2p4+32*d223*mt**2*s**2*p2p4- $ 64*d20*s*p1p2*p2p4-128*d12*mt**2*s*p1p2*p2p4- $ 32*d13*mt**2*s*p1p2*p2p4-64*d223*mt**2*s*p1p2*p2p4+ $ 32*d12*s**2*p1p2*p2p4+64*d223*s**2*p1p2*p2p4+ $ 128*d12*s*p1p2**2*p2p4+64*d223*s*p1p2**2*p2p4+ $ 128*c0*mt**2*p1p3*p2p4+128*d20*mt**2*p1p3*p2p4+ $ 128*d13*mt**4*p1p3*p2p4+128*d23*mt**4*p1p3*p2p4+ $ 32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4- $ 64*d12*mt**2*s*p1p3*p2p4+64*d213*mt**2*s*p1p3*p2p4- $ 64*d223*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+ $ 32*d223*s**2*p1p3*p2p4-128*c0*p1p2*p1p3*p2p4- $ 128*d20*p1p2*p1p3*p2p4- $ 128*d13*mt**2*p1p2*p1p3*p2p4- $ 128*d23*mt**2*p1p2*p1p3*p2p4+ $ 64*d12*s*p1p2*p1p3*p2p4+64*c0*p1p3**2*p2p4+ $ 256*d20*p1p3**2*p2p4+64*d13*mt**2*p1p3**2*p2p4+ $ 128*d23*mt**2*p1p3**2*p2p4-64*d12*s*p1p3**2*p2p4- $ 64*d212*s*p1p3**2*p2p4-64*d223*s*p1p3**2*p2p4+ $ 64*c0*s*p1p4*p2p4-128*d20*s*p1p4*p2p4+ $ 64*d12*mt**2*s*p1p4*p2p4+64*d13*mt**2*s*p1p4*p2p4+ $ 128*d223*mt**2*s*p1p4*p2p4-64*d23*mt**2*s*p1p4*p2p4+ $ 64*d212*s**2*p1p4*p2p4+64*d223*s**2*p1p4*p2p4+ $ 64*d223*s*p1p2*p1p4*p2p4- $ 64*c0*p1p3*p1p4*p2p4+128*d20*p1p3*p1p4*p2p4- $ 64*d13*mt**2*p1p3*p1p4*p2p4+ $ 128*d23*mt**2*p1p3*p1p4*p2p4- $ 64*d212*s*p1p3*p1p4*p2p4- $ 64*d223*s*p1p3*p1p4*p2p4- $ 64*d11*mt**2*s*p2p3*p2p4-64*d23*mt**2*s*p2p3*p2p4+ $ 64*d11*s*p1p2*p2p3*p2p4- $ 64*d12*s*p1p2*p2p3*p2p4+ $ 64*d13*s*p1p2*p2p3*p2p4+ $ 64*d213*s*p1p2*p2p3*p2p4+ $ 64*d23*s*p1p2*p2p3*p2p4- $ 128*c0*p1p3*p2p3*p2p4- $ 256*d11*mt**2*p1p3*p2p3*p2p4- $ 448*d13*mt**2*p1p3*p2p3*p2p4- $ 128*d213*mt**2*p1p3*p2p3*p2p4- $ 256*d23*mt**2*p1p3*p2p3*p2p4+ $ 192*d12*s*p1p3*p2p3*p2p4+ $ 64*d213*s*p1p3*p2p3*p2p4+ $ 64*d23*s*p1p3*p2p3*p2p4+ $ 256*d11*p1p2*p1p3*p2p3*p2p4+ $ 384*d13*p1p2*p1p3*p2p3*p2p4+ $ 128*d213*p1p2*p1p3*p2p3*p2p4+ $ 128*d23*p1p2*p1p3*p2p3*p2p4- $ 128*d11*p1p3**2*p2p3*p2p4- $ 256*d13*p1p3**2*p2p3*p2p4- $ 128*d213*p1p3**2*p2p3*p2p4- $ 128*d23*p1p3**2*p2p3*p2p4- $ 128*d20*p1p4*p2p3*p2p4+ $ 256*d12*mt**2*p1p4*p2p3*p2p4- $ 64*d13*mt**2*p1p4*p2p3*p2p4+ $ 128*d223*mt**2*p1p4*p2p3*p2p4- $ 128*d23*mt**2*p1p4*p2p3*p2p4- $ 128*d11*s*p1p4*p2p3*p2p4- $ 64*d12*s*p1p4*p2p3*p2p4- $ 128*d13*s*p1p4*p2p3*p2p4- $ 128*d223*s*p1p4*p2p3*p2p4- $ 256*d12*p1p2*p1p4*p2p3*p2p4- $ 128*d223*p1p2*p1p4*p2p3*p2p4+ $ 128*d11*p1p3*p1p4*p2p3*p2p4+ $ 128*d13*p1p3*p1p4*p2p3*p2p4- $ 128*d223*p1p4**2*p2p3*p2p4+ $ 128*d11*p1p3*p2p3**2*p2p4+ $ 256*d13*p1p3*p2p3**2*p2p4+ $ 128*d11*p1p4*p2p3**2*p2p4+ $ 128*d12*p1p4*p2p3**2*p2p4+ $ 128*d13*p1p4*p2p3**2*p2p4+ $ 128*d213*p1p4*p2p3**2*p2p4+ $ 128*d23*p1p4*p2p3**2*p2p4-128*d223*mt**2*s*p2p4**2- $ 64*d12*s*p1p2*p2p4**2-64*d223*s*p1p2*p2p4**2+ $ 128*d20*p1p3*p2p4**2+256*d12*mt**2*p1p3*p2p4**2+ $ 64*d13*mt**2*p1p3*p2p4**2+ $ 128*d223*mt**2*p1p3*p2p4**2-64*d12*s*p1p3*p2p4**2- $ 128*d223*s*p1p3*p2p4**2- $ 256*d12*p1p2*p1p3*p2p4**2- $ 128*d223*p1p2*p1p3*p2p4**2+ $ 128*d12*p1p3**2*p2p4**2+128*d223*p1p3**2*p2p4**2- $ 128*d223*s*p1p4*p2p4**2+ $ 128*d223*p1p3*p1p4*p2p4**2- $ 128*d11*p1p3*p2p3*p2p4**2- $ 128*d12*p1p3*p2p3*p2p4**2- $ 128*d13*p1p3*p2p3*p2p4**2- $ 128*d213*p1p3*p2p3*p2p4**2- $ 128*d23*p1p3*p2p3*p2p4**2- $ 128*d12*p1p4*p2p3*p2p4**2- $ 128*d223*p1p4*p2p3*p2p4**2+128*d12*p1p3*p2p4**3+ $ 128*d223*p1p3*p2p4**3) kmv2(4)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+ $ 64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2- $ 64*d12*mt**4*s**2+32*d13*mt**4*s**2+32*d213*mt**4*s**2+ $ 32*d23*mt**4*s**2-16*d12*mt**2*s**3+16*d212*mt**2*s**3+ $ 16*d223*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2- $ 64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2- $ 16*c0*s**2*p1p2+64*d20*s**2*p1p2+ $ 64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2- $ 16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*mt**2*s*p1p3+ $ 64*d20*mt**2*s*p1p3+64*d13*mt**4*s*p1p3+ $ 64*d23*mt**4*s*p1p3-64*d12*mt**2*s**2*p1p3+ $ 64*c0*mt**2*s*p1p4+64*d20*mt**2*s*p1p4+ $ 64*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4- $ 32*d12*mt**2*s**2*p1p4+32*d213*mt**2*s**2*p1p4+ $ 32*d23*mt**2*s**2*p1p4+32*c0*mt**2*s*p2p3+ $ 64*d20*mt**2*s*p2p3-128*d11*mt**4*s*p2p3- $ 192*d13*mt**4*s*p2p3-64*d213*mt**4*s*p2p3- $ 64*d23*mt**4*s*p2p3-64*d11*mt**2*s**2*p2p3- $ 32*d12*mt**2*s**2*p2p3-96*d13*mt**2*s**2*p2p3- $ 32*d212*mt**2*s**2*p2p3+32*d213*mt**2*s**2*p2p3- $ 32*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3- $ 96*c0*s*p1p2*p2p3-128*d20*s*p1p2*p2p3+ $ 128*d11*mt**2*s*p1p2*p2p3+128*d13*mt**2*s*p1p2*p2p3+ $ 64*d213*mt**2*s*p1p2*p2p3+64*d12*s**2*p1p2*p2p3+ $ 32*d212*s**2*p1p2*p2p3-32*d213*s**2*p1p2*p2p3+ $ 32*d223*s**2*p1p2*p2p3-32*d23*s**2*p1p2*p2p3+ $ 128*c0*s*p1p3*p2p3-128*d11*mt**2*s*p1p3*p2p3- $ 128*d13*mt**2*s*p1p3*p2p3-64*d12*s**2*p1p3*p2p3+ $ 32*c0*s*p1p4*p2p3-128*d20*s*p1p4*p2p3- $ 128*d11*mt**2*s*p1p4*p2p3-64*d12*mt**2*s*p1p4*p2p3- $ 192*d13*mt**2*s*p1p4*p2p3-64*d213*mt**2*s*p1p4*p2p3- $ 128*d23*mt**2*s*p1p4*p2p3+32*d212*s**2*p1p4*p2p3+ $ 32*d223*s**2*p1p4*p2p3-64*d13*mt**2*s*p2p3**2- $ 64*d213*mt**2*s*p2p3**2-64*d23*mt**2*s*p2p3**2+ $ 128*d11*s*p1p2*p2p3**2+256*d13*s*p1p2*p2p3**2+ $ 64*d213*s*p1p2*p2p3**2+64*d23*s*p1p2*p2p3**2- $ 128*d11*s*p1p3*p2p3**2-256*d13*s*p1p3*p2p3**2+ $ 192*c0*p1p4*p2p3**2+256*d20*p1p4*p2p3**2+ $ 128*d13*mt**2*p1p4*p2p3**2+ $ 128*d23*mt**2*p1p4*p2p3**2-128*d12*s*p1p4*p2p3**2- $ 64*d212*s*p1p4*p2p3**2+64*d213*s*p1p4*p2p3**2- $ 64*d223*s*p1p4*p2p3**2+64*d23*s*p1p4*p2p3**2- $ 256*d11*p1p4*p2p3**3-512*d13*p1p4*p2p3**3- $ 128*d213*p1p4*p2p3**3-128*d23*p1p4*p2p3**3- $ 32*c0*mt**2*s*p2p4-64*d20*mt**2*s*p2p4+ $ 128*d12*mt**4*s*p2p4+64*d223*mt**4*s*p2p4- $ 64*d23*mt**4*s*p2p4+32*d12*mt**2*s**2*p2p4+ $ 32*d212*mt**2*s**2*p2p4-32*c0*s*p1p2*p2p4- $ 128*d12*mt**2*s*p1p2*p2p4-64*d13*mt**2*s*p1p2*p2p4- $ 64*d223*mt**2*s*p1p2*p2p4+32*d12*s**2*p1p2*p2p4- $ 32*d212*s**2*p1p2*p2p4+32*d223*s**2*p1p2*p2p4+ $ 32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4+ $ 128*d12*mt**2*s*p1p3*p2p4+64*d213*mt**2*s*p1p3*p2p4+ $ 64*d223*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+ $ 32*d223*s**2*p1p3*p2p4+64*c0*s*p1p4*p2p4- $ 128*d20*s*p1p4*p2p4+64*d12*mt**2*s*p1p4*p2p4+ $ 64*d13*mt**2*s*p1p4*p2p4+64*d223*mt**2*s*p1p4*p2p4- $ 64*d23*mt**2*s*p1p4*p2p4+64*d212*s**2*p1p4*p2p4+ $ 64*d223*s**2*p1p4*p2p4-256*c0*mt**2*p2p3*p2p4- $ 256*d20*mt**2*p2p3*p2p4-256*d13*mt**4*p2p3*p2p4- $ 256*d23*mt**4*p2p3*p2p4+256*d12*mt**2*s*p2p3*p2p4+ $ 64*d13*mt**2*s*p2p3*p2p4-64*d213*mt**2*s*p2p3*p2p4+ $ 64*d223*mt**2*s*p2p3*p2p4-128*d23*mt**2*s*p2p3*p2p4+ $ 256*c0*p1p2*p2p3*p2p4+256*d20*p1p2*p2p3*p2p4+ $ 256*d13*mt**2*p1p2*p2p3*p2p4+ $ 256*d23*mt**2*p1p2*p2p3*p2p4+ $ 128*d11*s*p1p2*p2p3*p2p4- $ 320*d12*s*p1p2*p2p3*p2p4+ $ 128*d13*s*p1p2*p2p3*p2p4+ $ 64*d213*s*p1p2*p2p3*p2p4- $ 128*d223*s*p1p2*p2p3*p2p4+ $ 64*d23*s*p1p2*p2p3*p2p4- $ 192*c0*p1p3*p2p3*p2p4-256*d20*p1p3*p2p3*p2p4- $ 128*d13*mt**2*p1p3*p2p3*p2p4- $ 256*d23*mt**2*p1p3*p2p3*p2p4+ $ 256*d12*s*p1p3*p2p3*p2p4+ $ 64*d212*s*p1p3*p2p3*p2p4+ $ 64*d213*s*p1p3*p2p3*p2p4+ $ 64*d223*s*p1p3*p2p3*p2p4+ $ 64*d23*s*p1p3*p2p3*p2p4-64*c0*p1p4*p2p3*p2p4- $ 128*d13*mt**2*p1p4*p2p3*p2p4- $ 128*d23*mt**2*p1p4*p2p3*p2p4- $ 128*d11*s*p1p4*p2p3*p2p4- $ 64*d12*s*p1p4*p2p3*p2p4- $ 128*d13*s*p1p4*p2p3*p2p4- $ 64*d212*s*p1p4*p2p3*p2p4- $ 192*d223*s*p1p4*p2p3*p2p4+ $ 512*d11*mt**2*p2p3**2*p2p4+ $ 768*d13*mt**2*p2p3**2*p2p4+ $ 256*d213*mt**2*p2p3**2*p2p4+ $ 384*d23*mt**2*p2p3**2*p2p4- $ 512*d11*p1p2*p2p3**2*p2p4- $ 768*d13*p1p2*p2p3**2*p2p4- $ 256*d213*p1p2*p2p3**2*p2p4- $ 256*d23*p1p2*p2p3**2*p2p4+ $ 256*d11*p1p3*p2p3**2*p2p4+ $ 512*d13*p1p3*p2p3**2*p2p4+ $ 128*d213*p1p3*p2p3**2*p2p4+ $ 128*d23*p1p3*p2p3**2*p2p4+ $ 256*d11*p1p4*p2p3**2*p2p4+ $ 384*d12*p1p4*p2p3**2*p2p4+ $ 256*d13*p1p4*p2p3**2*p2p4+ $ 128*d213*p1p4*p2p3**2*p2p4+ $ 256*d223*p1p4*p2p3**2*p2p4+ $ 128*d23*p1p4*p2p3**2*p2p4-64*d223*mt**2*s*p2p4**2- $ 64*d12*s*p1p2*p2p4**2+64*c0*p1p3*p2p4**2+ $ 128*d13*mt**2*p1p3*p2p4**2-64*d12*s*p1p3*p2p4**2+ $ 64*d212*s*p1p3*p2p4**2-64*d223*s*p1p3*p2p4**2- $ 128*d223*s*p1p4*p2p4**2-512*d12*mt**2*p2p3*p2p4**2- $ 256*d223*mt**2*p2p3*p2p4**2+ $ 128*d23*mt**2*p2p3*p2p4**2+ $ 512*d12*p1p2*p2p3*p2p4**2+ $ 256*d223*p1p2*p2p3*p2p4**2- $ 256*d11*p1p3*p2p3*p2p4**2- $ 384*d12*p1p3*p2p3*p2p4**2- $ 256*d13*p1p3*p2p3*p2p4**2- $ 128*d213*p1p3*p2p3*p2p4**2- $ 256*d223*p1p3*p2p3*p2p4**2- $ 128*d23*p1p3*p2p3*p2p4**2- $ 128*d12*p1p4*p2p3*p2p4**2+128*d12*p1p3*p2p4**3) kmv(4)=-(cs1*kmv1(4)+cs2*kmv2(4))/(s2-mt**2)/4d0 return end