c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentagons_qq(s,t1,t2,u1,u2,mt,mh,mv)
      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,cs1,cs2
      complex*16 zero,mv(2),mv1(2),mv2(2)
      complex*16 d1(0:3,5),d2(0:6,5),d3(0:3,0:3,5)
      complex*16 d01,d111,d121,d131,d211,d221,d231,d201,d2121,
     $     d2131,d2231
      complex*16 d02,d112,d122,d132,d212,d222,d232,d202,d2122,
     $     d2132,d2232
      complex*16 d03,d113,d123,d133,d213,d223,d233,d203,d2123,
     $     d2133,d2233
      complex*16 d04,d114,d124,d134,d214,d224,d234,d204,d2124,
     $     d2134,d2234
      complex*16 d05,d115,d125,d135,d215,d225,d235,d205,d2125,
     $     d2135,d2235
      complex*16 e0,E0_ir

      zero=dcmplx(0d0,0d0)
      do i=1,2
         mv(i)=zero
         mv1(i)=zero
         mv2(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 P1
      e0=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 ddpenta_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,d1,d2,d3)
      d01=d1(0,1)
      d111=d1(1,1)
      d121=d1(2,1)
      d131=d1(3,1)
      d201=d2(0,1)
      d211=d2(1,1)
      d221=d2(2,1)
      d231=d2(3,1)
      d2121=d2(4,1)
      d2131=d2(5,1)
      d2231=d2(6,1)
      d02=d1(0,2)
      d112=d1(1,2)
      d122=d1(2,2)
      d132=d1(3,2)
      d202=d2(0,2)
      d212=d2(1,2)
      d222=d2(2,2)
      d232=d2(3,2)
      d2122=d2(4,2)
      d2132=d2(5,2)
      d2232=d2(6,2)
      d03=d1(0,3)
      d113=d1(1,3)
      d123=d1(2,3)
      d133=d1(3,3)
      d203=d2(0,3)
      d213=d2(1,3)
      d223=d2(2,3)
      d233=d2(3,3)
      d2123=d2(4,3)
      d2133=d2(5,3)
      d2233=d2(6,3)
      d04=d1(0,4)
      d114=d1(1,4)
      d124=d1(2,4)
      d134=d1(3,4)
      d204=d2(0,4)
      d214=d2(1,4)
      d224=d2(2,4)
      d234=d2(3,4)
      d2124=d2(4,4)
      d2134=d2(5,4)
      d2234=d2(6,4)
      d05=d1(0,5)
      d115=d1(1,5)
      d125=d1(2,5)
      d135=d1(3,5)
      d205=d2(0,5)
      d215=d2(1,5)
      d225=d2(2,5)
      d235=d2(3,5)
      d2125=d2(4,5)
      d2135=d2(5,5)
      d2235=d2(6,5)
c P1
      mv1(1)=(32*d01*mt**4*s-32*d02*mt**4*s+32*d04*mt**4*s-
     $     16*d121*mt**4*s-48*d131*mt**4*s+56*d01*mt**2*s**2-
     $     8*d02*mt**2*s**2-8*d03*mt**2*s**2+8*d04*mt**2*s**2+
     $     8*d05*mt**2*s**2+48*d111*mt**2*s**2-16*d113*mt**2*s**2+
     $     8*d114*mt**2*s**2+16*d115*mt**2*s**2-16*d123*mt**2*s**2+
     $     8*d125*mt**2*s**2+48*d131*mt**2*s**2-48*d133*mt**2*s**2+
     $     16*d135*mt**2*s**2-64*d01*mt**2*s*p1p2+32*d02*mt**2*s*p1p2-
     $     32*d04*mt**2*s*p1p2+16*d121*mt**2*s*p1p2+
     $     48*d131*mt**2*s*p1p2-16*d134*mt**2*s*p1p2+
     $     16*d135*mt**2*s*p1p2+16*d01*s**2*p1p2+
     $     32*d111*s**2*p1p2+16*d114*s**2*p1p2-16*d125*s**2*p1p2+
     $     32*d131*s**2*p1p2+32*d01*s*p1p2**2-32*d121*s*p1p2**2+
     $     32*d131*s*p1p2**2+96*d01*mt**2*s*p1p3-
     $     48*d03*mt**2*s*p1p3+16*d05*mt**2*s*p1p3+
     $     80*d111*mt**2*s*p1p3-64*d112*mt**2*s*p1p3+
     $     16*d124*mt**2*s*p1p3+32*d131*mt**2*s*p1p3-
     $     64*d132*mt**2*s*p1p3-64*d133*mt**2*s*p1p3+
     $     32*d134*mt**2*s*p1p3-32*d135*mt**2*s*p1p3+
     $     128*d01*mt**2*p1p2*p1p3-128*d02*mt**2*p1p2*p1p3-
     $     96*d01*s*p1p2*p1p3+32*d02*s*p1p2*p1p3-
     $     32*d111*s*p1p2*p1p3+32*d124*s*p1p2*p1p3+
     $     32*d125*s*p1p2*p1p3-64*d131*s*p1p2*p1p3+
     $     64*d134*s*p1p2*p1p3-128*d01*p1p2**2*p1p3+
     $     128*d02*p1p2**2*p1p3-32*d01*mt**2*p1p3**2+
     $     32*d02*mt**2*p1p3**2+32*d02*s*p1p3**2-32*d04*s*p1p3**2+
     $     64*d01*p1p2*p1p3**2-64*d02*p1p2*p1p3**2+
     $     32*d01*mt**2*s*p1p4-16*d02*mt**2*s*p1p4+
     $     16*d04*mt**2*s*p1p4+16*d05*mt**2*s*p1p4+
     $     16*d111*mt**2*s*p1p4+32*d113*mt**2*s*p1p4-
     $     16*d114*mt**2*s*p1p4+32*d123*mt**2*s*p1p4-
     $     32*d131*mt**2*s*p1p4+96*d133*mt**2*s*p1p4-
     $     64*d01*s*p1p2*p1p4-32*d111*s*p1p2*p1p4-
     $     64*d131*s*p1p2*p1p4-192*d01*mt**2*p1p3*p1p4+
     $     160*d02*mt**2*p1p3*p1p4+32*d03*mt**2*p1p3*p1p4-
     $     128*d04*mt**2*p1p3*p1p4+128*d132*mt**2*p1p3*p1p4+
     $     128*d133*mt**2*p1p3*p1p4-64*d134*mt**2*p1p3*p1p4+
     $     64*d135*mt**2*p1p3*p1p4+192*d01*p1p2*p1p3*p1p4-
     $     192*d02*p1p2*p1p3*p1p4+
     $     128*d04*p1p2*p1p3*p1p4-64*d02*p1p3**2*p1p4+
     $     64*d04*p1p3**2*p1p4-32*d01*mt**2*p1p4**2+
     $     32*d03*mt**2*p1p4**2+64*d02*p1p3*p1p4**2-
     $     64*d04*p1p3*p1p4**2-64*d01*mt**4*p2p3+
     $     64*d02*mt**4*p2p3+48*d01*mt**2*s*p2p3-
     $     16*d02*mt**2*s*p2p3+32*d04*mt**2*s*p2p3+
     $     16*d111*mt**2*s*p2p3+48*d121*mt**2*s*p2p3+
     $     32*d123*mt**2*s*p2p3-16*d125*mt**2*s*p2p3+
     $     16*d131*mt**2*s*p2p3-32*d133*mt**2*s*p2p3-
     $     32*d135*mt**2*s*p2p3+64*d01*mt**2*p1p2*p2p3-
     $     64*d02*mt**2*p1p2*p2p3-32*d111*s*p1p2*p2p3+
     $     32*d121*s*p1p2*p2p3+32*d125*s*p1p2*p2p3-
     $     32*d131*s*p1p2*p2p3-32*d01*mt**2*p1p3*p2p3+
     $     32*d02*mt**2*p1p3*p2p3+64*d01*s*p1p3*p2p3-
     $     32*d02*s*p1p3*p2p3+32*d04*s*p1p3*p2p3-
     $     64*d125*s*p1p3*p2p3+128*d01*p1p2*p1p3*p2p3-
     $     128*d02*p1p2*p1p3*p2p3-64*d01*p1p3**2*p2p3+
     $     64*d02*p1p3**2*p2p3+32*d01*mt**2*p1p4*p2p3+
     $     32*d02*mt**2*p1p4*p2p3-64*d123*mt**2*p1p4*p2p3-
     $     128*d131*mt**2*p1p4*p2p3+64*d133*mt**2*p1p4*p2p3+
     $     32*d134*mt**2*p1p4*p2p3-32*d135*mt**2*p1p4*p2p3-
     $     32*d01*s*p1p4*p2p3-64*d111*s*p1p4*p2p3-
     $     32*d114*s*p1p4*p2p3+32*d125*s*p1p4*p2p3-
     $     64*d131*s*p1p4*p2p3-64*d01*p1p2*p1p4*p2p3+
     $     64*d121*p1p2*p1p4*p2p3-
     $     64*d131*p1p2*p1p4*p2p3-64*d01*p1p3*p1p4*p2p3+
     $     64*d02*p1p3*p1p4*p2p3-128*d04*p1p3*p1p4*p2p3+
     $     64*d111*p1p3*p1p4*p2p3-
     $     64*d124*p1p3*p1p4*p2p3+
     $     64*d125*p1p3*p1p4*p2p3+
     $     128*d131*p1p3*p1p4*p2p3-
     $     128*d134*p1p3*p1p4*p2p3+128*d01*p1p4**2*p2p3+
     $     64*d111*p1p4**2*p2p3+128*d131*p1p4**2*p2p3-
     $     64*d01*mt**2*p2p3**2+64*d02*mt**2*p2p3**2-
     $     64*d01*p1p3*p2p3**2+64*d02*p1p3*p2p3**2+
     $     64*d111*p1p4*p2p3**2-64*d121*p1p4*p2p3**2-
     $     64*d125*p1p4*p2p3**2+64*d131*p1p4*p2p3**2-
     $     64*d01*mt**4*p2p4+64*d03*mt**4*p2p4+
     $     48*d01*mt**2*s*p2p4-32*d02*mt**2*s*p2p4-
     $     16*d03*mt**2*s*p2p4+32*d04*mt**2*s*p2p4+
     $     16*d05*mt**2*s*p2p4-48*d111*mt**2*s*p2p4-
     $     32*d113*mt**2*s*p2p4-32*d114*mt**2*s*p2p4-
     $     16*d115*mt**2*s*p2p4+80*d121*mt**2*s*p2p4-
     $     128*d123*mt**2*s*p2p4-80*d131*mt**2*s*p2p4-
     $     32*d135*mt**2*s*p2p4-16*d01*s**2*p2p4-
     $     32*d111*s**2*p2p4-16*d114*s**2*p2p4+16*d125*s**2*p2p4-
     $     32*d131*s**2*p2p4+64*d01*mt**2*p1p2*p2p4-
     $     64*d03*mt**2*p1p2*p2p4-32*d01*s*p1p2*p2p4-
     $     32*d03*s*p1p2*p2p4-32*d111*s*p1p2*p2p4-
     $     32*d115*s*p1p2*p2p4+64*d121*s*p1p2*p2p4-
     $     64*d131*s*p1p2*p2p4-64*d135*s*p1p2*p2p4+
     $     32*d01*mt**2*p1p3*p2p4-96*d03*mt**2*p1p3*p2p4+
     $     128*d05*mt**2*p1p3*p2p4+64*d121*mt**2*p1p3*p2p4-
     $     128*d122*mt**2*p1p3*p2p4-64*d123*mt**2*p1p3*p2p4+
     $     64*d131*mt**2*p1p3*p2p4-64*d133*mt**2*p1p3*p2p4-
     $     32*d134*mt**2*p1p3*p2p4+32*d135*mt**2*p1p3*p2p4+
     $     32*d01*s*p1p3*p2p4-32*d04*s*p1p3*p2p4+
     $     32*d111*s*p1p3*p2p4-32*d124*s*p1p3*p2p4+
     $     64*d131*s*p1p3*p2p4-64*d134*s*p1p3*p2p4+
     $     128*d01*p1p2*p1p3*p2p4-
     $     128*d02*p1p2*p1p3*p2p4+64*d03*p1p2*p1p3*p2p4-
     $     128*d05*p1p2*p1p3*p2p4+64*d01*p1p3**2*p2p4-
     $     128*d02*p1p3**2*p2p4+128*d04*p1p3**2*p2p4+
     $     64*d05*p1p3**2*p2p4-64*d125*p1p3**2*p2p4-
     $     32*d01*mt**2*p1p4*p2p4+32*d03*mt**2*p1p4*p2p4+
     $     96*d01*s*p1p4*p2p4-32*d03*s*p1p4*p2p4+
     $     32*d05*s*p1p4*p2p4+32*d111*s*p1p4*p2p4-
     $     32*d114*s*p1p4*p2p4+64*d131*s*p1p4*p2p4+
     $     64*d01*p1p2*p1p4*p2p4-64*d03*p1p2*p1p4*p2p4-
     $     128*d01*p1p3*p1p4*p2p4+
     $     128*d02*p1p3*p1p4*p2p4+64*d03*p1p3*p1p4*p2p4-
     $     64*d04*p1p3*p1p4*p2p4-64*d05*p1p3*p1p4*p2p4+
     $     64*d114*p1p3*p1p4*p2p4-64*d01*p1p4**2*p2p4+
     $     64*d03*p1p4**2*p2p4-128*d01*mt**2*p2p3*p2p4+
     $     64*d02*mt**2*p2p3*p2p4+64*d03*mt**2*p2p3*p2p4+
     $     32*d111*s*p2p3*p2p4-32*d121*s*p2p3*p2p4-
     $     32*d125*s*p2p3*p2p4+32*d131*s*p2p3*p2p4-
     $     64*d01*p1p3*p2p3*p2p4+64*d05*p1p3*p2p3*p2p4-
     $     64*d01*p1p4*p2p3*p2p4+128*d03*p1p4*p2p3*p2p4-
     $     64*d05*p1p4*p2p3*p2p4+64*d111*p1p4*p2p3*p2p4+
     $     64*d115*p1p4*p2p3*p2p4-
     $     64*d121*p1p4*p2p3*p2p4+
     $     64*d131*p1p4*p2p3*p2p4+
     $     128*d135*p1p4*p2p3*p2p4-64*d01*mt**2*p2p4**2+
     $     64*d03*mt**2*p2p4**2+32*d03*s*p2p4**2+
     $     32*d111*s*p2p4**2+32*d115*s*p2p4**2-32*d121*s*p2p4**2+
     $     32*d131*s*p2p4**2+64*d135*s*p2p4**2+
     $     64*d02*p1p3*p2p4**2-64*d03*p1p3*p2p4**2+
     $     64*d05*p1p3*p2p4**2-64*d01*p1p4*p2p4**2+
     $     64*d03*p1p4*p2p4**2)
      mv1(1)=mv1(1)+e0*(16*mt**2*s**2*p1p3+32*mt**2*s*p1p3**2+
     $     32*mt**2*s*p1p3*p1p4+64*mt**4*s*p2p4+
     $     16*mt**2*s**2*p2p4-64*mt**2*s*p1p2*p2p4+
     $     32*mt**2*s*p1p3*p2p4+256*mt**2*p1p3**2*p2p4-
     $     64*s*p1p3**2*p2p4-256*p1p2*p1p3**2*p2p4+
     $     128*p1p3**3*p2p4+32*mt**2*s*p1p4*p2p4-
     $     256*mt**2*p1p3*p1p4*p2p4+64*s*p1p3*p1p4*p2p4+
     $     256*p1p2*p1p3*p1p4*p2p4-
     $     128*p1p3*p1p4**2*p2p4+64*mt**2*s*p2p3*p2p4+
     $     64*s*p1p3*p2p3*p2p4+128*p1p3**2*p2p3*p2p4-
     $     384*p1p3*p1p4*p2p3*p2p4+64*mt**2*s*p2p4**2-
     $     64*s*p1p3*p2p4**2+384*p1p3**2*p2p4**2-
     $     128*p1p3*p1p4*p2p4**2)

      mv2(1)=(32*d01*mt**4*s-32*d03*mt**4*s+32*d05*mt**4*s-
     $     48*d121*mt**4*s-16*d131*mt**4*s+56*d01*mt**2*s**2-
     $     8*d02*mt**2*s**2-8*d03*mt**2*s**2+8*d04*mt**2*s**2+
     $     8*d05*mt**2*s**2+48*d111*mt**2*s**2-16*d112*mt**2*s**2+
     $     8*d114*mt**2*s**2+16*d124*mt**2*s**2+8*d125*mt**2*s**2+
     $     48*d131*mt**2*s**2-16*d132*mt**2*s**2-48*d133*mt**2*s**2+
     $     16*d134*mt**2*s**2-64*d01*mt**2*s*p1p2+32*d03*mt**2*s*p1p2-
     $     32*d05*mt**2*s*p1p2+16*d121*mt**2*s*p1p2+
     $     48*d131*mt**2*s*p1p2-16*d134*mt**2*s*p1p2+
     $     16*d135*mt**2*s*p1p2+32*d01*s*p1p2**2-
     $     64*d01*mt**4*p1p3+64*d02*mt**4*p1p3+
     $     96*d01*mt**2*s*p1p3-16*d02*mt**2*s*p1p3-
     $     32*d03*mt**2*s*p1p3+16*d04*mt**2*s*p1p3+
     $     32*d05*mt**2*s*p1p3+48*d111*mt**2*s*p1p3-
     $     32*d112*mt**2*s*p1p3-16*d124*mt**2*s*p1p3-
     $     32*d125*mt**2*s*p1p3-32*d132*mt**2*s*p1p3-
     $     32*d135*mt**2*s*p1p3+64*d01*mt**2*p1p2*p1p3-
     $     64*d02*mt**2*p1p2*p1p3-32*d01*s*p1p2*p1p3-
     $     32*d02*s*p1p2*p1p3+32*d04*s*p1p2*p1p3-
     $     64*d01*mt**2*p1p3**2+64*d02*mt**2*p1p3**2+
     $     32*d02*s*p1p3**2-32*d04*s*p1p3**2-64*d01*mt**4*p1p4+
     $     64*d03*mt**4*p1p4+64*d01*mt**2*s*p1p4-
     $     16*d03*mt**2*s*p1p4+32*d05*mt**2*s*p1p4+
     $     48*d111*mt**2*s*p1p4-16*d114*mt**2*s*p1p4+
     $     32*d132*mt**2*s*p1p4+64*d133*mt**2*s*p1p4-
     $     32*d134*mt**2*s*p1p4+64*d01*mt**2*p1p2*p1p4-
     $     64*d03*mt**2*p1p2*p1p4-128*d01*mt**2*p1p3*p1p4+
     $     64*d02*mt**2*p1p3*p1p4+64*d03*mt**2*p1p3*p1p4-
     $     64*d131*mt**2*p1p3*p1p4+64*d132*mt**2*p1p3*p1p4-
     $     64*d01*mt**2*p1p4**2+64*d03*mt**2*p1p4**2-
     $     64*d131*mt**2*p1p4**2+64*d133*mt**2*p1p4**2+
     $     16*d01*mt**2*s*p2p3-16*d03*mt**2*s*p2p3+
     $     16*d04*mt**2*s*p2p3+16*d05*mt**2*s*p2p3-
     $     16*d111*mt**2*s*p2p3+32*d112*mt**2*s*p2p3+
     $     48*d121*mt**2*s*p2p3-16*d125*mt**2*s*p2p3-
     $     16*d131*mt**2*s*p2p3+32*d132*mt**2*s*p2p3-
     $     32*d01*s*p1p2*p2p3+32*d125*s*p1p2*p2p3-
     $     32*d01*mt**2*p1p3*p2p3+32*d02*mt**2*p1p3*p2p3+
     $     64*d01*s*p1p3*p2p3-32*d02*s*p1p3*p2p3+
     $     32*d04*s*p1p3*p2p3-64*d125*s*p1p3*p2p3+
     $     64*d01*p1p2*p1p3*p2p3-64*d02*p1p2*p1p3*p2p3-
     $     64*d01*p1p3**2*p2p3+64*d02*p1p3**2*p2p3+
     $     32*d01*mt**2*p1p4*p2p3+32*d03*mt**2*p1p4*p2p3-
     $     64*d131*mt**2*p1p4*p2p3-64*d132*mt**2*p1p4*p2p3+
     $     32*d134*mt**2*p1p4*p2p3-32*d135*mt**2*p1p4*p2p3-
     $     64*d01*p1p2*p1p4*p2p3-64*d01*p1p3*p1p4*p2p3+
     $     128*d02*p1p3*p1p4*p2p3-
     $     128*d04*p1p3*p1p4*p2p3-32*d01*mt**2*p2p3**2+
     $     32*d02*mt**2*p2p3**2-64*d01*p1p3*p2p3**2+
     $     64*d02*p1p3*p2p3**2+64*d01*p1p4*p2p3**2-
     $     64*d125*p1p4*p2p3**2+48*d01*mt**2*s*p2p4-
     $     48*d02*mt**2*s*p2p4+16*d04*mt**2*s*p2p4-
     $     16*d111*mt**2*s*p2p4-64*d113*mt**2*s*p2p4+
     $     16*d115*mt**2*s*p2p4+80*d121*mt**2*s*p2p4-
     $     32*d122*mt**2*s*p2p4-160*d123*mt**2*s*p2p4-
     $     48*d131*mt**2*s*p2p4-32*d133*mt**2*s*p2p4-
     $     16*d01*s**2*p2p4-32*d111*s**2*p2p4-16*d114*s**2*p2p4+
     $     16*d125*s**2*p2p4-32*d131*s**2*p2p4+
     $     128*d01*mt**2*p1p2*p2p4-128*d03*mt**2*p1p2*p2p4-
     $     64*d01*s*p1p2*p2p4+32*d03*s*p1p2*p2p4-
     $     32*d05*s*p1p2*p2p4+32*d114*s*p1p2*p2p4+
     $     32*d121*s*p1p2*p2p4-32*d131*s*p1p2*p2p4-
     $     128*d01*p1p2**2*p2p4+128*d03*p1p2**2*p2p4+
     $     32*d01*mt**2*p1p3*p2p4-96*d02*mt**2*p1p3*p2p4+
     $     128*d04*mt**2*p1p3*p2p4+64*d121*mt**2*p1p3*p2p4-
     $     64*d122*mt**2*p1p3*p2p4-128*d133*mt**2*p1p3*p2p4+
     $     32*d134*mt**2*p1p3*p2p4-32*d135*mt**2*p1p3*p2p4+
     $     32*d01*s*p1p3*p2p4-32*d04*s*p1p3*p2p4+
     $     32*d111*s*p1p3*p2p4-32*d124*s*p1p3*p2p4+
     $     64*d131*s*p1p3*p2p4-64*d134*s*p1p3*p2p4+
     $     128*d01*p1p2*p1p3*p2p4+64*d02*p1p2*p1p3*p2p4-
     $     128*d03*p1p2*p1p3*p2p4-
     $     128*d04*p1p2*p1p3*p2p4-64*d02*p1p3**2*p2p4+
     $     64*d03*p1p3**2*p2p4+64*d04*p1p3**2*p2p4-
     $     32*d01*mt**2*p1p4*p2p4+32*d03*mt**2*p1p4*p2p4+
     $     64*d121*mt**2*p1p4*p2p4-64*d123*mt**2*p1p4*p2p4-
     $     64*d131*mt**2*p1p4*p2p4+64*d133*mt**2*p1p4*p2p4+
     $     96*d01*s*p1p4*p2p4-32*d03*s*p1p4*p2p4+
     $     32*d05*s*p1p4*p2p4+32*d111*s*p1p4*p2p4-
     $     32*d114*s*p1p4*p2p4+64*d131*s*p1p4*p2p4+
     $     128*d01*p1p2*p1p4*p2p4-
     $     128*d03*p1p2*p1p4*p2p4-64*d01*p1p3*p1p4*p2p4+
     $     64*d04*p1p3*p1p4*p2p4-64*d01*p1p4**2*p2p4+
     $     64*d03*p1p4**2*p2p4-192*d01*mt**2*p2p3*p2p4+
     $     32*d02*mt**2*p2p3*p2p4+160*d03*mt**2*p2p3*p2p4-
     $     128*d05*mt**2*p2p3*p2p4+64*d122*mt**2*p2p3*p2p4+
     $     128*d123*mt**2*p2p3*p2p4+64*d131*mt**2*p2p3*p2p4+
     $     32*d01*s*p2p3*p2p4+96*d111*s*p2p3*p2p4+
     $     32*d114*s*p2p3*p2p4-32*d121*s*p2p3*p2p4-
     $     64*d125*s*p2p3*p2p4+96*d131*s*p2p3*p2p4+
     $     192*d01*p1p2*p2p3*p2p4-
     $     192*d03*p1p2*p2p3*p2p4+
     $     128*d05*p1p2*p2p3*p2p4-
     $     64*d121*p1p2*p2p3*p2p4+
     $     64*d131*p1p2*p2p3*p2p4-
     $     192*d01*p1p3*p2p3*p2p4+64*d02*p1p3*p2p3*p2p4+
     $     128*d03*p1p3*p2p3*p2p4-64*d05*p1p3*p2p3*p2p4-
     $     64*d111*p1p3*p2p3*p2p4+
     $     64*d124*p1p3*p2p3*p2p4+
     $     64*d125*p1p3*p2p3*p2p4-
     $     128*d131*p1p3*p2p3*p2p4+
     $     128*d134*p1p3*p2p3*p2p4-
     $     192*d01*p1p4*p2p3*p2p4+64*d03*p1p4*p2p3*p2p4-
     $     64*d05*p1p4*p2p3*p2p4-64*d111*p1p4*p2p3*p2p4-
     $     128*d131*p1p4*p2p3*p2p4+64*d03*p2p3**2*p2p4-
     $     64*d05*p2p3**2*p2p4-64*d111*p2p3**2*p2p4+
     $     64*d121*p2p3**2*p2p4+64*d125*p2p3**2*p2p4-
     $     64*d131*p2p3**2*p2p4-32*d01*mt**2*p2p4**2+
     $     32*d03*mt**2*p2p4**2+64*d121*mt**2*p2p4**2-
     $     64*d123*mt**2*p2p4**2+32*d03*s*p2p4**2+
     $     32*d111*s*p2p4**2+32*d115*s*p2p4**2-32*d121*s*p2p4**2+
     $     32*d131*s*p2p4**2+64*d135*s*p2p4**2+
     $     64*d01*p1p2*p2p4**2-64*d03*p1p2*p2p4**2+
     $     64*d01*p1p3*p2p4**2-128*d03*p1p3*p2p4**2+
     $     64*d04*p1p3*p2p4**2+128*d05*p1p3*p2p4**2-
     $     64*d114*p1p3*p2p4**2-64*d01*p1p4*p2p4**2+
     $     64*d03*p1p4*p2p4**2-64*d03*p2p3*p2p4**2-
     $     64*d111*p2p3*p2p4**2-64*d115*p2p3*p2p4**2+
     $     64*d121*p2p3*p2p4**2-64*d131*p2p3*p2p4**2-
     $     128*d135*p2p3*p2p4**2)
      mv2(1)=mv2(1)+e0*(64*mt**4*s*p1p3+16*mt**2*s**2*p1p3-
     $     64*mt**2*s*p1p2*p1p3+64*mt**2*s*p1p3**2+
     $     64*mt**2*s*p1p3*p1p4+32*mt**2*s*p1p3*p2p3+
     $     16*mt**2*s**2*p2p4+32*mt**2*s*p1p3*p2p4-
     $     64*s*p1p3**2*p2p4+64*s*p1p3*p1p4*p2p4+
     $     32*mt**2*s*p2p3*p2p4-256*mt**2*p1p3*p2p3*p2p4+
     $     64*s*p1p3*p2p3*p2p4+
     $     256*p1p2*p1p3*p2p3*p2p4-
     $     128*p1p3**2*p2p3*p2p4-
     $     384*p1p3*p1p4*p2p3*p2p4-
     $     128*p1p3*p2p3**2*p2p4+32*mt**2*s*p2p4**2+
     $     256*mt**2*p1p3*p2p4**2-64*s*p1p3*p2p4**2-
     $     256*p1p2*p1p3*p2p4**2+384*p1p3**2*p2p4**2+
     $     128*p1p3*p1p4*p2p4**2+128*p1p3*p2p4**3)

      mv(1)=(cs1*mv1(1)+cs2*mv2(1))/4d0
c P2
      e0=E0_ir(1,mt,0d0,mt**2,mh**2,mt**2,0d0,mt**2-2d0*p2p3,
     $     mt**2+2d0*p3p4-2d0*p1p4-2d0*p1p3,
     $     mt**2+2d0*p3p4-2d0*p2p4-2d0*p2p3,mt**2-2d0*p1p4,
     $     2d0*p3p4,0d0,0d0,mt,mt,0d0)
      call ddpenta_ir(1,mt,0d0,0d0,mt**2-2d0*p2p3,
     $     mt**2-2d0*p1p4,-p3p4,-p2p3,p1p3-p3p4,p2p4-p3p4,-p1p4,
     $     p1p3-p3p4-p1p2+p2p4,
     $     0d0,0d0,0d0,mt,mt,d1,d2,d3)
      d01=d1(0,1)
      d111=d1(1,1)
      d121=d1(2,1)
      d131=d1(3,1)
      d201=d2(0,1)
      d211=d2(1,1)
      d221=d2(2,1)
      d231=d2(3,1)
      d2121=d2(4,1)
      d2131=d2(5,1)
      d2231=d2(6,1)
      d02=d1(0,2)
      d112=d1(1,2)
      d122=d1(2,2)
      d132=d1(3,2)
      d202=d2(0,2)
      d212=d2(1,2)
      d222=d2(2,2)
      d232=d2(3,2)
      d2122=d2(4,2)
      d2132=d2(5,2)
      d2232=d2(6,2)
      d03=d1(0,3)
      d113=d1(1,3)
      d123=d1(2,3)
      d133=d1(3,3)
      d203=d2(0,3)
      d213=d2(1,3)
      d223=d2(2,3)
      d233=d2(3,3)
      d2123=d2(4,3)
      d2133=d2(5,3)
      d2233=d2(6,3)
      d04=d1(0,4)
      d114=d1(1,4)
      d124=d1(2,4)
      d134=d1(3,4)
      d204=d2(0,4)
      d214=d2(1,4)
      d224=d2(2,4)
      d234=d2(3,4)
      d2124=d2(4,4)
      d2134=d2(5,4)
      d2234=d2(6,4)
      d05=d1(0,5)
      d115=d1(1,5)
      d125=d1(2,5)
      d135=d1(3,5)
      d205=d2(0,5)
      d215=d2(1,5)
      d225=d2(2,5)
      d235=d2(3,5)
      d2125=d2(4,5)
      d2135=d2(5,5)
      d2235=d2(6,5)
c P2:
      mv1(2)=(32*d01*mt**4*s-32*d02*mt**4*s+32*d04*mt**4*s-
     $     16*d121*mt**4*s-48*d131*mt**4*s+56*d01*mt**2*s**2-
     $     8*d02*mt**2*s**2-8*d03*mt**2*s**2+8*d04*mt**2*s**2+
     $     8*d05*mt**2*s**2+48*d111*mt**2*s**2-16*d113*mt**2*s**2+
     $     8*d114*mt**2*s**2+16*d115*mt**2*s**2-16*d123*mt**2*s**2+
     $     8*d125*mt**2*s**2+48*d131*mt**2*s**2-48*d133*mt**2*s**2+
     $     16*d135*mt**2*s**2-64*d01*mt**2*s*p1p2+32*d02*mt**2*s*p1p2-
     $     32*d04*mt**2*s*p1p2+16*d121*mt**2*s*p1p2+
     $     48*d131*mt**2*s*p1p2-16*d134*mt**2*s*p1p2+
     $     16*d135*mt**2*s*p1p2+16*d01*s**2*p1p2+
     $     32*d111*s**2*p1p2+16*d114*s**2*p1p2-16*d125*s**2*p1p2+
     $     32*d131*s**2*p1p2+32*d01*s*p1p2**2-32*d121*s*p1p2**2+
     $     32*d131*s*p1p2**2+32*d01*mt**2*s*p1p3-
     $     16*d02*mt**2*s*p1p3+16*d04*mt**2*s*p1p3+
     $     16*d05*mt**2*s*p1p3+16*d111*mt**2*s*p1p3+
     $     32*d113*mt**2*s*p1p3-16*d114*mt**2*s*p1p3+
     $     32*d123*mt**2*s*p1p3-32*d131*mt**2*s*p1p3+
     $     96*d133*mt**2*s*p1p3-64*d01*s*p1p2*p1p3-
     $     32*d111*s*p1p2*p1p3-64*d131*s*p1p2*p1p3-
     $     32*d01*mt**2*p1p3**2+32*d03*mt**2*p1p3**2+
     $     96*d01*mt**2*s*p1p4-48*d03*mt**2*s*p1p4+
     $     16*d05*mt**2*s*p1p4+80*d111*mt**2*s*p1p4-
     $     64*d112*mt**2*s*p1p4+16*d124*mt**2*s*p1p4+
     $     32*d131*mt**2*s*p1p4-64*d132*mt**2*s*p1p4-
     $     64*d133*mt**2*s*p1p4+32*d134*mt**2*s*p1p4-
     $     32*d135*mt**2*s*p1p4+128*d01*mt**2*p1p2*p1p4-
     $     128*d02*mt**2*p1p2*p1p4-96*d01*s*p1p2*p1p4+
     $     32*d02*s*p1p2*p1p4-32*d111*s*p1p2*p1p4+
     $     32*d124*s*p1p2*p1p4+32*d125*s*p1p2*p1p4-
     $     64*d131*s*p1p2*p1p4+64*d134*s*p1p2*p1p4-
     $     128*d01*p1p2**2*p1p4+128*d02*p1p2**2*p1p4-
     $     192*d01*mt**2*p1p3*p1p4+160*d02*mt**2*p1p3*p1p4+
     $     32*d03*mt**2*p1p3*p1p4-128*d04*mt**2*p1p3*p1p4+
     $     128*d132*mt**2*p1p3*p1p4+128*d133*mt**2*p1p3*p1p4-
     $     64*d134*mt**2*p1p3*p1p4+64*d135*mt**2*p1p3*p1p4+
     $     192*d01*p1p2*p1p3*p1p4-
     $     192*d02*p1p2*p1p3*p1p4+
     $     128*d04*p1p2*p1p3*p1p4+64*d02*p1p3**2*p1p4-
     $     64*d04*p1p3**2*p1p4-32*d01*mt**2*p1p4**2+
     $     32*d02*mt**2*p1p4**2+32*d02*s*p1p4**2-32*d04*s*p1p4**2+
     $     64*d01*p1p2*p1p4**2-64*d02*p1p2*p1p4**2-
     $     64*d02*p1p3*p1p4**2+64*d04*p1p3*p1p4**2-
     $     64*d01*mt**4*p2p3+64*d03*mt**4*p2p3+
     $     48*d01*mt**2*s*p2p3-32*d02*mt**2*s*p2p3-
     $     16*d03*mt**2*s*p2p3+32*d04*mt**2*s*p2p3+
     $     16*d05*mt**2*s*p2p3-48*d111*mt**2*s*p2p3-
     $     32*d113*mt**2*s*p2p3-32*d114*mt**2*s*p2p3-
     $     16*d115*mt**2*s*p2p3+80*d121*mt**2*s*p2p3-
     $     128*d123*mt**2*s*p2p3-80*d131*mt**2*s*p2p3-
     $     32*d135*mt**2*s*p2p3-16*d01*s**2*p2p3-
     $     32*d111*s**2*p2p3-16*d114*s**2*p2p3+16*d125*s**2*p2p3-
     $     32*d131*s**2*p2p3+64*d01*mt**2*p1p2*p2p3-
     $     64*d03*mt**2*p1p2*p2p3-32*d01*s*p1p2*p2p3-
     $     32*d03*s*p1p2*p2p3-32*d111*s*p1p2*p2p3-
     $     32*d115*s*p1p2*p2p3+64*d121*s*p1p2*p2p3-
     $     64*d131*s*p1p2*p2p3-64*d135*s*p1p2*p2p3-
     $     32*d01*mt**2*p1p3*p2p3+32*d03*mt**2*p1p3*p2p3+
     $     96*d01*s*p1p3*p2p3-32*d03*s*p1p3*p2p3+
     $     32*d05*s*p1p3*p2p3+32*d111*s*p1p3*p2p3-
     $     32*d114*s*p1p3*p2p3+64*d131*s*p1p3*p2p3+
     $     64*d01*p1p2*p1p3*p2p3-64*d03*p1p2*p1p3*p2p3-
     $     64*d01*p1p3**2*p2p3+64*d03*p1p3**2*p2p3+
     $     32*d01*mt**2*p1p4*p2p3-96*d03*mt**2*p1p4*p2p3+
     $     128*d05*mt**2*p1p4*p2p3+64*d121*mt**2*p1p4*p2p3-
     $     128*d122*mt**2*p1p4*p2p3-64*d123*mt**2*p1p4*p2p3+
     $     64*d131*mt**2*p1p4*p2p3-64*d133*mt**2*p1p4*p2p3-
     $     32*d134*mt**2*p1p4*p2p3+32*d135*mt**2*p1p4*p2p3+
     $     32*d01*s*p1p4*p2p3-32*d04*s*p1p4*p2p3+
     $     32*d111*s*p1p4*p2p3-32*d124*s*p1p4*p2p3+
     $     64*d131*s*p1p4*p2p3-64*d134*s*p1p4*p2p3+
     $     128*d01*p1p2*p1p4*p2p3-
     $     128*d02*p1p2*p1p4*p2p3+64*d03*p1p2*p1p4*p2p3-
     $     128*d05*p1p2*p1p4*p2p3-
     $     128*d01*p1p3*p1p4*p2p3+
     $     128*d02*p1p3*p1p4*p2p3+64*d03*p1p3*p1p4*p2p3-
     $     64*d04*p1p3*p1p4*p2p3-64*d05*p1p3*p1p4*p2p3+
     $     64*d114*p1p3*p1p4*p2p3+64*d01*p1p4**2*p2p3-
     $     128*d02*p1p4**2*p2p3+128*d04*p1p4**2*p2p3+
     $     64*d05*p1p4**2*p2p3-64*d125*p1p4**2*p2p3-
     $     64*d01*mt**2*p2p3**2+64*d03*mt**2*p2p3**2+
     $     32*d03*s*p2p3**2+32*d111*s*p2p3**2+32*d115*s*p2p3**2-
     $     32*d121*s*p2p3**2+32*d131*s*p2p3**2+64*d135*s*p2p3**2-
     $     64*d01*p1p3*p2p3**2+64*d03*p1p3*p2p3**2+
     $     64*d02*p1p4*p2p3**2-64*d03*p1p4*p2p3**2+
     $     64*d05*p1p4*p2p3**2-64*d01*mt**4*p2p4+
     $     64*d02*mt**4*p2p4+48*d01*mt**2*s*p2p4-
     $     16*d02*mt**2*s*p2p4+32*d04*mt**2*s*p2p4+
     $     16*d111*mt**2*s*p2p4+48*d121*mt**2*s*p2p4+
     $     32*d123*mt**2*s*p2p4-16*d125*mt**2*s*p2p4+
     $     16*d131*mt**2*s*p2p4-32*d133*mt**2*s*p2p4-
     $     32*d135*mt**2*s*p2p4+64*d01*mt**2*p1p2*p2p4-
     $     64*d02*mt**2*p1p2*p2p4-32*d111*s*p1p2*p2p4+
     $     32*d121*s*p1p2*p2p4+32*d125*s*p1p2*p2p4-
     $     32*d131*s*p1p2*p2p4+32*d01*mt**2*p1p3*p2p4+
     $     32*d02*mt**2*p1p3*p2p4-64*d123*mt**2*p1p3*p2p4-
     $     128*d131*mt**2*p1p3*p2p4+64*d133*mt**2*p1p3*p2p4+
     $     32*d134*mt**2*p1p3*p2p4-32*d135*mt**2*p1p3*p2p4-
     $     32*d01*s*p1p3*p2p4-64*d111*s*p1p3*p2p4-
     $     32*d114*s*p1p3*p2p4+32*d125*s*p1p3*p2p4-
     $     64*d131*s*p1p3*p2p4-64*d01*p1p2*p1p3*p2p4+
     $     64*d121*p1p2*p1p3*p2p4-
     $     64*d131*p1p2*p1p3*p2p4+128*d01*p1p3**2*p2p4+
     $     64*d111*p1p3**2*p2p4+128*d131*p1p3**2*p2p4-
     $     32*d01*mt**2*p1p4*p2p4+32*d02*mt**2*p1p4*p2p4+
     $     64*d01*s*p1p4*p2p4-32*d02*s*p1p4*p2p4+
     $     32*d04*s*p1p4*p2p4-64*d125*s*p1p4*p2p4+
     $     128*d01*p1p2*p1p4*p2p4-
     $     128*d02*p1p2*p1p4*p2p4-64*d01*p1p3*p1p4*p2p4+
     $     64*d02*p1p3*p1p4*p2p4-128*d04*p1p3*p1p4*p2p4+
     $     64*d111*p1p3*p1p4*p2p4-
     $     64*d124*p1p3*p1p4*p2p4+
     $     64*d125*p1p3*p1p4*p2p4+
     $     128*d131*p1p3*p1p4*p2p4-
     $     128*d134*p1p3*p1p4*p2p4-64*d01*p1p4**2*p2p4+
     $     64*d02*p1p4**2*p2p4-128*d01*mt**2*p2p3*p2p4+
     $     64*d02*mt**2*p2p3*p2p4+64*d03*mt**2*p2p3*p2p4+
     $     32*d111*s*p2p3*p2p4-32*d121*s*p2p3*p2p4-
     $     32*d125*s*p2p3*p2p4+32*d131*s*p2p3*p2p4-
     $     64*d01*p1p3*p2p3*p2p4+128*d03*p1p3*p2p3*p2p4-
     $     64*d05*p1p3*p2p3*p2p4+64*d111*p1p3*p2p3*p2p4+
     $     64*d115*p1p3*p2p3*p2p4-
     $     64*d121*p1p3*p2p3*p2p4+
     $     64*d131*p1p3*p2p3*p2p4+
     $     128*d135*p1p3*p2p3*p2p4-
     $     64*d01*p1p4*p2p3*p2p4+64*d05*p1p4*p2p3*p2p4-
     $     64*d01*mt**2*p2p4**2+64*d02*mt**2*p2p4**2+
     $     64*d111*p1p3*p2p4**2-64*d121*p1p3*p2p4**2-
     $     64*d125*p1p3*p2p4**2+64*d131*p1p3*p2p4**2-
     $     64*d01*p1p4*p2p4**2+64*d02*p1p4*p2p4**2)
      mv1(2)=mv1(2)+e0*(16*mt**2*s**2*p1p4+32*mt**2*s*p1p3*p1p4+
     $     32*mt**2*s*p1p4**2+64*mt**4*s*p2p3+16*mt**2*s**2*p2p3-
     $     64*mt**2*s*p1p2*p2p3+32*mt**2*s*p1p3*p2p3+
     $     32*mt**2*s*p1p4*p2p3-256*mt**2*p1p3*p1p4*p2p3+
     $     64*s*p1p3*p1p4*p2p3+
     $     256*p1p2*p1p3*p1p4*p2p3-
     $     128*p1p3**2*p1p4*p2p3+256*mt**2*p1p4**2*p2p3-
     $     64*s*p1p4**2*p2p3-256*p1p2*p1p4**2*p2p3+
     $     128*p1p4**3*p2p3+64*mt**2*s*p2p3**2-
     $     64*s*p1p4*p2p3**2-128*p1p3*p1p4*p2p3**2+
     $     384*p1p4**2*p2p3**2+64*mt**2*s*p2p3*p2p4+
     $     64*s*p1p4*p2p3*p2p4-
     $     384*p1p3*p1p4*p2p3*p2p4+
     $     128*p1p4**2*p2p3*p2p4)

      mv2(2)=(32*d01*mt**4*s-32*d03*mt**4*s+32*d05*mt**4*s-
     $     48*d121*mt**4*s-16*d131*mt**4*s+56*d01*mt**2*s**2-
     $     8*d02*mt**2*s**2-8*d03*mt**2*s**2+8*d04*mt**2*s**2+
     $     8*d05*mt**2*s**2+48*d111*mt**2*s**2-16*d112*mt**2*s**2+
     $     8*d114*mt**2*s**2+16*d124*mt**2*s**2+8*d125*mt**2*s**2+
     $     48*d131*mt**2*s**2-16*d132*mt**2*s**2-48*d133*mt**2*s**2+
     $     16*d134*mt**2*s**2-64*d01*mt**2*s*p1p2+32*d03*mt**2*s*p1p2-
     $     32*d05*mt**2*s*p1p2+16*d121*mt**2*s*p1p2+
     $     48*d131*mt**2*s*p1p2-16*d134*mt**2*s*p1p2+
     $     16*d135*mt**2*s*p1p2+32*d01*s*p1p2**2-
     $     64*d01*mt**4*p1p3+64*d03*mt**4*p1p3+
     $     64*d01*mt**2*s*p1p3-16*d03*mt**2*s*p1p3+
     $     32*d05*mt**2*s*p1p3+48*d111*mt**2*s*p1p3-
     $     16*d114*mt**2*s*p1p3+32*d132*mt**2*s*p1p3+
     $     64*d133*mt**2*s*p1p3-32*d134*mt**2*s*p1p3+
     $     64*d01*mt**2*p1p2*p1p3-64*d03*mt**2*p1p2*p1p3-
     $     64*d01*mt**2*p1p3**2+64*d03*mt**2*p1p3**2-
     $     64*d131*mt**2*p1p3**2+64*d133*mt**2*p1p3**2-
     $     64*d01*mt**4*p1p4+64*d02*mt**4*p1p4+
     $     96*d01*mt**2*s*p1p4-16*d02*mt**2*s*p1p4-
     $     32*d03*mt**2*s*p1p4+16*d04*mt**2*s*p1p4+
     $     32*d05*mt**2*s*p1p4+48*d111*mt**2*s*p1p4-
     $     32*d112*mt**2*s*p1p4-16*d124*mt**2*s*p1p4-
     $     32*d125*mt**2*s*p1p4-32*d132*mt**2*s*p1p4-
     $     32*d135*mt**2*s*p1p4+64*d01*mt**2*p1p2*p1p4-
     $     64*d02*mt**2*p1p2*p1p4-32*d01*s*p1p2*p1p4-
     $     32*d02*s*p1p2*p1p4+32*d04*s*p1p2*p1p4-
     $     128*d01*mt**2*p1p3*p1p4+64*d02*mt**2*p1p3*p1p4+
     $     64*d03*mt**2*p1p3*p1p4-64*d131*mt**2*p1p3*p1p4+
     $     64*d132*mt**2*p1p3*p1p4-64*d01*mt**2*p1p4**2+
     $     64*d02*mt**2*p1p4**2+32*d02*s*p1p4**2-32*d04*s*p1p4**2+
     $     48*d01*mt**2*s*p2p3-48*d02*mt**2*s*p2p3+
     $     16*d04*mt**2*s*p2p3-16*d111*mt**2*s*p2p3-
     $     64*d113*mt**2*s*p2p3+16*d115*mt**2*s*p2p3+
     $     80*d121*mt**2*s*p2p3-32*d122*mt**2*s*p2p3-
     $     160*d123*mt**2*s*p2p3-48*d131*mt**2*s*p2p3-
     $     32*d133*mt**2*s*p2p3-16*d01*s**2*p2p3-
     $     32*d111*s**2*p2p3-16*d114*s**2*p2p3+16*d125*s**2*p2p3-
     $     32*d131*s**2*p2p3+128*d01*mt**2*p1p2*p2p3-
     $     128*d03*mt**2*p1p2*p2p3-64*d01*s*p1p2*p2p3+
     $     32*d03*s*p1p2*p2p3-32*d05*s*p1p2*p2p3+
     $     32*d114*s*p1p2*p2p3+32*d121*s*p1p2*p2p3-
     $     32*d131*s*p1p2*p2p3-128*d01*p1p2**2*p2p3+
     $     128*d03*p1p2**2*p2p3-32*d01*mt**2*p1p3*p2p3+
     $     32*d03*mt**2*p1p3*p2p3+64*d121*mt**2*p1p3*p2p3-
     $     64*d123*mt**2*p1p3*p2p3-64*d131*mt**2*p1p3*p2p3+
     $     64*d133*mt**2*p1p3*p2p3+96*d01*s*p1p3*p2p3-
     $     32*d03*s*p1p3*p2p3+32*d05*s*p1p3*p2p3+
     $     32*d111*s*p1p3*p2p3-32*d114*s*p1p3*p2p3+
     $     64*d131*s*p1p3*p2p3+128*d01*p1p2*p1p3*p2p3-
     $     128*d03*p1p2*p1p3*p2p3-64*d01*p1p3**2*p2p3+
     $     64*d03*p1p3**2*p2p3+32*d01*mt**2*p1p4*p2p3-
     $     96*d02*mt**2*p1p4*p2p3+128*d04*mt**2*p1p4*p2p3+
     $     64*d121*mt**2*p1p4*p2p3-64*d122*mt**2*p1p4*p2p3-
     $     128*d133*mt**2*p1p4*p2p3+32*d134*mt**2*p1p4*p2p3-
     $     32*d135*mt**2*p1p4*p2p3+32*d01*s*p1p4*p2p3-
     $     32*d04*s*p1p4*p2p3+32*d111*s*p1p4*p2p3-
     $     32*d124*s*p1p4*p2p3+64*d131*s*p1p4*p2p3-
     $     64*d134*s*p1p4*p2p3+128*d01*p1p2*p1p4*p2p3+
     $     64*d02*p1p2*p1p4*p2p3-128*d03*p1p2*p1p4*p2p3-
     $     128*d04*p1p2*p1p4*p2p3-64*d01*p1p3*p1p4*p2p3+
     $     64*d04*p1p3*p1p4*p2p3-64*d02*p1p4**2*p2p3+
     $     64*d03*p1p4**2*p2p3+64*d04*p1p4**2*p2p3-
     $     32*d01*mt**2*p2p3**2+32*d03*mt**2*p2p3**2+
     $     64*d121*mt**2*p2p3**2-64*d123*mt**2*p2p3**2+
     $     32*d03*s*p2p3**2+32*d111*s*p2p3**2+32*d115*s*p2p3**2-
     $     32*d121*s*p2p3**2+32*d131*s*p2p3**2+64*d135*s*p2p3**2+
     $     64*d01*p1p2*p2p3**2-64*d03*p1p2*p2p3**2-
     $     64*d01*p1p3*p2p3**2+64*d03*p1p3*p2p3**2+
     $     64*d01*p1p4*p2p3**2-128*d03*p1p4*p2p3**2+
     $     64*d04*p1p4*p2p3**2+128*d05*p1p4*p2p3**2-
     $     64*d114*p1p4*p2p3**2+16*d01*mt**2*s*p2p4-
     $     16*d03*mt**2*s*p2p4+16*d04*mt**2*s*p2p4+
     $     16*d05*mt**2*s*p2p4-16*d111*mt**2*s*p2p4+
     $     32*d112*mt**2*s*p2p4+48*d121*mt**2*s*p2p4-
     $     16*d125*mt**2*s*p2p4-16*d131*mt**2*s*p2p4+
     $     32*d132*mt**2*s*p2p4-32*d01*s*p1p2*p2p4+
     $     32*d125*s*p1p2*p2p4+32*d01*mt**2*p1p3*p2p4+
     $     32*d03*mt**2*p1p3*p2p4-64*d131*mt**2*p1p3*p2p4-
     $     64*d132*mt**2*p1p3*p2p4+32*d134*mt**2*p1p3*p2p4-
     $     32*d135*mt**2*p1p3*p2p4-64*d01*p1p2*p1p3*p2p4-
     $     32*d01*mt**2*p1p4*p2p4+32*d02*mt**2*p1p4*p2p4+
     $     64*d01*s*p1p4*p2p4-32*d02*s*p1p4*p2p4+
     $     32*d04*s*p1p4*p2p4-64*d125*s*p1p4*p2p4+
     $     64*d01*p1p2*p1p4*p2p4-64*d02*p1p2*p1p4*p2p4-
     $     64*d01*p1p3*p1p4*p2p4+128*d02*p1p3*p1p4*p2p4-
     $     128*d04*p1p3*p1p4*p2p4-64*d01*p1p4**2*p2p4+
     $     64*d02*p1p4**2*p2p4-192*d01*mt**2*p2p3*p2p4+
     $     32*d02*mt**2*p2p3*p2p4+160*d03*mt**2*p2p3*p2p4-
     $     128*d05*mt**2*p2p3*p2p4+64*d122*mt**2*p2p3*p2p4+
     $     128*d123*mt**2*p2p3*p2p4+64*d131*mt**2*p2p3*p2p4+
     $     32*d01*s*p2p3*p2p4+96*d111*s*p2p3*p2p4+
     $     32*d114*s*p2p3*p2p4-32*d121*s*p2p3*p2p4-
     $     64*d125*s*p2p3*p2p4+96*d131*s*p2p3*p2p4+
     $     192*d01*p1p2*p2p3*p2p4-
     $     192*d03*p1p2*p2p3*p2p4+
     $     128*d05*p1p2*p2p3*p2p4-
     $     64*d121*p1p2*p2p3*p2p4+
     $     64*d131*p1p2*p2p3*p2p4-
     $     192*d01*p1p3*p2p3*p2p4+64*d03*p1p3*p2p3*p2p4-
     $     64*d05*p1p3*p2p3*p2p4-64*d111*p1p3*p2p3*p2p4-
     $     128*d131*p1p3*p2p3*p2p4-
     $     192*d01*p1p4*p2p3*p2p4+64*d02*p1p4*p2p3*p2p4+
     $     128*d03*p1p4*p2p3*p2p4-64*d05*p1p4*p2p3*p2p4-
     $     64*d111*p1p4*p2p3*p2p4+
     $     64*d124*p1p4*p2p3*p2p4+
     $     64*d125*p1p4*p2p3*p2p4-
     $     128*d131*p1p4*p2p3*p2p4+
     $     128*d134*p1p4*p2p3*p2p4-64*d03*p2p3**2*p2p4-
     $     64*d111*p2p3**2*p2p4-64*d115*p2p3**2*p2p4+
     $     64*d121*p2p3**2*p2p4-64*d131*p2p3**2*p2p4-
     $     128*d135*p2p3**2*p2p4-32*d01*mt**2*p2p4**2+
     $     32*d02*mt**2*p2p4**2+64*d01*p1p3*p2p4**2-
     $     64*d125*p1p3*p2p4**2-64*d01*p1p4*p2p4**2+
     $     64*d02*p1p4*p2p4**2+64*d03*p2p3*p2p4**2-
     $     64*d05*p2p3*p2p4**2-64*d111*p2p3*p2p4**2+
     $     64*d121*p2p3*p2p4**2+64*d125*p2p3*p2p4**2-
     $     64*d131*p2p3*p2p4**2)
      mv2(2)=mv2(2)+e0*(64*mt**4*s*p1p4+16*mt**2*s**2*p1p4-
     $     64*mt**2*s*p1p2*p1p4+64*mt**2*s*p1p3*p1p4+
     $     64*mt**2*s*p1p4**2+16*mt**2*s**2*p2p3+
     $     32*mt**2*s*p1p4*p2p3+64*s*p1p3*p1p4*p2p3-
     $     64*s*p1p4**2*p2p3+32*mt**2*s*p2p3**2+
     $     256*mt**2*p1p4*p2p3**2-64*s*p1p4*p2p3**2-
     $     256*p1p2*p1p4*p2p3**2+128*p1p3*p1p4*p2p3**2+
     $     384*p1p4**2*p2p3**2+128*p1p4*p2p3**3+
     $     32*mt**2*s*p1p4*p2p4+32*mt**2*s*p2p3*p2p4-
     $     256*mt**2*p1p4*p2p3*p2p4+64*s*p1p4*p2p3*p2p4+
     $     256*p1p2*p1p4*p2p3*p2p4-
     $     384*p1p3*p1p4*p2p3*p2p4-
     $     128*p1p4**2*p2p3*p2p4-128*p1p4*p2p3*p2p4**2)

      mv(2)=-(cs1*mv1(2)+cs2*mv2(2))/4d0
      return
      end
