*------------------------------------------------------------------------*
*    This program calculates the cross sections for e^-e^+->W^-e^+ne     *
*    ITC.                                                                *
*                                                                        *
*    The purpose is to show how to do numerical integrations. We use 5   *
*    methods: Gauss, Vegas (Monte Carlo), Suave (Monte Carlo), Cuhre     *
*    and Divonne (Monte Carlo). The first uses a routine that I wrote.   *
*    The other 4 are described in the preprint hep-ph/0404043 by T. Hahn *
*    and are part of a free package CUBA. The conventions of my package  *
*    are the same for compatibility. Note that Divonne and Cuhre only    *
*    work for ndim >=2 and my Gauss routine only for ndim <=6            *
*                                                                        *
*    All the methods (including gauss) use integration in an hypercube   *
*    of unit length. So the program as to map the intervals into [0,1].  *
*    The limits of the intervals are stored in the arrays xmin and xmax. *
*                                                                        *
*------------------------------------------------------------------------*

      program eEWEne
      implicit none
      integer i

      double precision rs,rsmin
      double precision me,mw,mz,Qe,ee,g2,sw2,pi,thetaw,gp,gw,gz,gf
      double precision xs



      common/data/me,mw,mz,Qe,ee,g2,sw2,pi
      common/parameters/rs

      open(10,file='res.dat',status='unknown')


      Qe=-1.d0
      sw2=0.2319d0
      thetaw=asin(sqrt(sw2))
      mz= 91.187D0 
      mw=mz*cos(thetaw)
      pi=acos(-1.d0)
      gf=1.16639d-05 
      gw=2.06d0
      gz=2.49d0
      g2=sqrt(sqrt(32.d0)*mw**2*gf)
      gp=g2*tan(thetaw)
      ee=g2*sin(thetaw)

*      print*,ee,g2,sw2,mw

*
* From CalcHep
*
      sw2=0.481d0**2
      thetaw=asin(sqrt(sw2))
      mw=mz*cos(thetaw)
      ee=sqrt(4d0*pi*7.818061d-03)
      g2=ee/sin(thetaw)
      gz=2.49444d0
      gw=2.08895d0


*      print*,ee,g2,sw2,mw,cos(thetaw)

      rsmin=81.d0 
      me=0d0

      do i=1,20
         rs=rsmin+(i-1)*1d0 

         call sigma(xs)

         write(10,99)rs,xs/1d3

      enddo

 99   format(2(1P1e14.5,2x))
      end


      subroutine sigma(xs)
      implicit none
      integer i

***----------------------------- Cuba ------------------------------***
	integer ndim, ncomp, verbose, last, seed, mineval, maxeval
	double precision epsrel, epsabs, userdata
	character*(*) statefile	
	parameter (ndim = 4)
	parameter (ncomp = 1)
	parameter (userdata = 0)
	parameter (epsrel = 1D-5)
	parameter (epsabs = 1D-12)
	parameter (verbose = 0)
	parameter (last = 4)
	parameter (seed = 0)
	parameter (mineval = 0)
	parameter (maxeval = 100000)

	integer nstart, nincrease, nbatch, gridno
	parameter (nstart = 10000)
	parameter (nincrease = 2000)
	parameter (nbatch = 5000)
	parameter (gridno = 0)
	parameter (statefile = "")
	external integrand
	double precision integral(ncomp), error(ncomp), prob(ncomp)
	integer nregions, neval, fail
***----------------------------- Cuba ------------------------------***

***----------------------------- Gauss -----------------------------***
      integer npoints
      parameter(npoints=32)
***----------------------------- Gauss -----------------------------***

      integer method
      double precision rs
      double precision xmin(10),xmax(10)
      double precision xs

      double precision me,mw,mz,Qe,ee,g2,sw2,pi

      common/boundary/xmin,xmax
      common/data/me,mw,mz,Qe,ee,g2,sw2,pi
      common/parameters/rs

      method=2

      xmin(1)=0d0
      xmax(1)=(rs**2+me**2-mw**2)/(2.d0*rs)
      xmin(2)=acos(0.985d0)
      xmax(2)=pi-acos(0.985d0)
      xmin(3)=0.d0
      xmax(3)=pi
      xmin(4)=0.d0
      xmax(4)=2.d0*pi
      

      if(method.eq.1)then
         call gauss(ndim, ncomp, npoints, integrand, integral, fail)
      endif
      
      if(method.eq.2)then
	call vegas(ndim, ncomp, integrand, userdata,
     &    epsrel, epsabs, verbose, seed,
     &    mineval, maxeval, nstart, nincrease, nbatch,
     &    gridno, statefile,
     &    neval, fail, integral, error, prob)
      endif
      
      xs=integral(1)

      return
      end

      subroutine integrand(ndim, xx, ncomp, ff)
      implicit none
      integer i, ndim, ncomp,diagrams
      double precision xx(*), ff(*)
      double precision x(ndim),xmin(10),xmax(10),Jacob
      double precision dsig

      common/boundary/xmin,xmax

      Jacob=1.d0

     
      do i=1,ndim
         Jacob=Jacob*(xmax(i)-xmin(i))
         x(i)=xmin(i)+(xmax(i)-xmin(i))*xx(i)
      enddo
      
         ff(1) = dsig(x)*Jacob

      return
      end


      double precision function dsig(x)
      implicit none
      integer i
      double precision E3,teta,teta1,phi1
      double precision rs,p3mod,beta1,E4CM45,E5CM45,pCM45,beta4
      double precision p1(4),p2(4),p3(4),p4(4),p5(4),pzero(4)
      double precision delta0,m45,gama,xg,beta,xb
      double precision ct,st,ct1,st1,cp1,sp1
      double precision factor,dot
      double precision x(4)
      double precision cw,gve,gae,gZL,gZR,gWWZ,gWWA
      double precision gZnuL,gZnuR,wW,wZ
      double precision a,b,c,d, spinstates
      double precision p1p2,p1p3,p1p4,p1p5,p2p3,p2p4,p2p5,p3p4,p3p5,p4p5

      logical setAA, setBB, setAB

      double precision MyEps,Epsp1p2p3p4,teste

      double precision me,mw,mz,Qe,ee,g2,sw2,pi,sw


      common/data/me,mw,mz,Qe,ee,g2,sw2,pi
      common/parameters/rs

      cw=sqrt(1.d0-sw2)
      sw=sqrt(sw2)
      gve=-0.25d0+sw2
      gae=-0.25d0
      gZL=g2/cw*(gve+gae)
      gZR=g2/cw*(gve-gae)
      gWWZ = g2*cw
      gWWA = -ee 
      gZnuL = g2/cw/2d0
      gZnuR = 0d0
      wW=2.08895d0
      wZ=2.49444d0


      E3=x(1)
      teta=x(2)
      teta1=x(3)
      phi1=x(4)
      beta1=1d0

      
      factor=0.389379d12/64.d0/pi**4/rs**2/8.d0/beta1
      
      p1(4)=rs/2.d0
      p1(1)=0.d0
      p1(2)=0.d0
      p1(3)=rs/2.d0*beta1

      p2(4)=rs/2.d0
      p2(1)=0.d0
      p2(2)=0.d0
      p2(3)=-rs/2.d0*beta1
      
      delta0=m45(rs,me,E3)

      xg=gama(rs,me,E3)
      xb=beta(rs,me,E3)
      ct=cos(teta)
      st=sin(teta)
      ct1=cos(teta1)
      st1=sin(teta1)
      sp1=sin(phi1)
      cp1=cos(phi1)

      p3mod=E3

  
      p3(4)=E3
      p3(1)=p3mod*sin(teta)
      p3(2)=0.d0
      p3(3)=p3mod*cos(teta)
      
      E4CM45=(delta0**2+mw**2)/2.d0/delta0
      E5CM45=(delta0**2-mw**2)/2.d0/delta0
      pCM45=E5CM45
      beta4=pCM45/E4CM45



      p4(4)=E4CM45*(xg+beta4*xb*xg*ct1)
      p4(1)=E4CM45*(-ct*st1*cp1*beta4-st*xg*ct1*beta4-st*xg*xb)
      p4(2)=E4CM45*st1*sp1*beta4
      p4(3)=E4CM45*(st*st1*cp1*beta4-ct*xg*ct1*beta4-ct*xg*xb)
      
      p5(4)=E5CM45*(xg-xb*xg*ct1)
      p5(1)=pCM45*(ct*st1*cp1-st*(-xg*ct1+xg*xb))
      p5(2)=pCM45*(-st1*sp1)
      p5(3)=pCM45*(-st*st1*cp1-ct*(-xg*ct1+xg*xb))

      p1p2=dot(p1,p2)
      p1p3=dot(p1,p3)
      p1p4=dot(p1,p4)
      p1p5=dot(p1,p5)

      p2p3=dot(p2,p3)
      p2p4=dot(p2,p4)
      p2p5=dot(p2,p5)

      p3p4=dot(p3,p4)
      p3p5=dot(p3,p5)

      p4p5=dot(p4,p5)


      dsig=0.d0

      a=1d0
      b=1d0
      c=1d0
      d=1d0

      spinstates=(a+b)*(c+d)


      setAA=.True.
      setBB=.True.
      setAB=.True.


      if(setAA)then
* AA11
        dsig = dsig + -((a*ee**4*g2**2*(-2*d*p1p2**4 +p1p2**3*(-2*(c
     &  - 2*d)*p1p3 +d*(mW**2 + 2*p1p4 + 4*p2p3 + 2*p2p4)) +c*p1p3*(2
     &  *p2p3**3 + 2*p1p3*(mW**2 + p1p3)*p2p4 +2*p2p3**2*(2*p1p3
     &  + p2p4) +p2p3*(-mW**4 + 2*p1p3**2 + 2*mW**2*p2p4 +4*p1p3
     &  *p2p4)) +p1p2**2*((4*c - 2*d)*p1p3**2 -2*p1p3*(d*mW**2 + 2*d
     &  *p1p4 + (-3*c + 2*d)*p2p3 -c*p2p4 + 2*d*p2p4) +d*(mW**4 - 2
     &  *p2p3**2 - 2*p1p4*(mW**2 + 2*p2p3) -2*mW**2*p2p4 - 2*p2p3
     &  *(mW**2 + 2*p2p4))) +p1p2*(-2*c*p1p3**3 +p1p3**2*(d*mW**2 + 2*d
     &  *p1p4 - 8*c*p2p3 -4*c*p2p4 + 2*d*p2p4) +d*p2p3*(2*p1p4*(mW**2
     &  + p2p3) + 2*mW**2*p2p4 +p2p3*(mW**2 + 2*p2p4)) +p1p3*(-6*c
     &  *p2p3**2 + 2*d*p1p4*(mW**2 + 2*p2p3) +mW**2*(c*mW**2 - 2*(c
     &  - d)*p2p4) +2*p2p3*(d*mW**2 - 2*(c - d)*p2p4)))))/(mW**2
     &  *p2p3**2*(-p1p2 + p1p3 + p2p3)**2))
 
* AA12
        dsig = dsig + (-4*a*ee**2*g2**2*gZL*(-2*d*gZR*p1p2**4 +p1p2**3
     &  *((-2*c*gZL + 4*d*gZR)*p1p3 +d*gZR*(mW**2 + 2*p1p4 + 4*p2p3 + 2
     &  *p2p4)) +c*gZL*p1p3*(2*p2p3**3 + 2*p1p3*(mW**2 + p1p3)*p2p4 +2
     &  *p2p3**2*(2*p1p3 + p2p4) +p2p3*(-mW**4 + 2*p1p3**2 + 2*mW**2
     &  *p2p4 +4*p1p3*p2p4)) +p1p2**2*((4*c*gZL - 2*d*gZR)*p1p3**2 -2
     &  *p1p3*(d*gZR*mW**2 + 2*d*gZR*p1p4 +(-3*c*gZL + 2*d*gZR)*p2p3
     &  - c*gZL*p2p4 +2*d*gZR*p2p4) +d*gZR*(mW**4 - 2*p2p3**2 -2*p1p4
     &  *(mW**2 + 2*p2p3) - 2*mW**2*p2p4 -2*p2p3*(mW**2 + 2*p2p4)))
     &  +p1p2*(-2*c*gZL*p1p3**3 +p1p3**2*(d*gZR*mW**2 + 2*d*gZR*p1p4 -8
     &  *c*gZL*p2p3 - 4*c*gZL*p2p4 + 2*d*gZR*p2p4) +d*gZR*p2p3*(2*p1p4
     &  *(mW**2 + p2p3) + 2*mW**2*p2p4 +p2p3*(mW**2 + 2*p2p4)) +p1p3*(
     &  -6*c*gZL*p2p3**2 +2*d*gZR*p1p4*(mW**2 + 2*p2p3) +mW**2*(c*gZL
     &  *mW**2 +(-2*c*gZL + 2*d*gZR)*p2p4) +2*p2p3*(d*gZR*mW**2 + (-2*c
     &  *gZL + 2*d*gZR)*p2p4)))))/(mW**2*p2p3*(-p1p2 + p1p3 + p2p3)**2
     &  *(mZ**2 + 2*p2p3))
 
* AA13
        dsig = dsig + (-2*a*ee**2*g2**2*gZnuL*(4*p1p2**3*((c*gZL + d
     &  *gZR)*mW**2 - 2*d*gZR*p1p4) +2*p1p2**2*(4*d*gZR*p1p4**2 -2*p1p3
     &  *((c*gZL + d*gZR)*mW**2 +2*(c*gZL - d*gZR)*p1p4) -2*p1p4*((c
     &  *gZL + d*gZR)*mW**2 - 2*d*gZR*p2p3 -2*d*gZR*p2p4) +mW**2*((2*c
     &  *gZL + d*gZR)*mW**2 +(-4*c*gZL + 2*d*gZR)*p2p3 -4*(c*gZL + d
     &  *gZR)*p2p4)) +p1p2*(8*c*gZL*p1p3**2*p1p4 -4*d*gZR*p1p4**2
     &  *(mW**2 + 2*p2p3) +p1p4*(2*(-(c*gZL) + d*gZR)*mW**4 +4*c*gZL
     &  *mW**2*p2p4 +p2p3*(4*(2*c*gZL - d*gZR)*mW**2 - 8*d*gZR*p2p4))
     &  + mW**2*(4*c*gZL*p2p3**2 -2*p2p3*((2*c*gZL + d*gZR)*mW**2 -4*c
     &  *gZL*p2p4) +(mW**2 - 2*p2p4)*(c*gZL*mW**2 - 2*(c*gZL + d*gZR)
     &  *p2p4)) +2*p1p3*(-4*d*gZR*p1p4**2 +2*p1p4*((c*gZL + d*gZR)
     &  *mW**2 + 4*c*gZL*p2p3 +2*(c*gZL - d*gZR)*p2p4) +mW**2*(d*gZR
     &  *mW**2 + 4*c*gZL*p2p3 +4*(c*gZL + d*gZR)*p2p4))) +2*(mW**2*p1p4
     &  *p2p3*(c*gZL*mW**2 + 2*d*gZR*p1p4 - 2*c*gZL*p2p3 -2*c*gZL*p2p4
     &  + 2*d*gZR*p2p4) +2*c*gZL*p1p3**2*((mW**2 - 2*p1p4)*p2p3 - 2
     &  *p1p4*p2p4) +p1p3*(-2*c*gZL*(mW**2 + 2*p1p4)*p2p3**2 +mW**2
     &  *p2p4*(c*gZL*mW**2 - 2*(2*c*gZL + d*gZR)*p1p4 -2*(c*gZL + d
     &  *gZR)*p2p4) +2*c*gZL*p2p3*(mW**4 - 2*mW**2*p2p4 - p1p4*(mW**2
     &  + 2*p2p4))))))/(mW**2*(mW**2 - 2*p1p4)*(p1p2 - p1p3 - p2p3)
     &  *p2p3*(mZ**2 + 2*p2p3))
 
* AA14
        dsig = dsig + (a*ee**3*g2**2*gWWA*(8*d*p1p2**4 + 4*p1p2**3*(c
     &  *mW**2 + 2*(c - 2*d)*p1p3 - 4*d*p1p4 - 4*d*p2p3 -2*d*p2p4) +2
     &  *p1p2**2*(2*c*mW**4 - d*mW**4 +(-8*c + 4*d)*p1p3**2 + 4*d
     &  *p1p4**2 -4*c*mW**2*p2p3 + 6*d*mW**2*p2p3 + 4*d*p2p3**2 -4*c
     &  *mW**2*p2p4 + 8*d*p2p3*p2p4 -2*p1p3*(c*mW**2 - d*mW**2 + 2*(c
     &  - 3*d)*p1p4 +(6*c - 4*d)*p2p3 + 2*c*p2p4 - 4*d*p2p4) +p1p4*(2*(
     &  -c + d)*mW**2 + 12*d*p2p3 + 4*d*p2p4)) +p1p2*(c*mW**6 + 8*c
     &  *p1p3**3 - 4*c*mW**4*p2p3 -2*d*mW**4*p2p3 + 4*c*mW**2*p2p3**2
     &  -4*d*mW**2*p2p3**2 - 4*d*p1p4**2*(mW**2 + 2*p2p3) -4*c*mW**4
     &  *p2p4 - 2*d*mW**4*p2p4 +8*c*mW**2*p2p3*p2p4 - 8*d*mW**2*p2p3
     &  *p2p4 -8*d*p2p3**2*p2p4 + 4*c*mW**2*p2p4**2 +4*d*mW**2*p2p4**2
     &  -4*p1p3**2*(d*mW**2 - 2*(c - d)*p1p4 - 8*c*p2p3 -4*c*p2p4 + 2*d
     &  *p2p4) -2*p1p3*(2*c*mW**4 - d*mW**4 + 4*d*p1p4**2 -12*c
     &  *p2p3**2 - 8*c*mW**2*p2p4 -4*(c - d)*p2p3*(mW**2 + 2*p2p4) -2
     &  *(c - d)*p1p4*(mW**2 + 4*p2p3 + 2*p2p4)) -2*p1p4*((c - d)
     &  *mW**4 + 4*d*p2p3**2 -2*c*mW**2*p2p4 +p2p3*(2*(-2*c + 3*d)
     &  *mW**2 + 4*d*p2p4))) +2*(-4*c*p1p3**3*(p2p3 + p2p4) +mW**2*p1p4
     &  *p2p3*(c*mW**2 + 2*d*p1p4 - 2*c*p2p3 - 2*c*p2p4 +2*d*p2p4) +2*c
     &  *p1p3**2*(-4*p2p3**2 + p2p3*(mW**2 - 2*p1p4 - 4*p2p4) -2
     &  *(mW**2 + p1p4)*p2p4) +p1p3*(-4*c*p2p3**3 -2*c*p2p3**2*(mW**2
     &  + 2*p1p4 + 2*p2p4) +mW**2*p2p4*(c*mW**2 - 2*(2*c + d)*p1p4 - 2
     &  *(c + d)*p2p4) +2*c*p2p3*(2*mW**2*(mW**2 - 2*p2p4) -p1p4
     &  *(mW**2 + 2*p2p4))))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2
     &  *p1p4)*(p1p2 - p1p3 - p2p3)*p2p3**2)
 
* AA15
        dsig = dsig + (2*a*ee**2*g2**2*gWWZ*(8*d*gZR*p1p2**4 +4*p1p2**3
     &  *(c*gZL*mW**2 + 2*(c*gZL - 2*d*gZR)*p1p3 -4*d*gZR*p1p4 - 4*d
     &  *gZR*p2p3 - 2*d*gZR*p2p4) +2*p1p2**2*(2*c*gZL*mW**4 - d*gZR
     &  *mW**4 +(-8*c*gZL + 4*d*gZR)*p1p3**2 + 4*d*gZR*p1p4**2 -4*c*gZL
     &  *mW**2*p2p3 + 6*d*gZR*mW**2*p2p3 +4*d*gZR*p2p3**2 - 4*c*gZL
     &  *mW**2*p2p4 +8*d*gZR*p2p3*p2p4 -2*p1p3*(c*gZL*mW**2 - d*gZR
     &  *mW**2 +2*(c*gZL - 3*d*gZR)*p1p4 +(6*c*gZL - 4*d*gZR)*p2p3 + 2
     &  *c*gZL*p2p4 -4*d*gZR*p2p4) +p1p4*(2*(-(c*gZL) + d*gZR)*mW**2
     &  + 12*d*gZR*p2p3 +4*d*gZR*p2p4)) +p1p2*(c*gZL*mW**6 + 8*c*gZL
     &  *p1p3**3 -4*c*gZL*mW**4*p2p3 - 2*d*gZR*mW**4*p2p3 +4*c*gZL
     &  *mW**2*p2p3**2 - 4*d*gZR*mW**2*p2p3**2 -4*d*gZR*p1p4**2*(mW**2
     &  + 2*p2p3) -4*c*gZL*mW**4*p2p4 - 2*d*gZR*mW**4*p2p4 +8*c*gZL
     &  *mW**2*p2p3*p2p4 - 8*d*gZR*mW**2*p2p3*p2p4 -8*d*gZR*p2p3**2
     &  *p2p4 + 4*c*gZL*mW**2*p2p4**2 +4*d*gZR*mW**2*p2p4**2 -4*p1p3**2
     &  *(d*gZR*mW**2 +(-2*c*gZL + 2*d*gZR)*p1p4 - 8*c*gZL*p2p3 -4*c
     &  *gZL*p2p4 + 2*d*gZR*p2p4) -2*p1p3*(2*c*gZL*mW**4 - d*gZR*mW**4
     &  +4*d*gZR*p1p4**2 - 12*c*gZL*p2p3**2 -8*c*gZL*mW**2*p2p4 -4*(c
     &  *gZL - d*gZR)*p2p3*(mW**2 + 2*p2p4) -2*(c*gZL - d*gZR)*p1p4
     &  *(mW**2 + 4*p2p3 + 2*p2p4))- 2*p1p4*((c*gZL - d*gZR)*mW**4 +4*d
     &  *gZR*p2p3**2 - 2*c*gZL*mW**2*p2p4 +p2p3*(2*(-2*c*gZL + 3*d*gZR)
     &  *mW**2 +4*d*gZR*p2p4))) +2*(-4*c*gZL*p1p3**3*(p2p3 + p2p4)
     &  +mW**2*p1p4*p2p3*(c*gZL*mW**2 + 2*d*gZR*p1p4 - 2*c*gZL*p2p3 -2
     &  *c*gZL*p2p4 + 2*d*gZR*p2p4) +2*c*gZL*p1p3**2*(-4*p2p3**2 + p2p3
     &  *(mW**2 - 2*p1p4 - 4*p2p4) -2*(mW**2 + p1p4)*p2p4) +p1p3*(-4*c
     &  *gZL*p2p3**3 -2*c*gZL*p2p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +mW**2
     &  *p2p4*(c*gZL*mW**2 - 2*(2*c*gZL + d*gZR)*p1p4 -2*(c*gZL + d
     &  *gZR)*p2p4) +2*c*gZL*p2p3*(2*mW**2*(mW**2 - 2*p2p4) -p1p4
     &  *(mW**2 + 2*p2p4))))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2
     &  *p1p4)*(p1p2 - p1p3 - p2p3)*p2p3*(mZ**2 + 2*p2p3))
 
* AA16
        dsig = dsig + -(a*c*ee**2*g2**4*(-4*p1p2**3*(mW**2 + 2*p1p3) -2
     &  *mW**2*p1p4*p2p3*(mW**2 - 2*p2p3 - 2*p2p4) +8*p1p3**3*(p2p3
     &  + p2p4) +4*p1p3**2*(4*p2p3**2 + 6*p2p3*p2p4 +2*p1p4*(p2p3
     &  + p2p4) + p2p4*(mW**2 + 2*p2p4)) +4*p1p2**2*(4*p1p3**2 +mW**2*(
     &  -mW**2 + p1p4 + 2*p2p3 + 2*p2p4) +2*p1p3*(p1p4 + 3*p2p3 + 2
     &  *p2p4)) +p1p3*(8*p2p3**3 -2*mW**2*(mW**2 - 4*p1p4 - 2*p2p4)
     &  *p2p4 +8*p2p3**2*(p1p4 + 2*p2p4) +p2p3*(-4*mW**4 + 4*mW**2
     &  *p2p4 + 8*p2p4**2 +4*p1p4*(mW**2 + 2*p2p4))) -p1p2*(8*p1p3**3
     &  +4*p1p3**2*(mW**2 + 2*p1p4 + 8*p2p3 + 6*p2p4) +4*p1p3*(6
     &  *p2p3**2 + 8*p2p3*p2p4 +p2p4*(mW**2 + 2*p2p4) +p1p4*(mW**2 + 4
     &  *p2p3 + 2*p2p4)) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)**2 +p1p4*(-2
     &  *mW**2 + 8*p2p3 + 4*p2p4)))))/(2.*mW**2*(mW**2 + 2*p1p2 - 2
     &  *p1p3 - 2*p1p4)*(p1p2 - p1p3 - p2p3)*p2p3*(-p1p2 + p1p3 + p1p4
     &  + p2p3 + p2p4))
 
* AA22
        dsig = dsig + (-4*a*g2**2*gZL**2*(-2*d*gZR**2*p1p2**4 +p1p2**3
     &  *((-2*c*gZL**2 + 4*d*gZR**2)*p1p3 +d*gZR**2*(mW**2 + 2*p1p4 + 4
     &  *p2p3 + 2*p2p4)) +c*gZL**2*p1p3*(2*p2p3**3 +2*p1p3*(mW**2
     &  + p1p3)*p2p4 +2*p2p3**2*(2*p1p3 + p2p4) +p2p3*(-mW**4 + 2
     &  *p1p3**2 + 2*mW**2*p2p4 +4*p1p3*p2p4)) +p1p2**2*((4*c*gZL**2
     &  - 2*d*gZR**2)*p1p3**2 -2*p1p3*(d*gZR**2*mW**2 + 2*d*gZR**2
     &  *p1p4 +(-3*c*gZL**2 + 2*d*gZR**2)*p2p3 -c*gZL**2*p2p4 + 2*d
     &  *gZR**2*p2p4) +d*gZR**2*(mW**4 - 2*p2p3**2 -2*p1p4*(mW**2 + 2
     &  *p2p3) - 2*mW**2*p2p4 -2*p2p3*(mW**2 + 2*p2p4))) +p1p2*(-2*c
     &  *gZL**2*p1p3**3 +p1p3**2*(d*gZR**2*mW**2 + 2*d*gZR**2*p1p4 -8*c
     &  *gZL**2*p2p3 - 4*c*gZL**2*p2p4 +2*d*gZR**2*p2p4) +d*gZR**2*p2p3
     &  *(2*p1p4*(mW**2 + p2p3) + 2*mW**2*p2p4 +p2p3*(mW**2 + 2*p2p4))
     &  +p1p3*(-6*c*gZL**2*p2p3**2 +2*d*gZR**2*p1p4*(mW**2 + 2*p2p3)
     &  +mW**2*(c*gZL**2*mW**2 +(-2*c*gZL**2 + 2*d*gZR**2)*p2p4) +2
     &  *p2p3*(d*gZR**2*mW**2 +(-2*c*gZL**2 + 2*d*gZR**2)*p2p4)))))
     &  /(mW**2*(-p1p2 + p1p3 + p2p3)**2*(mZ**2 + 2*p2p3)**2)
 
* AA23
        dsig = dsig + (-4*a*g2**2*gZL*gZnuL*(4*p1p2**3*((c*gZL**2 + d
     &  *gZR**2)*mW**2 -2*d*gZR**2*p1p4) +2*p1p2**2*(4*d*gZR**2
     &  *p1p4**2 -2*p1p3*((c*gZL**2 + d*gZR**2)*mW**2 +2*(c*gZL**2 - d
     &  *gZR**2)*p1p4) -2*p1p4*((c*gZL**2 + d*gZR**2)*mW**2 -2*d*gZR**2
     &  *p2p3 - 2*d*gZR**2*p2p4) +mW**2*((2*c*gZL**2 + d*gZR**2)*mW**2
     &  +(-4*c*gZL**2 + 2*d*gZR**2)*p2p3 -4*(c*gZL**2 + d*gZR**2)
     &  *p2p4)) +p1p2*(8*c*gZL**2*p1p3**2*p1p4 -4*d*gZR**2*p1p4**2
     &  *(mW**2 + 2*p2p3) +p1p4*(2*(-(c*gZL**2) + d*gZR**2)*mW**4 +4*c
     &  *gZL**2*mW**2*p2p4 +p2p3*(4*(2*c*gZL**2 - d*gZR**2)*mW**2 -8*d
     &  *gZR**2*p2p4)) +mW**2*(4*c*gZL**2*p2p3**2 -2*p2p3*((2*c*gZL**2
     &  + d*gZR**2)*mW**2 -4*c*gZL**2*p2p4) +(mW**2 - 2*p2p4)*(c*gZL**2
     &  *mW**2 - 2*(c*gZL**2 + d*gZR**2)*p2p4))+ 2*p1p3*(-4*d*gZR**2
     &  *p1p4**2 +2*p1p4*((c*gZL**2 + d*gZR**2)*mW**2 +4*c*gZL**2*p2p3
     &  + 2*(c*gZL**2 - d*gZR**2)*p2p4) + mW**2*(d*gZR**2*mW**2 + 4*c
     &  *gZL**2*p2p3 +4*(c*gZL**2 + d*gZR**2)*p2p4))) +2*(mW**2*p1p4
     &  *p2p3*(c*gZL**2*mW**2 + 2*d*gZR**2*p1p4 -2*c*gZL**2*p2p3 - 2*c
     &  *gZL**2*p2p4 +2*d*gZR**2*p2p4) +2*c*gZL**2*p1p3**2*((mW**2 - 2
     &  *p1p4)*p2p3 - 2*p1p4*p2p4) +p1p3*(-2*c*gZL**2*(mW**2 + 2*p1p4)
     &  *p2p3**2 +mW**2*p2p4*(c*gZL**2*mW**2 -2*(2*c*gZL**2 + d*gZR**2)
     &  *p1p4 -2*(c*gZL**2 + d*gZR**2)*p2p4) +2*c*gZL**2*p2p3*(mW**4
     &  - 2*mW**2*p2p4 - p1p4*(mW**2 + 2*p2p4))))))/(mW**2*(mW**2 - 2
     &  *p1p4)*(p1p2 - p1p3 - p2p3)*(mZ**2 + 2*p2p3)**2)
 
* AA24
        dsig = dsig + (2*a*ee*g2**2*gWWA*gZL*(8*d*gZR*p1p2**4 +4
     &  *p1p2**3*(c*gZL*mW**2 + 2*(c*gZL - 2*d*gZR)*p1p3 -4*d*gZR*p1p4
     &  - 4*d*gZR*p2p3 - 2*d*gZR*p2p4) +2*p1p2**2*(2*c*gZL*mW**4 - d
     &  *gZR*mW**4 +(-8*c*gZL + 4*d*gZR)*p1p3**2 + 4*d*gZR*p1p4**2 -4*c
     &  *gZL*mW**2*p2p3 + 6*d*gZR*mW**2*p2p3 +4*d*gZR*p2p3**2 - 4*c*gZL
     &  *mW**2*p2p4 +8*d*gZR*p2p3*p2p4 -2*p1p3*(c*gZL*mW**2 - d*gZR
     &  *mW**2 +2*(c*gZL - 3*d*gZR)*p1p4 +(6*c*gZL - 4*d*gZR)*p2p3 + 2
     &  *c*gZL*p2p4 -4*d*gZR*p2p4) +p1p4*(2*(-(c*gZL) + d*gZR)*mW**2
     &  + 12*d*gZR*p2p3 +4*d*gZR*p2p4)) +p1p2*(c*gZL*mW**6 + 8*c*gZL
     &  *p1p3**3 -4*c*gZL*mW**4*p2p3 - 2*d*gZR*mW**4*p2p3 +4*c*gZL
     &  *mW**2*p2p3**2 - 4*d*gZR*mW**2*p2p3**2 -4*d*gZR*p1p4**2*(mW**2
     &  + 2*p2p3) -4*c*gZL*mW**4*p2p4 - 2*d*gZR*mW**4*p2p4 +8*c*gZL
     &  *mW**2*p2p3*p2p4 - 8*d*gZR*mW**2*p2p3*p2p4 -8*d*gZR*p2p3**2
     &  *p2p4 + 4*c*gZL*mW**2*p2p4**2 +4*d*gZR*mW**2*p2p4**2 -4*p1p3**2
     &  *(d*gZR*mW**2 +(-2*c*gZL + 2*d*gZR)*p1p4 - 8*c*gZL*p2p3 -4*c
     &  *gZL*p2p4 + 2*d*gZR*p2p4) -2*p1p3*(2*c*gZL*mW**4 - d*gZR*mW**4
     &  +4*d*gZR*p1p4**2 - 12*c*gZL*p2p3**2 -8*c*gZL*mW**2*p2p4 -4*(c
     &  *gZL - d*gZR)*p2p3*(mW**2 + 2*p2p4) -2*(c*gZL - d*gZR)*p1p4
     &  *(mW**2 + 4*p2p3 + 2*p2p4))- 2*p1p4*((c*gZL - d*gZR)*mW**4 +4*d
     &  *gZR*p2p3**2 - 2*c*gZL*mW**2*p2p4 +p2p3*(2*(-2*c*gZL + 3*d*gZR)
     &  *mW**2 +4*d*gZR*p2p4))) +2*(-4*c*gZL*p1p3**3*(p2p3 + p2p4)
     &  +mW**2*p1p4*p2p3*(c*gZL*mW**2 + 2*d*gZR*p1p4 - 2*c*gZL*p2p3 -2
     &  *c*gZL*p2p4 + 2*d*gZR*p2p4) +2*c*gZL*p1p3**2*(-4*p2p3**2 + p2p3
     &  *(mW**2 - 2*p1p4 - 4*p2p4) -2*(mW**2 + p1p4)*p2p4) +p1p3*(-4*c
     &  *gZL*p2p3**3 -2*c*gZL*p2p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +mW**2
     &  *p2p4*(c*gZL*mW**2 - 2*(2*c*gZL + d*gZR)*p1p4 -2*(c*gZL + d
     &  *gZR)*p2p4) +2*c*gZL*p2p3*(2*mW**2*(mW**2 - 2*p2p4) -p1p4
     &  *(mW**2 + 2*p2p4))))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2
     &  *p1p4)*(p1p2 - p1p3 - p2p3)*p2p3*(mZ**2 + 2*p2p3))
 
* AA25
        dsig = dsig + (4*a*g2**2*gWWZ*gZL*(8*d*gZR**2*p1p2**4 +4
     &  *p1p2**3*(c*gZL**2*mW**2 +2*(c*gZL**2 - 2*d*gZR**2)*p1p3 - 4*d
     &  *gZR**2*p1p4 -4*d*gZR**2*p2p3 - 2*d*gZR**2*p2p4) +2*p1p2**2*(2
     &  *c*gZL**2*mW**4 - d*gZR**2*mW**4 +(-8*c*gZL**2 + 4*d*gZR**2)
     &  *p1p3**2 +4*d*gZR**2*p1p4**2 - 4*c*gZL**2*mW**2*p2p3 +6*d
     &  *gZR**2*mW**2*p2p3 + 4*d*gZR**2*p2p3**2 -4*c*gZL**2*mW**2*p2p4
     &  + 8*d*gZR**2*p2p3*p2p4 -2*p1p3*(c*gZL**2*mW**2 - d*gZR**2
     &  *mW**2 +2*(c*gZL**2 - 3*d*gZR**2)*p1p4 +(6*c*gZL**2 - 4*d
     &  *gZR**2)*p2p3 +2*c*gZL**2*p2p4 - 4*d*gZR**2*p2p4) +p1p4*(2*(-(c
     &  *gZL**2) + d*gZR**2)*mW**2 +12*d*gZR**2*p2p3 + 4*d*gZR**2
     &  *p2p4)) +p1p2*(c*gZL**2*mW**6 + 8*c*gZL**2*p1p3**3 -4*c*gZL**2
     &  *mW**4*p2p3 - 2*d*gZR**2*mW**4*p2p3 +4*c*gZL**2*mW**2*p2p3**2
     &  -4*d*gZR**2*mW**2*p2p3**2 -4*d*gZR**2*p1p4**2*(mW**2 + 2*p2p3)
     &  -4*c*gZL**2*mW**4*p2p4 - 2*d*gZR**2*mW**4*p2p4 +8*c*gZL**2
     &  *mW**2*p2p3*p2p4 -8*d*gZR**2*mW**2*p2p3*p2p4 -8*d*gZR**2
     &  *p2p3**2*p2p4 +4*c*gZL**2*mW**2*p2p4**2 +4*d*gZR**2*mW**2
     &  *p2p4**2 -4*p1p3**2*(d*gZR**2*mW**2 +(-2*c*gZL**2 + 2*d*gZR**2)
     &  *p1p4 -8*c*gZL**2*p2p3 - 4*c*gZL**2*p2p4 +2*d*gZR**2*p2p4) -2
     &  *p1p3*(2*c*gZL**2*mW**4 - d*gZR**2*mW**4 +4*d*gZR**2*p1p4**2
     &  - 12*c*gZL**2*p2p3**2 -8*c*gZL**2*mW**2*p2p4 -4*(c*gZL**2 - d
     &  *gZR**2)*p2p3*(mW**2 + 2*p2p4) -2*(c*gZL**2 - d*gZR**2)*p1p4
     &  *(mW**2 + 4*p2p3 + 2*p2p4)) -2*p1p4*((c*gZL**2 - d*gZR**2)
     &  *mW**4 +4*d*gZR**2*p2p3**2 - 2*c*gZL**2*mW**2*p2p4 +p2p3*(2*(-2
     &  *c*gZL**2 + 3*d*gZR**2)*mW**2 +4*d*gZR**2*p2p4))) +2*(-4*c
     &  *gZL**2*p1p3**3*(p2p3 + p2p4) +mW**2*p1p4*p2p3*(c*gZL**2*mW**2
     &  + 2*d*gZR**2*p1p4 -2*c*gZL**2*p2p3 - 2*c*gZL**2*p2p4 +2*d
     &  *gZR**2*p2p4) +2*c*gZL**2*p1p3**2*(-4*p2p3**2 + p2p3*(mW**2 - 2
     &  *p1p4 - 4*p2p4) -2*(mW**2 + p1p4)*p2p4) +p1p3*(-4*c*gZL**2
     &  *p2p3**3 -2*c*gZL**2*p2p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +mW**2
     &  *p2p4*(c*gZL**2*mW**2 -2*(2*c*gZL**2 + d*gZR**2)*p1p4 -2*(c
     &  *gZL**2 + d*gZR**2)*p2p4) +2*c*gZL**2*p2p3*(2*mW**2*(mW**2 - 2
     &  *p2p4) -p1p4*(mW**2 + 2*p2p4))))))/(mW**2*(mW**2 + 2*p1p2 - 2
     &  *p1p3 - 2*p1p4)*(p1p2 - p1p3 - p2p3)*(mZ**2 + 2*p2p3)**2)
 
* AA26
        dsig = dsig + -((a*c*g2**4*gZL**2*(-4*p1p2**3*(mW**2 + 2*p1p3)
     &  -2*mW**2*p1p4*p2p3*(mW**2 - 2*p2p3 - 2*p2p4) +8*p1p3**3*(p2p3
     &  + p2p4) +4*p1p3**2*(4*p2p3**2 + 6*p2p3*p2p4 +2*p1p4*(p2p3
     &  + p2p4) + p2p4*(mW**2 + 2*p2p4)) +4*p1p2**2*(4*p1p3**2 +mW**2*(
     &  -mW**2 + p1p4 + 2*p2p3 + 2*p2p4) +2*p1p3*(p1p4 + 3*p2p3 + 2
     &  *p2p4)) +p1p3*(8*p2p3**3 -2*mW**2*(mW**2 - 4*p1p4 - 2*p2p4)
     &  *p2p4 +8*p2p3**2*(p1p4 + 2*p2p4) +p2p3*(-4*mW**4 + 4*mW**2
     &  *p2p4 + 8*p2p4**2 +4*p1p4*(mW**2 + 2*p2p4))) -p1p2*(8*p1p3**3
     &  +4*p1p3**2*(mW**2 + 2*p1p4 + 8*p2p3 + 6*p2p4) +4*p1p3*(6
     &  *p2p3**2 + 8*p2p3*p2p4 +p2p4*(mW**2 + 2*p2p4) +p1p4*(mW**2 + 4
     &  *p2p3 + 2*p2p4)) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)**2 +p1p4*(-2
     &  *mW**2 + 8*p2p3 + 4*p2p4)))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3
     &  - 2*p1p4)*(p1p2 - p1p3 - p2p3)*(mZ**2 + 2*p2p3)*(-p1p2 + p1p3
     &  + p1p4 + p2p3 + p2p4)))
 
* AA33
        dsig = dsig + (-4*a*g2**2*gZnuL**2*(2*p1p2**2*(d*gZR**2*mW**4
     &  +4*(c*gZL**2 + d*gZR**2)*mW**2*p1p4 -4*d*gZR**2*p1p4**2) -2*c
     &  *gZL**2*p1p3*(mW**4 - 4*p1p4**2)*(p2p3 + p2p4) +4*mW**2*p1p4*(2
     &  *c*gZL**2*p2p3**2 -(c*gZL**2 + d*gZR**2)*(mW**2 - 2*p1p4 - 2
     &  *p2p4)*p2p4 + c*gZL**2*p2p3*(-mW**2 + 2*p1p4 + 4*p2p4)) +p1p2
     &  *(8*d*gZR**2*p1p4**3 +2*c*gZL**2*p1p3*(mW**4 - 4*p1p4**2) +d
     &  *gZR**2*mW**4*(mW**2 - 2*p2p4) -4*p1p4**2*((2*c*gZL**2 + 3*d
     &  *gZR**2)*mW**2 -2*d*gZR**2*p2p4) +2*mW**2*p1p4*((2*c*gZL**2 + d
     &  *gZR**2)*mW**2 - 8*c*gZL**2*p2p3 -8*(c*gZL**2 + d*gZR**2)
     &  *p2p4))))/(mW**2*(mW**2 - 2*p1p4)**2*(mZ**2 + 2*p2p3)**2)
 
* AA34
        dsig = dsig + (-4*a*ee*g2**2*gWWA*gZnuL*(4*p1p2**3*((c*gZL + d
     &  *gZR)*mW**2 - 2*d*gZR*p1p4) +4*c*gZL*p1p3**2*((mW**2 - 2*p1p4)
     &  *p2p3 - 2*p1p4*p2p4) +4*p1p2**2*(4*d*gZR*p1p4**2 -p1p3*((c*gZL
     &  + d*gZR)*mW**2 +2*(c*gZL - d*gZR)*p1p4) +p1p4*(-3*(c*gZL + d
     &  *gZR)*mW**2 + 2*d*gZR*p2p3 +2*d*gZR*p2p4) +mW**2*(c*gZL*mW**2
     &  + (-2*c*gZL + d*gZR)*p2p3 -2*(c*gZL + d*gZR)*p2p4)) +2*mW**2
     &  *p1p4*(-6*c*gZL*p2p3**2 +2*(c*gZL + d*gZR)*(mW**2 - 2*p1p4 - 2
     &  *p2p4)*p2p4 +p2p3*(3*c*gZL*mW**2 + (-4*c*gZL + 2*d*gZR)*p1p4 +(
     &  -10*c*gZL + 2*d*gZR)*p2p4)) +p1p3*(-4*c*gZL*(mW**2 + 2*p1p4)
     &  *p2p3**2 +2*c*gZL*p2p3*(3*mW**4 - 4*p1p4**2 - 4*mW**2*p2p4 -2
     &  *p1p4*(mW**2 + 2*p2p4)) -4*p2p4*((2*c*gZL + d*gZR)*mW**2*p1p4
     &  +2*c*gZL*p1p4**2 +mW**2*(-(c*gZL*mW**2) + (c*gZL + d*gZR)
     &  *p2p4)))+ p1p2*(8*c*gZL*p1p3**2*p1p4 - 8*d*gZR*p1p4**3 +8
     &  *p1p4**2*((c*gZL + d*gZR)*mW**2 - d*gZR*p2p3 -d*gZR*p2p4)
     &  +mW**2*(4*c*gZL*p2p3**2 -2*p2p3*((2*c*gZL + d*gZR)*mW**2 -4*c
     &  *gZL*p2p4) +(mW**2 - 2*p2p4)*((c*gZL - d*gZR)*mW**2 - 2*(c*gZL
     &  + d*gZR)*p2p4)) + p1p3*(8*(c*gZL - d*gZR)*p1p4**2 +4*p1p4*((c
     &  *gZL + d*gZR)*mW**2 + 4*c*gZL*p2p3 +2*(c*gZL - d*gZR)*p2p4) +2
     &  *mW**2*((-(c*gZL) + d*gZR)*mW**2 +4*c*gZL*p2p3 + 4*(c*gZL + d
     &  *gZR)*p2p4)) +p1p4*(4*p2p3*((6*c*gZL - d*gZR)*mW**2 - 2*d*gZR
     &  *p2p4) +2*mW**2*(-3*c*gZL*mW**2 +2*(5*c*gZL + 4*d*gZR)
     &  *p2p4)))))/(mW**2*(mW**2 - 2*p1p4)*(mW**2 + 2*p1p2 - 2*p1p3 - 2
     &  *p1p4)*p2p3*(mZ**2 + 2*p2p3))
 
* AA35
        dsig = dsig + (-8*a*g2**2*gWWZ*gZnuL*(4*p1p2**3*((c*gZL**2 + d
     &  *gZR**2)*mW**2 -2*d*gZR**2*p1p4) +4*c*gZL**2*p1p3**2*((mW**2
     &  - 2*p1p4)*p2p3 - 2*p1p4*p2p4) +4*p1p2**2*(4*d*gZR**2*p1p4**2
     &  -p1p3*((c*gZL**2 + d*gZR**2)*mW**2 +2*(c*gZL**2 - d*gZR**2)
     &  *p1p4) +p1p4*(-3*(c*gZL**2 + d*gZR**2)*mW**2 +2*d*gZR**2*p2p3
     &  + 2*d*gZR**2*p2p4) +mW**2*(c*gZL**2*mW**2 +(-2*c*gZL**2 + d
     &  *gZR**2)*p2p3 -2*(c*gZL**2 + d*gZR**2)*p2p4)) +2*mW**2*p1p4*(-6
     &  *c*gZL**2*p2p3**2 +2*(c*gZL**2 + d*gZR**2)*(mW**2 - 2*p1p4 - 2
     &  *p2p4)*p2p4 + p2p3*(3*c*gZL**2*mW**2 +(-4*c*gZL**2 + 2*d
     &  *gZR**2)*p1p4 +(-10*c*gZL**2 + 2*d*gZR**2)*p2p4)) +p1p3*(-4*c
     &  *gZL**2*(mW**2 + 2*p1p4)*p2p3**2 +2*c*gZL**2*p2p3*(3*mW**4 - 4
     &  *p1p4**2 - 4*mW**2*p2p4 -2*p1p4*(mW**2 + 2*p2p4)) -4*p2p4*((2*c
     &  *gZL**2 + d*gZR**2)*mW**2*p1p4 +2*c*gZL**2*p1p4**2 +mW**2*(-(c
     &  *gZL**2*mW**2) +(c*gZL**2 + d*gZR**2)*p2p4))) +p1p2*(8*c*gZL**2
     &  *p1p3**2*p1p4 - 8*d*gZR**2*p1p4**3 +8*p1p4**2*((c*gZL**2 + d
     &  *gZR**2)*mW**2 -d*gZR**2*p2p3 - d*gZR**2*p2p4) +mW**2*(4*c
     &  *gZL**2*p2p3**2 -2*p2p3*((2*c*gZL**2 + d*gZR**2)*mW**2 -4*c
     &  *gZL**2*p2p4) +(mW**2 - 2*p2p4)*((c*gZL**2 - d*gZR**2)*mW**2 -2
     &  *(c*gZL**2 + d*gZR**2)*p2p4)) +p1p3*(8*(c*gZL**2 - d*gZR**2)
     &  *p1p4**2 +4*p1p4*((c*gZL**2 + d*gZR**2)*mW**2 +4*c*gZL**2*p2p3
     &  + 2*(c*gZL**2 - d*gZR**2)*p2p4) + 2*mW**2*((-(c*gZL**2) + d
     &  *gZR**2)*mW**2 +4*c*gZL**2*p2p3 + 4*(c*gZL**2 + d*gZR**2)
     &  *p2p4)) + p1p4*(4*p2p3*((6*c*gZL**2 - d*gZR**2)*mW**2 -2*d
     &  *gZR**2*p2p4) +2*mW**2*(-3*c*gZL**2*mW**2 +2*(5*c*gZL**2 + 4*d
     &  *gZR**2)*p2p4)))))/(mW**2*(mW**2 - 2*p1p4)*(mW**2 + 2*p1p2 - 2
     &  *p1p3 - 2*p1p4)*(mZ**2 + 2*p2p3)**2)
 
* AA36
        dsig = dsig + (8*a*c*g2**4*gZL*gZnuL*(p1p2**2*(2*mW**2*p1p4
     &  + p1p3*(mW**2 + 2*p1p4)) +(p2p3 + p2p4)*(-(p1p3**2*(mW**2 - 2
     &  *p1p4)) +mW**2*p1p4*(-mW**2 + 2*p1p4 + 2*p2p3 + 2*p2p4) +p1p3
     &  *(2*p1p4**2 + mW**2*(-mW**2 + p2p3 + p2p4) +p1p4*(mW**2 + 2
     &  *p2p3 + 2*p2p4))) +p1p2*(p1p3**2*(mW**2 - 2*p1p4) +mW**2*p1p4
     &  *(mW**2 - 2*p1p4 - 4*p2p3 - 4*p2p4) +p1p3*(-2*p1p4**2 +mW**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4) -p1p4*(mW**2 + 4*p2p3 + 4*p2p4)))))
     &  /(mW**2*(mW**2 - 2*p1p4)*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)
     &  *(mZ**2 + 2*p2p3)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4))
 
* AA44
        dsig = dsig + -((a*ee**2*g2**2*gWWA**2*(-8*d*p1p2**4 -4*p1p2**3
     &  *(2*c*mW**2 + d*mW**2 + 2*(c - 2*d)*p1p3 -6*d*p1p4 - 4*d*p2p3
     &  - 2*d*p2p4) -2*p1p2**2*(4*c*mW**4 - d*mW**4 +(-8*c + 4*d)
     &  *p1p3**2 + 12*d*p1p4**2 -8*c*mW**2*p2p3 + 8*d*mW**2*p2p3 + 4*d
     &  *p2p3**2 -8*c*mW**2*p2p4 - 4*d*mW**2*p2p4 + 8*d*p2p3*p2p4 -4
     &  *p1p4*((2*c + d)*mW**2 - 4*d*p2p3 - 2*d*p2p4) -4*p1p3*(c*mW**2
     &  + 2*(c - 2*d)*p1p4 +(3*c - 2*d)*p2p3 + c*p2p4 - 2*d*p2p4))
     &  +p1p2*(-2*c*mW**6 + d*mW**6 - 8*c*p1p3**3 +8*d*p1p4**3 + 8*c
     &  *mW**4*p2p3 + 4*d*mW**4*p2p3 -8*c*mW**2*p2p3**2 + 4*d*mW**2
     &  *p2p3**2 +8*c*mW**4*p2p4 + 2*d*mW**4*p2p4 -16*c*mW**2*p2p3
     &  *p2p4 + 8*d*mW**2*p2p3*p2p4 +8*d*p2p3**2*p2p4 - 8*c*mW**2
     &  *p2p4**2 -8*d*mW**2*p2p4**2 -4*p1p4**2*((2*c + d)*mW**2 - 4*d
     &  *p2p3 - 2*d*p2p4) +4*p1p3**2*(d*mW**2 + (-4*c + 2*d)*p1p4 - 8*c
     &  *p2p3 -4*c*p2p4 + 2*d*p2p4) +2*p1p3*(-4*(c - 2*d)*p1p4**2 - 12
     &  *c*p2p3**2 +p2p3*(4*(-2*c + d)*mW**2 - 8*(c - d)*p2p4) -4*p1p4
     &  *(c*mW**2 + (4*c - 2*d)*p2p3 + 2*(c - d)*p2p4)+ mW**2*((3*c - 2
     &  *d)*mW**2 - 4*(3*c + d)*p2p4)) + 2*p1p4*(4*d*p2p3**2 +8*p2p3*((
     &  -2*c + d)*mW**2 + d*p2p4) +mW**2*((4*c - d)*mW**2 - 4*(3*c + 2
     &  *d)*p2p4)))+ 2*(4*c*p1p3**3*(p2p3 + p2p4) +4*c*p1p3**2*(2
     &  *p2p3**2 + (mW**2 + 2*p1p4)*p2p4 +p2p3*(-mW**2 + 2*p1p4 + 2
     &  *p2p4)) +2*mW**2*p1p4*(4*c*p2p3**2 -(c + d)*(mW**2 - 2*p1p4 - 2
     &  *p2p4)*p2p4 -2*p2p3*(c*mW**2 + (-c + d)*p1p4 + (-3*c + d)
     &  *p2p4))+ p1p3*(4*c*p2p3**3 +4*c*p2p3**2*(mW**2 + 2*p1p4
     &  + p2p4) +c*p2p3*(-7*mW**4 + 4*p1p4**2 + 12*mW**2*p2p4 +4*p1p4
     &  *(mW**2 + 2*p2p4)) +p2p4*(4*(2*c + d)*mW**2*p1p4 + 4*c*p1p4**2
     &  +mW**2*(-3*c*mW**2 + 4*(c + d)*p2p4))))))/(mW**2*(mW**2 + 2
     &  *p1p2 - 2*p1p3 - 2*p1p4)**2*p2p3**2))
 
* AA45
        dsig = dsig + (-4*a*ee*g2**2*gWWA*gWWZ*(-8*d*gZR*p1p2**4 -4
     &  *p1p2**3*(2*c*gZL*mW**2 + d*gZR*mW**2 +2*(c*gZL - 2*d*gZR)
     &  *p1p3 - 6*d*gZR*p1p4 -4*d*gZR*p2p3 - 2*d*gZR*p2p4) -2*p1p2**2
     &  *(4*c*gZL*mW**4 - d*gZR*mW**4 +(-8*c*gZL + 4*d*gZR)*p1p3**2
     &  + 12*d*gZR*p1p4**2 -8*c*gZL*mW**2*p2p3 + 8*d*gZR*mW**2*p2p3 +4
     &  *d*gZR*p2p3**2 - 8*c*gZL*mW**2*p2p4 -4*d*gZR*mW**2*p2p4 + 8*d
     &  *gZR*p2p3*p2p4 -4*p1p4*((2*c*gZL + d*gZR)*mW**2 - 4*d*gZR*p2p3
     &  -2*d*gZR*p2p4) -4*p1p3*(c*gZL*mW**2 + 2*(c*gZL - 2*d*gZR)*p1p4
     &  +(3*c*gZL - 2*d*gZR)*p2p3 + c*gZL*p2p4 -2*d*gZR*p2p4)) +p1p2*(
     &  -2*c*gZL*mW**6 + d*gZR*mW**6 - 8*c*gZL*p1p3**3 +8*d*gZR
     &  *p1p4**3 + 8*c*gZL*mW**4*p2p3 +4*d*gZR*mW**4*p2p3 - 8*c*gZL
     &  *mW**2*p2p3**2 +4*d*gZR*mW**2*p2p3**2 + 8*c*gZL*mW**4*p2p4 +2*d
     &  *gZR*mW**4*p2p4 - 16*c*gZL*mW**2*p2p3*p2p4 +8*d*gZR*mW**2*p2p3
     &  *p2p4 + 8*d*gZR*p2p3**2*p2p4 -8*c*gZL*mW**2*p2p4**2 - 8*d*gZR
     &  *mW**2*p2p4**2 -4*p1p4**2*((2*c*gZL + d*gZR)*mW**2 - 4*d*gZR
     &  *p2p3 -2*d*gZR*p2p4) +4*p1p3**2*(d*gZR*mW**2 +(-4*c*gZL + 2*d
     &  *gZR)*p1p4 - 8*c*gZL*p2p3 -4*c*gZL*p2p4 + 2*d*gZR*p2p4) +2*p1p4
     &  *(4*d*gZR*p2p3**2 +8*p2p3*((-2*c*gZL + d*gZR)*mW**2 + d*gZR
     &  *p2p4) +mW**2*((4*c*gZL - d*gZR)*mW**2 -4*(3*c*gZL + 2*d*gZR)
     &  *p2p4)) +2*p1p3*((-4*c*gZL + 8*d*gZR)*p1p4**2 -12*c*gZL
     &  *p2p3**2 -4*p1p4*(c*gZL*mW**2 + (4*c*gZL - 2*d*gZR)*p2p3 +2*(c
     &  *gZL - d*gZR)*p2p4) +mW**2*((3*c*gZL - 2*d*gZR)*mW**2 -4*(3*c
     &  *gZL + d*gZR)*p2p4) +p2p3*(4*(-2*c*gZL + d*gZR)*mW**2 +(-8*c
     &  *gZL + 8*d*gZR)*p2p4))) +2*(4*c*gZL*p1p3**3*(p2p3 + p2p4) +4*c
     &  *gZL*p1p3**2*(2*p2p3**2 + (mW**2 + 2*p1p4)*p2p4 +p2p3*(-mW**2
     &  + 2*p1p4 + 2*p2p4)) +2*mW**2*p1p4*(4*c*gZL*p2p3**2 -(c*gZL + d
     &  *gZR)*(mW**2 - 2*p1p4 - 2*p2p4)*p2p4 -2*p2p3*(c*gZL*mW**2 + (
     &  -(c*gZL) + d*gZR)*p1p4 +(-3*c*gZL + d*gZR)*p2p4)) +p1p3*(4*c
     &  *gZL*p2p3**3 +4*c*gZL*p2p3**2*(mW**2 + 2*p1p4 + p2p4) +c*gZL
     &  *p2p3*(-7*mW**4 + 4*p1p4**2 + 12*mW**2*p2p4 +4*p1p4*(mW**2 + 2
     &  *p2p4)) +p2p4*(4*(2*c*gZL + d*gZR)*mW**2*p1p4 +4*c*gZL*p1p4**2
     &  +mW**2*(-3*c*gZL*mW**2 + 4*(c*gZL + d*gZR)*p2p4))))))/(mW**2
     &  *(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)**2*p2p3*(mZ**2 + 2*p2p3))
 
* AA46
        dsig = dsig + -((a*c*ee*g2**4*gWWA*(-4*p1p2**3*(mW**2 + 2
     &  *p1p3) +4*p1p2**2*(4*p1p3**2 +mW**2*(-mW**2 + 3*p1p4 + 2*p2p3
     &  + 2*p2p4) +p1p3*(mW**2 + 4*p1p4 + 6*p2p3 + 4*p2p4)) -p1p2*(8
     &  *p1p3**3 +8*p1p3**2*(2*p1p4 + 4*p2p3 + 3*p2p4) +4*p1p3*(-mW**4
     &  + 2*p1p4**2 + 6*p2p3**2 +3*mW**2*p2p4 + 2*p2p4**2 +2*p1p4
     &  *(mW**2 + 4*p2p3 + 3*p2p4) +2*p2p3*(mW**2 + 4*p2p4)) +mW**2*(8
     &  *p1p4**2 + (mW**2 - 2*p2p3 - 2*p2p4)**2 +p1p4*(-6*mW**2 + 24
     &  *p2p3 + 20*p2p4))) +2*(4*p1p3**3*(p2p3 + p2p4) +p1p3**2*(8
     &  *p2p3**2 -2*p2p3*(mW**2 - 4*p1p4 - 6*p2p4) +4*p2p4*(2*p1p4
     &  + p2p4)) +mW**2*p1p4*(6*p2p3**2 + 2*p2p4*(-mW**2 + 2*p1p4 + 2
     &  *p2p4) +p2p3*(-3*mW**2 + 4*p1p4 + 10*p2p4)) +p1p3*(4*p2p3**3 +2
     &  *p2p3**2*(mW**2 + 4*p1p4 + 4*p2p4) +p2p3*(-4*mW**4 + 4*p1p4**2
     &  + 6*mW**2*p2p4 +4*p2p4**2 + 4*p1p4*(mW**2 + 3*p2p4)) +p2p4*(-3
     &  *mW**4 + 4*p1p4**2 + 4*mW**2*p2p4 +p1p4*(6*mW**2 + 4*p2p4))))))
     &  /(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)**2*p2p3*(-p1p2
     &  + p1p3 + p1p4 + p2p3 + p2p4)))
 
* AA55
        dsig = dsig + (-4*a*g2**2*gWWZ**2*(-8*d*gZR**2*p1p2**4 -4
     &  *p1p2**3*(2*c*gZL**2*mW**2 + d*gZR**2*mW**2 +2*(c*gZL**2 - 2*d
     &  *gZR**2)*p1p3 - 6*d*gZR**2*p1p4 -4*d*gZR**2*p2p3 - 2*d*gZR**2
     &  *p2p4) -2*p1p2**2*(4*c*gZL**2*mW**4 - d*gZR**2*mW**4 +(-8*c
     &  *gZL**2 + 4*d*gZR**2)*p1p3**2 +12*d*gZR**2*p1p4**2 - 8*c*gZL**2
     &  *mW**2*p2p3 +8*d*gZR**2*mW**2*p2p3 + 4*d*gZR**2*p2p3**2 -8*c
     &  *gZL**2*mW**2*p2p4 - 4*d*gZR**2*mW**2*p2p4 +8*d*gZR**2*p2p3
     &  *p2p4 -4*p1p4*((2*c*gZL**2 + d*gZR**2)*mW**2 -4*d*gZR**2*p2p3
     &  - 2*d*gZR**2*p2p4) -4*p1p3*(c*gZL**2*mW**2 +2*(c*gZL**2 - 2*d
     &  *gZR**2)*p1p4 +(3*c*gZL**2 - 2*d*gZR**2)*p2p3 + c*gZL**2*p2p4
     &  -2*d*gZR**2*p2p4)) +p1p2*(-2*c*gZL**2*mW**6 + d*gZR**2*mW**6 -8
     &  *c*gZL**2*p1p3**3 + 8*d*gZR**2*p1p4**3 +8*c*gZL**2*mW**4*p2p3
     &  + 4*d*gZR**2*mW**4*p2p3 -8*c*gZL**2*mW**2*p2p3**2 +4*d*gZR**2
     &  *mW**2*p2p3**2 + 8*c*gZL**2*mW**4*p2p4 +2*d*gZR**2*mW**4*p2p4
     &  -16*c*gZL**2*mW**2*p2p3*p2p4 +8*d*gZR**2*mW**2*p2p3*p2p4 +8*d
     &  *gZR**2*p2p3**2*p2p4 -8*c*gZL**2*mW**2*p2p4**2 -8*d*gZR**2
     &  *mW**2*p2p4**2 -4*p1p4**2*((2*c*gZL**2 + d*gZR**2)*mW**2 -4*d
     &  *gZR**2*p2p3 - 2*d*gZR**2*p2p4) +4*p1p3**2*(d*gZR**2*mW**2 +(-4
     &  *c*gZL**2 + 2*d*gZR**2)*p1p4 -8*c*gZL**2*p2p3 - 4*c*gZL**2
     &  *p2p4 +2*d*gZR**2*p2p4) +2*p1p4*(4*d*gZR**2*p2p3**2 +8*p2p3*((
     &  -2*c*gZL**2 + d*gZR**2)*mW**2 +d*gZR**2*p2p4) +mW**2*((4*c
     &  *gZL**2 - d*gZR**2)*mW**2 -4*(3*c*gZL**2 + 2*d*gZR**2)*p2p4))
     &  +2*p1p3*((-4*c*gZL**2 + 8*d*gZR**2)*p1p4**2 -12*c*gZL**2
     &  *p2p3**2 -4*p1p4*(c*gZL**2*mW**2 +(4*c*gZL**2 - 2*d*gZR**2)
     &  *p2p3 +2*(c*gZL**2 - d*gZR**2)*p2p4) +mW**2*((3*c*gZL**2 - 2*d
     &  *gZR**2)*mW**2 -4*(3*c*gZL**2 + d*gZR**2)*p2p4) +p2p3*(4*(-2*c
     &  *gZL**2 + d*gZR**2)*mW**2 +(-8*c*gZL**2 + 8*d*gZR**2)*p2p4)))
     &  +2*(4*c*gZL**2*p1p3**3*(p2p3 + p2p4) +4*c*gZL**2*p1p3**2*(2
     &  *p2p3**2 + (mW**2 + 2*p1p4)*p2p4 +p2p3*(-mW**2 + 2*p1p4 + 2
     &  *p2p4)) +2*mW**2*p1p4*(4*c*gZL**2*p2p3**2 -(c*gZL**2 + d
     &  *gZR**2)*(mW**2 - 2*p1p4 - 2*p2p4)*p2p4 - 2*p2p3*(c*gZL**2
     &  *mW**2 +(-(c*gZL**2) + d*gZR**2)*p1p4 +(-3*c*gZL**2 + d*gZR**2)
     &  *p2p4)) +p1p3*(4*c*gZL**2*p2p3**3 +4*c*gZL**2*p2p3**2*(mW**2
     &  + 2*p1p4 + p2p4) +c*gZL**2*p2p3*(-7*mW**4 + 4*p1p4**2 + 12
     &  *mW**2*p2p4 +4*p1p4*(mW**2 + 2*p2p4)) +p2p4*(4*(2*c*gZL**2 + d
     &  *gZR**2)*mW**2*p1p4 +4*c*gZL**2*p1p4**2 +mW**2*(-3*c*gZL**2
     &  *mW**2 +4*(c*gZL**2 + d*gZR**2)*p2p4))))))/(mW**2*(mW**2 + 2
     &  *p1p2 - 2*p1p3 - 2*p1p4)**2*(mZ**2 + 2*p2p3)**2)
 
* AA56
        dsig = dsig + (2*a*c*g2**4*gWWZ*gZL*(4*p1p2**3*(mW**2 + 2
     &  *p1p3) +4*p1p2**2*(-4*p1p3**2 +mW**2*(mW**2 - 3*p1p4 - 2*p2p3
     &  - 2*p2p4) -p1p3*(mW**2 + 4*p1p4 + 6*p2p3 + 4*p2p4)) +p1p2*(8
     &  *p1p3**3 +8*p1p3**2*(2*p1p4 + 4*p2p3 + 3*p2p4) +4*p1p3*(-mW**4
     &  + 2*p1p4**2 + 6*p2p3**2 +3*mW**2*p2p4 + 2*p2p4**2 +2*p1p4
     &  *(mW**2 + 4*p2p3 + 3*p2p4) +2*p2p3*(mW**2 + 4*p2p4)) +mW**2*(8
     &  *p1p4**2 + (mW**2 - 2*p2p3 - 2*p2p4)**2 +p1p4*(-6*mW**2 + 24
     &  *p2p3 + 20*p2p4))) +2*(-4*p1p3**3*(p2p3 + p2p4) +mW**2*p1p4*(-6
     &  *p2p3**2 +p2p3*(3*mW**2 - 4*p1p4 - 10*p2p4) +2*(mW**2 - 2*p1p4
     &  - 2*p2p4)*p2p4) +2*p1p3**2*(-4*p2p3**2 +p2p3*(mW**2 - 4*p1p4
     &  - 6*p2p4) -2*p2p4*(2*p1p4 + p2p4)) +p1p3*(-4*p2p3**3 -2*p2p3**2
     &  *(mW**2 + 4*p1p4 + 4*p2p4) +2*p2p3*(2*mW**4 - 2*p1p4**2 - 3
     &  *mW**2*p2p4 -2*p2p4**2 - 2*p1p4*(mW**2 + 3*p2p4)) -p2p4*(-3
     &  *mW**4 + 4*p1p4**2 + 4*mW**2*p2p4 +p1p4*(6*mW**2 + 4*p2p4))))))
     &  /(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)**2*(mZ**2 + 2*p2p3)
     &  *(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4))
 
* AA66
        dsig = dsig + (a*c*g2**6*(p1p2 - p2p3 - p2p4)*(2*p1p3**3 + 4
     &  *p1p3**2*(-p1p2 + p1p4 + p2p3 + p2p4) +mW**2*p1p4*(-mW**2 - 2
     &  *p1p2 + 2*p1p4 + 2*p2p3 +2*p2p4) + p1p3*(-mW**4 + 2*p1p2**2 + 2
     &  *p1p4**2 + 2*p2p3**2 +4*p2p3*p2p4 + 2*p2p4**2 -4*p1p2*(p1p4
     &  + p2p3 + p2p4) +2*p1p4*(mW**2 + 2*p2p3 + 2*p2p4))))/(mW**2
     &  *(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)**2*(-p1p2 + p1p3 + p1p4
     &  + p2p3 + p2p4)**2)
 
* End AA
 
      endif

      if(setBB)then


* BB11
        dsig = dsig + (-2*ee**2*g2**2*gWWA**2*(4*(a*c + b*d)*mW**2
     &  *p1p2**3 + 4*b*d*p1p4**3*p2p3 +4*mW**2*p1p2**2*(a*c*mW**2 + b*d
     &  *mW**2 - 2*b*d*p1p3 - 2*b*d*p1p4 -2*a*c*p2p3 - 2*a*c*p2p4) +4
     &  *p1p3*p2p4**2*((-(a*c) + b*d)*mW**2 + (a*c + b*d)*p2p3 + a*c
     &  *p2p4)+ 2*p1p4*p2p4*(-((a*c + b*d)*mW**2*(mW**2 - 2*p2p4))
     &  +p1p3*(2*(-(a*c) + b*d)*mW**2 + 4*(a*c + b*d)*p2p3 +4*a*c
     &  *p2p4) +2*p2p3*((a*c - b*d)*mW**2 + b*d*p2p4)) +4*p1p4**2*(((a
     &  *c + b*d)*mW**2 + a*c*p1p3)*p2p4 +p2p3*((a*c - b*d)*mW**2 + (a
     &  *c + b*d)*p1p3 +2*b*d*p2p4)) +p1p2*(a*c*mW**6 + b*d*mW**6 +4*(a
     &  *c + b*d)*mW**2*p1p3**2 - 4*a*c*mW**4*p2p3 +4*b*d*mW**4*p2p3
     &  + 4*a*c*mW**2*p2p3**2 +4*b*d*mW**2*p2p3**2 -4*p1p4**2*((a*c - b
     &  *d)*mW**2 + b*d*p2p3) -4*a*c*mW**4*p2p4 + 8*a*c*mW**2*p2p3
     &  *p2p4 +4*a*c*mW**2*p2p4**2 - 4*b*d*mW**2*p2p4**2 -4*b*d*p2p3
     &  *p2p4**2 -4*p1p4*(b*d*mW**4 +((a*c + b*d)*mW**2 + 2*b*d*p2p3)
     &  *p2p4) +4*p1p3*((a*c - b*d)*mW**4 - a*c*p1p4**2 -a*c*p2p4**2
     &  + 2*p1p4*(b*d*mW**2 - a*c*p2p4)))))/(mW**2*p1p2**2*(4*p1p2**2
     &  + 4*p1p4**2 + 8*p1p4*p2p4 +4*p2p4**2 - 8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2))
 
* BB12
        dsig = dsig + (2*ee**3*g2**2*gWWA*(4*(a*c + b*d)*mW**2*p1p2**4
     &  +4*b*d*p1p4**3*p2p3*(mW**2 + 2*p1p3 + 2*p2p3) -2*a*c*mW**4*p1p3
     &  *p2p4**2 - 2*b*d*mW**4*p1p3*p2p4**2 -4*a*c*mW**2*p1p3**2
     &  *p2p4**2 +4*b*d*mW**2*p1p3**2*p2p4**2 -4*a*c*mW**2*p1p3*p2p3
     &  *p2p4**2 +4*b*d*mW**2*p1p3*p2p3*p2p4**2 +8*a*c*p1p3**2*p2p3
     &  *p2p4**2 +8*b*d*p1p3**2*p2p3*p2p4**2 +8*a*c*p1p3*p2p3**2
     &  *p2p4**2 +8*b*d*p1p3*p2p3**2*p2p4**2 +4*a*c*mW**2*p1p3*p2p4**3
     &  + 8*a*c*p1p3**2*p2p4**3 +8*a*c*p1p3*p2p3*p2p4**3 +4*p1p2**3*(a
     &  *c*mW**4 + b*d*mW**4 - 2*a*c*mW**2*p2p3 -p1p4*((2*a*c + 3*b*d)
     &  *mW**2 + 2*b*d*p2p3) -3*a*c*mW**2*p2p4 - 2*b*d*mW**2*p2p4 -2*b
     &  *d*p2p3*p2p4 -2*p1p3*(b*d*mW**2 + a*c*p1p4 + a*c*p2p4))
     &  +p1p2**2*(a*c*mW**6 + b*d*mW**6 - 4*a*c*mW**4*p2p3 +4*b*d*mW**4
     &  *p2p3 + 4*a*c*mW**2*p2p3**2 +4*b*d*mW**2*p2p3**2 +4*p1p4**2*((a
     &  *c + 3*b*d)*mW**2 + 4*b*d*p2p3) -8*a*c*mW**4*p2p4 - 6*b*d*mW**4
     &  *p2p4 +16*a*c*mW**2*p2p3*p2p4 + 4*b*d*mW**2*p2p3*p2p4 +8*b*d
     &  *p2p3**2*p2p4 + 12*a*c*mW**2*p2p4**2 +4*b*d*mW**2*p2p4**2 + 8*b
     &  *d*p2p3*p2p4**2 +4*p1p3**2*((a*c + b*d)*mW**2 + 2*a*c*p1p4 +2*a
     &  *c*p2p4) +4*p1p3*((a*c - b*d)*mW**4 + 2*a*c*p1p4**2 +((-(a*c)
     &  + 4*b*d)*mW**2 + 4*(a*c + b*d)*p2p3)*p2p4 + 4*a*c*p2p4**2 +p1p4
     &  *((a*c + 4*b*d)*mW**2 + 4*(a*c + b*d)*p2p3 +6*a*c*p2p4)) +2
     &  *p1p4*(4*b*d*p2p3**2 +2*p2p3*((4*a*c - b*d)*mW**2 + 6*b*d
     &  *p2p4) +mW**2*(-((3*a*c + 4*b*d)*mW**2) +8*(a*c + b*d)*p2p4)))
     &  +2*p1p4**2*(2*p1p3*((2*a*c + b*d)*mW**2 + 2*a*c*p1p3)*p2p4 + 2
     &  *p2p3**2*((a*c - b*d)*mW**2 + 2*(a*c + b*d)*p1p3 +4*b*d*p2p4)
     &  +p2p3*(4*(a*c + b*d)*p1p3**2 +2*p1p3*((a*c - b*d)*mW**2 +2*(a
     &  *c + 2*b*d)*p2p4) -mW**2*((a*c + b*d)*mW**2 - 2*(a*c + 3*b*d)
     &  *p2p4))) - a*c*Epsp1p2p3p4*mW**5*wW +b*d*Epsp1p2p3p4*mW**5*wW
     &  -2*a*c*Epsp1p2p3p4*mW**3*p1p3*wW -2*b*d*Epsp1p2p3p4*mW**3*p1p3
     &  *wW +2*a*c*Epsp1p2p3p4*mW**3*p2p3*wW +2*b*d*Epsp1p2p3p4*mW**3
     &  *p2p3*wW +2*a*c*Epsp1p2p3p4*mW**3*p2p4*wW -2*p1p4*(-2*p1p3**2
     &  *p2p4*((-(a*c) + b*d)*mW**2 + 4*(a*c + b*d)*p2p3 +4*a*c*p2p4)
     &  -2*p2p3**2*p2p4*((a*c - b*d)*mW**2 + 2*b*d*p2p4) +mW**2*p2p3
     &  *p2p4*((a*c + b*d)*mW**2 - 2*(a*c + 2*b*d)*p2p4) -p1p3*p2p4*(8
     &  *(a*c + b*d)*p2p3**2 +4*(2*a*c + b*d)*p2p3*p2p4 -mW**2*((a*c
     &  + b*d)*mW**2 - 2*(3*a*c + b*d)*p2p4))+ b*d*Epsp1p2p3p4*mW**3
     &  *wW) -p1p2*(4*b*d*p1p4**3*(mW**2 + 2*p2p3) +(8*p1p3**2*(b*d
     &  *mW**2 + (a*c + b*d)*p2p3) +2*p1p3*((a*c - 3*b*d)*mW**4 +2*(-(a
     &  *c) + b*d)*mW**2*p2p3 +4*(a*c + b*d)*p2p3**2) +mW**2*((a*c + b
     &  *d)*mW**4 +4*(-(a*c) + b*d)*mW**2*p2p3 +4*(a*c + b*d)*p2p3**2))
     &  *p2p4 +(-2*(2*a*c + b*d)*mW**4 + 16*a*c*p1p3**2 +4*(2*a*c + b
     &  *d)*mW**2*p2p3 + 8*b*d*p2p3**2 +8*p1p3*(b*d*mW**2 + (3*a*c + 2
     &  *b*d)*p2p3))*p2p4**2 + 4*a*c*(mW**2 + 2*p1p3)*p2p4**3 +2
     &  *p1p4**2*(4*a*c*p1p3**2 + 8*b*d*p2p3**2 -(a*c + 2*b*d)*mW**2
     &  *(mW**2 - 2*p2p4) +2*p1p3*((a*c + 2*b*d)*mW**2 +(4*a*c + 6*b*d)
     &  *p2p3 + 2*a*c*p2p4) +4*p2p3*(a*c*mW**2 + 2*b*d*p2p4)) +p1p4*(4
     &  *p1p3**2*((a*c + b*d)*mW**2 + 2*(a*c + b*d)*p2p3 +6*a*c*p2p4)
     &  +8*p2p3**2*(a*c*mW**2 + 3*b*d*p2p4) +p2p3*(2*(-3*a*c + b*d)
     &  *mW**4 +4*(5*a*c + 2*b*d)*mW**2*p2p4 + 8*b*d*p2p4**2)+ mW**2
     &  *((a*c + b*d)*mW**4 - 6*(a*c + b*d)*mW**2*p2p4 +4*(2*a*c + b*d)
     &  *p2p4**2) +4*p1p3*((a*c - b*d)*mW**4 +2*(a*c + b*d)*p2p3**2 +(2
     &  *a*c + 5*b*d)*mW**2*p2p4 + 4*a*c*p2p4**2 +p2p3*((a*c - b*d)
     &  *mW**2 + 10*(a*c + b*d)*p2p4))) + 2*(a*c - b*d)*Epsp1p2p3p4
     &  *mW**3*wW)))/(mW**2*p1p2**2*(p1p2 - p1p3 - p2p3)*(4*p1p2**2 + 4
     &  *p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2))
 
* BB13
        dsig = dsig + (8*ee*g2**2*gWWA*gWWZ*(mZ**2 - 2*p1p2)*(4*(a*c
     &  *gZL + b*d*gZR)*mW**2*p1p2**3 +4*b*d*gZR*p1p4**3*p2p3 +4*mW**2
     &  *p1p2**2*(a*c*gZL*mW**2 + b*d*gZR*mW**2 - 2*b*d*gZR*p1p3 -2*b*d
     &  *gZR*p1p4 - 2*a*c*gZL*p2p3 - 2*a*c*gZL*p2p4) +4*p1p3*p2p4**2*((
     &  -(a*c*gZL) + b*d*gZR)*mW**2 +(a*c*gZL + b*d*gZR)*p2p3 + a*c*gZL
     &  *p2p4) +2*p1p4*p2p4*(-((a*c*gZL + b*d*gZR)*mW**2*(mW**2 - 2
     &  *p2p4)) +p1p3*(2*(-(a*c*gZL) + b*d*gZR)*mW**2 +4*(a*c*gZL + b*d
     &  *gZR)*p2p3 + 4*a*c*gZL*p2p4) +2*p2p3*((a*c*gZL - b*d*gZR)
     &  *mW**2 + b*d*gZR*p2p4))+ 4*p1p4**2*(((a*c*gZL + b*d*gZR)*mW**2
     &  +a*c*gZL*p1p3)*p2p4 +p2p3*((a*c*gZL - b*d*gZR)*mW**2 +(a*c*gZL
     &  + b*d*gZR)*p1p3 + 2*b*d*gZR*p2p4)) +p1p2*(a*c*gZL*mW**6 + b*d
     &  *gZR*mW**6 +4*(a*c*gZL + b*d*gZR)*mW**2*p1p3**2 -4*a*c*gZL
     &  *mW**4*p2p3 + 4*b*d*gZR*mW**4*p2p3 +4*a*c*gZL*mW**2*p2p3**2 + 4
     &  *b*d*gZR*mW**2*p2p3**2 -4*p1p4**2*((a*c*gZL - b*d*gZR)*mW**2 +b
     &  *d*gZR*p2p3) - 4*a*c*gZL*mW**4*p2p4 +8*a*c*gZL*mW**2*p2p3*p2p4
     &  +4*a*c*gZL*mW**2*p2p4**2 - 4*b*d*gZR*mW**2*p2p4**2 -4*b*d*gZR
     &  *p2p3*p2p4**2 -4*p1p4*(b*d*gZR*mW**4 +((a*c*gZL + b*d*gZR)
     &  *mW**2 + 2*b*d*gZR*p2p3)*p2p4) + 4*p1p3*((a*c*gZL - b*d*gZR)
     &  *mW**4 - a*c*gZL*p1p4**2 -a*c*gZL*p2p4**2 +2*p1p4*(b*d*gZR
     &  *mW**2 - a*c*gZL*p2p4)))))/(mW**2*p1p2*(4*p1p2**2 + 4*p1p4**2
     &  + 8*p1p4*p2p4 +4*p2p4**2 - 8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)
     &  *(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB14
        dsig = dsig + (2*ee*g2**2*gWWA*gZL*(16*(a*c*gZL + b*d*gZR)
     &  *mW**2*p1p2**5 +8*p1p2**4*(2*a*c*gZL*mW**4 + 2*b*d*gZR*mW**4 -a
     &  *c*gZL*mW**2*mZ**2 - b*d*gZR*mW**2*mZ**2 -4*a*c*gZL*mW**2*p2p3
     &  -2*p1p4*((2*a*c*gZL + 3*b*d*gZR)*mW**2 +2*b*d*gZR*p2p3) - 6*a*c
     &  *gZL*mW**2*p2p4 -4*b*d*gZR*mW**2*p2p4 - 4*b*d*gZR*p2p3*p2p4 -4
     &  *p1p3*(b*d*gZR*mW**2 + a*c*gZL*p1p4 + a*c*gZL*p2p4)) + 4
     &  *p1p2**3*(a*c*gZL*mW**6 + b*d*gZR*mW**6 -2*a*c*gZL*mW**4*mZ**2
     &  - 2*b*d*gZR*mW**4*mZ**2 -4*a*c*gZL*mW**4*p2p3 + 4*b*d*gZR*mW**4
     &  *p2p3 +4*a*c*gZL*mW**2*mZ**2*p2p3 +4*a*c*gZL*mW**2*p2p3**2 + 4
     &  *b*d*gZR*mW**2*p2p3**2 +4*p1p4**2*((a*c*gZL + 3*b*d*gZR)*mW**2
     &  +4*b*d*gZR*p2p3) - 8*a*c*gZL*mW**4*p2p4 -6*b*d*gZR*mW**4*p2p4
     &  + 6*a*c*gZL*mW**2*mZ**2*p2p4 +4*b*d*gZR*mW**2*mZ**2*p2p4 +16*a
     &  *c*gZL*mW**2*p2p3*p2p4 +4*b*d*gZR*mW**2*p2p3*p2p4 +4*b*d*gZR
     &  *mZ**2*p2p3*p2p4 +8*b*d*gZR*p2p3**2*p2p4 + 12*a*c*gZL*mW**2
     &  *p2p4**2 +4*b*d*gZR*mW**2*p2p4**2 + 8*b*d*gZR*p2p3*p2p4**2 +4
     &  *p1p3**2*((a*c*gZL + b*d*gZR)*mW**2 +2*a*c*gZL*p1p4 + 2*a*c*gZL
     &  *p2p4) +4*p1p3*(a*c*gZL*mW**4 - b*d*gZR*mW**4 +b*d*gZR*mW**2
     &  *mZ**2 + 2*a*c*gZL*p1p4**2 +(4*b*d*gZR*mW**2 + a*c*gZL*(-mW**2
     &  + mZ**2) +4*(a*c*gZL + b*d*gZR)*p2p3)*p2p4 +4*a*c*gZL*p2p4**2
     &  +p1p4*(a*c*gZL*mW**2 + 4*b*d*gZR*mW**2 +a*c*gZL*mZ**2 + 4*(a*c
     &  *gZL + b*d*gZR)*p2p3 +6*a*c*gZL*p2p4)) +2*p1p4*(4*b*d*gZR
     &  *p2p3**2 +2*p2p3*(4*a*c*gZL*mW**2 +b*d*gZR*(-mW**2 + mZ**2) + 6
     &  *b*d*gZR*p2p4) +mW**2*(a*c*gZL*(-3*mW**2 + 2*mZ**2) +b*d*gZR*(
     &  -4*mW**2 + 3*mZ**2) +8*(a*c*gZL + b*d*gZR)*p2p4)) +a*c*gZL
     &  *mW**3*mZ*wW*wZ + b*d*gZR*mW**3*mZ*wW*wZ) -2*p1p2**2*(a*c*gZL
     &  *mW**6*mZ**2 + b*d*gZR*mW**6*mZ**2 -4*a*c*gZL*mW**4*mZ**2*p2p3
     &  +4*b*d*gZR*mW**4*mZ**2*p2p3 +4*a*c*gZL*mW**2*mZ**2*p2p3**2 +4*b
     &  *d*gZR*mW**2*mZ**2*p2p3**2 +8*b*d*gZR*p1p4**3*(mW**2 + 2*p2p3)
     &  +2*a*c*gZL*mW**6*p2p4 + 2*b*d*gZR*mW**6*p2p4 -8*a*c*gZL*mW**4
     &  *mZ**2*p2p4 -6*b*d*gZR*mW**4*mZ**2*p2p4 -8*a*c*gZL*mW**4*p2p3
     &  *p2p4 +8*b*d*gZR*mW**4*p2p3*p2p4 +16*a*c*gZL*mW**2*mZ**2*p2p3
     &  *p2p4 +4*b*d*gZR*mW**2*mZ**2*p2p3*p2p4 +8*a*c*gZL*mW**2*p2p3**2
     &  *p2p4 +8*b*d*gZR*mW**2*p2p3**2*p2p4 +8*b*d*gZR*mZ**2*p2p3**2
     &  *p2p4 -8*a*c*gZL*mW**4*p2p4**2 - 4*b*d*gZR*mW**4*p2p4**2 +12*a
     &  *c*gZL*mW**2*mZ**2*p2p4**2 +4*b*d*gZR*mW**2*mZ**2*p2p4**2 +16*a
     &  *c*gZL*mW**2*p2p3*p2p4**2 +8*b*d*gZR*mW**2*p2p3*p2p4**2 +8*b*d
     &  *gZR*mZ**2*p2p3*p2p4**2 +16*b*d*gZR*p2p3**2*p2p4**2 +8*a*c*gZL
     &  *mW**2*p2p4**3 +4*p1p3**2*((a*c*gZL + b*d*gZR)*mW**2*mZ**2 +4*a
     &  *c*gZL*p1p4**2 +2*(2*b*d*gZR*mW**2 + a*c*gZL*mZ**2 +2*(a*c*gZL
     &  + b*d*gZR)*p2p3)*p2p4 +8*a*c*gZL*p2p4**2 +2*p1p4*(a*c*gZL
     &  *mW**2 + b*d*gZR*mW**2 +a*c*gZL*mZ**2 + 2*(a*c*gZL + b*d*gZR)
     &  *p2p3 +6*a*c*gZL*p2p4)) +4*p1p4**2*(8*b*d*gZR*p2p3**2 +4*p2p3
     &  *(a*c*gZL*mW**2 + b*d*gZR*mZ**2 +2*b*d*gZR*p2p4) +mW**2*(a*c
     &  *gZL*(-mW**2 + mZ**2) +b*d*gZR*(-2*mW**2 + 3*mZ**2) +2*(a*c
     &  *gZL + 2*b*d*gZR)*p2p4)) +4*a*c*Epsp1p2p3p4*gZL*mW**3*wW -4*b*d
     &  *Epsp1p2p3p4*gZR*mW**3*wW -4*a*c*Epsp1p2p3p4*gZL*mW**2*mZ*wZ +4
     &  *b*d*Epsp1p2p3p4*gZR*mW**2*mZ*wZ -2*a*c*gZL*mW**5*mZ*wW*wZ -2*b
     &  *d*gZR*mW**5*mZ*wW*wZ +4*a*c*gZL*mW**3*mZ*p2p3*wW*wZ +4*a*c*gZL
     &  *mW**3*mZ*p2p4*wW*wZ +2*b*d*gZR*mW**3*mZ*p2p4*wW*wZ +4*b*d*gZR
     &  *mW*mZ*p2p3*p2p4*wW*wZ +4*p1p3*(4*(b*d*gZR*mW**2 + a*c*gZL
     &  *mZ**2 +(3*a*c*gZL + 2*b*d*gZR)*p2p3)*p2p4**2 +4*a*c*gZL
     &  *p2p4**3 +2*p1p4**2*(a*c*gZL*mW**2 + 2*b*d*gZR*mW**2 +a*c*gZL
     &  *mZ**2 +(4*a*c*gZL + 6*b*d*gZR)*p2p3 + 2*a*c*gZL*p2p4)+ mW**3
     &  *mZ*(a*c*gZL*mW*mZ + b*d*gZR*(-(mW*mZ) + wW*wZ)) +p2p4*((-2*a*c
     &  *gZL*(mW**2 - 2*mZ**2) +2*b*d*gZR*(mW**2 + 2*mZ**2))*p2p3 +4*(a
     &  *c*gZL + b*d*gZR)*p2p3**2 +mW*(b*d*gZR*mW*(-3*mW**2 + 4*mZ**2)
     &  +a*c*gZL*(mW**3 - mW*mZ**2 + mZ*wW*wZ))) +p1p4*(4*(a*c*gZL + b
     &  *d*gZR)*p2p3**2 +2*(5*b*d*gZR*mW**2 +a*c*gZL*(2*mW**2 + 3
     &  *mZ**2))*p2p4 +8*a*c*gZL*p2p4**2 +2*p2p3*(-(b*d*gZR*(mW**2 - 2
     &  *mZ**2)) +a*c*gZL*(mW**2 + 2*mZ**2) +10*(a*c*gZL + b*d*gZR)
     &  *p2p4) +mW*(-2*b*d*gZR*mW*(mW**2 - 2*mZ**2) +a*c*gZL*(2*mW**3
     &  + mW*mZ**2 + mZ*wW*wZ))))+ 2*p1p4*(4*p2p3**2*(2*a*c*gZL*mW**2
     &  + b*d*gZR*mZ**2 +6*b*d*gZR*p2p4) +2*p2p3*(2*(5*a*c*gZL*mW**2 +b
     &  *d*gZR*(2*mW**2 + 3*mZ**2))*p2p4 +4*b*d*gZR*p2p4**2 +mW*(a*c
     &  *gZL*mW*(-3*mW**2 + 4*mZ**2) +b*d*gZR*(mW**3 - mW*mZ**2 + mZ*wW
     &  *wZ))) +mW**2*(-2*(a*c*gZL + b*d*gZR)*(3*mW**2 - 4*mZ**2)*p2p4
     &  +4*(2*a*c*gZL + b*d*gZR)*p2p4**2 +mW*(a*c*gZL*(mW**3 - 3*mW
     &  *mZ**2 + mZ*wW*wZ) +b*d*gZR*(mW**3 - 4*mW*mZ**2 + 2*mZ*wW
     &  *wZ))))) + 2*mZ*(-4*b*d*gZR*mZ*p1p4**3*p2p3*(mW**2 + 2*p1p3 + 2
     &  *p2p3) +Epsp1p2p3p4*mW**2*((a*c*gZL - b*d*gZR)*mW**2 -2*(a*c
     &  *gZL + b*d*gZR)*p2p3 - 2*a*c*gZL*p2p4)*(mW*mZ*wW - 2*p2p4*wZ)
     &  -2*p1p3**2*p2p4*((-(a*c*gZL) + b*d*gZR)*mW**2 +2*(a*c*gZL + b*d
     &  *gZR)*p2p3 + 2*a*c*gZL*p2p4)*(2*mZ*p2p4 + mW*wW*wZ) +p1p3*(-4*a
     &  *c*gZL*mZ*(mW**2 + 2*p2p3)*p2p4**3 +2*Epsp1p2p3p4*(a*c*gZL + b
     &  *d*gZR)*mW**3*mZ*wW +mW*p2p4*(2*(a*c*gZL - b*d*gZR)*mW**2*p2p3
     &  *wW -4*(a*c*gZL + b*d*gZR)*p2p3**2*wW +(a*c*gZL + b*d*gZR)*mW*(
     &  -4*Epsp1p2p3p4 + mW**3*wW))*wZ +2*p2p4**2*(-4*(a*c*gZL + b*d
     &  *gZR)*mZ*p2p3**2 +mW**3*(b*d*gZR*mW*mZ + a*c*gZL*(mW*mZ - wW
     &  *wZ)) -2*mW*p2p3*(b*d*gZR*mW*mZ + a*c*gZL*(-(mW*mZ) + wW
     &  *wZ)))) + p1p4*(-2*p2p3**2*(((a*c*gZL - b*d*gZR)*mW**2 + 2*b*d
     &  *gZR*p2p4)*(2*mZ*p2p4 + mW*wW*wZ) +2*(a*c*gZL + b*d*gZR)*p1p3
     &  *(4*mZ*p2p4 + mW*wW*wZ)) +p2p3*(-4*(a*c*gZL + b*d*gZR)*p1p3**2
     &  *(4*mZ*p2p4 + mW*wW*wZ) -2*p1p3*(4*(2*a*c*gZL + b*d*gZR)*mZ
     &  *p2p4**2 +(a*c*gZL - b*d*gZR)*mW**3*wW*wZ +2*(a*c*gZL + b*d
     &  *gZR)*mW*p2p4*wW*wZ) +mW**2*(-4*(a*c*gZL + 2*b*d*gZR)*mZ
     &  *p2p4**2 +(a*c*gZL + b*d*gZR)*(4*Epsp1p2p3p4 + mW**3*wW)*wZ +2
     &  *mW*p2p4*(b*d*gZR*(mW*mZ - 2*wW*wZ) +a*c*gZL*(mW*mZ - wW
     &  *wZ)))) +2*(Epsp1p2p3p4*mW**2*(2*(a*c*gZL - b*d*gZR)*p2p4*wZ
     &  +mW*(-(a*c*gZL*mW*wZ) +b*d*gZR*(mZ*wW + mW*wZ))) +mW**2*p1p3*(
     &  -2*(3*a*c*gZL + b*d*gZR)*mZ*p2p4**2 -2*Epsp1p2p3p4*(a*c*gZL + b
     &  *d*gZR)*wZ +mW*p2p4*(a*c*gZL*(mW*mZ - 2*wW*wZ) +b*d*gZR*(mW*mZ
     &  - wW*wZ))) -2*p1p3**2*p2p4*(4*a*c*gZL*mZ*p2p4 +mW*(b*d*gZR*mW
     &  *mZ +a*c*gZL*(-(mW*mZ) + wW*wZ))))) +2*p1p4**2*(-2*((2*a*c*gZL
     &  + b*d*gZR)*mW**2*mZ*p1p3*p2p4 +2*a*c*gZL*mZ*p1p3**2*p2p4 +b*d
     &  *Epsp1p2p3p4*gZR*mW**2*wZ) -2*p2p3**2*(2*(a*c*gZL + b*d*gZR)*mZ
     &  *p1p3 +4*b*d*gZR*mZ*p2p4 +mW*(a*c*gZL*mW*mZ +b*d*gZR*(-(mW*mZ)
     &  + wW*wZ))) +p2p3*(-4*(a*c*gZL + b*d*gZR)*mZ*p1p3**2 +mW**2*(-2
     &  *(a*c*gZL + 3*b*d*gZR)*mZ*p2p4 +mW*(a*c*gZL*mW*mZ + b*d*gZR*(mW
     &  *mZ - wW*wZ)))- 2*p1p3*(2*(a*c*gZL + 2*b*d*gZR)*mZ*p2p4 +mW*(a
     &  *c*gZL*mW*mZ +b*d*gZR*(-(mW*mZ) + wW*wZ)))))) +p1p2*(8*b*d*gZR
     &  *p1p4**3*(mW**2 + 2*p2p3)*(mZ**2 + 2*p2p3) + 2*a*c*gZL*mW**6
     &  *mZ**2*p2p4 +2*b*d*gZR*mW**6*mZ**2*p2p4 -8*a*c*gZL*mW**4*mZ**2
     &  *p2p3*p2p4 +8*b*d*gZR*mW**4*mZ**2*p2p3*p2p4 +8*a*c*gZL*mW**2
     &  *mZ**2*p2p3**2*p2p4 +8*b*d*gZR*mW**2*mZ**2*p2p3**2*p2p4 -8*a*c
     &  *gZL*mW**4*mZ**2*p2p4**2 -4*b*d*gZR*mW**4*mZ**2*p2p4**2 +16*a*c
     &  *gZL*mW**2*mZ**2*p2p3*p2p4**2 +8*b*d*gZR*mW**2*mZ**2*p2p3
     &  *p2p4**2 +16*b*d*gZR*mZ**2*p2p3**2*p2p4**2 +8*a*c*gZL*mW**2
     &  *mZ**2*p2p4**3 -4*a*c*Epsp1p2p3p4*gZL*mW**5*wW +4*b*d
     &  *Epsp1p2p3p4*gZR*mW**5*wW +4*a*c*Epsp1p2p3p4*gZL*mW**3*mZ**2
     &  *wW -4*b*d*Epsp1p2p3p4*gZR*mW**3*mZ**2*wW +8*a*c*Epsp1p2p3p4
     &  *gZL*mW**3*p2p3*wW +8*b*d*Epsp1p2p3p4*gZR*mW**3*p2p3*wW +8*a*c
     &  *Epsp1p2p3p4*gZL*mW**3*p2p4*wW +4*a*c*Epsp1p2p3p4*gZL*mW**4*mZ
     &  *wZ -4*b*d*Epsp1p2p3p4*gZR*mW**4*mZ*wZ -8*a*c*Epsp1p2p3p4*gZL
     &  *mW**2*mZ*p2p3*wZ -8*b*d*Epsp1p2p3p4*gZR*mW**2*mZ*p2p3*wZ -16*a
     &  *c*Epsp1p2p3p4*gZL*mW**2*mZ*p2p4*wZ +8*b*d*Epsp1p2p3p4*gZR
     &  *mW**2*mZ*p2p4*wZ +a*c*gZL*mW**7*mZ*wW*wZ + b*d*gZR*mW**7*mZ*wW
     &  *wZ -4*a*c*gZL*mW**5*mZ*p2p3*wW*wZ +4*b*d*gZR*mW**5*mZ*p2p3*wW
     &  *wZ +4*a*c*gZL*mW**3*mZ*p2p3**2*wW*wZ +4*b*d*gZR*mW**3*mZ
     &  *p2p3**2*wW*wZ -4*a*c*gZL*mW**5*mZ*p2p4*wW*wZ -2*b*d*gZR*mW**5
     &  *mZ*p2p4*wW*wZ +8*a*c*gZL*mW**3*mZ*p2p3*p2p4*wW*wZ +4*b*d*gZR
     &  *mW**3*mZ*p2p3*p2p4*wW*wZ +8*b*d*gZR*mW*mZ*p2p3**2*p2p4*wW*wZ
     &  +4*a*c*gZL*mW**3*mZ*p2p4**2*wW*wZ +4*p1p3**2*((4*b*d*gZR*mW**2
     &  -4*a*c*gZL*(mW**2 - 2*mZ**2) +8*(a*c*gZL + b*d*gZR)*p2p3)
     &  *p2p4**2 +8*a*c*gZL*p2p4**3 +4*p1p4**2*(2*(a*c*gZL + b*d*gZR)
     &  *p2p3 +a*c*gZL*(mZ**2 + 2*p2p4)) +(a*c*gZL + b*d*gZR)*mW**3*mZ
     &  *wW*wZ +2*mZ*p2p4*(2*(a*c*gZL + b*d*gZR)*mZ*p2p3 +mW*(2*b*d*gZR
     &  *mW*mZ + a*c*gZL*wW*wZ)) +2*p1p4*((2*b*d*gZR*mW**2 -2*a*c*gZL
     &  *(mW**2 - 3*mZ**2))*p2p4 +8*a*c*gZL*p2p4**2 +2*(a*c*gZL + b*d
     &  *gZR)*p2p3*(mZ**2 + 4*p2p4) +mW*mZ*(b*d*gZR*mW*mZ + a*c*gZL*(mW
     &  *mZ + wW*wZ))))- 4*p1p4**2*(-4*p2p3**2*(a*c*gZL*mW**2 - b*d*gZR
     &  *(mW**2 - 2*mZ**2) +4*b*d*gZR*p2p4) +mW**2*mZ*(-2*(a*c*gZL + 2
     &  *b*d*gZR)*mZ*p2p4 +mW*(a*c*gZL*mW*mZ + b*d*gZR*(2*mW*mZ - wW
     &  *wZ))) + 2*p2p3*(-2*(a*c*gZL*mW**2 +b*d*gZR*(3*mW**2 + 2
     &  *mZ**2))*p2p4 +mW*(a*c*gZL*mW*(mW**2 - 2*mZ**2) +b*d*gZR
     &  *(mW**3 - mZ*wW*wZ)))) +2*p1p4*(4*p2p3**2*(2*(a*c*gZL*mW**2 - b
     &  *d*gZR*(mW**2 - 3*mZ**2))*p2p4 + 4*b*d*gZR*p2p4**2 +mW*mZ*(2*a
     &  *c*gZL*mW*mZ + b*d*gZR*wW*wZ)) +mW**2*(4*(2*a*c*gZL + b*d*gZR)
     &  *mZ**2*p2p4**2 -2*(a*c*gZL + b*d*gZR)*mW*mZ*p2p4*(3*mW*mZ - wW
     &  *wZ) -4*Epsp1p2p3p4*(a*c*gZL*mZ*wZ + b*d*gZR*(mW*wW - 2*mZ*wZ))
     &  + mW**3*mZ*(b*d*gZR*(mW*mZ - 2*wW*wZ) +a*c*gZL*(mW*mZ - wW
     &  *wZ))) +p2p3*(8*(a*c*gZL*mW**2 +b*d*gZR*(2*mW**2 + mZ**2))
     &  *p2p4**2 +2*mW**3*mZ*(b*d*gZR*(mW*mZ - wW*wZ) +a*c*gZL*(-3*mW
     &  *mZ + 2*wW*wZ)) -4*mW*p2p4*(a*c*gZL*mW*(mW**2 - 5*mZ**2) +b*d
     &  *gZR*(mW**3 - 2*mW*mZ**2 - mZ*wW*wZ))))+ 4*p1p3*(8*b*d*gZR
     &  *p1p4**3*p2p3 +4*a*c*gZL*(mW**2 + mZ**2 + 2*p2p3)*p2p4**3 +2
     &  *p1p4**2*((a*c*gZL + 2*b*d*gZR)*mW**2*mZ**2 +4*(a*c*gZL + b*d
     &  *gZR)*p2p3**2 +2*(b*d*gZR*mW**2 + a*c*gZL*(2*mW**2 + mZ**2))
     &  *p2p4 +2*p2p3*(-(b*d*gZR*(mW**2 - 3*mZ**2)) +a*c*gZL*(mW**2 + 2
     &  *mZ**2) +2*(a*c*gZL + 2*b*d*gZR)*p2p4)) +mW**2*((a*c*gZL - b*d
     &  *gZR)*mW**3*mZ*wW*wZ -2*Epsp1p2p3p4*(a*c*gZL + b*d*gZR)*(mW*wW
     &  - mZ*wZ)) +mZ*p2p4*(4*(a*c*gZL + b*d*gZR)*mZ*p2p3**2 +mW**3*(a
     &  *c*gZL*(mW*mZ - wW*wZ) +b*d*gZR*(-3*mW*mZ + 2*wW*wZ)) +2*mW
     &  *p2p3*(a*c*gZL*(-(mW*mZ) + 2*wW*wZ) +b*d*gZR*(mW*mZ + 2*wW
     &  *wZ))) +p2p4**2*((-4*a*c*gZL*(mW**2 - 3*mZ**2) +4*b*d*gZR
     &  *(mW**2 + 2*mZ**2))*p2p3 +8*(a*c*gZL + b*d*gZR)*p2p3**2 -2*mW
     &  *(b*d*gZR*mW*(mW**2 - 2*mZ**2) +a*c*gZL*(mW**3 - mZ*wW*wZ)))
     &  +p1p4*(4*(b*d*gZR*mW**2 +a*c*gZL*(3*mW**2 + 2*mZ**2))*p2p4**2
     &  +4*(a*c*gZL + b*d*gZR)*p2p3**2*(mZ**2 + 4*p2p4) +mW**3*mZ*(2*b
     &  *d*gZR*(-(mW*mZ) + wW*wZ) +a*c*gZL*(2*mW*mZ + wW*wZ)) -2*mW
     &  *p2p4*(b*d*gZR*mW*(mW**2 - 5*mZ**2) +a*c*gZL*(mW**3 - 2*mW
     &  *mZ**2 - mZ*wW*wZ)) +2*p2p3*(10*(a*c*gZL + b*d*gZR)*mZ**2*p2p4
     &  +4*(2*a*c*gZL + b*d*gZR)*p2p4**2 +mW*mZ*(b*d*gZR*(-(mW*mZ) + 2
     &  *wW*wZ) +a*c*gZL*(mW*mZ + 2*wW*wZ))))))))/(mW**2*p1p2*(p1p2
     &  - p1p3 - p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB15
        dsig = dsig + (-2*ee*g2**2*gWWA*gZnuL*(16*(a*c*gZL + b*d*gZR)
     &  *mW**2*p1p2**5 +8*p1p2**4*(2*a*c*gZL*mW**4 + 2*b*d*gZR*mW**4 -a
     &  *c*gZL*mW**2*mZ**2 - b*d*gZR*mW**2*mZ**2 -4*a*c*gZL*mW**2*p2p3
     &  +2*b*d*gZR*p1p4*(-3*mW**2 + 2*p2p3) -6*a*c*gZL*mW**2*p2p4 + 4*b
     &  *d*gZR*p2p3*p2p4 +4*p1p3*(-(b*d*gZR*mW**2) + a*c*gZL*p1p4 +a*c
     &  *gZL*p2p4)) +4*p1p2**3*(a*c*gZL*mW**6 + b*d*gZR*mW**6 -2*a*c
     &  *gZL*mW**4*mZ**2 - 2*b*d*gZR*mW**4*mZ**2 -4*a*c*gZL*mW**4*p2p3
     &  + 4*b*d*gZR*mW**4*p2p3 +4*a*c*gZL*mW**2*mZ**2*p2p3 +4*a*c*gZL
     &  *mW**2*p2p3**2 + 4*b*d*gZR*mW**2*p2p3**2 -12*p1p4**2*((a*c*gZL
     &  - b*d*gZR)*mW**2 +2*b*d*gZR*p2p3) - 8*a*c*gZL*mW**4*p2p4 -2*b*d
     &  *gZR*mW**4*p2p4 + 6*a*c*gZL*mW**2*mZ**2*p2p4 +16*a*c*gZL*mW**2
     &  *p2p3*p2p4 -4*b*d*gZR*mW**2*p2p3*p2p4 -4*b*d*gZR*mZ**2*p2p3
     &  *p2p4 -8*b*d*gZR*p2p3**2*p2p4 + 12*a*c*gZL*mW**2*p2p4**2 -12*b
     &  *d*gZR*mW**2*p2p4**2 -16*b*d*gZR*p2p3*p2p4**2 +4*p1p3**2*((a*c
     &  *gZL + b*d*gZR)*mW**2 -2*a*c*gZL*p1p4 - 2*a*c*gZL*p2p4) +4*p1p3
     &  *(a*c*gZL*mW**4 - b*d*gZR*mW**4 +b*d*gZR*mW**2*mZ**2 - 4*a*c
     &  *gZL*p1p4**2 +(a*c*gZL*(mW**2 - mZ**2) -4*(a*c*gZL + b*d*gZR)
     &  *p2p3)*p2p4 -6*a*c*gZL*p2p4**2 -p1p4*(a*c*gZL*mW**2 - 4*b*d*gZR
     &  *mW**2 +a*c*gZL*mZ**2 + 4*(a*c*gZL + b*d*gZR)*p2p3 +10*a*c*gZL
     &  *p2p4)) -2*p1p4*(4*b*d*gZR*p2p3**2 +2*b*d*gZR*p2p3*(-mW**2
     &  + mZ**2 + 10*p2p4) +mW**2*(a*c*gZL*mW**2 +b*d*gZR*(4*mW**2 - 3
     &  *mZ**2) +4*(a*c*gZL + b*d*gZR)*p2p4)) +a*c*gZL*mW**3*mZ*wW*wZ
     &  + b*d*gZR*mW**3*mZ*wW*wZ) +2*p1p2**2*(-(a*c*gZL*mW**6*mZ**2) -b
     &  *d*gZR*mW**6*mZ**2 + 4*a*c*gZL*mW**4*mZ**2*p2p3 -4*b*d*gZR
     &  *mW**4*mZ**2*p2p3 -4*a*c*gZL*mW**2*mZ**2*p2p3**2 -4*b*d*gZR
     &  *mW**2*mZ**2*p2p3**2 +8*p1p4**3*((2*a*c*gZL - b*d*gZR)*mW**2 +6
     &  *b*d*gZR*p2p3) - 2*a*c*gZL*mW**6*p2p4 -2*b*d*gZR*mW**6*p2p4 + 8
     &  *a*c*gZL*mW**4*mZ**2*p2p4 +2*b*d*gZR*mW**4*mZ**2*p2p4 +8*a*c
     &  *gZL*mW**4*p2p3*p2p4 -8*b*d*gZR*mW**4*p2p3*p2p4 -16*a*c*gZL
     &  *mW**2*mZ**2*p2p3*p2p4 +4*b*d*gZR*mW**2*mZ**2*p2p3*p2p4 -8*a*c
     &  *gZL*mW**2*p2p3**2*p2p4 -8*b*d*gZR*mW**2*p2p3**2*p2p4 +8*b*d
     &  *gZR*mZ**2*p2p3**2*p2p4 +8*a*c*gZL*mW**4*p2p4**2 - 4*b*d*gZR
     &  *mW**4*p2p4**2 -12*a*c*gZL*mW**2*mZ**2*p2p4**2 +12*b*d*gZR
     &  *mW**2*mZ**2*p2p4**2 -16*a*c*gZL*mW**2*p2p3*p2p4**2 +8*b*d*gZR
     &  *mW**2*p2p3*p2p4**2 +16*b*d*gZR*mZ**2*p2p3*p2p4**2 +16*b*d*gZR
     &  *p2p3**2*p2p4**2 -8*a*c*gZL*mW**2*p2p4**3 +16*b*d*gZR*mW**2
     &  *p2p4**3 +16*b*d*gZR*p2p3*p2p4**3 -4*p1p3**2*((a*c*gZL + b*d
     &  *gZR)*mW**2*mZ**2 -4*a*c*gZL*p1p4**2 +(2*a*c*gZL*(2*mW**2
     &  - mZ**2) -4*(a*c*gZL + b*d*gZR)*p2p3)*p2p4 -8*a*c*gZL*p2p4**2
     &  +2*p1p4*(a*c*gZL*mW**2 + b*d*gZR*mW**2 -a*c*gZL*mZ**2 - 2*(a*c
     &  *gZL + b*d*gZR)*p2p3 -6*a*c*gZL*p2p4)) -4*p1p4**2*(-8*b*d*gZR
     &  *p2p3**2 -2*p2p3*(4*a*c*gZL*mW**2 +b*d*gZR*(-2*mW**2 + 3
     &  *mZ**2) + 14*b*d*gZR*p2p4) + mW**2*(a*c*gZL*(mW**2 - 3*mZ**2)
     &  +b*d*gZR*(-2*mW**2 + 3*mZ**2) -2*(7*a*c*gZL + 4*b*d*gZR)
     &  *p2p4)) +4*a*c*Epsp1p2p3p4*gZL*mW**3*wW -4*b*d*Epsp1p2p3p4*gZR
     &  *mW**3*wW -4*a*c*Epsp1p2p3p4*gZL*mW**2*mZ*wZ +4*b*d*Epsp1p2p3p4
     &  *gZR*mW**2*mZ*wZ +2*a*c*gZL*mW**5*mZ*wW*wZ +2*b*d*gZR*mW**5*mZ
     &  *wW*wZ -4*a*c*gZL*mW**3*mZ*p2p3*wW*wZ -4*a*c*gZL*mW**3*mZ*p2p4
     &  *wW*wZ +2*b*d*gZR*mW**3*mZ*p2p4*wW*wZ +4*b*d*gZR*mW*mZ*p2p3
     &  *p2p4*wW*wZ +4*p1p3*(4*a*c*gZL*p1p4**3 +(-4*a*c*gZL*mW**2 + 8*b
     &  *d*gZR*mW**2 +6*a*c*gZL*mZ**2 +4*(4*a*c*gZL + 3*b*d*gZR)*p2p3)
     &  *p2p4**2 +12*a*c*gZL*p2p4**3 +2*p1p4**2*(a*c*gZL*mW**2 - 2*b*d
     &  *gZR*mW**2 +2*a*c*gZL*mZ**2 +(6*a*c*gZL + 8*b*d*gZR)*p2p3 + 10
     &  *a*c*gZL*p2p4) - mW**3*mZ*(a*c*gZL*mW*mZ + b*d*gZR*(-(mW*mZ)
     &  + wW*wZ)) +p2p4*((-2*a*c*gZL*(mW**2 - 2*mZ**2) +2*b*d*gZR
     &  *(mW**2 + 2*mZ**2))*p2p3 +4*(a*c*gZL + b*d*gZR)*p2p3**2 +mW*(b
     &  *d*gZR*mW**3 +a*c*gZL*(-3*mW**3 - mW*mZ**2 + mZ*wW*wZ)))+ p1p4
     &  *(4*(a*c*gZL + b*d*gZR)*p2p3**2 +2*(3*b*d*gZR*mW**2 + 5*a*c*gZL
     &  *mZ**2)*p2p4 +28*a*c*gZL*p2p4**2 +2*p2p3*(-(b*d*gZR*(mW**2 - 2
     &  *mZ**2)) +a*c*gZL*(mW**2 + 2*mZ**2) +14*(a*c*gZL + b*d*gZR)
     &  *p2p4) +mW*(2*b*d*gZR*mW*(mW**2 - 2*mZ**2) +a*c*gZL*(-2*mW**3
     &  + mW*mZ**2 + mZ*wW*wZ))))+ 2*p1p4*(4*b*d*gZR*p2p3**2*(-2*mW**2
     &  + mZ**2 + 6*p2p4) +2*p2p3*(2*(3*a*c*gZL*mW**2 + 5*b*d*gZR
     &  *mZ**2)*p2p4 + 20*b*d*gZR*p2p4**2 +mW*(a*c*gZL*mW**3 +b*d*gZR*(
     &  -3*mW**3 - mW*mZ**2 + mZ*wW*wZ)))+ mW**2*(-2*(a*c*gZL + b*d
     &  *gZR)*(mW**2 - 2*mZ**2)*p2p4 + 4*(4*a*c*gZL + 7*b*d*gZR)
     &  *p2p4**2 +mW*(a*c*gZL*(-mW**3 + mW*mZ**2 + mZ*wW*wZ) -b*d*gZR
     &  *(mW**3 - 4*mW*mZ**2 + 2*mZ*wW*wZ))))) + 2*mZ*(8*b*d*gZR*mZ
     &  *p1p4**4*p2p3 -Epsp1p2p3p4*mW**2*((a*c*gZL - b*d*gZR)*mW**2 -2
     &  *(a*c*gZL + b*d*gZR)*p2p3 - 2*a*c*gZL*p2p4)*(mW*mZ*wW - 2*p2p4
     &  *wZ) +2*p1p3**2*p2p4*((-(a*c*gZL) + b*d*gZR)*mW**2 +2*(a*c*gZL
     &  + b*d*gZR)*p2p3 + 2*a*c*gZL*p2p4)*(2*mZ*p2p4 + mW*wW*wZ) +4
     &  *p1p4**3*(2*b*d*gZR*mZ*p2p3**2 +2*mZ*((a*c*gZL + b*d*gZR)
     &  *mW**2 + a*c*gZL*p1p3)*p2p4 + p2p3*(2*(a*c*gZL + 2*b*d*gZR)*mZ
     &  *p1p3 +6*b*d*gZR*mZ*p2p4 +mW*(2*a*c*gZL*mW*mZ +b*d*gZR*(-(mW
     &  *mZ) + wW*wZ)))) +p1p3*(8*a*c*gZL*mZ*p2p4**4 -2*Epsp1p2p3p4*(a
     &  *c*gZL + b*d*gZR)*mW**3*mZ*wW +mW*p2p4*(2*(-(a*c*gZL) + b*d
     &  *gZR)*mW**2*p2p3*wW + 4*(a*c*gZL + b*d*gZR)*p2p3**2*wW -(a*c
     &  *gZL + b*d*gZR)*mW*(-4*Epsp1p2p3p4 + mW**3*wW))*wZ +p2p4**3*(8
     &  *(2*a*c*gZL + b*d*gZR)*mZ*p2p3 +4*mW*(2*b*d*gZR*mW*mZ +a*c*gZL
     &  *(-(mW*mZ) + wW*wZ))) +p2p4**2*(8*(a*c*gZL + b*d*gZR)*mZ
     &  *p2p3**2 -2*mW**3*(b*d*gZR*(mW*mZ - 2*wW*wZ) +a*c*gZL*(mW*mZ
     &  + wW*wZ)) +4*mW*p2p3*(b*d*gZR*(mW*mZ + wW*wZ) +a*c*gZL*(-(mW
     &  *mZ) + 2*wW*wZ)))) +p1p4*(2*p2p3**2*(((a*c*gZL - b*d*gZR)
     &  *mW**2 + 2*b*d*gZR*p2p4)*(2*mZ*p2p4 + mW*wW*wZ) +2*(a*c*gZL + b
     &  *d*gZR)*p1p3*(4*mZ*p2p4 + mW*wW*wZ)) +p2p3*(8*b*d*gZR*mZ
     &  *p2p4**3 -(a*c*gZL + b*d*gZR)*mW**2*(4*Epsp1p2p3p4 + mW**3*wW)
     &  *wZ +4*mW*p2p4**2*(3*a*c*gZL*mW*mZ + b*d*gZR*wW*wZ) +4*(a*c
     &  *gZL + b*d*gZR)*p1p3**2*(4*mZ*p2p4 + mW*wW*wZ) +2*p1p3*(4*(5*a
     &  *c*gZL + 4*b*d*gZR)*mZ*p2p4**2 +(a*c*gZL - b*d*gZR)*mW**3*wW
     &  *wZ +6*(a*c*gZL + b*d*gZR)*mW*p2p4*wW*wZ) -2*mW**3*p2p4*(b*d
     &  *gZR*mW*mZ + a*c*gZL*(mW*mZ - 3*wW*wZ)))- 2*(-4*mZ*((a*c*gZL
     &  + b*d*gZR)*mW**2 + 3*a*c*gZL*p1p3)*p2p4**3 +Epsp1p2p3p4*mW**2*(
     &  -2*(a*c*gZL + b*d*gZR)*p1p3*wZ +mW*(-(a*c*gZL*mW*wZ) +b*d*gZR
     &  *(mZ*wW + mW*wZ))) +2*p2p4**2*(-4*a*c*gZL*mZ*p1p3**2 +(a*c*gZL
     &  + b*d*gZR)*mW**3*(mW*mZ - wW*wZ) +mW*p1p3*(-5*b*d*gZR*mW*mZ +a
     &  *c*gZL*(mW*mZ - 2*wW*wZ))) +mW*p2p4*(mW*(2*Epsp1p2p3p4*(a*c
     &  *gZL - b*d*gZR) +(a*c*gZL + b*d*gZR)*mW**3*wW)*wZ +mW**2*p1p3
     &  *(a*c*gZL*mW*mZ +b*d*gZR*(mW*mZ - 3*wW*wZ)) -2*p1p3**2*(b*d*gZR
     &  *mW*mZ +a*c*gZL*(-(mW*mZ) + wW*wZ))))) +2*p1p4**2*(2*p2p3**2*(2
     &  *(a*c*gZL + b*d*gZR)*mZ*p1p3 +4*b*d*gZR*mZ*p2p4 +mW*(a*c*gZL*mW
     &  *mZ +b*d*gZR*(-(mW*mZ) + wW*wZ))) +2*(2*mZ*(2*(a*c*gZL + b*d
     &  *gZR)*mW**2 +3*a*c*gZL*p1p3)*p2p4**2 +b*d*Epsp1p2p3p4*gZR*mW**2
     &  *wZ +p2p4*(2*a*c*gZL*mZ*p1p3**2 -(a*c*gZL + b*d*gZR)*mW**3*(mW
     &  *mZ - wW*wZ) +mW*p1p3*(3*b*d*gZR*mW*mZ + a*c*gZL*wW*wZ)))+ p2p3
     &  *(4*(a*c*gZL + b*d*gZR)*mZ*p1p3**2 +12*b*d*gZR*mZ*p2p4**2
     &  -mW**3*(a*c*gZL*(mW*mZ - 2*wW*wZ) +b*d*gZR*(mW*mZ + wW*wZ)) +2
     &  *mW*p2p4*(5*a*c*gZL*mW*mZ +b*d*gZR*(-(mW*mZ) + 2*wW*wZ)) +2
     &  *p1p3*(2*(4*a*c*gZL + 5*b*d*gZR)*mZ*p2p4 +mW*(a*c*gZL*(mW*mZ
     &  + wW*wZ) +b*d*gZR*(-(mW*mZ) + 2*wW*wZ)))))) +p1p2*(-32*b*d*gZR
     &  *p1p4**4*p2p3 +2*a*c*gZL*mW**6*mZ**2*p2p4 +2*b*d*gZR*mW**6
     &  *mZ**2*p2p4 -8*a*c*gZL*mW**4*mZ**2*p2p3*p2p4 +8*b*d*gZR*mW**4
     &  *mZ**2*p2p3*p2p4 +8*a*c*gZL*mW**2*mZ**2*p2p3**2*p2p4 +8*b*d*gZR
     &  *mW**2*mZ**2*p2p3**2*p2p4 -8*a*c*gZL*mW**4*mZ**2*p2p4**2 +4*b*d
     &  *gZR*mW**4*mZ**2*p2p4**2 +16*a*c*gZL*mW**2*mZ**2*p2p3*p2p4**2
     &  -8*b*d*gZR*mW**2*mZ**2*p2p3*p2p4**2 -16*b*d*gZR*mZ**2*p2p3**2
     &  *p2p4**2 +8*a*c*gZL*mW**2*mZ**2*p2p4**3 -16*b*d*gZR*mW**2*mZ**2
     &  *p2p4**3 -16*b*d*gZR*mZ**2*p2p3*p2p4**3 -8*p1p4**3*(4*b*d*gZR
     &  *p2p3**2 +2*p2p3*(2*a*c*gZL*mW**2 -b*d*gZR*(mW**2 - 3*mZ**2)
     &  + 6*b*d*gZR*p2p4) +mW**2*((2*a*c*gZL - b*d*gZR)*mZ**2 +4*(a*c
     &  *gZL + b*d*gZR)*p2p4)) +4*a*c*Epsp1p2p3p4*gZL*mW**5*wW -4*b*d
     &  *Epsp1p2p3p4*gZR*mW**5*wW -4*a*c*Epsp1p2p3p4*gZL*mW**3*mZ**2
     &  *wW +4*b*d*Epsp1p2p3p4*gZR*mW**3*mZ**2*wW -8*a*c*Epsp1p2p3p4
     &  *gZL*mW**3*p2p3*wW -8*b*d*Epsp1p2p3p4*gZR*mW**3*p2p3*wW -8*a*c
     &  *Epsp1p2p3p4*gZL*mW**3*p2p4*wW -4*a*c*Epsp1p2p3p4*gZL*mW**4*mZ
     &  *wZ +4*b*d*Epsp1p2p3p4*gZR*mW**4*mZ*wZ +8*a*c*Epsp1p2p3p4*gZL
     &  *mW**2*mZ*p2p3*wZ +8*b*d*Epsp1p2p3p4*gZR*mW**2*mZ*p2p3*wZ +16*a
     &  *c*Epsp1p2p3p4*gZL*mW**2*mZ*p2p4*wZ -8*b*d*Epsp1p2p3p4*gZR
     &  *mW**2*mZ*p2p4*wZ +a*c*gZL*mW**7*mZ*wW*wZ + b*d*gZR*mW**7*mZ*wW
     &  *wZ -4*a*c*gZL*mW**5*mZ*p2p3*wW*wZ +4*b*d*gZR*mW**5*mZ*p2p3*wW
     &  *wZ +4*a*c*gZL*mW**3*mZ*p2p3**2*wW*wZ +4*b*d*gZR*mW**3*mZ
     &  *p2p3**2*wW*wZ -4*a*c*gZL*mW**5*mZ*p2p4*wW*wZ +2*b*d*gZR*mW**5
     &  *mZ*p2p4*wW*wZ +8*a*c*gZL*mW**3*mZ*p2p3*p2p4*wW*wZ -4*b*d*gZR
     &  *mW**3*mZ*p2p3*p2p4*wW*wZ -8*b*d*gZR*mW*mZ*p2p3**2*p2p4*wW*wZ
     &  +4*a*c*gZL*mW**3*mZ*p2p4**2*wW*wZ -8*b*d*gZR*mW**3*mZ*p2p4**2
     &  *wW*wZ -8*b*d*gZR*mW*mZ*p2p3*p2p4**2*wW*wZ +4*p1p3**2*(4*(-(b*d
     &  *gZR*mW**2) + a*c*gZL*(mW**2 - 2*mZ**2) -2*(a*c*gZL + b*d*gZR)
     &  *p2p3)*p2p4**2 -8*a*c*gZL*p2p4**3 -4*p1p4**2*(2*(a*c*gZL + b*d
     &  *gZR)*p2p3 +a*c*gZL*(mZ**2 + 2*p2p4)) +(a*c*gZL + b*d*gZR)
     &  *mW**3*mZ*wW*wZ +2*mZ*p2p4*(-2*(a*c*gZL + b*d*gZR)*mZ*p2p3 +a*c
     &  *gZL*mW*(2*mW*mZ - wW*wZ)) +2*p1p4*(2*(-(b*d*gZR*mW**2) +a*c
     &  *gZL*(mW**2 - 3*mZ**2))*p2p4 -8*a*c*gZL*p2p4**2 -2*(a*c*gZL + b
     &  *d*gZR)*p2p3*(mZ**2 + 4*p2p4) +mW*mZ*(b*d*gZR*mW*mZ + a*c*gZL
     &  *(mW*mZ - wW*wZ))))+ 2*p1p4*(4*p2p3**2*(-2*(a*c*gZL*mW**2 - b*d
     &  *gZR*(mW**2 - 3*mZ**2))*p2p4 - 4*b*d*gZR*p2p4**2 +b*d*gZR*mW*mZ
     &  *(2*mW*mZ - wW*wZ)) +mW**2*(4*(b*d*gZR*(2*mW**2 - 7*mZ**2) +2*a
     &  *c*gZL*(mW**2 - 2*mZ**2))*p2p4**2 -16*(a*c*gZL + b*d*gZR)
     &  *p2p4**3 +2*(a*c*gZL + b*d*gZR)*mW*mZ*p2p4*(mW*mZ - 3*wW*wZ) +4
     &  *Epsp1p2p3p4*(a*c*gZL*mZ*wZ + b*d*gZR*(mW*wW - 2*mZ*wZ))+ mW**3
     &  *mZ*(b*d*gZR*(mW*mZ - 2*wW*wZ) +a*c*gZL*(mW*mZ + wW*wZ))) -2
     &  *p2p3*(4*(3*a*c*gZL*mW**2 + 5*b*d*gZR*mZ**2)*p2p4**2 + 8*b*d
     &  *gZR*p2p4**3 +mW**3*mZ*(-(b*d*gZR*(3*mW*mZ + wW*wZ)) +a*c*gZL
     &  *(mW*mZ + 2*wW*wZ)) -2*mW*p2p4*(a*c*gZL*mW*(mW**2 - 3*mZ**2) +b
     &  *d*gZR*(mW**3 - 3*mZ*wW*wZ)))) +4*p1p4**2*(-4*p2p3**2*(a*c*gZL
     &  *mW**2 - b*d*gZR*(mW**2 - 2*mZ**2) +4*b*d*gZR*p2p4) +mW**2*(2
     &  *(a*c*gZL*(2*mW**2 - 7*mZ**2) +2*b*d*gZR*(mW**2 - 2*mZ**2))
     &  *p2p4 -16*(a*c*gZL + b*d*gZR)*p2p4**2 +mW*mZ*(a*c*gZL*(mW*mZ
     &  - 2*wW*wZ) +b*d*gZR*(-2*mW*mZ + wW*wZ))) +2*p2p3*(-2*(5*a*c*gZL
     &  *mW**2 -b*d*gZR*(mW**2 - 7*mZ**2))*p2p4 -12*b*d*gZR*p2p4**2 +mW
     &  *(a*c*gZL*mW*(mW**2 - 4*mZ**2) +b*d*gZR*(mW**3 + 2*mW*mZ**2 - 2
     &  *mZ*wW*wZ)))) + 4*p1p3*(4*(-2*b*d*gZR*mW**2 + a*c*gZL*(mW**2
     &  - 3*mZ**2) -2*(2*a*c*gZL + b*d*gZR)*p2p3)*p2p4**3 -8*a*c*gZL
     &  *p2p4**4 -4*p1p4**3*(2*(a*c*gZL + 2*b*d*gZR)*p2p3 +a*c*gZL
     &  *(mZ**2 + 2*p2p4)) +mW**2*((a*c*gZL - b*d*gZR)*mW**3*mZ*wW*wZ
     &  +2*Epsp1p2p3p4*(a*c*gZL + b*d*gZR)*(mW*wW - mZ*wZ)) -2*p1p4**2
     &  *(4*(a*c*gZL + b*d*gZR)*p2p3**2 +2*(3*b*d*gZR*mW**2 + 5*a*c*gZL
     &  *mZ**2)*p2p4 +12*a*c*gZL*p2p4**2 +2*p2p3*(-(b*d*gZR*(mW**2 - 4
     &  *mZ**2)) +a*c*gZL*(mW**2 + 3*mZ**2) +2*(4*a*c*gZL + 5*b*d*gZR)
     &  *p2p4) +mW*mZ*(-2*b*d*gZR*mW*mZ + a*c*gZL*(mW*mZ + wW*wZ)))+ mZ
     &  *p2p4*(-4*(a*c*gZL + b*d*gZR)*mZ*p2p3**2 +2*mW*p2p3*(a*c*gZL
     &  *(mW*mZ - 2*wW*wZ) -b*d*gZR*(mW*mZ + 2*wW*wZ)) +mW**3*(a*c*gZL
     &  *(3*mW*mZ + wW*wZ) -b*d*gZR*(mW*mZ + 2*wW*wZ))) +2*p2p4**2*(2
     &  *(a*c*gZL*(mW**2 - 4*mZ**2) -b*d*gZR*(mW**2 + 3*mZ**2))*p2p3 -4
     &  *(a*c*gZL + b*d*gZR)*p2p3**2 +mW*(b*d*gZR*mW*(mW**2 - 4*mZ**2)
     &  +a*c*gZL*(mW**3 + 2*mW*mZ**2 - 2*mZ*wW*wZ)))+ p1p4*(4*(-5*b*d
     &  *gZR*mW**2 +a*c*gZL*(mW**2 - 7*mZ**2))*p2p4**2 -24*a*c*gZL
     &  *p2p4**3 -4*(a*c*gZL + b*d*gZR)*p2p3**2*(mZ**2 + 4*p2p4) +mW**3
     &  *mZ*(a*c*gZL*(2*mW*mZ - wW*wZ) +2*b*d*gZR*(-(mW*mZ) + wW*wZ))
     &  +2*mW*p2p4*(b*d*gZR*mW*(mW**2 - 3*mZ**2) +a*c*gZL*(mW**3 - 3*mZ
     &  *wW*wZ)) -2*p2p3*(14*(a*c*gZL + b*d*gZR)*mZ**2*p2p4 +4*(5*a*c
     &  *gZL + 4*b*d*gZR)*p2p4**2 +mW*mZ*(b*d*gZR*(-(mW*mZ) + 2*wW*wZ)
     &  +a*c*gZL*(mW*mZ + 2*wW*wZ))))))))/(mW**2*p1p2*(-p1p2 + p1p3
     &  + p1p4 + p2p3 + p2p4)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB16
        dsig = dsig + (2*a*c*ee*g2**4*gWWA*(4*mW**2*p1p2**3 +4*mW**2
     &  *p1p2**2*(mW**2 + p1p4 - 2*p2p3 - 2*p2p4) -2*mW**2*p1p3*(mW**2
     &  + 2*p1p3)*p2p4 +8*(mW**2 + p1p3)*p1p4**2*(p2p3 + p2p4) -2*p1p4
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*(mW**2*p2p3 + 2*(mW**2 + p1p3)
     &  *p2p4) +p1p2*(4*mW**2*p1p3**2 +mW**2*(-8*p1p4**2 +2*p1p4
     &  *(mW**2 - 4*p2p3 - 6*p2p4) +(mW**2 - 2*p2p3 - 2*p2p4)**2) +4
     &  *p1p3*(mW**4 - 2*p1p4**2 - 2*p1p4*p2p4))))/(mW**2*p1p2*(mW**2
     &  - 2*p1p4)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8
     &  *p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* BB22
        dsig = dsig + -((ee**4*g2**2*(2*b*d*p1p4*p2p3**2*(mW**2
     &  + p2p3) -2*p1p2**3*(a*c*p1p3 + b*d*p2p3) +2*p1p3**3*((a*c + b
     &  *d)*p2p3 + a*c*p2p4) +2*p1p3**2*(b*d*p1p4*p2p3 + 2*(a*c + b*d)
     &  *p2p3**2 +a*c*mW**2*p2p4 + 2*a*c*p2p3*p2p4) +p1p3*p2p3*(2*(a*c
     &  + b*d)*p2p3**2 +2*b*d*p1p4*(mW**2 + 2*p2p3) + 2*a*c*p2p3*p2p4
     &  -mW**2*((a*c + b*d)*mW**2 - 2*a*c*p2p4)) +2*p1p2**2*(2*a*c
     &  *p1p3**2 +b*d*p2p3*(p1p4 + 2*p2p3) +p1p3*(3*(a*c + b*d)*p2p3
     &  + a*c*p2p4)) +p1p2*(-2*a*c*p1p3**3 +b*d*p2p3*(mW**4 - 2
     &  *p2p3**2 -2*p1p4*(mW**2 + 2*p2p3)) -2*p1p3**2*((4*a*c + 3*b*d)
     &  *p2p3 + 2*a*c*p2p4) +p1p3*(-4*b*d*p1p4*p2p3 -2*(3*a*c + 4*b*d)
     &  *p2p3**2 +a*c*mW**2*(mW**2 - 2*p2p4) - 4*a*c*p2p3*p2p4))))
     &  /(mW**2*p1p2**2*(-p1p2 + p1p3 + p2p3)**2))
 
* BB23
        dsig = dsig + (-2*ee**2*g2**2*gWWZ*(-16*(a*c*gZL + b*d*gZR)
     &  *mW**2*p1p2**5 -8*p1p2**4*(2*a*c*gZL*mW**4 + 2*b*d*gZR*mW**4 -a
     &  *c*gZL*mW**2*mZ**2 - b*d*gZR*mW**2*mZ**2 -4*a*c*gZL*mW**2*p2p3
     &  -2*p1p4*((2*a*c*gZL + 3*b*d*gZR)*mW**2 +2*b*d*gZR*p2p3) - 6*a*c
     &  *gZL*mW**2*p2p4 -4*b*d*gZR*mW**2*p2p4 - 4*b*d*gZR*p2p3*p2p4 -4
     &  *p1p3*(b*d*gZR*mW**2 + a*c*gZL*p1p4 + a*c*gZL*p2p4)) - 4
     &  *p1p2**3*(a*c*gZL*mW**6 + b*d*gZR*mW**6 -2*a*c*gZL*mW**4*mZ**2
     &  - 2*b*d*gZR*mW**4*mZ**2 -4*a*c*gZL*mW**4*p2p3 + 4*b*d*gZR*mW**4
     &  *p2p3 +4*a*c*gZL*mW**2*mZ**2*p2p3 +4*a*c*gZL*mW**2*p2p3**2 + 4
     &  *b*d*gZR*mW**2*p2p3**2 +4*p1p4**2*((a*c*gZL + 3*b*d*gZR)*mW**2
     &  +4*b*d*gZR*p2p3) - 8*a*c*gZL*mW**4*p2p4 -6*b*d*gZR*mW**4*p2p4
     &  + 6*a*c*gZL*mW**2*mZ**2*p2p4 +4*b*d*gZR*mW**2*mZ**2*p2p4 +16*a
     &  *c*gZL*mW**2*p2p3*p2p4 +4*b*d*gZR*mW**2*p2p3*p2p4 +4*b*d*gZR
     &  *mZ**2*p2p3*p2p4 +8*b*d*gZR*p2p3**2*p2p4 + 12*a*c*gZL*mW**2
     &  *p2p4**2 +4*b*d*gZR*mW**2*p2p4**2 + 8*b*d*gZR*p2p3*p2p4**2 +4
     &  *p1p3**2*((a*c*gZL + b*d*gZR)*mW**2 +2*a*c*gZL*p1p4 + 2*a*c*gZL
     &  *p2p4) +4*p1p3*(a*c*gZL*mW**4 - b*d*gZR*mW**4 +b*d*gZR*mW**2
     &  *mZ**2 + 2*a*c*gZL*p1p4**2 +(4*b*d*gZR*mW**2 + a*c*gZL*(-mW**2
     &  + mZ**2) +4*(a*c*gZL + b*d*gZR)*p2p3)*p2p4 +4*a*c*gZL*p2p4**2
     &  +p1p4*(a*c*gZL*mW**2 + 4*b*d*gZR*mW**2 +a*c*gZL*mZ**2 + 4*(a*c
     &  *gZL + b*d*gZR)*p2p3 +6*a*c*gZL*p2p4)) +2*p1p4*(4*b*d*gZR
     &  *p2p3**2 +2*p2p3*(4*a*c*gZL*mW**2 +b*d*gZR*(-mW**2 + mZ**2) + 6
     &  *b*d*gZR*p2p4) +mW**2*(a*c*gZL*(-3*mW**2 + 2*mZ**2) +b*d*gZR*(
     &  -4*mW**2 + 3*mZ**2) +8*(a*c*gZL + b*d*gZR)*p2p4)) -a*c*gZL
     &  *mW**3*mZ*wW*wZ - b*d*gZR*mW**3*mZ*wW*wZ) +2*p1p2**2*(a*c*gZL
     &  *mW**6*mZ**2 + b*d*gZR*mW**6*mZ**2 -4*a*c*gZL*mW**4*mZ**2*p2p3
     &  +4*b*d*gZR*mW**4*mZ**2*p2p3 +4*a*c*gZL*mW**2*mZ**2*p2p3**2 +4*b
     &  *d*gZR*mW**2*mZ**2*p2p3**2 +8*b*d*gZR*p1p4**3*(mW**2 + 2*p2p3)
     &  +2*a*c*gZL*mW**6*p2p4 + 2*b*d*gZR*mW**6*p2p4 -8*a*c*gZL*mW**4
     &  *mZ**2*p2p4 -6*b*d*gZR*mW**4*mZ**2*p2p4 -8*a*c*gZL*mW**4*p2p3
     &  *p2p4 +8*b*d*gZR*mW**4*p2p3*p2p4 +16*a*c*gZL*mW**2*mZ**2*p2p3
     &  *p2p4 +4*b*d*gZR*mW**2*mZ**2*p2p3*p2p4 +8*a*c*gZL*mW**2*p2p3**2
     &  *p2p4 +8*b*d*gZR*mW**2*p2p3**2*p2p4 +8*b*d*gZR*mZ**2*p2p3**2
     &  *p2p4 -8*a*c*gZL*mW**4*p2p4**2 - 4*b*d*gZR*mW**4*p2p4**2 +12*a
     &  *c*gZL*mW**2*mZ**2*p2p4**2 +4*b*d*gZR*mW**2*mZ**2*p2p4**2 +16*a
     &  *c*gZL*mW**2*p2p3*p2p4**2 +8*b*d*gZR*mW**2*p2p3*p2p4**2 +8*b*d
     &  *gZR*mZ**2*p2p3*p2p4**2 +16*b*d*gZR*p2p3**2*p2p4**2 +8*a*c*gZL
     &  *mW**2*p2p4**3 +4*p1p3**2*((a*c*gZL + b*d*gZR)*mW**2*mZ**2 +4*a
     &  *c*gZL*p1p4**2 +2*(2*b*d*gZR*mW**2 + a*c*gZL*mZ**2 +2*(a*c*gZL
     &  + b*d*gZR)*p2p3)*p2p4 +8*a*c*gZL*p2p4**2 +2*p1p4*(a*c*gZL
     &  *mW**2 + b*d*gZR*mW**2 +a*c*gZL*mZ**2 + 2*(a*c*gZL + b*d*gZR)
     &  *p2p3 +6*a*c*gZL*p2p4)) +4*p1p4**2*(8*b*d*gZR*p2p3**2 +4*p2p3
     &  *(a*c*gZL*mW**2 + b*d*gZR*mZ**2 +2*b*d*gZR*p2p4) +mW**2*(a*c
     &  *gZL*(-mW**2 + mZ**2) +b*d*gZR*(-2*mW**2 + 3*mZ**2) +2*(a*c
     &  *gZL + 2*b*d*gZR)*p2p4)) +4*a*c*Epsp1p2p3p4*gZL*mW**3*wW -4*b*d
     &  *Epsp1p2p3p4*gZR*mW**3*wW +4*a*c*Epsp1p2p3p4*gZL*mW**2*mZ*wZ -4
     &  *b*d*Epsp1p2p3p4*gZR*mW**2*mZ*wZ +2*a*c*gZL*mW**5*mZ*wW*wZ +2*b
     &  *d*gZR*mW**5*mZ*wW*wZ -4*a*c*gZL*mW**3*mZ*p2p3*wW*wZ -4*a*c*gZL
     &  *mW**3*mZ*p2p4*wW*wZ -2*b*d*gZR*mW**3*mZ*p2p4*wW*wZ -4*b*d*gZR
     &  *mW*mZ*p2p3*p2p4*wW*wZ +4*p1p3*(4*(b*d*gZR*mW**2 + a*c*gZL
     &  *mZ**2 +(3*a*c*gZL + 2*b*d*gZR)*p2p3)*p2p4**2 +4*a*c*gZL
     &  *p2p4**3 +2*p1p4**2*(a*c*gZL*mW**2 + 2*b*d*gZR*mW**2 +a*c*gZL
     &  *mZ**2 +(4*a*c*gZL + 6*b*d*gZR)*p2p3 + 2*a*c*gZL*p2p4)+ mW**3
     &  *mZ*(a*c*gZL*mW*mZ - b*d*gZR*(mW*mZ + wW*wZ)) +p2p4*((-2*a*c
     &  *gZL*(mW**2 - 2*mZ**2) +2*b*d*gZR*(mW**2 + 2*mZ**2))*p2p3 +4*(a
     &  *c*gZL + b*d*gZR)*p2p3**2 +mW*(b*d*gZR*mW*(-3*mW**2 + 4*mZ**2)
     &  +a*c*gZL*(mW**3 - mW*mZ**2 - mZ*wW*wZ))) +p1p4*(4*(a*c*gZL + b
     &  *d*gZR)*p2p3**2 +2*(5*b*d*gZR*mW**2 +a*c*gZL*(2*mW**2 + 3
     &  *mZ**2))*p2p4 +8*a*c*gZL*p2p4**2 +2*p2p3*(-(b*d*gZR*(mW**2 - 2
     &  *mZ**2)) +a*c*gZL*(mW**2 + 2*mZ**2) +10*(a*c*gZL + b*d*gZR)
     &  *p2p4) +mW*(-2*b*d*gZR*mW*(mW**2 - 2*mZ**2) +a*c*gZL*(2*mW**3
     &  + mW*mZ**2 - mZ*wW*wZ))))+ 2*p1p4*(4*p2p3**2*(2*a*c*gZL*mW**2
     &  + b*d*gZR*mZ**2 +6*b*d*gZR*p2p4) +mW**2*(-2*(a*c*gZL + b*d*gZR)
     &  *(3*mW**2 - 4*mZ**2)*p2p4 +4*(2*a*c*gZL + b*d*gZR)*p2p4**2 +mW
     &  *(b*d*gZR*(mW**3 - 4*mW*mZ**2 - 2*mZ*wW*wZ) +a*c*gZL*(mW**3 - 3
     &  *mW*mZ**2 - mZ*wW*wZ)))+ p2p3*(4*(5*a*c*gZL*mW**2 +b*d*gZR*(2
     &  *mW**2 + 3*mZ**2))*p2p4 +8*b*d*gZR*p2p4**2 -2*mW*(a*c*gZL*mW*(3
     &  *mW**2 - 4*mZ**2) +b*d*gZR*(-mW**3 + mW*mZ**2 + mZ*wW*wZ)))))
     &  + p1p2*(-8*b*d*gZR*p1p4**3*(mW**2 + 2*p2p3)*(mZ**2 + 2*p2p3)
     &  - 2*a*c*gZL*mW**6*mZ**2*p2p4 -2*b*d*gZR*mW**6*mZ**2*p2p4 +8*a*c
     &  *gZL*mW**4*mZ**2*p2p3*p2p4 -8*b*d*gZR*mW**4*mZ**2*p2p3*p2p4 -8
     &  *a*c*gZL*mW**2*mZ**2*p2p3**2*p2p4 -8*b*d*gZR*mW**2*mZ**2
     &  *p2p3**2*p2p4 +8*a*c*gZL*mW**4*mZ**2*p2p4**2 +4*b*d*gZR*mW**4
     &  *mZ**2*p2p4**2 -16*a*c*gZL*mW**2*mZ**2*p2p3*p2p4**2 -8*b*d*gZR
     &  *mW**2*mZ**2*p2p3*p2p4**2 -16*b*d*gZR*mZ**2*p2p3**2*p2p4**2 -8
     &  *a*c*gZL*mW**2*mZ**2*p2p4**3 +4*a*c*Epsp1p2p3p4*gZL*mW**5*wW -4
     &  *b*d*Epsp1p2p3p4*gZR*mW**5*wW -4*a*c*Epsp1p2p3p4*gZL*mW**3
     &  *mZ**2*wW +4*b*d*Epsp1p2p3p4*gZR*mW**3*mZ**2*wW -8*a*c
     &  *Epsp1p2p3p4*gZL*mW**3*p2p3*wW -8*b*d*Epsp1p2p3p4*gZR*mW**3
     &  *p2p3*wW -8*a*c*Epsp1p2p3p4*gZL*mW**3*p2p4*wW +4*a*c
     &  *Epsp1p2p3p4*gZL*mW**4*mZ*wZ -4*b*d*Epsp1p2p3p4*gZR*mW**4*mZ
     &  *wZ -8*a*c*Epsp1p2p3p4*gZL*mW**2*mZ*p2p3*wZ -8*b*d*Epsp1p2p3p4
     &  *gZR*mW**2*mZ*p2p3*wZ -16*a*c*Epsp1p2p3p4*gZL*mW**2*mZ*p2p4*wZ
     &  +8*b*d*Epsp1p2p3p4*gZR*mW**2*mZ*p2p4*wZ +a*c*gZL*mW**7*mZ*wW
     &  *wZ + b*d*gZR*mW**7*mZ*wW*wZ -4*a*c*gZL*mW**5*mZ*p2p3*wW*wZ +4
     &  *b*d*gZR*mW**5*mZ*p2p3*wW*wZ +4*a*c*gZL*mW**3*mZ*p2p3**2*wW*wZ
     &  +4*b*d*gZR*mW**3*mZ*p2p3**2*wW*wZ -4*a*c*gZL*mW**5*mZ*p2p4*wW
     &  *wZ -2*b*d*gZR*mW**5*mZ*p2p4*wW*wZ +8*a*c*gZL*mW**3*mZ*p2p3
     &  *p2p4*wW*wZ +4*b*d*gZR*mW**3*mZ*p2p3*p2p4*wW*wZ +8*b*d*gZR*mW
     &  *mZ*p2p3**2*p2p4*wW*wZ +4*a*c*gZL*mW**3*mZ*p2p4**2*wW*wZ +4
     &  *p1p3**2*(4*(-(b*d*gZR*mW**2) + a*c*gZL*(mW**2 - 2*mZ**2) -2*(a
     &  *c*gZL + b*d*gZR)*p2p3)*p2p4**2 -8*a*c*gZL*p2p4**3 -4*p1p4**2
     &  *(2*(a*c*gZL + b*d*gZR)*p2p3 +a*c*gZL*(mZ**2 + 2*p2p4)) +(a*c
     &  *gZL + b*d*gZR)*mW**3*mZ*wW*wZ -2*mZ*p2p4*(2*(a*c*gZL + b*d
     &  *gZR)*mZ*p2p3 +mW*(2*b*d*gZR*mW*mZ - a*c*gZL*wW*wZ)) -2*p1p4
     &  *((2*b*d*gZR*mW**2 -2*a*c*gZL*(mW**2 - 3*mZ**2))*p2p4 +8*a*c
     &  *gZL*p2p4**2 +2*(a*c*gZL + b*d*gZR)*p2p3*(mZ**2 + 4*p2p4) +mW
     &  *mZ*(b*d*gZR*mW*mZ + a*c*gZL*(mW*mZ - wW*wZ))))+ 4*p1p4**2*(-4
     &  *p2p3**2*(a*c*gZL*mW**2 - b*d*gZR*(mW**2 - 2*mZ**2) +4*b*d*gZR
     &  *p2p4) +mW**2*mZ*(-2*(a*c*gZL + 2*b*d*gZR)*mZ*p2p4 +mW*(a*c*gZL
     &  *mW*mZ + b*d*gZR*(2*mW*mZ + wW*wZ))) + 2*p2p3*(-2*(a*c*gZL
     &  *mW**2 +b*d*gZR*(3*mW**2 + 2*mZ**2))*p2p4 +mW*(a*c*gZL*mW
     &  *(mW**2 - 2*mZ**2) +b*d*gZR*(mW**3 + mZ*wW*wZ)))) -2*p1p4*(4
     &  *p2p3**2*(2*(a*c*gZL*mW**2 - b*d*gZR*(mW**2 - 3*mZ**2))*p2p4
     &  + 4*b*d*gZR*p2p4**2 +mW*mZ*(2*a*c*gZL*mW*mZ - b*d*gZR*wW*wZ))
     &  +mW**2*(4*(2*a*c*gZL + b*d*gZR)*mZ**2*p2p4**2 -2*(a*c*gZL + b*d
     &  *gZR)*mW*mZ*p2p4*(3*mW*mZ + wW*wZ) -4*Epsp1p2p3p4*(-(a*c*gZL*mZ
     &  *wZ) +b*d*gZR*(mW*wW + 2*mZ*wZ)) +mW**3*mZ*(a*c*gZL*(mW*mZ + wW
     &  *wZ) +b*d*gZR*(mW*mZ + 2*wW*wZ))) +2*p2p3*(4*(a*c*gZL*mW**2 + b
     &  *d*gZR*(2*mW**2 + mZ**2))*p2p4**2 +mW**3*mZ*(b*d*gZR*(mW*mZ
     &  + wW*wZ) -a*c*gZL*(3*mW*mZ + 2*wW*wZ)) -2*mW*p2p4*(a*c*gZL*mW
     &  *(mW**2 - 5*mZ**2) +b*d*gZR*(mW**3 - 2*mW*mZ**2 + mZ*wW*wZ))))
     &  + 4*p1p3*(-8*b*d*gZR*p1p4**3*p2p3 -4*a*c*gZL*(mW**2 + mZ**2 + 2
     &  *p2p3)*p2p4**3 -2*p1p4**2*((a*c*gZL + 2*b*d*gZR)*mW**2*mZ**2 +4
     &  *(a*c*gZL + b*d*gZR)*p2p3**2 +2*(b*d*gZR*mW**2 + a*c*gZL*(2
     &  *mW**2 + mZ**2))*p2p4 +2*p2p3*(-(b*d*gZR*(mW**2 - 3*mZ**2)) +a
     &  *c*gZL*(mW**2 + 2*mZ**2) +2*(a*c*gZL + 2*b*d*gZR)*p2p4)) +mW**2
     &  *((a*c*gZL - b*d*gZR)*mW**3*mZ*wW*wZ +2*Epsp1p2p3p4*(a*c*gZL
     &  + b*d*gZR)*(mW*wW + mZ*wZ)) -mZ*p2p4*(4*(a*c*gZL + b*d*gZR)*mZ
     &  *p2p3**2 -2*mW*p2p3*(b*d*gZR*(-(mW*mZ) + 2*wW*wZ) +a*c*gZL*(mW
     &  *mZ + 2*wW*wZ)) +mW**3*(a*c*gZL*(mW*mZ + wW*wZ) -b*d*gZR*(3*mW
     &  *mZ + 2*wW*wZ))) +2*p2p4**2*(2*(a*c*gZL*(mW**2 - 3*mZ**2) -b*d
     &  *gZR*(mW**2 + 2*mZ**2))*p2p3 -4*(a*c*gZL + b*d*gZR)*p2p3**2 +mW
     &  *(b*d*gZR*mW*(mW**2 - 2*mZ**2) +a*c*gZL*(mW**3 + mZ*wW*wZ)))
     &  -p1p4*(4*(b*d*gZR*mW**2 +a*c*gZL*(3*mW**2 + 2*mZ**2))*p2p4**2
     &  +4*(a*c*gZL + b*d*gZR)*p2p3**2*(mZ**2 + 4*p2p4) +mW**3*mZ*(a*c
     &  *gZL*(2*mW*mZ - wW*wZ) -2*b*d*gZR*(mW*mZ + wW*wZ)) -2*mW*p2p4
     &  *(b*d*gZR*mW*(mW**2 - 5*mZ**2) +a*c*gZL*(mW**3 - 2*mW*mZ**2
     &  + mZ*wW*wZ)) +2*p2p3*(10*(a*c*gZL + b*d*gZR)*mZ**2*p2p4 +4*(2*a
     &  *c*gZL + b*d*gZR)*p2p4**2 +mW*mZ*(a*c*gZL*(mW*mZ - 2*wW*wZ) -b
     &  *d*gZR*(mW*mZ + 2*wW*wZ)))))) -2*mZ*(-4*b*d*gZR*mZ*p1p4**3*p2p3
     &  *(mW**2 + 2*p1p3 + 2*p2p3) +Epsp1p2p3p4*mW**2*((a*c*gZL - b*d
     &  *gZR)*mW**2 -2*(a*c*gZL + b*d*gZR)*p2p3 - 2*a*c*gZL*p2p4)*(mW
     &  *mZ*wW + 2*p2p4*wZ) -2*p1p3**2*p2p4*((-(a*c*gZL) + b*d*gZR)
     &  *mW**2 +2*(a*c*gZL + b*d*gZR)*p2p3 + 2*a*c*gZL*p2p4)*(2*mZ
     &  *p2p4 - mW*wW*wZ) +p1p3*(-4*a*c*gZL*mZ*(mW**2 + 2*p2p3)
     &  *p2p4**3 +2*Epsp1p2p3p4*(a*c*gZL + b*d*gZR)*mW**3*mZ*wW +mW
     &  *p2p4*(2*(-(a*c*gZL) + b*d*gZR)*mW**2*p2p3*wW + 4*(a*c*gZL + b
     &  *d*gZR)*p2p3**2*wW -(a*c*gZL + b*d*gZR)*mW*(-4*Epsp1p2p3p4
     &  + mW**3*wW))*wZ +2*p2p4**2*(-4*(a*c*gZL + b*d*gZR)*mZ*p2p3**2
     &  +2*mW*p2p3*(-(b*d*gZR*mW*mZ) + a*c*gZL*(mW*mZ + wW*wZ))+ mW**3
     &  *(b*d*gZR*mW*mZ + a*c*gZL*(mW*mZ + wW*wZ))))+ 2*p1p4**2*(-2*((2
     &  *a*c*gZL + b*d*gZR)*mW**2*mZ*p1p3*p2p4 +2*a*c*gZL*mZ*p1p3**2
     &  *p2p4 -b*d*Epsp1p2p3p4*gZR*mW**2*wZ) -2*p2p3**2*(2*(a*c*gZL + b
     &  *d*gZR)*mZ*p1p3 +4*b*d*gZR*mZ*p2p4 +mW*(a*c*gZL*mW*mZ - b*d*gZR
     &  *(mW*mZ + wW*wZ)))+ p2p3*(-4*(a*c*gZL + b*d*gZR)*mZ*p1p3**2 -2
     &  *p1p3*(2*(a*c*gZL + 2*b*d*gZR)*mZ*p2p4 +mW*(a*c*gZL*mW*mZ - b*d
     &  *gZR*(mW*mZ + wW*wZ)))+ mW**2*(-2*(a*c*gZL + 3*b*d*gZR)*mZ
     &  *p2p4 +mW*(a*c*gZL*mW*mZ + b*d*gZR*(mW*mZ + wW*wZ))))) + p1p4
     &  *(2*p2p3**2*(2*(a*c*gZL + b*d*gZR)*p1p3*(-4*mZ*p2p4 + mW*wW
     &  *wZ) +((a*c*gZL - b*d*gZR)*mW**2 + 2*b*d*gZR*p2p4)*(-2*mZ*p2p4
     &  + mW*wW*wZ)) +2*(Epsp1p2p3p4*mW**2*(p2p4*(-2*a*c*gZL*wZ + 2*b*d
     &  *gZR*wZ) +mW*(a*c*gZL*mW*wZ + b*d*gZR*(mZ*wW - mW*wZ)))+ 2
     &  *p1p3**2*p2p4*(-4*a*c*gZL*mZ*p2p4 +mW*(-(b*d*gZR*mW*mZ) +a*c
     &  *gZL*(mW*mZ + wW*wZ))) +mW**2*p1p3*(-2*(3*a*c*gZL + b*d*gZR)*mZ
     &  *p2p4**2 +2*Epsp1p2p3p4*(a*c*gZL + b*d*gZR)*wZ +mW*p2p4*(b*d
     &  *gZR*(mW*mZ + wW*wZ) +a*c*gZL*(mW*mZ + 2*wW*wZ)))) -p2p3*(-4*(a
     &  *c*gZL + b*d*gZR)*p1p3**2*(-4*mZ*p2p4 + mW*wW*wZ) -2*p1p3*(-4
     &  *(2*a*c*gZL + b*d*gZR)*mZ*p2p4**2 +(a*c*gZL - b*d*gZR)*mW**3*wW
     &  *wZ +2*(a*c*gZL + b*d*gZR)*mW*p2p4*wW*wZ) +mW**2*(4*(a*c*gZL
     &  + 2*b*d*gZR)*mZ*p2p4**2 +(a*c*gZL + b*d*gZR)*(4*Epsp1p2p3p4
     &  + mW**3*wW)*wZ -2*mW*p2p4*(a*c*gZL*(mW*mZ + wW*wZ) +b*d*gZR*(mW
     &  *mZ + 2*wW*wZ))))))))/(mW**2*p1p2*(p1p2 - p1p3 - p2p3)*(4
     &  *p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4
     &  + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2
     &  + mZ**2*wZ**2))
 
* BB24
        dsig = dsig + (4*ee**2*g2**2*gZL*(mZ**2 - 2*p1p2)*(2*b*d*gZR
     &  *p1p4*p2p3**2*(mW**2 + p2p3) -2*p1p2**3*(a*c*gZL*p1p3 + b*d*gZR
     &  *p2p3) +2*p1p3**3*((a*c*gZL + b*d*gZR)*p2p3 + a*c*gZL*p2p4) +2
     &  *p1p3**2*(b*d*gZR*p1p4*p2p3 +2*(a*c*gZL + b*d*gZR)*p2p3**2 +a*c
     &  *gZL*mW**2*p2p4 + 2*a*c*gZL*p2p3*p2p4) +p1p3*p2p3*(2*(a*c*gZL
     &  + b*d*gZR)*p2p3**2 +2*b*d*gZR*p1p4*(mW**2 + 2*p2p3) +2*a*c*gZL
     &  *p2p3*p2p4 -mW**2*((a*c*gZL + b*d*gZR)*mW**2 - 2*a*c*gZL*p2p4))
     &  + 2*p1p2**2*(2*a*c*gZL*p1p3**2 +b*d*gZR*p2p3*(p1p4 + 2*p2p3)
     &  +p1p3*(3*(a*c*gZL + b*d*gZR)*p2p3 + a*c*gZL*p2p4)) +p1p2*(-2*a
     &  *c*gZL*p1p3**3 +b*d*gZR*p2p3*(mW**4 - 2*p2p3**2 - 2*p1p4
     &  *(mW**2 + 2*p2p3)) -2*p1p3**2*((4*a*c*gZL + 3*b*d*gZR)*p2p3 +2
     &  *a*c*gZL*p2p4) +p1p3*(-4*b*d*gZR*p1p4*p2p3 -2*(3*a*c*gZL + 4*b
     &  *d*gZR)*p2p3**2 +a*c*gZL*mW**2*(mW**2 - 2*p2p4) -4*a*c*gZL*p2p3
     &  *p2p4))))/(mW**2*p1p2*(-p1p2 + p1p3 + p2p3)**2*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB25
        dsig = dsig + -((ee**2*g2**2*gZnuL*(-8*p1p2**4*((a*c*gZL + b*d
     &  *gZR)*mW**2 +2*a*c*gZL*p1p3 + 2*b*d*gZR*p2p3) +4*p1p2**3*(-2*a
     &  *c*gZL*mW**4 - 2*b*d*gZR*mW**4 +a*c*gZL*mW**2*mZ**2 + b*d*gZR
     &  *mW**2*mZ**2 +8*a*c*gZL*p1p3**2 + 4*a*c*gZL*mW**2*p2p3 +2*b*d
     &  *gZR*mZ**2*p2p3 + 8*b*d*gZR*p2p3**2 +2*p1p4*((a*c*gZL + 2*b*d
     &  *gZR)*mW**2 +4*b*d*gZR*p2p3) + 4*a*c*gZL*mW**2*p2p4 +2*b*d*gZR
     &  *mW**2*p2p4 + 4*b*d*gZR*p2p3*p2p4 +2*p1p3*(2*b*d*gZR*mW**2 + a
     &  *c*gZL*mZ**2 +2*a*c*gZL*p1p4 + 6*(a*c*gZL + b*d*gZR)*p2p3 +4*a
     &  *c*gZL*p2p4)) -2*p1p2**2*(a*c*gZL*mW**6 + b*d*gZR*mW**6 -2*a*c
     &  *gZL*mW**4*mZ**2 - 2*b*d*gZR*mW**4*mZ**2 +8*a*c*gZL*p1p3**3 - 4
     &  *a*c*gZL*mW**4*p2p3 +4*a*c*gZL*mW**2*mZ**2*p2p3 +4*a*c*gZL
     &  *mW**2*p2p3**2 +4*b*d*gZR*mW**2*p2p3**2 +8*b*d*gZR*mZ**2
     &  *p2p3**2 + 8*b*d*gZR*p2p3**3 +4*b*d*gZR*p1p4**2*(mW**2 + 2
     &  *p2p3) -4*a*c*gZL*mW**4*p2p4 - 2*b*d*gZR*mW**4*p2p4 +4*a*c*gZL
     &  *mW**2*mZ**2*p2p4 +2*b*d*gZR*mW**2*mZ**2*p2p4 +8*a*c*gZL*mW**2
     &  *p2p3*p2p4 +4*b*d*gZR*mW**2*p2p3*p2p4 +4*b*d*gZR*mZ**2*p2p3
     &  *p2p4 +8*b*d*gZR*p2p3**2*p2p4 +4*a*c*gZL*mW**2*p2p4**2 +4
     &  *p1p3**2*(a*c*gZL*mW**2 + b*d*gZR*mW**2 +2*a*c*gZL*mZ**2 + 2*a
     &  *c*gZL*p1p4 +(8*a*c*gZL + 6*b*d*gZR)*p2p3 + 6*a*c*gZL*p2p4)
     &  + p1p4*(24*b*d*gZR*p2p3**2 +4*p2p3*(2*a*c*gZL*mW**2 +b*d*gZR
     &  *(mW**2 + 2*mZ**2) + 2*b*d*gZR*p2p4)+ 2*mW**2*(-((a*c*gZL + 2*b
     &  *d*gZR)*(mW**2 - mZ**2)) +2*(a*c*gZL + b*d*gZR)*p2p4)) +4*p1p3
     &  *(-(b*d*gZR*mW**4) + b*d*gZR*mW**2*mZ**2 +(6*a*c*gZL + 8*b*d
     &  *gZR)*p2p3**2 +a*c*gZL*mW**2*p2p4 + 2*b*d*gZR*mW**2*p2p4 +2*a*c
     &  *gZL*mZ**2*p2p4 + 2*a*c*gZL*p2p4**2 +p1p4*(a*c*gZL*mW**2 + 2*b
     &  *d*gZR*mW**2 +a*c*gZL*mZ**2 +4*(a*c*gZL + 2*b*d*gZR)*p2p3 +2*a
     &  *c*gZL*p2p4) +p2p3*(3*(a*c*gZL + b*d*gZR)*mZ**2 +4*(2*a*c*gZL
     &  + b*d*gZR)*p2p4))) +p1p2*(4*b*d*gZR*p1p4**2*(mW**2 + 2*p2p3)
     &  *(mZ**2 + 2*p2p3) +8*p1p3**3*(2*(a*c*gZL + b*d*gZR)*p2p3 +a*c
     &  *gZL*(mZ**2 + 2*p2p4)) +2*p1p4*(8*b*d*gZR*p2p3**3 +4*p2p3**2*(a
     &  *c*gZL*mW**2 + b*d*gZR*(mW**2 + 3*mZ**2) +2*b*d*gZR*p2p4)
     &  +mW**2*mZ**2*(-((a*c*gZL + 2*b*d*gZR)*mW**2) +2*(a*c*gZL + b*d
     &  *gZR)*p2p4) +p2p3*(-2*mW**2*(a*c*gZL*(mW**2 - 2*mZ**2) +b*d*gZR
     &  *(mW**2 - mZ**2)) +4*(a*c*gZL*mW**2 +b*d*gZR*(2*mW**2 + mZ**2))
     &  *p2p4)) +4*p1p3**2*(a*c*gZL*mW**2*mZ**2 + b*d*gZR*mW**2*mZ**2
     &  +8*(a*c*gZL + b*d*gZR)*p2p3**2 +2*a*c*gZL*mW**2*p2p4 + 2*b*d
     &  *gZR*mW**2*p2p4 +6*a*c*gZL*mZ**2*p2p4 + 4*a*c*gZL*p2p4**2 +2
     &  *p2p3*((4*a*c*gZL + 3*b*d*gZR)*mZ**2 +2*(3*a*c*gZL + b*d*gZR)
     &  *p2p4) +2*p1p4*(2*(a*c*gZL + 2*b*d*gZR)*p2p3 +a*c*gZL*(mZ**2
     &  + 2*p2p4))) +4*p1p3*(-(b*d*gZR*mW**4*mZ**2) +4*b*d*gZR*p1p4**2
     &  *p2p3 +4*(a*c*gZL + b*d*gZR)*p2p3**3 -a*c*gZL*mW**4*p2p4 - b*d
     &  *gZR*mW**4*p2p4 +a*c*gZL*mW**2*mZ**2*p2p4 +2*b*d*gZR*mW**2
     &  *mZ**2*p2p4 +2*a*c*gZL*mW**2*p2p4**2 +2*a*c*gZL*mZ**2*p2p4**2
     &  +p2p3**2*(2*(3*a*c*gZL + 4*b*d*gZR)*mZ**2 +4*(2*a*c*gZL + b*d
     &  *gZR)*p2p4) +p2p3*(-2*(a*c*gZL + b*d*gZR)*mW**4 +2*(b*d*gZR
     &  *(mW**2 + 2*mZ**2) +a*c*gZL*(mW**2 + 4*mZ**2))*p2p4 +4*a*c*gZL
     &  *p2p4**2) +p1p4*((a*c*gZL + 2*b*d*gZR)*mW**2*mZ**2 +4*(a*c*gZL
     &  + 3*b*d*gZR)*p2p3**2 +2*(b*d*gZR*mW**2 +a*c*gZL*(2*mW**2
     &  + mZ**2))*p2p4 +2*p2p3*(a*c*gZL*(mW**2 + 2*mZ**2) +b*d*gZR
     &  *(mW**2 + 4*mZ**2) +2*(a*c*gZL + b*d*gZR)*p2p4))) +mZ*(8*b*d
     &  *gZR*mZ*p2p3**3 +4*mZ*p2p3**2*((a*c*gZL + b*d*gZR)*mW**2 + 2*b
     &  *d*gZR*p2p4)+ 4*mW**2*mZ*p2p3*(-(a*c*gZL*mW**2) +(2*a*c*gZL + b
     &  *d*gZR)*p2p4) +mW**2*((a*c*gZL + b*d*gZR)*mW**4*mZ -2*(2*a*c
     &  *gZL + b*d*gZR)*mW**2*mZ*p2p4 +4*a*c*gZL*mZ*p2p4**2 +4
     &  *Epsp1p2p3p4*(a*c*gZL - b*d*gZR)*wZ))) +2*mZ*(-2*b*d*gZR*mZ
     &  *p1p4**2*p2p3*(mW**2 + 2*p2p3) -4*mZ*p1p3**3*((a*c*gZL + b*d
     &  *gZR)*p2p3 + a*c*gZL*p2p4) -2*mZ*p1p3**2*(4*(a*c*gZL + b*d*gZR)
     &  *p2p3**2 +2*(3*a*c*gZL + b*d*gZR)*p2p3*p2p4 +2*p1p4*((a*c*gZL
     &  + 2*b*d*gZR)*p2p3 + a*c*gZL*p2p4) +p2p4*((a*c*gZL + b*d*gZR)
     &  *mW**2 +2*a*c*gZL*p2p4)) +Epsp1p2p3p4*mW**2*((a*c*gZL - b*d
     &  *gZR)*mW**2 -2*(a*c*gZL + b*d*gZR)*p2p3 - 2*a*c*gZL*p2p4)*wZ
     &  + p1p4*(-4*b*d*gZR*mZ*p2p3**3 -2*mZ*p2p3**2*((a*c*gZL + b*d
     &  *gZR)*mW**2 + 2*b*d*gZR*p2p4)+ mW**2*mZ*p2p3*((a*c*gZL + b*d
     &  *gZR)*mW**2 -2*(a*c*gZL + 2*b*d*gZR)*p2p4) +2*b*d*Epsp1p2p3p4
     &  *gZR*mW**2*wZ) +p1p3*(-4*(a*c*gZL + b*d*gZR)*mZ*p2p3**3 -4*mZ
     &  *p2p3**2*((a*c*gZL + 3*b*d*gZR)*p1p4 +(2*a*c*gZL + b*d*gZR)
     &  *p2p4) +2*mZ*p2p3*((a*c*gZL + b*d*gZR)*mW**4 -2*b*d*gZR
     &  *p1p4**2 -(a*c*gZL + b*d*gZR)*mW**2*p2p4 -2*a*c*gZL*p2p4**2 -(a
     &  *c*gZL + b*d*gZR)*p1p4*(mW**2 + 2*p2p4))+ mW**2*(mZ*((a*c*gZL
     &  + b*d*gZR)*mW**2 -2*(2*a*c*gZL + b*d*gZR)*p1p4)*p2p4 -2*a*c*gZL
     &  *mZ*p2p4**2 +2*Epsp1p2p3p4*(a*c*gZL + b*d*gZR)*wZ)))))/(mW**2
     &  *p1p2*(p1p2 - p1p3 - p2p3)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)
     &  *(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2)))
 
* BB26
        dsig = dsig + (-2*a*c*ee**2*g2**4*(4*mW**2*p1p2**4 +4*p1p2**3*(
     &  -(p1p3*(mW**2 + 2*p1p4)) +mW**2*(mW**2 - 2*p1p4 - 2*p2p3 - 3
     &  *p2p4)) +4*p1p3**2*(p1p4 + p2p4)*(-((mW**2 - 2*p1p4)*p2p3) + 2
     &  *p1p4*p2p4) +p1p2**2*(4*(mW**2 + 2*p1p3)*p1p4**2 +mW**2*(mW**4
     &  + 4*p2p3**2 -4*p2p3*(mW**2 - 2*p1p3 - 4*p2p4) +(-8*mW**2 + 12
     &  *p1p3)*p2p4 + 12*p2p4**2) +2*p1p4*(4*p1p3**2 +4*p1p3*(mW**2 + 2
     &  *p2p3 + 2*p2p4) +mW**2*(-3*mW**2 + 8*p2p3 + 8*p2p4))) -mW**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*(2*p1p4**2*p2p3 + 2*p1p4*p2p3*p2p4
     &  +Epsp1p2p3p4*mW*wW) +p1p3*(4*p1p4**2*(2*p2p3**2 + 2*mW**2*p2p4
     &  + p2p3*(mW**2 + 2*p2p4))+ p1p4*(-2*mW**2*(mW**2 - 6*p2p4)*p2p4
     &  +4*p2p3**2*(mW**2 + 2*p2p4) -4*p2p3*(mW**4 - 3*mW**2*p2p4 - 2
     &  *p2p4**2)) -2*mW**2*(-2*p2p3**2*p2p4 +2*p2p3*(mW**2 - 2*p2p4)
     &  *p2p4 + mW**2*p2p4**2 -2*p2p4**3 + Epsp1p2p3p4*mW*wW)) -p1p2
     &  *(p1p4**2*(8*p1p3**2 -2*mW**2*(mW**2 - 4*p2p3 - 2*p2p4) +4*p1p3
     &  *(mW**2 + 4*p2p3 + 2*p2p4)) +p1p4*(mW**6 + 8*(mW**2 + p1p3)
     &  *p2p3**2 +(-6*mW**4 + 20*mW**2*p1p3 + 16*p1p3**2)*p2p4 +8
     &  *(mW**2 + p1p3)*p2p4**2 +p2p3*(-6*mW**4 + 8*p1p3**2 + 20*mW**2
     &  *p2p4 +12*p1p3*(mW**2 + 2*p2p4))) +mW**2*(-4*p1p3**2*p2p3
     &  + (mW**2 - 2*p2p3)**2*p2p4 -4*(mW**2 - 2*p2p3)*p2p4**2 + 4
     &  *p2p4**3 -2*p1p3*(-2*p2p3**2 + 2*p2p3*(mW**2 - 4*p2p4) +(mW**2
     &  - 6*p2p4)*p2p4) + 2*Epsp1p2p3p4*mW*wW))))/(mW**2*p1p2*(mW**2
     &  - 2*p1p4)*(p1p2 - p1p3 - p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4
     &  *p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* BB33
        dsig = dsig + (-8*g2**2*gWWZ**2*(4*(a*c*gZL**2 + b*d*gZR**2)
     &  *mW**2*p1p2**3 +4*b*d*gZR**2*p1p4**3*p2p3 +4*mW**2*p1p2**2*(a*c
     &  *gZL**2*mW**2 + b*d*gZR**2*mW**2 -2*b*d*gZR**2*p1p3 - 2*b*d
     &  *gZR**2*p1p4 -2*a*c*gZL**2*p2p3 - 2*a*c*gZL**2*p2p4) +4*p1p3
     &  *p2p4**2*((-(a*c*gZL**2) + b*d*gZR**2)*mW**2 +(a*c*gZL**2 + b*d
     &  *gZR**2)*p2p3 + a*c*gZL**2*p2p4) +2*p1p4*p2p4*(-((a*c*gZL**2
     &  + b*d*gZR**2)*mW**2*(mW**2 - 2*p2p4)) +p1p3*(2*(-(a*c*gZL**2)
     &  + b*d*gZR**2)*mW**2 +4*(a*c*gZL**2 + b*d*gZR**2)*p2p3 +4*a*c
     &  *gZL**2*p2p4) +2*p2p3*((a*c*gZL**2 - b*d*gZR**2)*mW**2 +b*d
     &  *gZR**2*p2p4)) +4*p1p4**2*(((a*c*gZL**2 + b*d*gZR**2)*mW**2 +a
     &  *c*gZL**2*p1p3)*p2p4 +p2p3*((a*c*gZL**2 - b*d*gZR**2)*mW**2 +(a
     &  *c*gZL**2 + b*d*gZR**2)*p1p3 +2*b*d*gZR**2*p2p4)) +p1p2*(a*c
     &  *gZL**2*mW**6 + b*d*gZR**2*mW**6 +4*(a*c*gZL**2 + b*d*gZR**2)
     &  *mW**2*p1p3**2 -4*a*c*gZL**2*mW**4*p2p3 + 4*b*d*gZR**2*mW**4
     &  *p2p3 +4*a*c*gZL**2*mW**2*p2p3**2 +4*b*d*gZR**2*mW**2*p2p3**2
     &  -4*p1p4**2*((a*c*gZL**2 - b*d*gZR**2)*mW**2 +b*d*gZR**2*p2p3)
     &  - 4*a*c*gZL**2*mW**4*p2p4 +8*a*c*gZL**2*mW**2*p2p3*p2p4 +4*a*c
     &  *gZL**2*mW**2*p2p4**2 -4*b*d*gZR**2*mW**2*p2p4**2 -4*b*d*gZR**2
     &  *p2p3*p2p4**2 -4*p1p4*(b*d*gZR**2*mW**4 +((a*c*gZL**2 + b*d
     &  *gZR**2)*mW**2 +2*b*d*gZR**2*p2p3)*p2p4) +4*p1p3*((a*c*gZL**2
     &  - b*d*gZR**2)*mW**4 -a*c*gZL**2*p1p4**2 - a*c*gZL**2*p2p4**2 +2
     &  *p1p4*(b*d*gZR**2*mW**2 - a*c*gZL**2*p2p4)))))/(mW**2*(4
     &  *p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4
     &  + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2
     &  + mZ**2*wZ**2))
 
* BB34
        dsig = dsig + (8*g2**2*gWWZ*gZL*(4*(a*c*gZL**2 + b*d*gZR**2)
     &  *mW**2*p1p2**4 +4*b*d*gZR**2*p1p4**3*p2p3*(mW**2 + 2*p1p3 + 2
     &  *p2p3) -2*a*c*gZL**2*mW**4*p1p3*p2p4**2 -2*b*d*gZR**2*mW**4
     &  *p1p3*p2p4**2 -4*a*c*gZL**2*mW**2*p1p3**2*p2p4**2 +4*b*d*gZR**2
     &  *mW**2*p1p3**2*p2p4**2 -4*a*c*gZL**2*mW**2*p1p3*p2p3*p2p4**2 +4
     &  *b*d*gZR**2*mW**2*p1p3*p2p3*p2p4**2 +8*a*c*gZL**2*p1p3**2*p2p3
     &  *p2p4**2 +8*b*d*gZR**2*p1p3**2*p2p3*p2p4**2 +8*a*c*gZL**2*p1p3
     &  *p2p3**2*p2p4**2 +8*b*d*gZR**2*p1p3*p2p3**2*p2p4**2 +4*a*c
     &  *gZL**2*mW**2*p1p3*p2p4**3 +8*a*c*gZL**2*p1p3**2*p2p4**3 +8*a*c
     &  *gZL**2*p1p3*p2p3*p2p4**3 +4*p1p2**3*(a*c*gZL**2*mW**4 + b*d
     &  *gZR**2*mW**4 -2*a*c*gZL**2*mW**2*p2p3 -p1p4*((2*a*c*gZL**2 + 3
     &  *b*d*gZR**2)*mW**2 +2*b*d*gZR**2*p2p3) - 3*a*c*gZL**2*mW**2
     &  *p2p4 -2*b*d*gZR**2*mW**2*p2p4 - 2*b*d*gZR**2*p2p3*p2p4 -2*p1p3
     &  *(b*d*gZR**2*mW**2 + a*c*gZL**2*p1p4 +a*c*gZL**2*p2p4))
     &  +p1p2**2*(a*c*gZL**2*mW**6 + b*d*gZR**2*mW**6 -4*a*c*gZL**2
     &  *mW**4*p2p3 + 4*b*d*gZR**2*mW**4*p2p3 +4*a*c*gZL**2*mW**2
     &  *p2p3**2 +4*b*d*gZR**2*mW**2*p2p3**2 +4*p1p4**2*((a*c*gZL**2
     &  + 3*b*d*gZR**2)*mW**2 +4*b*d*gZR**2*p2p3) - 8*a*c*gZL**2*mW**4
     &  *p2p4 -6*b*d*gZR**2*mW**4*p2p4 +16*a*c*gZL**2*mW**2*p2p3*p2p4
     &  +4*b*d*gZR**2*mW**2*p2p3*p2p4 +8*b*d*gZR**2*p2p3**2*p2p4 +12*a
     &  *c*gZL**2*mW**2*p2p4**2 +4*b*d*gZR**2*mW**2*p2p4**2 +8*b*d
     &  *gZR**2*p2p3*p2p4**2 +4*p1p3**2*((a*c*gZL**2 + b*d*gZR**2)
     &  *mW**2 +2*a*c*gZL**2*p1p4 + 2*a*c*gZL**2*p2p4) +4*p1p3*((a*c
     &  *gZL**2 - b*d*gZR**2)*mW**4 +2*a*c*gZL**2*p1p4**2 +((-(a*c
     &  *gZL**2) + 4*b*d*gZR**2)*mW**2 +4*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3)*p2p4 +4*a*c*gZL**2*p2p4**2 +p1p4*((a*c*gZL**2 + 4*b*d
     &  *gZR**2)*mW**2 +4*(a*c*gZL**2 + b*d*gZR**2)*p2p3 +6*a*c*gZL**2
     &  *p2p4)) +2*p1p4*(4*b*d*gZR**2*p2p3**2 +2*p2p3*((4*a*c*gZL**2
     &  - b*d*gZR**2)*mW**2 +6*b*d*gZR**2*p2p4) +mW**2*(-((3*a*c
     &  *gZL**2 + 4*b*d*gZR**2)*mW**2) +8*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p4))) +2*p1p4**2*(2*p1p3*((2*a*c*gZL**2 + b*d*gZR**2)*mW**2
     &  +2*a*c*gZL**2*p1p3)*p2p4 +2*p2p3**2*((a*c*gZL**2 - b*d*gZR**2)
     &  *mW**2 +2*(a*c*gZL**2 + b*d*gZR**2)*p1p3 +4*b*d*gZR**2*p2p4)
     &  +p2p3*(4*(a*c*gZL**2 + b*d*gZR**2)*p1p3**2 +2*p1p3*((a*c
     &  *gZL**2 - b*d*gZR**2)*mW**2 +2*(a*c*gZL**2 + 2*b*d*gZR**2)
     &  *p2p4) -mW**2*((a*c*gZL**2 + b*d*gZR**2)*mW**2 -2*(a*c*gZL**2
     &  + 3*b*d*gZR**2)*p2p4))) -a*c*Epsp1p2p3p4*gZL**2*mW**5*wW +b*d
     &  *Epsp1p2p3p4*gZR**2*mW**5*wW -2*a*c*Epsp1p2p3p4*gZL**2*mW**3
     &  *p1p3*wW -2*b*d*Epsp1p2p3p4*gZR**2*mW**3*p1p3*wW +2*a*c
     &  *Epsp1p2p3p4*gZL**2*mW**3*p2p3*wW +2*b*d*Epsp1p2p3p4*gZR**2
     &  *mW**3*p2p3*wW +2*a*c*Epsp1p2p3p4*gZL**2*mW**3*p2p4*wW -2*p1p4
     &  *(-2*p1p3**2*p2p4*((-(a*c*gZL**2) + b*d*gZR**2)*mW**2 +4*(a*c
     &  *gZL**2 + b*d*gZR**2)*p2p3 +4*a*c*gZL**2*p2p4) -2*p2p3**2*p2p4
     &  *((a*c*gZL**2 - b*d*gZR**2)*mW**2 +2*b*d*gZR**2*p2p4) +mW**2
     &  *p2p3*p2p4*((a*c*gZL**2 + b*d*gZR**2)*mW**2 -2*(a*c*gZL**2 + 2
     &  *b*d*gZR**2)*p2p4) -p1p3*p2p4*(8*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3**2 +4*(2*a*c*gZL**2 + b*d*gZR**2)*p2p3*p2p4 -mW**2*((a*c
     &  *gZL**2 + b*d*gZR**2)*mW**2 -2*(3*a*c*gZL**2 + b*d*gZR**2)
     &  *p2p4)) +b*d*Epsp1p2p3p4*gZR**2*mW**3*wW) -p1p2*(4*b*d*gZR**2
     &  *p1p4**3*(mW**2 + 2*p2p3) +(8*p1p3**2*(b*d*gZR**2*mW**2 +(a*c
     &  *gZL**2 + b*d*gZR**2)*p2p3) +2*p1p3*((a*c*gZL**2 - 3*b*d
     &  *gZR**2)*mW**4 +2*(-(a*c*gZL**2) + b*d*gZR**2)*mW**2*p2p3 +4*(a
     &  *c*gZL**2 + b*d*gZR**2)*p2p3**2) +mW**2*((a*c*gZL**2 + b*d
     &  *gZR**2)*mW**4 +4*(-(a*c*gZL**2) + b*d*gZR**2)*mW**2*p2p3 +4*(a
     &  *c*gZL**2 + b*d*gZR**2)*p2p3**2))*p2p4 +(-2*(2*a*c*gZL**2 + b*d
     &  *gZR**2)*mW**4 +16*a*c*gZL**2*p1p3**2 +4*(2*a*c*gZL**2 + b*d
     &  *gZR**2)*mW**2*p2p3 +8*b*d*gZR**2*p2p3**2 +8*p1p3*(b*d*gZR**2
     &  *mW**2 +(3*a*c*gZL**2 + 2*b*d*gZR**2)*p2p3))*p2p4**2+ 4*a*c
     &  *gZL**2*(mW**2 + 2*p1p3)*p2p4**3 +2*p1p4**2*(4*a*c*gZL**2
     &  *p1p3**2 +8*b*d*gZR**2*p2p3**2 -(a*c*gZL**2 + 2*b*d*gZR**2)
     &  *mW**2*(mW**2 - 2*p2p4) +2*p1p3*((a*c*gZL**2 + 2*b*d*gZR**2)
     &  *mW**2 +(4*a*c*gZL**2 + 6*b*d*gZR**2)*p2p3 +2*a*c*gZL**2*p2p4)
     &  +4*p2p3*(a*c*gZL**2*mW**2 + 2*b*d*gZR**2*p2p4)) +p1p4*(4
     &  *p1p3**2*((a*c*gZL**2 + b*d*gZR**2)*mW**2 +2*(a*c*gZL**2 + b*d
     &  *gZR**2)*p2p3 +6*a*c*gZL**2*p2p4) +8*p2p3**2*(a*c*gZL**2*mW**2
     &  + 3*b*d*gZR**2*p2p4) +p2p3*(2*(-3*a*c*gZL**2 + b*d*gZR**2)
     &  *mW**4 +4*(5*a*c*gZL**2 + 2*b*d*gZR**2)*mW**2*p2p4 +8*b*d
     &  *gZR**2*p2p4**2) +mW**2*((a*c*gZL**2 + b*d*gZR**2)*mW**4 -6*(a
     &  *c*gZL**2 + b*d*gZR**2)*mW**2*p2p4 +4*(2*a*c*gZL**2 + b*d
     &  *gZR**2)*p2p4**2) +4*p1p3*((a*c*gZL**2 - b*d*gZR**2)*mW**4 +2
     &  *(a*c*gZL**2 + b*d*gZR**2)*p2p3**2 +(2*a*c*gZL**2 + 5*b*d
     &  *gZR**2)*mW**2*p2p4 +4*a*c*gZL**2*p2p4**2 +p2p3*((a*c*gZL**2
     &  - b*d*gZR**2)*mW**2 +10*(a*c*gZL**2 + b*d*gZR**2)*p2p4))) +2
     &  *Epsp1p2p3p4*(a*c*gZL**2 - b*d*gZR**2)*mW**3*wW)))/(mW**2
     &  *(p1p2 - p1p3 - p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB35
        dsig = dsig + (-8*g2**2*gWWZ*gZnuL*(4*(a*c*gZL**2 + b*d*gZR**2)
     &  *mW**2*p1p2**4 -8*b*d*gZR**2*p1p4**4*p2p3 +2*a*c*gZL**2*mW**4
     &  *p1p3*p2p4**2 +2*b*d*gZR**2*mW**4*p1p3*p2p4**2 +4*a*c*gZL**2
     &  *mW**2*p1p3**2*p2p4**2 -4*b*d*gZR**2*mW**2*p1p3**2*p2p4**2 +4*a
     &  *c*gZL**2*mW**2*p1p3*p2p3*p2p4**2 -4*b*d*gZR**2*mW**2*p1p3*p2p3
     &  *p2p4**2 -8*a*c*gZL**2*p1p3**2*p2p3*p2p4**2 -8*b*d*gZR**2
     &  *p1p3**2*p2p3*p2p4**2 -8*a*c*gZL**2*p1p3*p2p3**2*p2p4**2 -8*b*d
     &  *gZR**2*p1p3*p2p3**2*p2p4**2 +4*a*c*gZL**2*mW**2*p1p3*p2p4**3
     &  -8*b*d*gZR**2*mW**2*p1p3*p2p4**3 -8*a*c*gZL**2*p1p3**2*p2p4**3
     &  -16*a*c*gZL**2*p1p3*p2p3*p2p4**3 -8*b*d*gZR**2*p1p3*p2p3
     &  *p2p4**3 -8*a*c*gZL**2*p1p3*p2p4**4 +4*p1p2**3*(a*c*gZL**2
     &  *mW**4 + b*d*gZR**2*mW**4 -2*a*c*gZL**2*mW**2*p2p3 +b*d*gZR**2
     &  *p1p4*(-3*mW**2 + 2*p2p3) -3*a*c*gZL**2*mW**2*p2p4 + 2*b*d
     &  *gZR**2*p2p3*p2p4 +2*p1p3*(-(b*d*gZR**2*mW**2) + a*c*gZL**2
     &  *p1p4 +a*c*gZL**2*p2p4)) -4*p1p4**3*(2*b*d*gZR**2*p2p3**2 +2
     &  *((a*c*gZL**2 + b*d*gZR**2)*mW**2 +a*c*gZL**2*p1p3)*p2p4 +p2p3
     &  *((2*a*c*gZL**2 - b*d*gZR**2)*mW**2 +2*(a*c*gZL**2 + 2*b*d
     &  *gZR**2)*p1p3 +6*b*d*gZR**2*p2p4)) +p1p2**2*(a*c*gZL**2*mW**6
     &  + b*d*gZR**2*mW**6 -4*a*c*gZL**2*mW**4*p2p3 + 4*b*d*gZR**2
     &  *mW**4*p2p3 +4*a*c*gZL**2*mW**2*p2p3**2 +4*b*d*gZR**2*mW**2
     &  *p2p3**2 -12*p1p4**2*((a*c*gZL**2 - b*d*gZR**2)*mW**2 +2*b*d
     &  *gZR**2*p2p3) - 8*a*c*gZL**2*mW**4*p2p4 -2*b*d*gZR**2*mW**4
     &  *p2p4 +16*a*c*gZL**2*mW**2*p2p3*p2p4 -4*b*d*gZR**2*mW**2*p2p3
     &  *p2p4 -8*b*d*gZR**2*p2p3**2*p2p4 +12*a*c*gZL**2*mW**2*p2p4**2
     &  -12*b*d*gZR**2*mW**2*p2p4**2 -16*b*d*gZR**2*p2p3*p2p4**2 +4
     &  *p1p3**2*((a*c*gZL**2 + b*d*gZR**2)*mW**2 -2*a*c*gZL**2*p1p4
     &  - 2*a*c*gZL**2*p2p4) +4*p1p3*((a*c*gZL**2 - b*d*gZR**2)*mW**4
     &  -4*a*c*gZL**2*p1p4**2 +(a*c*gZL**2*mW**2 -4*(a*c*gZL**2 + b*d
     &  *gZR**2)*p2p3)*p2p4 -6*a*c*gZL**2*p2p4**2 -p1p4*((a*c*gZL**2
     &  - 4*b*d*gZR**2)*mW**2 +4*(a*c*gZL**2 + b*d*gZR**2)*p2p3 +10*a*c
     &  *gZL**2*p2p4)) -2*p1p4*(4*b*d*gZR**2*p2p3**2 -2*b*d*gZR**2*p2p3
     &  *(mW**2 - 10*p2p4) +mW**2*((a*c*gZL**2 + 4*b*d*gZR**2)*mW**2 +4
     &  *(a*c*gZL**2 + b*d*gZR**2)*p2p4))) +2*p1p4**2*(-2*p2p3**2*((a*c
     &  *gZL**2 - b*d*gZR**2)*mW**2 +2*(a*c*gZL**2 + b*d*gZR**2)*p1p3
     &  +4*b*d*gZR**2*p2p4) -2*p2p4*(2*a*c*gZL**2*p1p3**2 -(a*c*gZL**2
     &  + b*d*gZR**2)*mW**2*(mW**2 - 4*p2p4) +3*p1p3*(b*d*gZR**2*mW**2
     &  + 2*a*c*gZL**2*p2p4)) +p2p3*((a*c*gZL**2 + b*d*gZR**2)*mW**4 -4
     &  *(a*c*gZL**2 + b*d*gZR**2)*p1p3**2 +2*(-5*a*c*gZL**2 + b*d
     &  *gZR**2)*mW**2*p2p4 -12*b*d*gZR**2*p2p4**2 -2*p1p3*((a*c
     &  *gZL**2 - b*d*gZR**2)*mW**2 +2*(4*a*c*gZL**2 + 5*b*d*gZR**2)
     &  *p2p4))) +a*c*Epsp1p2p3p4*gZL**2*mW**5*wW -b*d*Epsp1p2p3p4
     &  *gZR**2*mW**5*wW +2*a*c*Epsp1p2p3p4*gZL**2*mW**3*p1p3*wW +2*b*d
     &  *Epsp1p2p3p4*gZR**2*mW**3*p1p3*wW -2*a*c*Epsp1p2p3p4*gZL**2
     &  *mW**3*p2p3*wW -2*b*d*Epsp1p2p3p4*gZR**2*mW**3*p2p3*wW -2*a*c
     &  *Epsp1p2p3p4*gZL**2*mW**3*p2p4*wW +p1p2*(4*p1p4**3*((2*a*c
     &  *gZL**2 - b*d*gZR**2)*mW**2 +2*a*c*gZL**2*p1p3 + 6*b*d*gZR**2
     &  *p2p3) -(8*p1p3**2*(a*c*gZL**2*mW**2 -(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3) +p1p3*(2*(3*a*c*gZL**2 - b*d*gZR**2)*mW**4 +4*(a*c
     &  *gZL**2 - b*d*gZR**2)*mW**2*p2p3 -8*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3**2) +mW**2*((a*c*gZL**2 + b*d*gZR**2)*mW**4 +4*(-(a*c
     &  *gZL**2) + b*d*gZR**2)*mW**2*p2p3 +4*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3**2))*p2p4 +2*((2*a*c*gZL**2 - b*d*gZR**2)*mW**4 +8*a*c
     &  *gZL**2*p1p3**2 +2*(-2*a*c*gZL**2 + b*d*gZR**2)*mW**2*p2p3 +4*b
     &  *d*gZR**2*p2p3**2 +p1p3*(-4*(a*c*gZL**2 - 2*b*d*gZR**2)*mW**2
     &  +4*(4*a*c*gZL**2 + 3*b*d*gZR**2)*p2p3))*p2p4**2+ (-4*(a*c
     &  *gZL**2 - 2*b*d*gZR**2)*mW**2 +24*a*c*gZL**2*p1p3 + 8*b*d
     &  *gZR**2*p2p3)*p2p4**3+ 2*p1p4**2*(4*a*c*gZL**2*p1p3**2 + 8*b*d
     &  *gZR**2*p2p3**2 +2*p1p3*((a*c*gZL**2 - 2*b*d*gZR**2)*mW**2 +(6
     &  *a*c*gZL**2 + 8*b*d*gZR**2)*p2p3 +10*a*c*gZL**2*p2p4) +4*p2p3
     &  *((2*a*c*gZL**2 - b*d*gZR**2)*mW**2 +7*b*d*gZR**2*p2p4) +mW**2
     &  *((-(a*c*gZL**2) + 2*b*d*gZR**2)*mW**2 +2*(7*a*c*gZL**2 + 4*b*d
     &  *gZR**2)*p2p4)) +p1p4*(-8*b*d*gZR**2*p2p3**2*(mW**2 - 3*p2p4)
     &  -4*p1p3**2*((a*c*gZL**2 + b*d*gZR**2)*mW**2 -2*(a*c*gZL**2 + b
     &  *d*gZR**2)*p2p3 -6*a*c*gZL**2*p2p4) +2*p2p3*((a*c*gZL**2 - 3*b
     &  *d*gZR**2)*mW**4 +6*a*c*gZL**2*mW**2*p2p4 +20*b*d*gZR**2
     &  *p2p4**2) -mW**2*((a*c*gZL**2 + b*d*gZR**2)*mW**4 +2*(a*c
     &  *gZL**2 + b*d*gZR**2)*mW**2*p2p4 -4*(4*a*c*gZL**2 + 7*b*d
     &  *gZR**2)*p2p4**2) +4*p1p3*((-(a*c*gZL**2) + b*d*gZR**2)*mW**4
     &  +2*(a*c*gZL**2 + b*d*gZR**2)*p2p3**2 +3*b*d*gZR**2*mW**2*p2p4
     &  +14*a*c*gZL**2*p2p4**2 +p2p3*((a*c*gZL**2 - b*d*gZR**2)*mW**2
     &  +14*(a*c*gZL**2 + b*d*gZR**2)*p2p4))) +2*Epsp1p2p3p4*(a*c
     &  *gZL**2 - b*d*gZR**2)*mW**3*wW) +2*p1p4*(-2*p1p3**2*p2p4*((-(a
     &  *c*gZL**2) + b*d*gZR**2)*mW**2 +4*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3 +4*a*c*gZL**2*p2p4) -2*p2p3**2*p2p4*((a*c*gZL**2 - b*d
     &  *gZR**2)*mW**2 +2*b*d*gZR**2*p2p4) +p1p3*p2p4*((a*c*gZL**2 + b
     &  *d*gZR**2)*mW**4 -8*(a*c*gZL**2 + b*d*gZR**2)*p2p3**2 +2*(a*c
     &  *gZL**2 - 5*b*d*gZR**2)*mW**2*p2p4 -4*(5*a*c*gZL**2 + 4*b*d
     &  *gZR**2)*p2p3*p2p4 -12*a*c*gZL**2*p2p4**2) +p2p3*p2p4*((a*c
     &  *gZL**2 + b*d*gZR**2)*mW**4 -6*a*c*gZL**2*mW**2*p2p4 - 4*b*d
     &  *gZR**2*p2p4**2)+ mW**2*(2*(a*c*gZL**2 + b*d*gZR**2)*mW**2
     &  *p2p4**2 - 4*(a*c*gZL**2 + b*d*gZR**2)*p2p4**3 +b*d*Epsp1p2p3p4
     &  *gZR**2*mW*wW))))/(mW**2*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(4
     &  *p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4
     &  + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2
     &  + mZ**2*wZ**2))
 
* BB36
        dsig = dsig + (-4*a*c*g2**4*gWWZ*gZL*(-8*mW**2*p1p2**4 +4*mW**2
     &  *p1p2**3*(-2*mW**2 + mZ**2 - 2*p1p4 + 4*p2p3 + 4*p2p4) -2
     &  *p1p2**2*(4*mW**2*p1p3**2 +mW**2*(-8*p1p4**2 +2*p1p4*(mW**2
     &  - mZ**2 - 4*p2p3 - 6*p2p4) +(mW**2 - 2*p2p3 - 2*p2p4)*(mW**2
     &  - 2*mZ**2 - 2*p2p3 - 2*p2p4)) +4*p1p3*(mW**4 - 2*p1p4**2 - 2
     &  *p1p4*p2p4)) +p1p2*(4*mW**2*p1p3**2*(mZ**2 + 2*p2p4) +4*p1p3*(2
     &  *p1p4*(mW**2 - mZ**2 - 2*p2p3 - 2*p2p4)*p2p4 + mW**4*(mZ**2
     &  + p2p4) -2*p1p4**2*(mZ**2 + 2*p2p3 + 2*p2p4)) +mW**2*(-8
     &  *p1p4**2*(mZ**2 + 2*p2p3 + 2*p2p4) +2*p1p4*(mW**2*mZ**2 - 4
     &  *p2p3**2 +2*p2p3*(mW**2 - 2*mZ**2 - 6*p2p4) +(4*mW**2 - 6
     &  *mZ**2)*p2p4 - 8*p2p4**2) +mZ*(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ
     &  *p2p3*(mW**2 - 2*p2p4) -4*mW**2*mZ*p2p4 + 4*mZ*p2p4**2 -4
     &  *Epsp1p2p3p4*wZ))) +2*mZ*(4*mZ*(mW**2 + p1p3)*p1p4**2*(p2p3
     &  + p2p4) -mZ*p1p4*(mW**2 - 2*p2p3 - 2*p2p4)*(mW**2*p2p3 + 2
     &  *(mW**2 + p1p3)*p2p4) -mW**2*(2*mZ*p1p3**2*p2p4 +Epsp1p2p3p4
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*wZ +p1p3*(mW**2*mZ*p2p4 + 2
     &  *Epsp1p2p3p4*wZ)))))/(mW**2*(mW**2 - 2*p1p4)*(4*p1p2**2 + 4
     &  *p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB44
        dsig = dsig + (-4*g2**2*gZL**2*(2*b*d*gZR**2*p1p4*p2p3**2
     &  *(mW**2 + p2p3) -2*p1p2**3*(a*c*gZL**2*p1p3 + b*d*gZR**2*p2p3)
     &  +2*p1p3**3*((a*c*gZL**2 + b*d*gZR**2)*p2p3 +a*c*gZL**2*p2p4) +2
     &  *p1p3**2*(b*d*gZR**2*p1p4*p2p3 +2*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3**2 +a*c*gZL**2*mW**2*p2p4 + 2*a*c*gZL**2*p2p3*p2p4) +p1p3
     &  *p2p3*(2*(a*c*gZL**2 + b*d*gZR**2)*p2p3**2 +2*b*d*gZR**2*p1p4
     &  *(mW**2 + 2*p2p3) +2*a*c*gZL**2*p2p3*p2p4 -mW**2*((a*c*gZL**2
     &  + b*d*gZR**2)*mW**2 -2*a*c*gZL**2*p2p4)) +2*p1p2**2*(2*a*c
     &  *gZL**2*p1p3**2 +b*d*gZR**2*p2p3*(p1p4 + 2*p2p3) +p1p3*(3*(a*c
     &  *gZL**2 + b*d*gZR**2)*p2p3 +a*c*gZL**2*p2p4)) +p1p2*(-2*a*c
     &  *gZL**2*p1p3**3 +b*d*gZR**2*p2p3*(mW**4 - 2*p2p3**2 - 2*p1p4
     &  *(mW**2 + 2*p2p3)) -2*p1p3**2*((4*a*c*gZL**2 + 3*b*d*gZR**2)
     &  *p2p3 +2*a*c*gZL**2*p2p4) +p1p3*(-4*b*d*gZR**2*p1p4*p2p3 -2*(3
     &  *a*c*gZL**2 + 4*b*d*gZR**2)*p2p3**2 +a*c*gZL**2*mW**2*(mW**2
     &  - 2*p2p4) -4*a*c*gZL**2*p2p3*p2p4))))/(mW**2*(-p1p2 + p1p3
     &  + p2p3)**2*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB45
        dsig = dsig + (2*g2**2*gZL*gZnuL*(4*p1p2**3*((a*c*gZL**2 + b*d
     &  *gZR**2)*mW**2 +2*a*c*gZL**2*p1p3 + 2*b*d*gZR**2*p2p3) +4
     &  *p1p2**2*(a*c*gZL**2*mW**4 + b*d*gZR**2*mW**4 -4*a*c*gZL**2
     &  *p1p3**2 - 2*a*c*gZL**2*mW**2*p2p3 -4*b*d*gZR**2*p2p3**2 -p1p4
     &  *((a*c*gZL**2 + 2*b*d*gZR**2)*mW**2 +4*b*d*gZR**2*p2p3) - 2*a*c
     &  *gZL**2*mW**2*p2p4 -b*d*gZR**2*mW**2*p2p4 - 2*b*d*gZR**2*p2p3
     &  *p2p4 -2*p1p3*(b*d*gZR**2*mW**2 + a*c*gZL**2*p1p4 +3*(a*c
     &  *gZL**2 + b*d*gZR**2)*p2p3 +2*a*c*gZL**2*p2p4)) +p1p2*(a*c
     &  *gZL**2*mW**6 + b*d*gZR**2*mW**6 +8*a*c*gZL**2*p1p3**3 - 4*a*c
     &  *gZL**2*mW**4*p2p3 +4*a*c*gZL**2*mW**2*p2p3**2 +4*b*d*gZR**2
     &  *mW**2*p2p3**2 + 8*b*d*gZR**2*p2p3**3 +4*b*d*gZR**2*p1p4**2
     &  *(mW**2 + 2*p2p3) -4*a*c*gZL**2*mW**4*p2p4 - 2*b*d*gZR**2*mW**4
     &  *p2p4 +8*a*c*gZL**2*mW**2*p2p3*p2p4 +4*b*d*gZR**2*mW**2*p2p3
     &  *p2p4 +8*b*d*gZR**2*p2p3**2*p2p4 +4*a*c*gZL**2*mW**2*p2p4**2 +4
     &  *p1p3**2*(a*c*gZL**2*mW**2 + b*d*gZR**2*mW**2 +2*a*c*gZL**2
     &  *p1p4 +(8*a*c*gZL**2 + 6*b*d*gZR**2)*p2p3 +6*a*c*gZL**2*p2p4)
     &  +4*p1p3*(-(b*d*gZR**2*mW**4) +(6*a*c*gZL**2 + 8*b*d*gZR**2)
     &  *p2p3**2 +a*c*gZL**2*mW**2*p2p4 +2*b*d*gZR**2*mW**2*p2p4 +4*(2
     &  *a*c*gZL**2 + b*d*gZR**2)*p2p3*p2p4 +2*a*c*gZL**2*p2p4**2 +p1p4
     &  *((a*c*gZL**2 + 2*b*d*gZR**2)*mW**2 +4*(a*c*gZL**2 + 2*b*d
     &  *gZR**2)*p2p3 +2*a*c*gZL**2*p2p4)) +p1p4*(24*b*d*gZR**2
     &  *p2p3**2 +4*p2p3*((2*a*c*gZL**2 + b*d*gZR**2)*mW**2 +2*b*d
     &  *gZR**2*p2p4) -2*mW**2*((a*c*gZL**2 + 2*b*d*gZR**2)*mW**2 -2*(a
     &  *c*gZL**2 + b*d*gZR**2)*p2p4))) +2*(-4*p1p3**3*((a*c*gZL**2 + b
     &  *d*gZR**2)*p2p3 +a*c*gZL**2*p2p4) -2*p1p3**2*(4*(a*c*gZL**2 + b
     &  *d*gZR**2)*p2p3**2 +2*(3*a*c*gZL**2 + b*d*gZR**2)*p2p3*p2p4 +2
     &  *p1p4*((a*c*gZL**2 + 2*b*d*gZR**2)*p2p3 +a*c*gZL**2*p2p4) +p2p4
     &  *((a*c*gZL**2 + b*d*gZR**2)*mW**2 +2*a*c*gZL**2*p2p4)) -p1p4
     &  *p2p3*(4*b*d*gZR**2*p2p3**2 +2*b*d*gZR**2*p1p4*(mW**2 + 2
     &  *p2p3) +2*p2p3*((a*c*gZL**2 + b*d*gZR**2)*mW**2 +2*b*d*gZR**2
     &  *p2p4) -mW**2*((a*c*gZL**2 + b*d*gZR**2)*mW**2 -2*(a*c*gZL**2
     &  + 2*b*d*gZR**2)*p2p4)) +p1p3*(-4*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3**3 +mW**2*p2p4*((a*c*gZL**2 + b*d*gZR**2)*mW**2 -2*(2*a*c
     &  *gZL**2 + b*d*gZR**2)*p1p4 -2*a*c*gZL**2*p2p4) -4*p2p3**2*((a*c
     &  *gZL**2 + 3*b*d*gZR**2)*p1p4 +(2*a*c*gZL**2 + b*d*gZR**2)
     &  *p2p4) +2*p2p3*((a*c*gZL**2 + b*d*gZR**2)*mW**4 -2*b*d*gZR**2
     &  *p1p4**2 -(a*c*gZL**2 + b*d*gZR**2)*mW**2*p2p4 -2*a*c*gZL**2
     &  *p2p4**2 -(a*c*gZL**2 + b*d*gZR**2)*p1p4*(mW**2 + 2*p2p4))))))
     &  /(mW**2*(p1p2 - p1p3 - p2p3)*(-p1p2 + p1p3 + p1p4 + p2p3
     &  + p2p4)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB46
        dsig = dsig + (-2*a*c*g2**4*gZL**2*(16*mW**2*p1p2**5 +8*p1p2**4
     &  *(-2*p1p3*(mW**2 + 2*p1p4) +mW**2*(2*mW**2 - mZ**2 - 4*p1p4 - 4
     &  *p2p3 - 6*p2p4))+ 4*p1p2**3*(8*p1p3**2*p1p4 +2*p1p3*(4*p1p4**2
     &  +2*p1p4*(2*mW**2 + mZ**2 + 4*p2p3 + 4*p2p4) +mW**2*(mZ**2 + 4
     &  *p2p3 + 6*p2p4)) +mW**2*(mW**4 - 2*mW**2*mZ**2 + 4*p1p4**2 +4
     &  *p2p3**2 - 4*p2p3*(mW**2 - mZ**2 - 4*p2p4) -8*mW**2*p2p4 + 6
     &  *mZ**2*p2p4 + 12*p2p4**2 +p1p4*(-6*mW**2 + 4*mZ**2 + 16*p2p3
     &  + 16*p2p4) +mW*mZ*wW*wZ)) -2*p1p2**2*(8*p1p3**2*(2*p1p4**2
     &  - mW**2*p2p3 +p1p4*(mZ**2 + 2*p2p3 + 4*p2p4)) +2*p1p3*(4
     &  *p1p4**2*(mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +mW**2*(4*p2p3**2 -4
     &  *p2p3*(mW**2 - mZ**2 - 4*p2p4) -2*(mW**2 - 3*mZ**2)*p2p4 + 12
     &  *p2p4**2 +mW*mZ*wW*wZ) +2*p1p4*(4*p2p3**2 + 2*(5*mW**2 + 2
     &  *mZ**2)*p2p4 +4*p2p4**2 +2*p2p3*(3*mW**2 + 2*mZ**2 + 6*p2p4)
     &  +mW*mZ*(2*mW*mZ + wW*wZ))) +mW**2*(mW**4*mZ**2 + 2*mW**4*p2p4
     &  -8*mW**2*mZ**2*p2p4 - 8*mW**2*p2p4**2 +12*mZ**2*p2p4**2 + 8
     &  *p2p4**3 +4*p2p3**2*(mZ**2 + 2*p2p4) +4*p1p4**2*(-mW**2
     &  + mZ**2 + 4*p2p3 + 2*p2p4) +4*Epsp1p2p3p4*mW*wW - 4*Epsp1p2p3p4
     &  *mZ*wZ -2*mW**3*mZ*wW*wZ + 4*mW*mZ*p2p4*wW*wZ -4*p2p3*(2
     &  *(mW**2 - 2*mZ**2)*p2p4 - 4*p2p4**2 +mW*mZ*(mW*mZ - wW*wZ)) +2
     &  *p1p4*(8*p2p3**2 + (-6*mW**2 + 8*mZ**2)*p2p4 +8*p2p4**2 +p2p3*(
     &  -6*mW**2 + 8*mZ**2 + 20*p2p4) +mW*(mW**3 - 3*mW*mZ**2 + mZ*wW
     &  *wZ)))) +2*mZ*(2*p1p3**2*((mW**2 - 2*p1p4)*p2p3 - 2*p1p4*p2p4)
     &  *(2*mZ*p1p4 + 2*mZ*p2p4 + mW*wW*wZ) +mW**2*(mW**2 - 2*p2p3 - 2
     &  *p2p4)*(2*mZ*p1p4**2*p2p3 +Epsp1p2p3p4*(mW*mZ*wW - 2*p2p4*wZ)
     &  +p1p4*(-2*Epsp1p2p3p4*wZ +p2p3*(2*mZ*p2p4 + mW*wW*wZ))) +p1p3*(
     &  -2*(mW**2 + 2*p1p4)*p2p3**2*(2*mZ*p1p4 + 2*mZ*p2p4 + mW*wW*wZ)
     &  +2*p2p3*(mW**4 - 2*mW**2*p2p4 -p1p4*(mW**2 + 2*p2p4))*(2*mZ
     &  *p1p4 + 2*mZ*p2p4 + mW*wW*wZ) +mW**2*(-4*mZ*p2p4**3 +2
     &  *Epsp1p2p3p4*(mW*mZ*wW - 2*p1p4*wZ) +p2p4*(-8*mZ*p1p4**2 +(-4
     &  *Epsp1p2p3p4 + mW**3*wW)*wZ +2*mW*p1p4*(mW*mZ - 2*wW*wZ)) +2
     &  *p2p4**2*(-6*mZ*p1p4 + mW*(mW*mZ - wW*wZ)))))+ p1p2*(4*p1p4**2
     &  *(4*p1p3**2*(mZ**2 + 2*p2p3 + 2*p2p4) +2*p1p3*(mW**2*mZ**2 + 4
     &  *p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2*p2p3*(mW**2 + 2*mZ**2 + 2
     &  *p2p4)) +mW**2*(4*p2p3**2 - mZ**2*(mW**2 - 2*p2p4) +p2p3*(-2
     &  *mW**2 + 4*mZ**2 + 4*p2p4))) +mW**2*(8*(mZ**2 + 2*p1p3)
     &  *p2p4**3 -4*Epsp1p2p3p4*mW**3*wW +4*Epsp1p2p3p4*mW*mZ**2*wW -8
     &  *Epsp1p2p3p4*mW*p1p3*wW +4*Epsp1p2p3p4*mW**2*mZ*wZ +8
     &  *Epsp1p2p3p4*mZ*p1p3*wZ + mW**5*mZ*wW*wZ +2*p2p4*(4*Epsp1p2p3p4
     &  *(mW*wW - 2*mZ*wZ) +mW**3*mZ*(mW*mZ - 2*wW*wZ) -2*mW*mZ*p1p3
     &  *(mW*mZ - 2*wW*wZ)) +p2p4**2*(-8*(mW**2 - 3*mZ**2)*p1p3 +4*mW
     &  *mZ*(-2*mW*mZ + wW*wZ)) +4*p2p3**2*(2*p1p3*(mZ**2 + 2*p2p4) +mZ
     &  *(2*mZ*p2p4 + mW*wW*wZ)) -4*p2p3*(-4*mZ**2*p2p4**2 +2*p1p3**2
     &  *(mZ**2 + 2*p2p4) -2*Epsp1p2p3p4*mW*wW + 2*Epsp1p2p3p4*mZ*wZ
     &  +mW**3*mZ*wW*wZ +2*mW*mZ*p2p4*(mW*mZ - wW*wZ) +2*p1p3*(2
     &  *(mW**2 - 2*mZ**2)*p2p4 - 4*p2p4**2 +mW*mZ*(mW*mZ - wW*wZ))))
     &  +2*p1p4*(4*p1p3**2*(4*mZ**2*p2p4 + 4*p2p4**2 +p2p3*(-2*mW**2
     &  + 2*mZ**2 + 4*p2p4) +mW*mZ*wW*wZ) +2*p1p3*(4*(3*mW**2 + mZ**2)
     &  *p2p4**2 +4*p2p3**2*(mW**2 + mZ**2 + 2*p2p4) +mW**3*mZ*wW*wZ -2
     &  *mW*p2p4*(mW**3 - 5*mW*mZ**2 - mZ*wW*wZ) +p2p3*(-4*mW**4 + 6
     &  *mW**2*mZ**2 +12*(mW**2 + mZ**2)*p2p4 + 8*p2p4**2 +4*mW*mZ*wW
     &  *wZ)) +mW**2*(8*p2p3**2*(mZ**2 + p2p4) +mZ*(mW**4*mZ + 8*mZ
     &  *p2p4**2 -4*Epsp1p2p3p4*wZ - mW**3*wW*wZ +2*mW*p2p4*(-3*mW*mZ
     &  + wW*wZ)) +p2p3*(-4*(mW**2 - 5*mZ**2)*p2p4 + 8*p2p4**2 +2*mW*mZ
     &  *(-3*mW*mZ + 2*wW*wZ)))))))/(mW**2*(mW**2 - 2*p1p4)*(p1p2
     &  - p1p3 - p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB55
        dsig = dsig + (-4*g2**2*gZnuL**2*(-2*p1p2**3*(a*c*gZL**2*p1p3
     &  + b*d*gZR**2*p2p3) +2*p1p3**3*((a*c*gZL**2 + b*d*gZR**2)*p2p3
     &  +a*c*gZL**2*p2p4) +2*p1p3**2*(2*(a*c*gZL**2 + b*d*gZR**2)
     &  *p2p3**2 +2*(2*a*c*gZL**2 + b*d*gZR**2)*p2p3*p2p4 +p2p4*(b*d
     &  *gZR**2*mW**2 + 2*a*c*gZL**2*p2p4) +p1p4*((2*a*c*gZL**2 + 3*b*d
     &  *gZR**2)*p2p3 +2*a*c*gZL**2*p2p4)) +2*p1p2**2*(2*a*c*gZL**2
     &  *p1p3**2 +p1p4*(a*c*gZL**2*mW**2 + 3*b*d*gZR**2*p2p3) +b*d
     &  *gZR**2*(2*p2p3**2 + mW**2*p2p4 + 2*p2p3*p2p4) +p1p3*(2*a*c
     &  *gZL**2*p1p4 +3*((a*c*gZL**2 + b*d*gZR**2)*p2p3 +a*c*gZL**2
     &  *p2p4))) +p1p4*(2*b*d*gZR**2*p2p3**3 -(a*c*gZL**2 + b*d*gZR**2)
     &  *mW**2*(mW**2 - 2*p1p4 - 2*p2p4)*p2p4 +2*p2p3**2*(a*c*gZL**2
     &  *mW**2 + 2*b*d*gZR**2*p1p4 +2*b*d*gZR**2*p2p4) +p2p3*(-((a*c
     &  *gZL**2 + b*d*gZR**2)*mW**4) +2*b*d*gZR**2*p1p4**2 +2*(2*a*c
     &  *gZL**2 + b*d*gZR**2)*mW**2*p2p4 +2*b*d*gZR**2*p2p4**2 +2*p1p4
     &  *(a*c*gZL**2*mW**2 + 2*b*d*gZR**2*p2p4)))+ p1p3*(2*(a*c*gZL**2
     &  + b*d*gZR**2)*p2p3**3 +p2p3**2*(4*(a*c*gZL**2 + 2*b*d*gZR**2)
     &  *p1p4 +2*(3*a*c*gZL**2 + 2*b*d*gZR**2)*p2p4) +p2p4*(-((a*c
     &  *gZL**2 + b*d*gZR**2)*mW**4) +2*a*c*gZL**2*p1p4**2 + 2*b*d
     &  *gZR**2*mW**2*p2p4 +2*a*c*gZL**2*p2p4**2 +2*p1p4*((a*c*gZL**2
     &  + 2*b*d*gZR**2)*mW**2 +2*a*c*gZL**2*p2p4)) +p2p3*(-((a*c
     &  *gZL**2 + b*d*gZR**2)*mW**4) +2*(a*c*gZL**2 + 3*b*d*gZR**2)
     &  *p1p4**2 +2*b*d*gZR**2*mW**2*p2p4 +2*(3*a*c*gZL**2 + b*d
     &  *gZR**2)*p2p4**2 +2*p1p4*(a*c*gZL**2*mW**2 +4*(a*c*gZL**2 + b*d
     &  *gZR**2)*p2p4))) +p1p2*(-2*a*c*gZL**2*p1p3**3 -2*p1p4**2*(a*c
     &  *gZL**2*mW**2 + 3*b*d*gZR**2*p2p3) -2*p1p3**2*(2*a*c*gZL**2
     &  *p1p4 +(4*a*c*gZL**2 + 3*b*d*gZR**2)*p2p3 +4*a*c*gZL**2*p2p4)
     &  +p1p4*(-8*b*d*gZR**2*p2p3**2 -4*p2p3*(a*c*gZL**2*mW**2 + 2*b*d
     &  *gZR**2*p2p4) +mW**2*(a*c*gZL**2*mW**2 -4*(a*c*gZL**2 + b*d
     &  *gZR**2)*p2p4)) +b*d*gZR**2*(-2*p2p3**3 - 4*p2p3**2*p2p4 +mW**2
     &  *(mW**2 - 2*p2p4)*p2p4 +p2p3*(mW**4 - 2*mW**2*p2p4 - 2
     &  *p2p4**2)) +p1p3*(a*c*gZL**2*mW**4 - 2*a*c*gZL**2*p1p4**2 -2*(3
     &  *a*c*gZL**2 + 4*b*d*gZR**2)*p2p3**2 -4*b*d*gZR**2*mW**2*p2p4 -4
     &  *(3*a*c*gZL**2 + 2*b*d*gZR**2)*p2p3*p2p4 -6*a*c*gZL**2*p2p4**2
     &  -2*p1p4*((4*a*c*gZL**2 + 6*b*d*gZR**2)*p2p3 +a*c*gZL**2*(mW**2
     &  + 4*p2p4))))))/(mW**2*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)**2
     &  *(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB56
        dsig = dsig + (8*a*c*g2**4*gZL*gZnuL*(p1p2 - p2p3 - p2p4)
     &  *(p1p3**2*(mW**2 - 2*p1p4) +mW**2*p1p4*(mW**2 + 2*p1p2 - 2
     &  *p1p4 - 2*p2p3 -2*p2p4) + p1p3*(-2*p1p4**2 + p1p2*(mW**2 + 2
     &  *p1p4) +mW**2*(mW**2 - p2p3 - p2p4) -p1p4*(mW**2 + 2*p2p3 + 2
     &  *p2p4)))*(4*p1p2**2 - 2*p1p2*(mZ**2 + 2*p1p4 + 2*p2p4) +mZ*(2
     &  *mZ*p1p4 + 2*mZ*p2p4 + mW*wW*wZ)))/(mW**2*(mW**2 - 2*p1p4)*(
     &  -p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)
     &  *(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* BB66
        dsig = dsig + (-2*a*c*g2**6*(p1p3*(mW**4 - 4*p1p4**2) +2*mW**2
     &  *p1p4*(mW**2 + 2*p1p2 - 2*p1p4 - 2*p2p3 -2*p2p4))*(p1p2 - p2p3
     &  - p2p4))/((mW**3 - 2*mW*p1p4)**2*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* End BB
 
      endif

 
      if(setAB)then


* AB11
        dsig = dsig + (-2*a*c*ee**3*g2**2*gWWA*(4*mW**2*p1p2**4 - 2
     &  *mW**4*p1p3*p2p4**2 -4*mW**2*p1p3**2*p2p4**2 - 4*mW**2*p1p3
     &  *p2p3*p2p4**2 +8*p1p3**2*p2p3*p2p4**2 + 8*p1p3*p2p3**2*p2p4**2
     &  +4*mW**2*p1p3*p2p4**3 + 8*p1p3**2*p2p4**3 +8*p1p3*p2p3*p2p4**3
     &  +4*p1p2**3*(mW**4 - 2*(mW**2 + p1p3)*p1p4 -2*mW**2*p2p3 - 3
     &  *mW**2*p2p4 - 2*p1p3*p2p4) +2*p1p4*p2p4*(mW**2*p2p3*(-mW**2 + 2
     &  *p2p3 + 2*p2p4) +p1p3**2*(-2*mW**2 + 8*p2p3 + 8*p2p4) +p1p3*(
     &  -mW**4 + 8*p2p3**2 + 6*mW**2*p2p4 +8*p2p3*p2p4)) +p1p4**2*(4
     &  *(mW**2 + 2*p1p3)*p2p3**2 +8*p1p3*(mW**2 + p1p3)*p2p4 +p2p3*(-2
     &  *mW**4 + 8*p1p3**2 + 4*mW**2*p2p4 +4*p1p3*(mW**2 + 2*p2p4)))
     &  +p1p2**2*(4*p1p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +4*p1p3*(mW**4
     &  + 2*p1p4**2 - (mW**2 - 4*p2p3)*p2p4 +4*p2p4**2 + p1p4*(mW**2
     &  + 4*p2p3 + 6*p2p4)) +mW**2*(mW**4 + 4*p1p4**2 + 4*p2p3**2 -4
     &  *p2p3*(mW**2 - 4*p2p4) - 8*mW**2*p2p4 +12*p2p4**2 + p1p4*(-6
     &  *mW**2 + 16*p2p3 + 16*p2p4))) - Epsp1p2p3p4*mW**5*wW -2
     &  *Epsp1p2p3p4*mW**3*p1p3*wW +2*Epsp1p2p3p4*mW**3*p2p3*wW +2
     &  *Epsp1p2p3p4*mW**3*p2p4*wW -p1p2*((8*p1p3**2*p2p3 + (mW**3 - 2
     &  *mW*p2p3)**2 +2*p1p3*(mW**4 - 2*mW**2*p2p3 + 4*p2p3**2))*p2p4
     &  - 4*(mW**4 - 4*p1p3**2 - 2*mW**2*p2p3 -6*p1p3*p2p3)*p2p4**2 +4
     &  *(mW**2 + 2*p1p3)*p2p4**3 +p1p4**2*(8*p1p3**2 -2*mW**2*(mW**2
     &  - 4*p2p3 - 2*p2p4) +4*p1p3*(mW**2 + 4*p2p3 + 2*p2p4)) +p1p4*(4
     &  *p1p3**2*(mW**2 + 2*p2p3 + 6*p2p4) +4*p1p3*(mW**4 + 2*p2p3**2
     &  + 2*mW**2*p2p4 +4*p2p4**2 + p2p3*(mW**2 + 10*p2p4)) +mW**2
     &  *(mW**4 + 8*p2p3**2 - 6*mW**2*p2p4 +8*p2p4**2 + p2p3*(-6*mW**2
     &  + 20*p2p4))) +2*Epsp1p2p3p4*mW**3*wW)))/(mW**2*p1p2*(p1p2
     &  - p1p3 - p2p3)*p2p3*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB12
        dsig = dsig + (2*a*c*ee**4*g2**2*p1p3*(-2*p1p2**3 + 2*p2p3**3
     &  + 2*p1p3*(mW**2 + p1p3)*p2p4 +2*p2p3**2*(2*p1p3 + p2p4) +2
     &  *p1p2**2*(2*p1p3 + 3*p2p3 + p2p4) +p2p3*(-mW**4 + 2*p1p3**2 + 2
     &  *mW**2*p2p4 +4*p1p3*p2p4) +p1p2*(mW**4 - 2*p1p3**2 - 6*p2p3**2
     &  - 2*mW**2*p2p4 -4*p2p3*p2p4 - 4*p1p3*(2*p2p3 + p2p4))))/(mW**2
     &  *p1p2*p2p3*(-p1p2 + p1p3 + p2p3)**2)
 
* AB13
        dsig = dsig + (2*a*c*ee**2*g2**2*gWWZ*gZL*(-16*mW**2*p1p2**5 +8
     &  *p1p2**4*(-2*mW**4 + mW**2*mZ**2 +4*(mW**2 + p1p3)*p1p4 + 4
     &  *mW**2*p2p3 +6*mW**2*p2p4 + 4*p1p3*p2p4) -4*p1p2**3*(4*p1p3**2
     &  *(mW**2 + 2*p1p4 + 2*p2p4) +4*p1p3*(mW**4 + 2*p1p4**2 +(-mW**2
     &  + mZ**2 + 4*p2p3)*p2p4 + 4*p2p4**2 +p1p4*(mW**2 + mZ**2 + 4
     &  *p2p3 + 6*p2p4)) +mW**2*(mW**4 - 2*mW**2*mZ**2 + 4*p1p4**2 +4
     &  *p2p3**2 - 4*p2p3*(mW**2 - mZ**2 - 4*p2p4) -8*mW**2*p2p4 + 6
     &  *mZ**2*p2p4 + 12*p2p4**2 +p1p4*(-6*mW**2 + 4*mZ**2 + 16*p2p3
     &  + 16*p2p4) -mW*mZ*wW*wZ)) +2*p1p2**2*(4*p1p3**2*(mW**2*mZ**2
     &  + 4*p1p4**2 +2*(mZ**2 + 2*p2p3)*p2p4 + 8*p2p4**2 +2*p1p4
     &  *(mW**2 + mZ**2 + 2*p2p3 + 6*p2p4)) +mW**2*(mW**4*mZ**2 + 2
     &  *mW**4*p2p4 -8*mW**2*mZ**2*p2p4 - 8*mW**2*p2p4**2 +12*mZ**2
     &  *p2p4**2 + 8*p2p4**3 +4*p2p3**2*(mZ**2 + 2*p2p4) +4*p1p4**2*(
     &  -mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +4*Epsp1p2p3p4*mW*wW + 4
     &  *Epsp1p2p3p4*mZ*wZ +2*mW**3*mZ*wW*wZ - 4*mW*mZ*p2p4*wW*wZ -4
     &  *p2p3*(2*(mW**2 - 2*mZ**2)*p2p4 - 4*p2p4**2 +mW*mZ*(mW*mZ + wW
     &  *wZ)) +2*p1p4*(8*p2p3**2 + (-6*mW**2 + 8*mZ**2)*p2p4 +8
     &  *p2p4**2 +p2p3*(-6*mW**2 + 8*mZ**2 + 20*p2p4) +mW*(mW**3 - 3*mW
     &  *mZ**2 - mZ*wW*wZ))) +4*p1p3*(mW**4*mZ**2 + 4*(mZ**2 + 3*p2p3)
     &  *p2p4**2 +4*p2p4**3 +2*p1p4**2*(mW**2 + mZ**2 + 4*p2p3 + 2
     &  *p2p4) +p2p4*(-2*(mW**2 - 2*mZ**2)*p2p3 + 4*p2p3**2 +mW*(mW**3
     &  - mW*mZ**2 - mZ*wW*wZ)) +p1p4*(4*p2p3**2 + (4*mW**2 + 6*mZ**2)
     &  *p2p4 +8*p2p4**2 +2*p2p3*(mW**2 + 2*mZ**2 + 10*p2p4) +mW*(2
     &  *mW**3 + mW*mZ**2 - mZ*wW*wZ)))) -2*mZ*(2*mZ*p1p4**2*(-2
     &  *(mW**2 + 2*p1p3)*p2p3**2 -4*p1p3*(mW**2 + p1p3)*p2p4 +p2p3
     &  *(mW**4 - 4*p1p3**2 - 2*mW**2*p2p4 -2*p1p3*(mW**2 + 2*p2p4)))
     &  +Epsp1p2p3p4*mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mW*mZ*wW + 2*p2p4
     &  *wZ) -2*p1p3**2*(mW**2 - 2*p2p3 - 2*p2p4)*p2p4*(-2*mZ*p2p4 + mW
     &  *wW*wZ) +p1p3*(-4*mZ*(mW**2 + 2*p2p3)*p2p4**3 +2*Epsp1p2p3p4
     &  *mW**3*mZ*wW +mW*p2p4*(4*Epsp1p2p3p4*mW - mW**4*wW -2*mW**2
     &  *p2p3*wW + 4*p2p3**2*wW)*wZ +2*p2p4**2*(-4*mZ*p2p3**2 + mW**3
     &  *(mW*mZ + wW*wZ) +2*mW*p2p3*(mW*mZ + wW*wZ))) +p1p4*(2*p2p3**2
     &  *(2*p1p3*(-4*mZ*p2p4 + mW*wW*wZ) +mW**2*(-2*mZ*p2p4 + mW*wW
     &  *wZ)) +p2p3*(4*p1p3**2*(-4*mZ*p2p4 + mW*wW*wZ) +2*p1p3*(-8*mZ
     &  *p2p4**2 + mW**3*wW*wZ +2*mW*p2p4*wW*wZ) -mW**2*(4*mZ*p2p4**2
     &  +(4*Epsp1p2p3p4 + mW**3*wW)*wZ -2*mW*p2p4*(mW*mZ + wW*wZ))) +2
     &  *(Epsp1p2p3p4*mW**2*(mW**2 - 2*p2p4)*wZ +2*p1p3**2*p2p4*(-4*mZ
     &  *p2p4 + mW*(mW*mZ + wW*wZ)) +mW**2*p1p3*(-6*mZ*p2p4**2 + 2
     &  *Epsp1p2p3p4*wZ +mW*p2p4*(mW*mZ + 2*wW*wZ))))) +p1p2*(4*p1p3**2
     &  *(4*(mW**2 - 2*mZ**2 - 2*p2p3)*p2p4**2 -8*p2p4**3 -4*p1p4**2
     &  *(mZ**2 + 2*p2p3 + 2*p2p4) +mW**3*mZ*wW*wZ +2*mZ*p2p4*(-2*mZ
     &  *p2p3 + mW*wW*wZ) -2*p1p4*(-2*(mW**2 - 3*mZ**2)*p2p4 + 8
     &  *p2p4**2 +2*p2p3*(mZ**2 + 4*p2p4) +mW*mZ*(mW*mZ - wW*wZ))) +4
     &  *p1p3*(-4*(mW**2 + mZ**2 + 2*p2p3)*p2p4**3 -2*p1p4**2*(mW**2
     &  *mZ**2 + 4*p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2*p2p3*(mW**2 + 2
     &  *mZ**2 + 2*p2p4)) +2*p2p4**2*(mW**4 + 2*(mW**2 - 3*mZ**2)*p2p3
     &  - 4*p2p3**2 +mW*mZ*wW*wZ) +mW**2*(mW**3*mZ*wW*wZ +2*Epsp1p2p3p4
     &  *(mW*wW + mZ*wZ)) -mZ*p2p4*(4*mZ*p2p3**2 + mW**3*(mW*mZ + wW
     &  *wZ) -2*mW*p2p3*(mW*mZ + 2*wW*wZ)) -p1p4*(4*(3*mW**2 + 2*mZ**2)
     &  *p2p4**2 +4*p2p3**2*(mZ**2 + 4*p2p4) +mW**3*mZ*(2*mW*mZ - wW
     &  *wZ) -2*mW*p2p4*(mW**3 - 2*mW*mZ**2 + mZ*wW*wZ) +2*p2p3*(10
     &  *mZ**2*p2p4 + 8*p2p4**2 +mW*mZ*(mW*mZ - 2*wW*wZ)))) +mW**2*(4
     &  *p1p4**2*(-4*p2p3**2 + mZ**2*(mW**2 - 2*p2p4) +2*p2p3*(mW**2
     &  - 2*mZ**2 - 2*p2p4)) -2*mW**4*mZ**2*p2p4 + 8*mW**2*mZ**2
     &  *p2p4**2 -8*mZ**2*p2p4**3 + 4*Epsp1p2p3p4*mW**3*wW -4
     &  *Epsp1p2p3p4*mW*mZ**2*wW -8*Epsp1p2p3p4*mW*p2p4*wW +4
     &  *Epsp1p2p3p4*mW**2*mZ*wZ -16*Epsp1p2p3p4*mZ*p2p4*wZ + mW**5*mZ
     &  *wW*wZ -4*mW**3*mZ*p2p4*wW*wZ + 4*mW*mZ*p2p4**2*wW*wZ +4*mZ
     &  *p2p3**2*(-2*mZ*p2p4 + mW*wW*wZ) -4*p2p3*(4*mZ**2*p2p4**2
     &  + mW**3*mZ*wW*wZ +2*Epsp1p2p3p4*(mW*wW + mZ*wZ) -2*mW*mZ*p2p4
     &  *(mW*mZ + wW*wZ)) -2*p1p4*(8*p2p3**2*(mZ**2 + p2p4) +mZ*(mW**4
     &  *mZ + 8*mZ*p2p4**2 +4*Epsp1p2p3p4*wZ + mW**3*wW*wZ -2*mW*p2p4
     &  *(3*mW*mZ + wW*wZ)) +p2p3*(-4*(mW**2 - 5*mZ**2)*p2p4 + 8
     &  *p2p4**2 -2*mW*mZ*(3*mW*mZ + 2*wW*wZ)))))))/(mW**2*(p1p2
     &  - p1p3 - p2p3)*p2p3*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB14
        dsig = dsig + (-4*a*c*ee**2*g2**2*gZL**2*(mZ**2 - 2*p1p2)*p1p3
     &  *(-2*p1p2**3 + 2*p2p3**3 +2*p1p3*(mW**2 + p1p3)*p2p4 +2*p2p3**2
     &  *(2*p1p3 + p2p4) +2*p1p2**2*(2*p1p3 + 3*p2p3 + p2p4) +p2p3*(
     &  -mW**4 + 2*p1p3**2 + 2*mW**2*p2p4 +4*p1p3*p2p4) +p1p2*(mW**4
     &  - 2*p1p3**2 - 6*p2p3**2 - 2*mW**2*p2p4 -4*p2p3*p2p4 - 4*p1p3*(2
     &  *p2p3 + p2p4))))/(mW**2*p2p3*(-p1p2 + p1p3 + p2p3)**2*(mZ**4
     &  - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB15
        dsig = dsig + (a*c*ee**2*g2**2*gZL*gZnuL*(-8*p1p2**4*(mW**2 + 2
     &  *p1p3) +4*p1p2**3*(8*p1p3**2 +mW**2*(-2*mW**2 + mZ**2 + 2*p1p4
     &  + 4*p2p3 +4*p2p4) +2*p1p3*(mZ**2 + 2*p1p4 + 6*p2p3 + 4*p2p4))
     &  -2*p1p2**2*(8*p1p3**3 +4*p1p3**2*(mW**2 + 2*mZ**2 + 2*p1p4 + 8
     &  *p2p3 +6*p2p4) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)*(mW**2 - 2
     &  *mZ**2 - 2*p2p3 - 2*p2p4) +p1p4*(-2*mW**2 + 2*mZ**2 + 8*p2p3
     &  + 4*p2p4)) +4*p1p3*(6*p2p3**2 +p2p4*(mW**2 + 2*mZ**2 + 2*p2p4)
     &  +p1p4*(mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +p2p3*(3*mZ**2 + 8
     &  *p2p4))) +2*mZ*(-4*mZ*p1p3**3*(p2p3 + p2p4) -2*mZ*p1p3**2*(4
     &  *p2p3**2 + 6*p2p3*p2p4 + 2*p1p4*(p2p3 + p2p4) +p2p4*(mW**2 + 2
     &  *p2p4)) +mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mZ*p1p4*p2p3
     &  + Epsp1p2p3p4*wZ) +p1p3*(-4*mZ*p2p3**3 -4*mZ*p2p3**2*(p1p4 + 2
     &  *p2p4) +2*mZ*p2p3*(mW**4 - mW**2*p2p4 - 2*p2p4**2 -p1p4*(mW**2
     &  + 2*p2p4)) +mW**2*(mZ*(mW**2 - 4*p1p4)*p2p4 - 2*mZ*p2p4**2 +2
     &  *Epsp1p2p3p4*wZ))) +p1p2*(8*p1p3**3*(mZ**2 + 2*p2p3 + 2*p2p4)
     &  +4*p1p3**2*(mW**2*mZ**2 + 8*p2p3**2 + 2*mW**2*p2p4 +6*mZ**2
     &  *p2p4 + 4*p2p4**2 +2*p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +4*p2p3*(2
     &  *mZ**2 + 3*p2p4)) +4*p1p3*(4*p2p3**3 + p2p3**2*(6*mZ**2 + 8
     &  *p2p4) +p2p4*(-mW**4 + mW**2*mZ**2 +2*(mW**2 + mZ**2)*p2p4)
     &  +p2p3*(-2*mW**4 + 2*(mW**2 + 4*mZ**2)*p2p4 +4*p2p4**2) +p1p4
     &  *(mW**2*mZ**2 + 4*p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2*p2p3
     &  *(mW**2 + 2*mZ**2 + 2*p2p4))) +mW**2*(p1p4*(8*p2p3**2 - 2*mZ**2
     &  *(mW**2 - 2*p2p4) +p2p3*(-4*mW**2 + 8*mZ**2 + 8*p2p4)) +mZ
     &  *(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ*p2p3*(mW**2 - 2*p2p4) -4*mW**2
     &  *mZ*p2p4 + 4*mZ*p2p4**2 +4*Epsp1p2p3p4*wZ)))))/(mW**2*(p1p2
     &  - p1p3 - p2p3)*p2p3*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(mZ**4
     &  - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB16
        dsig = dsig + (2*a*c*ee**2*g2**4*(4*mW**2*p1p2**4 +4*p1p2**3*(
     &  -(p1p3*(mW**2 + 2*p1p4)) +mW**2*(mW**2 - 2*p1p4 - 2*p2p3 - 3
     &  *p2p4)) +4*p1p3**2*(p1p4 + p2p4)*(-((mW**2 - 2*p1p4)*p2p3) + 2
     &  *p1p4*p2p4) +p1p2**2*(4*(mW**2 + 2*p1p3)*p1p4**2 +mW**2*(mW**4
     &  + 4*p2p3**2 -4*p2p3*(mW**2 - 2*p1p3 - 4*p2p4) +(-8*mW**2 + 12
     &  *p1p3)*p2p4 + 12*p2p4**2) +2*p1p4*(4*p1p3**2 +4*p1p3*(mW**2 + 2
     &  *p2p3 + 2*p2p4) +mW**2*(-3*mW**2 + 8*p2p3 + 8*p2p4))) -mW**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*(2*p1p4**2*p2p3 + 2*p1p4*p2p3*p2p4
     &  +Epsp1p2p3p4*mW*wW) +p1p3*(4*p1p4**2*(2*p2p3**2 + 2*mW**2*p2p4
     &  + p2p3*(mW**2 + 2*p2p4))+ p1p4*(-2*mW**2*(mW**2 - 6*p2p4)*p2p4
     &  +4*p2p3**2*(mW**2 + 2*p2p4) -4*p2p3*(mW**4 - 3*mW**2*p2p4 - 2
     &  *p2p4**2)) -2*mW**2*(-2*p2p3**2*p2p4 +2*p2p3*(mW**2 - 2*p2p4)
     &  *p2p4 + mW**2*p2p4**2 -2*p2p4**3 + Epsp1p2p3p4*mW*wW)) -p1p2
     &  *(p1p4**2*(8*p1p3**2 -2*mW**2*(mW**2 - 4*p2p3 - 2*p2p4) +4*p1p3
     &  *(mW**2 + 4*p2p3 + 2*p2p4)) +p1p4*(mW**6 + 8*(mW**2 + p1p3)
     &  *p2p3**2 +(-6*mW**4 + 20*mW**2*p1p3 + 16*p1p3**2)*p2p4 +8
     &  *(mW**2 + p1p3)*p2p4**2 +p2p3*(-6*mW**4 + 8*p1p3**2 + 20*mW**2
     &  *p2p4 +12*p1p3*(mW**2 + 2*p2p4))) +mW**2*(-4*p1p3**2*p2p3
     &  + (mW**2 - 2*p2p3)**2*p2p4 -4*(mW**2 - 2*p2p3)*p2p4**2 + 4
     &  *p2p4**3 -2*p1p3*(-2*p2p3**2 + 2*p2p3*(mW**2 - 4*p2p4) +(mW**2
     &  - 6*p2p4)*p2p4) + 2*Epsp1p2p3p4*mW*wW))))/(mW**2*(mW**2 - 2
     &  *p1p4)*(p1p2 - p1p3 - p2p3)*p2p3*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB21
        dsig = dsig + (-4*a*c*ee*g2**2*gWWA*gZL**2*(4*mW**2*p1p2**4 - 2
     &  *mW**4*p1p3*p2p4**2 -4*mW**2*p1p3**2*p2p4**2 - 4*mW**2*p1p3
     &  *p2p3*p2p4**2 +8*p1p3**2*p2p3*p2p4**2 + 8*p1p3*p2p3**2*p2p4**2
     &  +4*mW**2*p1p3*p2p4**3 + 8*p1p3**2*p2p4**3 +8*p1p3*p2p3*p2p4**3
     &  +4*p1p2**3*(mW**4 - 2*(mW**2 + p1p3)*p1p4 -2*mW**2*p2p3 - 3
     &  *mW**2*p2p4 - 2*p1p3*p2p4) +2*p1p4*p2p4*(mW**2*p2p3*(-mW**2 + 2
     &  *p2p3 + 2*p2p4) +p1p3**2*(-2*mW**2 + 8*p2p3 + 8*p2p4) +p1p3*(
     &  -mW**4 + 8*p2p3**2 + 6*mW**2*p2p4 +8*p2p3*p2p4)) +p1p4**2*(4
     &  *(mW**2 + 2*p1p3)*p2p3**2 +8*p1p3*(mW**2 + p1p3)*p2p4 +p2p3*(-2
     &  *mW**4 + 8*p1p3**2 + 4*mW**2*p2p4 +4*p1p3*(mW**2 + 2*p2p4)))
     &  +p1p2**2*(4*p1p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +4*p1p3*(mW**4
     &  + 2*p1p4**2 - (mW**2 - 4*p2p3)*p2p4 +4*p2p4**2 + p1p4*(mW**2
     &  + 4*p2p3 + 6*p2p4)) +mW**2*(mW**4 + 4*p1p4**2 + 4*p2p3**2 -4
     &  *p2p3*(mW**2 - 4*p2p4) - 8*mW**2*p2p4 +12*p2p4**2 + p1p4*(-6
     &  *mW**2 + 16*p2p3 + 16*p2p4))) - Epsp1p2p3p4*mW**5*wW -2
     &  *Epsp1p2p3p4*mW**3*p1p3*wW +2*Epsp1p2p3p4*mW**3*p2p3*wW +2
     &  *Epsp1p2p3p4*mW**3*p2p4*wW -p1p2*((8*p1p3**2*p2p3 + (mW**3 - 2
     &  *mW*p2p3)**2 +2*p1p3*(mW**4 - 2*mW**2*p2p3 + 4*p2p3**2))*p2p4
     &  - 4*(mW**4 - 4*p1p3**2 - 2*mW**2*p2p3 -6*p1p3*p2p3)*p2p4**2 +4
     &  *(mW**2 + 2*p1p3)*p2p4**3 +p1p4**2*(8*p1p3**2 -2*mW**2*(mW**2
     &  - 4*p2p3 - 2*p2p4) +4*p1p3*(mW**2 + 4*p2p3 + 2*p2p4)) +p1p4*(4
     &  *p1p3**2*(mW**2 + 2*p2p3 + 6*p2p4) +4*p1p3*(mW**4 + 2*p2p3**2
     &  + 2*mW**2*p2p4 +4*p2p4**2 + p2p3*(mW**2 + 10*p2p4)) +mW**2
     &  *(mW**4 + 8*p2p3**2 - 6*mW**2*p2p4 +8*p2p4**2 + p2p3*(-6*mW**2
     &  + 20*p2p4))) +2*Epsp1p2p3p4*mW**3*wW)))/(mW**2*p1p2*(p1p2
     &  - p1p3 - p2p3)*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4
     &  *p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB22
        dsig = dsig + (4*a*c*ee**2*g2**2*gZL**2*p1p3*(-2*p1p2**3 + 2
     &  *p2p3**3 + 2*p1p3*(mW**2 + p1p3)*p2p4 +2*p2p3**2*(2*p1p3
     &  + p2p4) +2*p1p2**2*(2*p1p3 + 3*p2p3 + p2p4) +p2p3*(-mW**4 + 2
     &  *p1p3**2 + 2*mW**2*p2p4 +4*p1p3*p2p4) +p1p2*(mW**4 - 2*p1p3**2
     &  - 6*p2p3**2 - 2*mW**2*p2p4 -4*p2p3*p2p4 - 4*p1p3*(2*p2p3
     &  + p2p4))))/(mW**2*p1p2*(-p1p2 + p1p3 + p2p3)**2*(mZ**2 + 2
     &  *p2p3))
 
* AB23
        dsig = dsig + (4*a*c*g2**2*gWWZ*gZL**3*(-16*mW**2*p1p2**5 +8
     &  *p1p2**4*(-2*mW**4 + mW**2*mZ**2 +4*(mW**2 + p1p3)*p1p4 + 4
     &  *mW**2*p2p3 +6*mW**2*p2p4 + 4*p1p3*p2p4) -4*p1p2**3*(4*p1p3**2
     &  *(mW**2 + 2*p1p4 + 2*p2p4) +4*p1p3*(mW**4 + 2*p1p4**2 +(-mW**2
     &  + mZ**2 + 4*p2p3)*p2p4 + 4*p2p4**2 +p1p4*(mW**2 + mZ**2 + 4
     &  *p2p3 + 6*p2p4)) +mW**2*(mW**4 - 2*mW**2*mZ**2 + 4*p1p4**2 +4
     &  *p2p3**2 - 4*p2p3*(mW**2 - mZ**2 - 4*p2p4) -8*mW**2*p2p4 + 6
     &  *mZ**2*p2p4 + 12*p2p4**2 +p1p4*(-6*mW**2 + 4*mZ**2 + 16*p2p3
     &  + 16*p2p4) -mW*mZ*wW*wZ)) +2*p1p2**2*(4*p1p3**2*(mW**2*mZ**2
     &  + 4*p1p4**2 +2*(mZ**2 + 2*p2p3)*p2p4 + 8*p2p4**2 +2*p1p4
     &  *(mW**2 + mZ**2 + 2*p2p3 + 6*p2p4)) +mW**2*(mW**4*mZ**2 + 2
     &  *mW**4*p2p4 -8*mW**2*mZ**2*p2p4 - 8*mW**2*p2p4**2 +12*mZ**2
     &  *p2p4**2 + 8*p2p4**3 +4*p2p3**2*(mZ**2 + 2*p2p4) +4*p1p4**2*(
     &  -mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +4*Epsp1p2p3p4*mW*wW + 4
     &  *Epsp1p2p3p4*mZ*wZ +2*mW**3*mZ*wW*wZ - 4*mW*mZ*p2p4*wW*wZ -4
     &  *p2p3*(2*(mW**2 - 2*mZ**2)*p2p4 - 4*p2p4**2 +mW*mZ*(mW*mZ + wW
     &  *wZ)) +2*p1p4*(8*p2p3**2 + (-6*mW**2 + 8*mZ**2)*p2p4 +8
     &  *p2p4**2 +p2p3*(-6*mW**2 + 8*mZ**2 + 20*p2p4) +mW*(mW**3 - 3*mW
     &  *mZ**2 - mZ*wW*wZ))) +4*p1p3*(mW**4*mZ**2 + 4*(mZ**2 + 3*p2p3)
     &  *p2p4**2 +4*p2p4**3 +2*p1p4**2*(mW**2 + mZ**2 + 4*p2p3 + 2
     &  *p2p4) +p2p4*(-2*(mW**2 - 2*mZ**2)*p2p3 + 4*p2p3**2 +mW*(mW**3
     &  - mW*mZ**2 - mZ*wW*wZ)) +p1p4*(4*p2p3**2 + (4*mW**2 + 6*mZ**2)
     &  *p2p4 +8*p2p4**2 +2*p2p3*(mW**2 + 2*mZ**2 + 10*p2p4) +mW*(2
     &  *mW**3 + mW*mZ**2 - mZ*wW*wZ)))) -2*mZ*(2*mZ*p1p4**2*(-2
     &  *(mW**2 + 2*p1p3)*p2p3**2 -4*p1p3*(mW**2 + p1p3)*p2p4 +p2p3
     &  *(mW**4 - 4*p1p3**2 - 2*mW**2*p2p4 -2*p1p3*(mW**2 + 2*p2p4)))
     &  +Epsp1p2p3p4*mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mW*mZ*wW + 2*p2p4
     &  *wZ) -2*p1p3**2*(mW**2 - 2*p2p3 - 2*p2p4)*p2p4*(-2*mZ*p2p4 + mW
     &  *wW*wZ) +p1p3*(-4*mZ*(mW**2 + 2*p2p3)*p2p4**3 +2*Epsp1p2p3p4
     &  *mW**3*mZ*wW +mW*p2p4*(4*Epsp1p2p3p4*mW - mW**4*wW -2*mW**2
     &  *p2p3*wW + 4*p2p3**2*wW)*wZ +2*p2p4**2*(-4*mZ*p2p3**2 + mW**3
     &  *(mW*mZ + wW*wZ) +2*mW*p2p3*(mW*mZ + wW*wZ))) +p1p4*(2*p2p3**2
     &  *(2*p1p3*(-4*mZ*p2p4 + mW*wW*wZ) +mW**2*(-2*mZ*p2p4 + mW*wW
     &  *wZ)) +p2p3*(4*p1p3**2*(-4*mZ*p2p4 + mW*wW*wZ) +2*p1p3*(-8*mZ
     &  *p2p4**2 + mW**3*wW*wZ +2*mW*p2p4*wW*wZ) -mW**2*(4*mZ*p2p4**2
     &  +(4*Epsp1p2p3p4 + mW**3*wW)*wZ -2*mW*p2p4*(mW*mZ + wW*wZ))) +2
     &  *(Epsp1p2p3p4*mW**2*(mW**2 - 2*p2p4)*wZ +2*p1p3**2*p2p4*(-4*mZ
     &  *p2p4 + mW*(mW*mZ + wW*wZ)) +mW**2*p1p3*(-6*mZ*p2p4**2 + 2
     &  *Epsp1p2p3p4*wZ +mW*p2p4*(mW*mZ + 2*wW*wZ))))) +p1p2*(4*p1p3**2
     &  *(4*(mW**2 - 2*mZ**2 - 2*p2p3)*p2p4**2 -8*p2p4**3 -4*p1p4**2
     &  *(mZ**2 + 2*p2p3 + 2*p2p4) +mW**3*mZ*wW*wZ +2*mZ*p2p4*(-2*mZ
     &  *p2p3 + mW*wW*wZ) -2*p1p4*(-2*(mW**2 - 3*mZ**2)*p2p4 + 8
     &  *p2p4**2 +2*p2p3*(mZ**2 + 4*p2p4) +mW*mZ*(mW*mZ - wW*wZ))) +4
     &  *p1p3*(-4*(mW**2 + mZ**2 + 2*p2p3)*p2p4**3 -2*p1p4**2*(mW**2
     &  *mZ**2 + 4*p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2*p2p3*(mW**2 + 2
     &  *mZ**2 + 2*p2p4)) +2*p2p4**2*(mW**4 + 2*(mW**2 - 3*mZ**2)*p2p3
     &  - 4*p2p3**2 +mW*mZ*wW*wZ) +mW**2*(mW**3*mZ*wW*wZ +2*Epsp1p2p3p4
     &  *(mW*wW + mZ*wZ)) -mZ*p2p4*(4*mZ*p2p3**2 + mW**3*(mW*mZ + wW
     &  *wZ) -2*mW*p2p3*(mW*mZ + 2*wW*wZ)) -p1p4*(4*(3*mW**2 + 2*mZ**2)
     &  *p2p4**2 +4*p2p3**2*(mZ**2 + 4*p2p4) +mW**3*mZ*(2*mW*mZ - wW
     &  *wZ) -2*mW*p2p4*(mW**3 - 2*mW*mZ**2 + mZ*wW*wZ) +2*p2p3*(10
     &  *mZ**2*p2p4 + 8*p2p4**2 +mW*mZ*(mW*mZ - 2*wW*wZ)))) +mW**2*(4
     &  *p1p4**2*(-4*p2p3**2 + mZ**2*(mW**2 - 2*p2p4) +2*p2p3*(mW**2
     &  - 2*mZ**2 - 2*p2p4)) -2*mW**4*mZ**2*p2p4 + 8*mW**2*mZ**2
     &  *p2p4**2 -8*mZ**2*p2p4**3 + 4*Epsp1p2p3p4*mW**3*wW -4
     &  *Epsp1p2p3p4*mW*mZ**2*wW -8*Epsp1p2p3p4*mW*p2p4*wW +4
     &  *Epsp1p2p3p4*mW**2*mZ*wZ -16*Epsp1p2p3p4*mZ*p2p4*wZ + mW**5*mZ
     &  *wW*wZ -4*mW**3*mZ*p2p4*wW*wZ + 4*mW*mZ*p2p4**2*wW*wZ +4*mZ
     &  *p2p3**2*(-2*mZ*p2p4 + mW*wW*wZ) -4*p2p3*(4*mZ**2*p2p4**2
     &  + mW**3*mZ*wW*wZ +2*Epsp1p2p3p4*(mW*wW + mZ*wZ) -2*mW*mZ*p2p4
     &  *(mW*mZ + wW*wZ)) -2*p1p4*(8*p2p3**2*(mZ**2 + p2p4) +mZ*(mW**4
     &  *mZ + 8*mZ*p2p4**2 +4*Epsp1p2p3p4*wZ + mW**3*wW*wZ -2*mW*p2p4
     &  *(3*mW*mZ + wW*wZ)) +p2p3*(-4*(mW**2 - 5*mZ**2)*p2p4 + 8
     &  *p2p4**2 -2*mW*mZ*(3*mW*mZ + 2*wW*wZ)))))))/(mW**2*(p1p2
     &  - p1p3 - p2p3)*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4
     &  *p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4
     &  - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB24
        dsig = dsig + (-8*a*c*g2**2*gZL**4*(mZ**2 - 2*p1p2)*p1p3*(-2
     &  *p1p2**3 + 2*p2p3**3 + 2*p1p3*(mW**2 + p1p3)*p2p4 +2*p2p3**2*(2
     &  *p1p3 + p2p4) +2*p1p2**2*(2*p1p3 + 3*p2p3 + p2p4) +p2p3*(
     &  -mW**4 + 2*p1p3**2 + 2*mW**2*p2p4 +4*p1p3*p2p4) +p1p2*(mW**4
     &  - 2*p1p3**2 - 6*p2p3**2 - 2*mW**2*p2p4 -4*p2p3*p2p4 - 4*p1p3*(2
     &  *p2p3 + p2p4))))/(mW**2*(-p1p2 + p1p3 + p2p3)**2*(mZ**2 + 2
     &  *p2p3)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB25
        dsig = dsig + (2*a*c*g2**2*gZL**3*gZnuL*(-8*p1p2**4*(mW**2 + 2
     &  *p1p3) +4*p1p2**3*(8*p1p3**2 +mW**2*(-2*mW**2 + mZ**2 + 2*p1p4
     &  + 4*p2p3 +4*p2p4) +2*p1p3*(mZ**2 + 2*p1p4 + 6*p2p3 + 4*p2p4))
     &  -2*p1p2**2*(8*p1p3**3 +4*p1p3**2*(mW**2 + 2*mZ**2 + 2*p1p4 + 8
     &  *p2p3 +6*p2p4) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)*(mW**2 - 2
     &  *mZ**2 - 2*p2p3 - 2*p2p4) +p1p4*(-2*mW**2 + 2*mZ**2 + 8*p2p3
     &  + 4*p2p4)) +4*p1p3*(6*p2p3**2 +p2p4*(mW**2 + 2*mZ**2 + 2*p2p4)
     &  +p1p4*(mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +p2p3*(3*mZ**2 + 8
     &  *p2p4))) +2*mZ*(-4*mZ*p1p3**3*(p2p3 + p2p4) -2*mZ*p1p3**2*(4
     &  *p2p3**2 + 6*p2p3*p2p4 + 2*p1p4*(p2p3 + p2p4) +p2p4*(mW**2 + 2
     &  *p2p4)) +mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mZ*p1p4*p2p3
     &  + Epsp1p2p3p4*wZ) +p1p3*(-4*mZ*p2p3**3 -4*mZ*p2p3**2*(p1p4 + 2
     &  *p2p4) +2*mZ*p2p3*(mW**4 - mW**2*p2p4 - 2*p2p4**2 -p1p4*(mW**2
     &  + 2*p2p4)) +mW**2*(mZ*(mW**2 - 4*p1p4)*p2p4 - 2*mZ*p2p4**2 +2
     &  *Epsp1p2p3p4*wZ))) +p1p2*(8*p1p3**3*(mZ**2 + 2*p2p3 + 2*p2p4)
     &  +4*p1p3**2*(mW**2*mZ**2 + 8*p2p3**2 + 2*mW**2*p2p4 +6*mZ**2
     &  *p2p4 + 4*p2p4**2 +2*p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +4*p2p3*(2
     &  *mZ**2 + 3*p2p4)) +4*p1p3*(4*p2p3**3 + p2p3**2*(6*mZ**2 + 8
     &  *p2p4) +p2p4*(-mW**4 + mW**2*mZ**2 +2*(mW**2 + mZ**2)*p2p4)
     &  +p2p3*(-2*mW**4 + 2*(mW**2 + 4*mZ**2)*p2p4 +4*p2p4**2) +p1p4
     &  *(mW**2*mZ**2 + 4*p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2*p2p3
     &  *(mW**2 + 2*mZ**2 + 2*p2p4))) +mW**2*(p1p4*(8*p2p3**2 - 2*mZ**2
     &  *(mW**2 - 2*p2p4) +p2p3*(-4*mW**2 + 8*mZ**2 + 8*p2p4)) +mZ
     &  *(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ*p2p3*(mW**2 - 2*p2p4) -4*mW**2
     &  *mZ*p2p4 + 4*mZ*p2p4**2 +4*Epsp1p2p3p4*wZ)))))/(mW**2*(p1p2
     &  - p1p3 - p2p3)*(mZ**2 + 2*p2p3)*(-p1p2 + p1p3 + p1p4 + p2p3
     &  + p2p4)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB26
        dsig = dsig + (4*a*c*g2**4*gZL**2*(4*mW**2*p1p2**4 +4*p1p2**3*(
     &  -(p1p3*(mW**2 + 2*p1p4)) +mW**2*(mW**2 - 2*p1p4 - 2*p2p3 - 3
     &  *p2p4)) +4*p1p3**2*(p1p4 + p2p4)*(-((mW**2 - 2*p1p4)*p2p3) + 2
     &  *p1p4*p2p4) +p1p2**2*(4*(mW**2 + 2*p1p3)*p1p4**2 +mW**2*(mW**4
     &  + 4*p2p3**2 -4*p2p3*(mW**2 - 2*p1p3 - 4*p2p4) +(-8*mW**2 + 12
     &  *p1p3)*p2p4 + 12*p2p4**2) +2*p1p4*(4*p1p3**2 +4*p1p3*(mW**2 + 2
     &  *p2p3 + 2*p2p4) +mW**2*(-3*mW**2 + 8*p2p3 + 8*p2p4))) -mW**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*(2*p1p4**2*p2p3 + 2*p1p4*p2p3*p2p4
     &  +Epsp1p2p3p4*mW*wW) +p1p3*(4*p1p4**2*(2*p2p3**2 + 2*mW**2*p2p4
     &  + p2p3*(mW**2 + 2*p2p4))+ p1p4*(-2*mW**2*(mW**2 - 6*p2p4)*p2p4
     &  +4*p2p3**2*(mW**2 + 2*p2p4) -4*p2p3*(mW**4 - 3*mW**2*p2p4 - 2
     &  *p2p4**2)) -2*mW**2*(-2*p2p3**2*p2p4 +2*p2p3*(mW**2 - 2*p2p4)
     &  *p2p4 + mW**2*p2p4**2 -2*p2p4**3 + Epsp1p2p3p4*mW*wW)) -p1p2
     &  *(p1p4**2*(8*p1p3**2 -2*mW**2*(mW**2 - 4*p2p3 - 2*p2p4) +4*p1p3
     &  *(mW**2 + 4*p2p3 + 2*p2p4)) +p1p4*(mW**6 + 8*(mW**2 + p1p3)
     &  *p2p3**2 +(-6*mW**4 + 20*mW**2*p1p3 + 16*p1p3**2)*p2p4 +8
     &  *(mW**2 + p1p3)*p2p4**2 +p2p3*(-6*mW**4 + 8*p1p3**2 + 20*mW**2
     &  *p2p4 +12*p1p3*(mW**2 + 2*p2p4))) +mW**2*(-4*p1p3**2*p2p3
     &  + (mW**2 - 2*p2p3)**2*p2p4 -4*(mW**2 - 2*p2p3)*p2p4**2 + 4
     &  *p2p4**3 -2*p1p3*(-2*p2p3**2 + 2*p2p3*(mW**2 - 4*p2p4) +(mW**2
     &  - 6*p2p4)*p2p4) + 2*Epsp1p2p3p4*mW*wW))))/(mW**2*(mW**2 - 2
     &  *p1p4)*(p1p2 - p1p3 - p2p3)*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4
     &  *p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2))
 
* AB31
        dsig = dsig + (-8*a*c*ee*g2**2*gWWA*gZL*gZnuL*(4*mW**2*p1p2**4
     &  +4*mW**2*p1p2**3*(mW**2 - 2*p2p3 - 3*p2p4) -8*(mW**2 + p1p3)
     &  *p1p4**3*(p2p3 + p2p4) +2*p1p4**2*(-2*mW**2*p2p3**2 +2*(mW**2
     &  + p1p3)*(mW**2 - 4*p2p4)*p2p4 +p2p3*(mW**4 - 2*(5*mW**2 + 4
     &  *p1p3)*p2p4)) +2*p1p4*p2p4*(2*mW**2*p1p3**2 +mW**2*(mW**2 - 2
     &  *p2p3 - 2*p2p4)*(p2p3 + 2*p2p4) +p1p3*(mW**4 + 2*(mW**2 - 2
     &  *p2p3)*p2p4 - 4*p2p4**2))+ p1p2**2*(4*mW**2*p1p3**2 +4*p1p3
     &  *(mW**4 - 2*p1p4**2 - 2*p1p4*p2p4) +mW**2*(mW**4 - 12*p1p4**2
     &  + 4*p2p3**2 -4*p2p3*(mW**2 - 4*p2p4) - 8*mW**2*p2p4 +12
     &  *p2p4**2 - 2*p1p4*(mW**2 + 4*p2p4))) +mW**2*(4*p1p3**2*p2p4**2
     &  +Epsp1p2p3p4*mW*(mW**2 - 2*p2p3 - 2*p2p4)*wW +2*mW*p1p3*(mW
     &  *p2p4**2 + Epsp1p2p3p4*wW)) +p1p2*(8*(mW**2 + p1p3)*p1p4**3
     &  +p1p4**2*(-2*mW**4 + 8*(2*mW**2 + p1p3)*p2p3 +4*(7*mW**2 + 6
     &  *p1p3)*p2p4) -p1p4*(4*mW**2*p1p3**2 +4*p1p3*(mW**4 + (mW**2 - 2
     &  *p2p3)*p2p4 -4*p2p4**2) +mW**2*(mW**4 + 2*mW**2*p2p4 - 16
     &  *p2p4**2 -2*p2p3*(mW**2 + 6*p2p4))) -mW**2*((6*mW**2*p1p3 + 8
     &  *p1p3**2 +(mW**2 - 2*p2p3)**2)*p2p4 -4*(mW**2 - 2*p2p3)
     &  *p2p4**2 + 4*p2p4**3 -2*Epsp1p2p3p4*mW*wW))))/(mW**2*p1p2
     &  *(mW**2 - 2*p1p4)*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB32
        dsig = dsig + (2*a*c*ee**2*g2**2*gZL*gZnuL*(4*mW**2*p1p2**3 +4
     &  *p1p2**2*(-(p1p3*(mW**2 + 2*p1p4)) +mW**2*(mW**2 - p1p4 - 2
     &  *p2p3 - 2*p2p4)) +p1p2*(p1p4*(8*p1p3**2 -2*mW**2*(mW**2 - 4
     &  *p2p3 - 2*p2p4) +4*p1p3*(mW**2 + 4*p2p3 + 2*p2p4)) +mW**2
     &  *(mW**4 + 4*p2p3**2 -4*(mW**2 - 2*p1p3)*p2p4 + 4*p2p4**2 +p2p3
     &  *(-4*mW**2 + 8*p1p3 + 8*p2p4))) +2*(mW**2*p1p4*p2p3*(mW**2 - 2
     &  *p2p3 - 2*p2p4) +2*p1p3**2*((mW**2 - 2*p1p4)*p2p3 - 2*p1p4
     &  *p2p4) +p1p3*(-2*(mW**2 + 2*p1p4)*p2p3**2 +mW**2*(mW**2 - 4
     &  *p1p4 - 2*p2p4)*p2p4 +2*p2p3*(mW**4 - 2*mW**2*p2p4 -p1p4
     &  *(mW**2 + 2*p2p4))))))/(mW**2*p1p2*(mW**2 - 2*p1p4)*(p1p2
     &  - p1p3 - p2p3)*(mZ**2 + 2*p2p3))
 
* AB33
        dsig = dsig + (8*a*c*g2**2*gWWZ*gZL**2*gZnuL*(-16*mW**2
     &  *p1p2**5 +8*mW**2*p1p2**4*(-2*mW**2 + mZ**2 + 4*p2p3 + 6*p2p4)
     &  -4*p1p2**3*(4*mW**2*p1p3**2 +4*p1p3*(mW**4 - 2*p1p4**2 - 2*p1p4
     &  *p2p4) +mW**2*(mW**4 - 2*mW**2*mZ**2 - 12*p1p4**2 +4*p2p3**2
     &  - 4*p2p3*(mW**2 - mZ**2 - 4*p2p4) -8*mW**2*p2p4 + 6*mZ**2*p2p4
     &  + 12*p2p4**2 -2*p1p4*(mW**2 + 4*p2p4) - mW*mZ*wW*wZ)) +2
     &  *p1p2**2*(4*mW**2*p1p3**2*(mZ**2 + 2*p1p4 + 4*p2p4) +4*p1p3*(-4
     &  *p1p4**3 + mW**4*(mZ**2 + 3*p2p4) -2*p1p4**2*(mZ**2 + 2*p2p3
     &  + 6*p2p4) +2*p1p4*(mW**4 + (mW**2 - mZ**2 - 2*p2p3)*p2p4 -4
     &  *p2p4**2)) +mW**2*(mW**4*mZ**2 - 16*p1p4**3 +4*p1p4**2*(mW**2
     &  - 3*mZ**2 - 8*p2p3 - 14*p2p4) +2*mW**4*p2p4 - 8*mW**2*mZ**2
     &  *p2p4 -8*mW**2*p2p4**2 + 12*mZ**2*p2p4**2 + 8*p2p4**3 +4
     &  *p2p3**2*(mZ**2 + 2*p2p4) -4*Epsp1p2p3p4*mW*wW - 4*Epsp1p2p3p4
     &  *mZ*wZ +2*mW**3*mZ*wW*wZ - 4*mW*mZ*p2p4*wW*wZ -4*p2p3*(2
     &  *(mW**2 - 2*mZ**2)*p2p4 - 4*p2p4**2 +mW*mZ*(mW*mZ + wW*wZ)) +2
     &  *p1p4*(2*(mW**2 - 2*mZ**2)*p2p4 - 16*p2p4**2 -2*p2p3*(mW**2 + 6
     &  *p2p4) +mW*(mW**3 - mW*mZ**2 + mZ*wW*wZ)))) +2*mZ*(-8*mZ
     &  *(mW**2 + p1p3)*p1p4**3*(p2p3 + p2p4) +2*p1p4**2*(-2*mW**2*mZ
     &  *p2p3**2 +2*(mW**2 + p1p3)*p2p4*(-4*mZ*p2p4 + mW*(mW*mZ + wW
     &  *wZ)) +p2p3*(2*p1p3*(-4*mZ*p2p4 + mW*wW*wZ) +mW**2*(mW**2*mZ
     &  - 10*mZ*p2p4 + 2*mW*wW*wZ)))+ mW**2*(Epsp1p2p3p4*(mW**2 - 2
     &  *p2p3 - 2*p2p4)*(mW*mZ*wW + 2*p2p4*wZ) +2*p1p3**2*p2p4*(2*mZ
     &  *p2p4 - mW*wW*wZ) +p1p3*(2*mW**2*mZ*p2p4**2 +2*Epsp1p2p3p4*mW
     &  *mZ*wW +p2p4*(4*Epsp1p2p3p4*wZ - mW**3*wW*wZ))) +p1p4*(-8*mZ
     &  *(mW**2 + p1p3)*p2p4**3 +2*Epsp1p2p3p4*mW**2*(mW**2 + 2*p1p3)
     &  *wZ +4*mW*(mW**2 + p1p3)*p2p4**2*(mW*mZ + wW*wZ) +2*mW**2
     &  *p2p3**2*(-2*mZ*p2p4 + mW*wW*wZ) -2*mW**2*p2p4*(-2*mZ*p1p3**2
     &  +(2*Epsp1p2p3p4 + mW**3*wW)*wZ +mW*p1p3*(-(mW*mZ) + wW*wZ))
     &  -p2p3*(4*mZ*(3*mW**2 + 2*p1p3)*p2p4**2 +mW**2*(4*Epsp1p2p3p4
     &  + mW**3*wW)*wZ -2*p2p4*(mW**4*mZ + 3*mW**3*wW*wZ + 2*mW*p1p3*wW
     &  *wZ)))) + p1p2*(4*mW**2*p1p3**2*(-4*mZ**2*p2p4 - 4*p2p4**2 -2
     &  *p1p4*(mZ**2 + 2*p2p4) + mW*mZ*wW*wZ) +mW**2*(-2*mW**4*mZ**2
     &  *p2p4 +8*mW**2*mZ**2*p2p4**2 - 8*mZ**2*p2p4**3 +16*p1p4**3
     &  *(mZ**2 + 2*p2p3 + 2*p2p4) -4*Epsp1p2p3p4*mW**3*wW +4
     &  *Epsp1p2p3p4*mW*mZ**2*wW +8*Epsp1p2p3p4*mW*p2p4*wW -4
     &  *Epsp1p2p3p4*mW**2*mZ*wZ +16*Epsp1p2p3p4*mZ*p2p4*wZ + mW**5*mZ
     &  *wW*wZ -4*mW**3*mZ*p2p4*wW*wZ + 4*mW*mZ*p2p4**2*wW*wZ +4*mZ
     &  *p2p3**2*(-2*mZ*p2p4 + mW*wW*wZ) +p2p3*(-16*mZ**2*p2p4**2 - 4
     &  *mW**3*mZ*wW*wZ +8*Epsp1p2p3p4*(mW*wW + mZ*wZ) +8*mW*mZ*p2p4
     &  *(mW*mZ + wW*wZ)) -4*p1p4**2*(-4*p2p3**2 +2*p2p3*(mW**2 - 4
     &  *mZ**2 - 10*p2p4) +2*(2*mW**2 - 7*mZ**2)*p2p4 - 16*p2p4**2 +mW
     &  *mZ*(mW*mZ + 2*wW*wZ)) -2*p1p4*(-8*p2p3**2*p2p4 +8*(mW**2 - 2
     &  *mZ**2)*p2p4**2 - 16*p2p4**3 +2*mW*mZ*p2p4*(mW*mZ + 3*wW*wZ)
     &  +mZ*(mW**4*mZ - 4*Epsp1p2p3p4*wZ -mW**3*wW*wZ) -2*p2p3*(-2
     &  *(mW**2 - 3*mZ**2)*p2p4 + 12*p2p4**2 +mW*mZ*(mW*mZ - 2*wW
     &  *wZ)))) +4*p1p3*(4*p1p4**3*(mZ**2 + 2*p2p3 + 2*p2p4) -2*p1p4**2
     &  *(2*(mW**2 - 3*mZ**2)*p2p4 - 8*p2p4**2 -2*p2p3*(mZ**2 + 4
     &  *p2p4) + mW*mZ*wW*wZ) +mW**2*(-3*mW**2*mZ**2*p2p4 - 2*mW**2
     &  *p2p4**2 +mW**3*mZ*wW*wZ - 2*Epsp1p2p3p4*(mW*wW + mZ*wZ)) - 2
     &  *p1p4*(mW**4*mZ**2 +2*(mW**2 - 2*mZ**2 - 2*p2p3)*p2p4**2 -4
     &  *p2p4**3 +p2p4*(-2*mZ**2*p2p3 +mW*(mW**3 + mW*mZ**2 + mZ*wW
     &  *wZ)))))))/(mW**2*(mW**2 - 2*p1p4)*(mZ**2 + 2*p2p3)*(4*p1p2**2
     &  + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB34
        dsig = dsig + (-4*a*c*g2**2*gZL**3*gZnuL*(-8*mW**2*p1p2**4 +4
     &  *p1p2**3*(2*p1p3*(mW**2 + 2*p1p4) +mW**2*(-2*mW**2 + mZ**2 + 2
     &  *p1p4 + 4*p2p3 + 4*p2p4))- 2*p1p2**2*(8*p1p3**2*p1p4 +2*p1p3*(2
     &  *p1p4*(mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +mW**2*(mZ**2 + 4*p2p3
     &  + 4*p2p4)) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)*(mW**2 - 2*mZ**2
     &  - 2*p2p3 - 2*p2p4) +p1p4*(-2*mW**2 + 2*mZ**2 + 8*p2p3 + 4
     &  *p2p4))) +p1p2*(2*p1p4*(4*p1p3**2*(mZ**2 + 2*p2p3 + 2*p2p4) +2
     &  *p1p3*(mW**2*mZ**2 + 4*p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2
     &  *p2p3*(mW**2 + 2*mZ**2 + 2*p2p4)) +mW**2*(4*p2p3**2 - mZ**2
     &  *(mW**2 - 2*p2p4) +p2p3*(-2*mW**2 + 4*mZ**2 + 4*p2p4))) +mW**2
     &  *(4*(mZ**2 + 2*p1p3)*p2p3**2 -4*p2p3*(2*p1p3**2 + mZ**2*(mW**2
     &  - 2*p2p4) +2*p1p3*(mW**2 - mZ**2 - 2*p2p4)) -4*(mW**2*mZ**2
     &  + (mW**2 - 2*mZ**2)*p1p3)*p2p4 +4*(mZ**2 + 2*p1p3)*p2p4**2 +mZ
     &  *(mW**4*mZ - 4*Epsp1p2p3p4*wZ))) +2*mZ*(2*mZ*p1p3**2*((mW**2
     &  - 2*p1p4)*p2p3 - 2*p1p4*p2p4) +mW**2*(mW**2 - 2*p2p3 - 2*p2p4)
     &  *(mZ*p1p4*p2p3 - Epsp1p2p3p4*wZ) +p1p3*(-2*mZ*(mW**2 + 2*p1p4)
     &  *p2p3**2 +2*mZ*p2p3*(mW**4 - 2*mW**2*p2p4 - p1p4*(mW**2 + 2
     &  *p2p4))+ mW**2*(mZ*(mW**2 - 4*p1p4)*p2p4 - 2*mZ*p2p4**2 -2
     &  *Epsp1p2p3p4*wZ)))))/(mW**2*(mW**2 - 2*p1p4)*(p1p2 - p1p3
     &  - p2p3)*(mZ**2 + 2*p2p3)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2
     &  + mZ**2*wZ**2))
 
* AB35
        dsig = dsig + (16*a*c*g2**2*gZL**2*gZnuL**2*(mZ**2 - 2*p1p2)
     &  *(p1p2 - p2p3 - p2p4)*(p1p3**2*(mW**2 - 2*p1p4) +mW**2*p1p4
     &  *(mW**2 + 2*p1p2 - 2*p1p4 - 2*p2p3 -2*p2p4) + p1p3*(-2*p1p4**2
     &  + p1p2*(mW**2 + 2*p1p4) +mW**2*(mW**2 - p2p3 - p2p4) -p1p4
     &  *(mW**2 + 2*p2p3 + 2*p2p4))))/(mW**2*(mW**2 - 2*p1p4)*(mZ**2
     &  + 2*p2p3)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(mZ**4 - 4*mZ**2
     &  *p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB36
        dsig = dsig + (16*a*c*g2**4*gZL*gZnuL*(p1p3*(mW**4 - 4
     &  *p1p4**2) +2*mW**2*p1p4*(mW**2 + 2*p1p2 - 2*p1p4 - 2*p2p3 -2
     &  *p2p4))*(-p1p2 + p1p4 + p2p4)*(-p1p2 + p2p3 + p2p4))/((mW**3
     &  - 2*mW*p1p4)**2*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB41
        dsig = dsig + (8*a*c*ee**2*g2**2*gWWA**2*(2*mW**4*p1p3*p2p4**2
     &  + 4*mW**2*p1p3**2*p2p4**2 +2*mW**2*p1p3*p2p3*p2p4**2 - 4
     &  *p1p3**2*p2p3*p2p4**2 -4*p1p3*p2p3**2*p2p4**2 - 2*mW**2*p1p3
     &  *p2p4**3 -4*p1p3**2*p2p4**3 - 4*p1p3*p2p3*p2p4**3 -4*(mW**2
     &  + p1p3)*p1p4**3*(p2p3 + p2p4) +2*(mW**2 + p1p3)*p1p4**2*(mW**2
     &  - 2*p1p3 - 2*p2p3 - 4*p2p4)*(p2p3 + p2p4) +4*p1p2**3*((mW**2
     &  + p1p3)*p1p4 + p1p3*p2p4) -2*p1p4*p2p4*(-(mW**2*(mW**2 - 2
     &  *p2p3 - 2*p2p4)*(p2p3 + p2p4)) +p1p3**2*(-2*mW**2 + 4*p2p3 + 4
     &  *p2p4) +p1p3*(-mW**4 + 4*p2p3**2 + 2*mW**2*p2p4 +6*p2p3*p2p4
     &  + 2*p2p4**2)) +2*p1p2**2*(-4*(mW**2 + p1p3)*p1p4**2 +p1p3
     &  *(mW**2 - 2*p1p3 - 4*p2p3 - 4*p2p4)*p2p4 +p1p4*(-2*p1p3**2
     &  +mW**2*(mW**2 - 4*p2p3 - 6*p2p4) -p1p3*(mW**2 + 4*p2p3 + 8
     &  *p2p4))) +Epsp1p2p3p4*mW**5*wW + 2*Epsp1p2p3p4*mW**3*p1p3*wW -2
     &  *Epsp1p2p3p4*mW**3*p2p3*wW -2*Epsp1p2p3p4*mW**3*p2p4*wW +2*p1p2
     &  *(2*(mW**2 + p1p3)*p1p4**3 -(mW**2 + p1p3)*p1p4**2*(mW**2 - 2
     &  *p1p3 - 6*p2p3 - 8*p2p4) +2*p1p3**2*p2p4*(-mW**2 + p2p3 + 2
     &  *p2p4) +p1p3*p2p4*(-mW**4 + 2*p2p3**2 -p2p3*(mW**2 - 6*p2p4)
     &  + 2*p2p4**2) +p1p4*(2*(mW**2 + p1p3)*p2p3**2 +p2p4*(-2*mW**4
     &  + 6*p1p3**2 + 6*mW**2*p2p4 +p1p3*(mW**2 + 8*p2p4)) +p2p3*(
     &  -mW**4 + 2*p1p3**2 + 8*mW**2*p2p4 +p1p3*(mW**2 + 12*p2p4)))
     &  +Epsp1p2p3p4*mW**3*wW)))/(mW**2*p1p2*(mW**2 + 2*p1p2 - 2*p1p3
     &  - 2*p1p4)*p2p3*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4
     &  *p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB42
        dsig = dsig + (a*c*ee**3*g2**2*gWWA*(-4*p1p2**3*(mW**2 + 2
     &  *p1p3) +4*p1p2**2*(4*p1p3**2 +mW**2*(-mW**2 + p1p4 + 2*p2p3 + 2
     &  *p2p4) +p1p3*(mW**2 + 2*p1p4 + 6*p2p3 + 2*p2p4)) -p1p2*(8
     &  *p1p3**3 + 8*p1p3**2*(p1p4 + 4*p2p3 + 2*p2p4) +4*p1p3*(-mW**4
     &  + 6*p2p3**2 + 4*mW**2*p2p4 +2*p2p3*(mW**2 + 2*p2p4) +p1p4
     &  *(mW**2 + 4*p2p3 + 2*p2p4)) +mW**2*((mW**2 - 2*p2p3 - 2
     &  *p2p4)**2 +p1p4*(-2*mW**2 + 8*p2p3 + 4*p2p4))) +2*(4*p1p3**3
     &  *(p2p3 + p2p4) +mW**2*p1p4*p2p3*(-mW**2 + 2*p2p3 + 2*p2p4)
     &  +p1p3**2*(8*p2p3**2 + 4*(mW**2 + p1p4)*p2p4 +p2p3*(-2*mW**2 + 4
     &  *p1p4 + 8*p2p4)) +p1p3*(4*p2p3**3 +2*p2p3**2*(mW**2 + 2*p1p4
     &  + 2*p2p4) +mW**2*p2p4*(-mW**2 + 4*p1p4 + 2*p2p4) +p2p3*(-4
     &  *mW**4 + 8*mW**2*p2p4 +2*p1p4*(mW**2 + 2*p2p4))))))/(mW**2*p1p2
     &  *(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*(p1p2 - p1p3 - p2p3)*p2p3)
 
* AB43
        dsig = dsig + (-16*a*c*ee*g2**2*gWWA*gWWZ*gZL*(-8*p1p2**4
     &  *((mW**2 + p1p3)*p1p4 + p1p3*p2p4) +4*p1p2**3*(4*(mW**2 + p1p3)
     &  *p1p4**2 +p1p3*p2p4*(-mW**2 + mZ**2 + 2*p1p3 + 4*p2p3 +4*p2p4)
     &  +p1p4*(2*p1p3**2 +mW**2*(-mW**2 + mZ**2 + 4*p2p3 + 6*p2p4)
     &  +p1p3*(mW**2 + mZ**2 + 4*p2p3 + 8*p2p4))) +2*p1p2**2*(-4
     &  *(mW**2 + p1p3)*p1p4**3 +2*(mW**2 + p1p3)*p1p4**2*(mW**2 - 2
     &  *mZ**2 - 2*p1p3 - 6*p2p3 - 8*p2p4) +2*p1p3**2*(2*mW**2 - mZ**2
     &  - 2*p2p3 - 4*p2p4)*p2p4 - 2*Epsp1p2p3p4*mW**2*(mW*wW + mZ*wZ)
     &  +p1p3*p2p4*(-4*p2p3**2 +2*p2p3*(mW**2 - 2*mZ**2 - 6*p2p4) -4
     &  *mZ**2*p2p4 - 4*p2p4**2 +mW*(2*mW**3 + mW*mZ**2 + mZ*wW*wZ))
     &  +p1p4*(-2*p1p3**2*(mZ**2 + 2*p2p3 + 6*p2p4) -p1p3*(4*p2p3**2
     &  + 2*(mW**2 + 4*mZ**2)*p2p4 +16*p2p4**2 +2*p2p3*(mW**2 + 2
     &  *mZ**2 + 12*p2p4) +mW*mZ*(mW*mZ - wW*wZ)) +mW**2*(-4*p2p3**2 +2
     &  *p2p3*(mW**2 - 2*mZ**2 - 8*p2p4) +(4*mW**2 - 6*mZ**2)*p2p4 - 12
     &  *p2p4**2 +mW*mZ*(mW*mZ + wW*wZ)))) +p1p2*(4*(mW**2 + p1p3)
     &  *p1p4**3*(mZ**2 + 2*p2p3 + 2*p2p4) -2*(mW**2 + p1p3)*p1p4**2
     &  *(mW**2*mZ**2 - 4*p2p3**2 +2*p2p3*(mW**2 - 3*mZ**2 - 6*p2p4) +2
     &  *mW**2*p2p4 - 8*mZ**2*p2p4 - 8*p2p4**2 -2*p1p3*(mZ**2 + 2*p2p3
     &  + 2*p2p4) + mW*mZ*wW*wZ)+ 2*Epsp1p2p3p4*mW**2*(2*p2p3*(mW*wW
     &  + mZ*wZ) +2*p2p4*(mW*wW + 2*mZ*wZ) -mW*(mW**2*wW - mZ**2*wW
     &  + mW*mZ*wZ)) +2*p1p3**2*p2p4*(-4*(mW**2 - mZ**2)*p2p4 + 4
     &  *p2p4**2 +2*p2p3*(mZ**2 + 2*p2p4) - mW*mZ*(2*mW*mZ + wW*wZ))
     &  + p1p3*(4*(mW**2 + mZ**2 + 2*p2p3)*p2p4**3 -4*Epsp1p2p3p4*mW**2
     &  *(mW*wW + mZ*wZ) -2*p2p4**2*(2*mW**4 + 2*(mW**2 - 3*mZ**2)
     &  *p2p3 -4*p2p3**2 + mW*mZ*wW*wZ) +mZ*p2p4*(4*mZ*p2p3**2 +mW**3*(
     &  -2*mW*mZ + wW*wZ) -2*mW*p2p3*(mW*mZ + 2*wW*wZ))) +p1p4*(-2
     &  *p1p3**2*((4*mW**2 - 6*mZ**2)*p2p4 - 8*p2p4**2 -2*p2p3*(mZ**2
     &  + 4*p2p4) + mW*mZ*wW*wZ) +p1p3*(8*(mW**2 + 2*mZ**2)*p2p4**2 + 8
     &  *p2p4**3 +4*p2p3**2*(mZ**2 + 4*p2p4) - mW**3*mZ*wW*wZ +2*mW
     &  *p2p4*(-2*mW**3 + mW*mZ**2 - 2*mZ*wW*wZ) +2*p2p3*(12*mZ**2
     &  *p2p4 + 12*p2p4**2 +mW*mZ*(mW*mZ - 2*wW*wZ))) +mW**2*(-4
     &  *(mW**2 - 3*mZ**2)*p2p4**2 +8*p2p4**3 + 4*p2p3**2*(mZ**2 + 2
     &  *p2p4) +mZ*(4*Epsp1p2p3p4 + mW**3*wW)*wZ -4*mW*mZ*p2p4*(mW*mZ
     &  + wW*wZ) -2*p2p3*(2*(mW**2 - 4*mZ**2)*p2p4 - 8*p2p4**2 +mW*mZ
     &  *(mW*mZ + 2*wW*wZ))))) +mZ*(-4*mZ*(mW**2 + p1p3)*p1p4**3*(p2p3
     &  + p2p4) +Epsp1p2p3p4*mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mW*mZ*wW
     &  + 2*p2p4*wZ) +2*(mW**2 + p1p3)*p1p4**2*(p2p3 + p2p4)*(mW**2*mZ
     &  - 2*mZ*p1p3 - 2*mZ*p2p3 - 4*mZ*p2p4 +mW*wW*wZ) -2*p1p3**2
     &  *(mW**2 - p2p3 - p2p4)*p2p4*(-2*mZ*p2p4 + mW*wW*wZ) +p1p3*(-2
     &  *mZ*(mW**2 + 2*p2p3)*p2p4**3 +2*Epsp1p2p3p4*mW**3*mZ*wW -mW
     &  *p2p4*(-4*Epsp1p2p3p4*mW + mW**4*wW +mW**2*p2p3*wW - 2*p2p3**2
     &  *wW)*wZ +(mW**2 + 2*p2p3)*p2p4**2*(-2*mZ*p2p3 + mW*(2*mW*mZ
     &  + wW*wZ))) +p1p4*(-4*mZ*(mW**2 + p1p3)*p2p4**3 +2*Epsp1p2p3p4
     &  *mW**2*(mW**2 + 2*p1p3)*wZ +2*p2p4**2*(-4*mZ*p1p3**2 + mW*p1p3
     &  *(-2*mW*mZ + wW*wZ) +mW**3*(mW*mZ + wW*wZ)) +mW*p2p4*(-(mW*(4
     &  *Epsp1p2p3p4 + mW**3*wW)*wZ) +mW**2*p1p3*(2*mW*mZ + wW*wZ) +2
     &  *p1p3**2*(2*mW*mZ + wW*wZ)) +2*p2p3**2*(p1p3*(-4*mZ*p2p4 + mW
     &  *wW*wZ) +mW**2*(-2*mZ*p2p4 + mW*wW*wZ)) +p2p3*(2*p1p3**2*(-4*mZ
     &  *p2p4 + mW*wW*wZ) +p1p3*(-12*mZ*p2p4**2 + mW**3*wW*wZ +4*mW
     &  *p2p4*wW*wZ) -mW**2*(8*mZ*p2p4**2 +(4*Epsp1p2p3p4 + mW**3*wW)
     &  *wZ -2*mW*p2p4*(mW*mZ + 2*wW*wZ)))))))/(mW**2*(mW**2 + 2*p1p2
     &  - 2*p1p3 - 2*p1p4)*p2p3*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4
     &  + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)*(mZ**4 - 4
     &  *mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB44
        dsig = dsig + (2*a*c*ee*g2**2*gWWA*gZL**2*(-8*p1p2**4*(mW**2
     &  + 2*p1p3) +4*p1p2**3*(8*p1p3**2 +2*p1p3*(mW**2 + mZ**2 + 2
     &  *p1p4 + 6*p2p3 + 2*p2p4) +mW**2*(-2*mW**2 + mZ**2 + 2*p1p4 + 4
     &  *p2p3 + 4*p2p4))- 2*p1p2**2*(8*p1p3**3 +8*p1p3**2*(mZ**2
     &  + p1p4 + 4*p2p3 + 2*p2p4) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)
     &  *(mW**2 - 2*mZ**2 - 2*p2p3 - 2*p2p4) +p1p4*(-2*mW**2 + 2*mZ**2
     &  + 8*p2p3 + 4*p2p4)) +2*p1p3*(-2*mW**4 + mW**2*mZ**2 + 12
     &  *p2p3**2 +8*mW**2*p2p4 + 2*mZ**2*p2p4 +2*p1p4*(mW**2 + mZ**2
     &  + 4*p2p3 + 2*p2p4) +p2p3*(4*mW**2 + 6*mZ**2 + 8*p2p4))) +p1p2
     &  *(8*p1p3**3*(mZ**2 + 2*p2p3 + 2*p2p4) +8*p1p3**2*(4*p2p3**2 + 2
     &  *(mW**2 + mZ**2)*p2p4 +p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +p2p3*(
     &  -mW**2 + 4*mZ**2 + 4*p2p4)) +4*p1p3*(4*p2p3**3 +2*p2p3**2
     &  *(mW**2 + 3*mZ**2 + 2*p2p4) +p2p3*(-4*mW**4 + 2*mW**2*mZ**2 +4
     &  *(2*mW**2 + mZ**2)*p2p4) -mW**2*(mW**2*mZ**2 + (mW**2 - 4
     &  *mZ**2)*p2p4 -2*p2p4**2) +p1p4*(mW**2*mZ**2 + 4*p2p3**2 +2*(2
     &  *mW**2 + mZ**2)*p2p4 +2*p2p3*(mW**2 + 2*mZ**2 + 2*p2p4)))
     &  +mW**2*(p1p4*(8*p2p3**2 - 2*mZ**2*(mW**2 - 2*p2p4) +p2p3*(-4
     &  *mW**2 + 8*mZ**2 + 8*p2p4)) +mZ*(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ
     &  *p2p3*(mW**2 - 2*p2p4) -4*mW**2*mZ*p2p4 + 4*mZ*p2p4**2 -4
     &  *Epsp1p2p3p4*wZ))) +2*mZ*(-4*mZ*p1p3**3*(p2p3 + p2p4) +2*mZ
     &  *p1p3**2*(-4*p2p3**2 + p2p3*(mW**2 - 2*p1p4 - 4*p2p4) -2
     &  *(mW**2 + p1p4)*p2p4) +mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mZ*p1p4
     &  *p2p3 - Epsp1p2p3p4*wZ) +p1p3*(-4*mZ*p2p3**3 -2*mZ*p2p3**2
     &  *(mW**2 + 2*p1p4 + 2*p2p4) +2*mZ*p2p3*(2*mW**2*(mW**2 - 2
     &  *p2p4) -p1p4*(mW**2 + 2*p2p4)) +mW**2*(mZ*(mW**2 - 4*p1p4)
     &  *p2p4 - 2*mZ*p2p4**2 -2*Epsp1p2p3p4*wZ)))))/(mW**2*(mW**2 + 2
     &  *p1p2 - 2*p1p3 - 2*p1p4)*(p1p2 - p1p3 - p2p3)*p2p3*(mZ**4 - 4
     &  *mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB45
        dsig = dsig + (2*a*c*ee*g2**2*gWWA*gZL*gZnuL*(-8*p1p2**4
     &  *(mW**2 + 2*p1p3) +4*p1p2**3*(8*p1p3**2 +mW**2*(-2*mW**2
     &  + mZ**2 + 6*p1p4 + 4*p2p3 +4*p2p4) +2*p1p3*(mW**2 + mZ**2 + 4
     &  *p1p4 + 6*p2p3 + 4*p2p4))- 2*p1p2**2*(8*p1p3**3 +8*p1p3**2
     &  *(mZ**2 + 2*p1p4 + 4*p2p3 + 3*p2p4) +2*p1p3*(-2*mW**4 + mW**2
     &  *mZ**2 + 4*p1p4**2 +12*p2p3**2 + 6*mW**2*p2p4 + 4*mZ**2*p2p4 +4
     &  *p2p4**2 +4*p1p4*(mW**2 + mZ**2 + 4*p2p3 + 3*p2p4) +2*p2p3*(2
     &  *mW**2 + 3*mZ**2 + 8*p2p4)) +mW**2*(8*p1p4**2 +(mW**2 - 2*p2p3
     &  - 2*p2p4)*(mW**2 - 2*mZ**2 - 2*p2p3 - 2*p2p4) +p1p4*(-6*mW**2
     &  + 6*mZ**2 + 24*p2p3 + 20*p2p4)))+ 2*mZ*(-4*mZ*p1p3**3*(p2p3
     &  + p2p4) +2*mZ*p1p3**2*(-4*p2p3**2 + p2p3*(mW**2 - 4*p1p4 - 6
     &  *p2p4) -2*p2p4*(2*p1p4 + p2p4)) +p1p3*(-4*mZ*p2p3**3 +mZ*(3
     &  *mW**4 - 6*mW**2*p1p4 - 4*p1p4**2)*p2p4 -4*mZ*(mW**2 + p1p4)
     &  *p2p4**2 -2*mZ*p2p3**2*(mW**2 + 4*p1p4 + 4*p2p4) +2*mZ*p2p3*(2
     &  *mW**4 - 2*p1p4**2 - 3*mW**2*p2p4 -2*p2p4**2 - 2*p1p4*(mW**2
     &  + 3*p2p4)) +2*Epsp1p2p3p4*mW**2*wZ) +mW**2*(-4*mZ*p1p4**2
     &  *(p2p3 + p2p4) +mZ*p1p4*(mW**2 - 2*p2p3 - 2*p2p4)*(3*p2p3 + 2
     &  *p2p4) +Epsp1p2p3p4*(mW**2 - 2*p2p3 - 2*p2p4)*wZ)) +p1p2*(8
     &  *p1p3**3*(mZ**2 + 2*p2p3 + 2*p2p4) +8*p1p3**2*(4*p2p3**2 + p2p4
     &  *(3*mZ**2 + 2*p2p4) +2*p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +p2p3*(
     &  -mW**2 + 4*mZ**2 + 6*p2p4)) +4*p1p3*(-(mW**4*mZ**2) + 4
     &  *p2p3**3 - 3*mW**4*p2p4 +3*mW**2*mZ**2*p2p4 + 4*mW**2*p2p4**2
     &  +2*mZ**2*p2p4**2 +2*p1p4**2*(mZ**2 + 2*p2p3 + 2*p2p4) +2
     &  *p2p3**2*(mW**2 + 3*mZ**2 + 4*p2p4) +p2p3*(-4*mW**4 + 2*mW**2
     &  *mZ**2 +(6*mW**2 + 8*mZ**2)*p2p4 + 4*p2p4**2) +2*p1p4*(mW**2
     &  *mZ**2 + 4*p2p3**2 +3*(mW**2 + mZ**2)*p2p4 + 2*p2p4**2 +2*p2p3
     &  *(mW**2 + 2*mZ**2 + 3*p2p4))) +mW**2*(8*p1p4**2*(mZ**2 + 2
     &  *p2p3 + 2*p2p4) +p1p4*(-6*mW**2*mZ**2 + 24*p2p3**2 +(-8*mW**2
     &  + 20*mZ**2)*p2p4 + 16*p2p4**2 +p2p3*(-12*mW**2 + 24*mZ**2 + 40
     &  *p2p4)) +mZ*(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ*p2p3*(mW**2 - 2
     &  *p2p4) -4*mW**2*mZ*p2p4 + 4*mZ*p2p4**2 +4*Epsp1p2p3p4*wZ)))))
     &  /(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*p2p3*(-p1p2 + p1p3
     &  + p1p4 + p2p3 + p2p4)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2
     &  *wZ**2))
 
* AB46
        dsig = dsig + (4*a*c*ee*g2**4*gWWA*(4*mW**2*p1p2**4 +4*p1p2**3
     &  *(-(p1p3*(mW**2 + 2*p1p4)) +mW**2*(mW**2 - 4*p1p4 - 2*p2p3 - 3
     &  *p2p4)) +4*p1p3**2*(p1p4 + p2p4)*(-((mW**2 - 2*p1p4)*p2p3) + 2
     &  *p1p4*p2p4) +p1p2**2*(8*p1p3**2*p1p4 +2*p1p3*(8*p1p4**2 +4*p1p4
     &  *(mW**2 + 2*p2p3 + 2*p2p4) +mW**2*(-mW**2 + 4*p2p3 + 6*p2p4))
     &  +mW**2*(mW**4 + 20*p1p4**2 + 4*p2p3**2 -4*p2p3*(mW**2 - 4
     &  *p2p4) - 8*mW**2*p2p4 +12*p2p4**2 + p1p4*(-10*mW**2 + 32*p2p3
     &  + 40*p2p4))) + mW**2*(8*p1p4**3*(p2p3 + p2p4) -2*p1p4*(mW**2
     &  - 2*p2p3 - 2*p2p4)*p2p4*(3*p2p3 + 2*p2p4) +2*p1p4**2*(6
     &  *p2p3**2 - 2*(mW**2 - 4*p2p4)*p2p4 +p2p3*(-3*mW**2 + 14*p2p4))
     &  +Epsp1p2p3p4*mW*(-mW**2 + 2*p2p3 + 2*p2p4)*wW) +2*p1p3*(4
     &  *p1p4**3*(p2p3 + p2p4) +2*p1p4**2*(2*p2p3**2 + 2*p2p4*(mW**2
     &  + p2p4) +p2p3*(mW**2 + 4*p2p4)) +p1p4*(-2*mW**2*(mW**2 - 3
     &  *p2p4)*p2p4 +2*p2p3**2*(mW**2 + 2*p2p4) +p2p3*(-3*mW**4 + 6
     &  *mW**2*p2p4 + 4*p2p4**2)) +mW**2*(2*p2p3**2*p2p4 - 2*mW**2
     &  *p2p4**2 +2*p2p4**3 + p2p3*p2p4*(-3*mW**2 + 4*p2p4)
     &  -Epsp1p2p3p4*mW*wW)) -p1p2*(8*(mW**2 + p1p3)*p1p4**3 +p1p4**2
     &  *(8*p1p3**2 +4*p1p3*(mW**2 + 6*p2p3 + 6*p2p4) +2*mW**2*(-3
     &  *mW**2 + 16*p2p3 + 18*p2p4)) +p1p4*(8*p1p3**2*(p2p3 + 2*p2p4)
     &  +p1p3*(-2*mW**4 + 8*p2p3**2 + 20*mW**2*p2p4 +8*p2p4**2 + 12
     &  *p2p3*(mW**2 + 2*p2p4)) +mW**2*(mW**4 + 16*p2p3**2 - 14*mW**2
     &  *p2p4 +32*p2p4**2 + p2p3*(-10*mW**2 + 52*p2p4))) +mW**2*(-4
     &  *p1p3**2*p2p3 + (mW**2 - 2*p2p3)**2*p2p4 -4*(mW**2 - 2*p2p3)
     &  *p2p4**2 + 4*p2p4**3 -2*p1p3*(3*mW**2 - 2*p2p3 - 6*p2p4)*(p2p3
     &  + p2p4) + 2*Epsp1p2p3p4*mW*wW))))/(mW**2*(mW**2 - 2*p1p4)
     &  *(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*p2p3*(4*p1p2**2 + 4
     &  *p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2))
 
* AB51
        dsig = dsig + (16*a*c*ee*g2**2*gWWA*gWWZ*gZL*(2*mW**4*p1p3
     &  *p2p4**2 + 4*mW**2*p1p3**2*p2p4**2 +2*mW**2*p1p3*p2p3*p2p4**2
     &  - 4*p1p3**2*p2p3*p2p4**2 -4*p1p3*p2p3**2*p2p4**2 - 2*mW**2*p1p3
     &  *p2p4**3 -4*p1p3**2*p2p4**3 - 4*p1p3*p2p3*p2p4**3 -4*(mW**2
     &  + p1p3)*p1p4**3*(p2p3 + p2p4) +2*(mW**2 + p1p3)*p1p4**2*(mW**2
     &  - 2*p1p3 - 2*p2p3 - 4*p2p4)*(p2p3 + p2p4) +4*p1p2**3*((mW**2
     &  + p1p3)*p1p4 + p1p3*p2p4) -2*p1p4*p2p4*(-(mW**2*(mW**2 - 2
     &  *p2p3 - 2*p2p4)*(p2p3 + p2p4)) +p1p3**2*(-2*mW**2 + 4*p2p3 + 4
     &  *p2p4) +p1p3*(-mW**4 + 4*p2p3**2 + 2*mW**2*p2p4 +6*p2p3*p2p4
     &  + 2*p2p4**2)) +2*p1p2**2*(-4*(mW**2 + p1p3)*p1p4**2 +p1p3
     &  *(mW**2 - 2*p1p3 - 4*p2p3 - 4*p2p4)*p2p4 +p1p4*(-2*p1p3**2
     &  +mW**2*(mW**2 - 4*p2p3 - 6*p2p4) -p1p3*(mW**2 + 4*p2p3 + 8
     &  *p2p4))) +Epsp1p2p3p4*mW**5*wW + 2*Epsp1p2p3p4*mW**3*p1p3*wW -2
     &  *Epsp1p2p3p4*mW**3*p2p3*wW -2*Epsp1p2p3p4*mW**3*p2p4*wW +2*p1p2
     &  *(2*(mW**2 + p1p3)*p1p4**3 -(mW**2 + p1p3)*p1p4**2*(mW**2 - 2
     &  *p1p3 - 6*p2p3 - 8*p2p4) +2*p1p3**2*p2p4*(-mW**2 + p2p3 + 2
     &  *p2p4) +p1p3*p2p4*(-mW**4 + 2*p2p3**2 -p2p3*(mW**2 - 6*p2p4)
     &  + 2*p2p4**2) +p1p4*(2*(mW**2 + p1p3)*p2p3**2 +p2p4*(-2*mW**4
     &  + 6*p1p3**2 + 6*mW**2*p2p4 +p1p3*(mW**2 + 8*p2p4)) +p2p3*(
     &  -mW**4 + 2*p1p3**2 + 8*mW**2*p2p4 +p1p3*(mW**2 + 12*p2p4)))
     &  +Epsp1p2p3p4*mW**3*wW)))/(mW**2*p1p2*(mW**2 + 2*p1p2 - 2*p1p3
     &  - 2*p1p4)*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8*p1p4
     &  *p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2))
 
* AB52
        dsig = dsig + (-2*a*c*ee**2*g2**2*gWWZ*gZL*(4*p1p2**3*(mW**2
     &  + 2*p1p3) +4*p1p2**2*(-4*p1p3**2 +mW**2*(mW**2 - p1p4 - 2*p2p3
     &  - 2*p2p4) -p1p3*(mW**2 + 2*p1p4 + 6*p2p3 + 2*p2p4)) +p1p2*(8
     &  *p1p3**3 + 8*p1p3**2*(p1p4 + 4*p2p3 + 2*p2p4) +4*p1p3*(-mW**4
     &  + 6*p2p3**2 + 4*mW**2*p2p4 +2*p2p3*(mW**2 + 2*p2p4) +p1p4
     &  *(mW**2 + 4*p2p3 + 2*p2p4)) +mW**2*((mW**2 - 2*p2p3 - 2
     &  *p2p4)**2 +p1p4*(-2*mW**2 + 8*p2p3 + 4*p2p4))) +2*(mW**2*p1p4
     &  *p2p3*(mW**2 - 2*p2p3 - 2*p2p4) -4*p1p3**3*(p2p3 + p2p4) +2
     &  *p1p3**2*(-4*p2p3**2 +p2p3*(mW**2 - 2*p1p4 - 4*p2p4) -2*(mW**2
     &  + p1p4)*p2p4) +p1p3*(-4*p2p3**3 +mW**2*(mW**2 - 4*p1p4 - 2
     &  *p2p4)*p2p4 -2*p2p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +p2p3*(4*mW**2
     &  *(mW**2 - 2*p2p4) -2*p1p4*(mW**2 + 2*p2p4))))))/(mW**2*p1p2
     &  *(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*(p1p2 - p1p3 - p2p3)
     &  *(mZ**2 + 2*p2p3))
 
* AB53
        dsig = dsig + (-32*a*c*g2**2*gWWZ**2*gZL**2*(-8*p1p2**4
     &  *((mW**2 + p1p3)*p1p4 + p1p3*p2p4) +4*p1p2**3*(4*(mW**2 + p1p3)
     &  *p1p4**2 +p1p3*p2p4*(-mW**2 + mZ**2 + 2*p1p3 + 4*p2p3 +4*p2p4)
     &  +p1p4*(2*p1p3**2 +mW**2*(-mW**2 + mZ**2 + 4*p2p3 + 6*p2p4)
     &  +p1p3*(mW**2 + mZ**2 + 4*p2p3 + 8*p2p4))) +2*p1p2**2*(-4
     &  *(mW**2 + p1p3)*p1p4**3 +2*(mW**2 + p1p3)*p1p4**2*(mW**2 - 2
     &  *mZ**2 - 2*p1p3 - 6*p2p3 - 8*p2p4) +2*p1p3**2*(2*mW**2 - mZ**2
     &  - 2*p2p3 - 4*p2p4)*p2p4 - 2*Epsp1p2p3p4*mW**2*(mW*wW + mZ*wZ)
     &  +p1p3*p2p4*(-4*p2p3**2 +2*p2p3*(mW**2 - 2*mZ**2 - 6*p2p4) -4
     &  *mZ**2*p2p4 - 4*p2p4**2 +mW*(2*mW**3 + mW*mZ**2 + mZ*wW*wZ))
     &  +p1p4*(-2*p1p3**2*(mZ**2 + 2*p2p3 + 6*p2p4) -p1p3*(4*p2p3**2
     &  + 2*(mW**2 + 4*mZ**2)*p2p4 +16*p2p4**2 +2*p2p3*(mW**2 + 2
     &  *mZ**2 + 12*p2p4) +mW*mZ*(mW*mZ - wW*wZ)) +mW**2*(-4*p2p3**2 +2
     &  *p2p3*(mW**2 - 2*mZ**2 - 8*p2p4) +(4*mW**2 - 6*mZ**2)*p2p4 - 12
     &  *p2p4**2 +mW*mZ*(mW*mZ + wW*wZ)))) +p1p2*(4*(mW**2 + p1p3)
     &  *p1p4**3*(mZ**2 + 2*p2p3 + 2*p2p4) -2*(mW**2 + p1p3)*p1p4**2
     &  *(mW**2*mZ**2 - 4*p2p3**2 +2*p2p3*(mW**2 - 3*mZ**2 - 6*p2p4) +2
     &  *mW**2*p2p4 - 8*mZ**2*p2p4 - 8*p2p4**2 -2*p1p3*(mZ**2 + 2*p2p3
     &  + 2*p2p4) + mW*mZ*wW*wZ)+ 2*Epsp1p2p3p4*mW**2*(2*p2p3*(mW*wW
     &  + mZ*wZ) +2*p2p4*(mW*wW + 2*mZ*wZ) -mW*(mW**2*wW - mZ**2*wW
     &  + mW*mZ*wZ)) +2*p1p3**2*p2p4*(-4*(mW**2 - mZ**2)*p2p4 + 4
     &  *p2p4**2 +2*p2p3*(mZ**2 + 2*p2p4) - mW*mZ*(2*mW*mZ + wW*wZ))
     &  + p1p3*(4*(mW**2 + mZ**2 + 2*p2p3)*p2p4**3 -4*Epsp1p2p3p4*mW**2
     &  *(mW*wW + mZ*wZ) -2*p2p4**2*(2*mW**4 + 2*(mW**2 - 3*mZ**2)
     &  *p2p3 -4*p2p3**2 + mW*mZ*wW*wZ) +mZ*p2p4*(4*mZ*p2p3**2 +mW**3*(
     &  -2*mW*mZ + wW*wZ) -2*mW*p2p3*(mW*mZ + 2*wW*wZ))) +p1p4*(-2
     &  *p1p3**2*((4*mW**2 - 6*mZ**2)*p2p4 - 8*p2p4**2 -2*p2p3*(mZ**2
     &  + 4*p2p4) + mW*mZ*wW*wZ) +p1p3*(8*(mW**2 + 2*mZ**2)*p2p4**2 + 8
     &  *p2p4**3 +4*p2p3**2*(mZ**2 + 4*p2p4) - mW**3*mZ*wW*wZ +2*mW
     &  *p2p4*(-2*mW**3 + mW*mZ**2 - 2*mZ*wW*wZ) +2*p2p3*(12*mZ**2
     &  *p2p4 + 12*p2p4**2 +mW*mZ*(mW*mZ - 2*wW*wZ))) +mW**2*(-4
     &  *(mW**2 - 3*mZ**2)*p2p4**2 +8*p2p4**3 + 4*p2p3**2*(mZ**2 + 2
     &  *p2p4) +mZ*(4*Epsp1p2p3p4 + mW**3*wW)*wZ -4*mW*mZ*p2p4*(mW*mZ
     &  + wW*wZ) -2*p2p3*(2*(mW**2 - 4*mZ**2)*p2p4 - 8*p2p4**2 +mW*mZ
     &  *(mW*mZ + 2*wW*wZ))))) +mZ*(-4*mZ*(mW**2 + p1p3)*p1p4**3*(p2p3
     &  + p2p4) +Epsp1p2p3p4*mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(mW*mZ*wW
     &  + 2*p2p4*wZ) +2*(mW**2 + p1p3)*p1p4**2*(p2p3 + p2p4)*(mW**2*mZ
     &  - 2*mZ*p1p3 - 2*mZ*p2p3 - 4*mZ*p2p4 +mW*wW*wZ) -2*p1p3**2
     &  *(mW**2 - p2p3 - p2p4)*p2p4*(-2*mZ*p2p4 + mW*wW*wZ) +p1p3*(-2
     &  *mZ*(mW**2 + 2*p2p3)*p2p4**3 +2*Epsp1p2p3p4*mW**3*mZ*wW -mW
     &  *p2p4*(-4*Epsp1p2p3p4*mW + mW**4*wW +mW**2*p2p3*wW - 2*p2p3**2
     &  *wW)*wZ +(mW**2 + 2*p2p3)*p2p4**2*(-2*mZ*p2p3 + mW*(2*mW*mZ
     &  + wW*wZ))) +p1p4*(-4*mZ*(mW**2 + p1p3)*p2p4**3 +2*Epsp1p2p3p4
     &  *mW**2*(mW**2 + 2*p1p3)*wZ +2*p2p4**2*(-4*mZ*p1p3**2 + mW*p1p3
     &  *(-2*mW*mZ + wW*wZ) +mW**3*(mW*mZ + wW*wZ)) +mW*p2p4*(-(mW*(4
     &  *Epsp1p2p3p4 + mW**3*wW)*wZ) +mW**2*p1p3*(2*mW*mZ + wW*wZ) +2
     &  *p1p3**2*(2*mW*mZ + wW*wZ)) +2*p2p3**2*(p1p3*(-4*mZ*p2p4 + mW
     &  *wW*wZ) +mW**2*(-2*mZ*p2p4 + mW*wW*wZ)) +p2p3*(2*p1p3**2*(-4*mZ
     &  *p2p4 + mW*wW*wZ) +p1p3*(-12*mZ*p2p4**2 + mW**3*wW*wZ +4*mW
     &  *p2p4*wW*wZ) -mW**2*(8*mZ*p2p4**2 +(4*Epsp1p2p3p4 + mW**3*wW)
     &  *wZ -2*mW*p2p4*(mW*mZ + 2*wW*wZ)))))))/(mW**2*(mW**2 + 2*p1p2
     &  - 2*p1p3 - 2*p1p4)*(mZ**2 + 2*p2p3)*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)
     &  *(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB54
        dsig = dsig + (4*a*c*g2**2*gWWZ*gZL**3*(-8*p1p2**4*(mW**2 + 2
     &  *p1p3) +4*p1p2**3*(8*p1p3**2 +2*p1p3*(mW**2 + mZ**2 + 2*p1p4
     &  + 6*p2p3 + 2*p2p4) +mW**2*(-2*mW**2 + mZ**2 + 2*p1p4 + 4*p2p3
     &  + 4*p2p4))- 2*p1p2**2*(8*p1p3**3 +8*p1p3**2*(mZ**2 + p1p4 + 4
     &  *p2p3 + 2*p2p4) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)*(mW**2 - 2
     &  *mZ**2 - 2*p2p3 - 2*p2p4) +p1p4*(-2*mW**2 + 2*mZ**2 + 8*p2p3
     &  + 4*p2p4)) +2*p1p3*(-2*mW**4 + mW**2*mZ**2 + 12*p2p3**2 +8
     &  *mW**2*p2p4 + 2*mZ**2*p2p4 +2*p1p4*(mW**2 + mZ**2 + 4*p2p3 + 2
     &  *p2p4) +p2p3*(4*mW**2 + 6*mZ**2 + 8*p2p4))) +p1p2*(8*p1p3**3
     &  *(mZ**2 + 2*p2p3 + 2*p2p4) +8*p1p3**2*(4*p2p3**2 + 2*(mW**2
     &  + mZ**2)*p2p4 +p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +p2p3*(-mW**2 + 4
     &  *mZ**2 + 4*p2p4)) +4*p1p3*(4*p2p3**3 +2*p2p3**2*(mW**2 + 3
     &  *mZ**2 + 2*p2p4) +p2p3*(-4*mW**4 + 2*mW**2*mZ**2 +4*(2*mW**2
     &  + mZ**2)*p2p4) -mW**2*(mW**2*mZ**2 + (mW**2 - 4*mZ**2)*p2p4 -2
     &  *p2p4**2) +p1p4*(mW**2*mZ**2 + 4*p2p3**2 +2*(2*mW**2 + mZ**2)
     &  *p2p4 +2*p2p3*(mW**2 + 2*mZ**2 + 2*p2p4))) +mW**2*(p1p4*(8
     &  *p2p3**2 - 2*mZ**2*(mW**2 - 2*p2p4) +p2p3*(-4*mW**2 + 8*mZ**2
     &  + 8*p2p4)) +mZ*(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ*p2p3*(mW**2 - 2
     &  *p2p4) -4*mW**2*mZ*p2p4 + 4*mZ*p2p4**2 -4*Epsp1p2p3p4*wZ))) +2
     &  *mZ*(-4*mZ*p1p3**3*(p2p3 + p2p4) +2*mZ*p1p3**2*(-4*p2p3**2
     &  + p2p3*(mW**2 - 2*p1p4 - 4*p2p4) -2*(mW**2 + p1p4)*p2p4) +mW**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*(mZ*p1p4*p2p3 - Epsp1p2p3p4*wZ)
     &  +p1p3*(-4*mZ*p2p3**3 -2*mZ*p2p3**2*(mW**2 + 2*p1p4 + 2*p2p4) +2
     &  *mZ*p2p3*(2*mW**2*(mW**2 - 2*p2p4) -p1p4*(mW**2 + 2*p2p4))
     &  +mW**2*(mZ*(mW**2 - 4*p1p4)*p2p4 - 2*mZ*p2p4**2 -2*Epsp1p2p3p4
     &  *wZ)))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*(p1p2
     &  - p1p3 - p2p3)*(mZ**2 + 2*p2p3)*(mZ**4 - 4*mZ**2*p1p2 + 4
     &  *p1p2**2 + mZ**2*wZ**2))
 
* AB55
        dsig = dsig + (4*a*c*g2**2*gWWZ*gZL**2*gZnuL*(-8*p1p2**4
     &  *(mW**2 + 2*p1p3) +4*p1p2**3*(8*p1p3**2 +mW**2*(-2*mW**2
     &  + mZ**2 + 6*p1p4 + 4*p2p3 +4*p2p4) +2*p1p3*(mW**2 + mZ**2 + 4
     &  *p1p4 + 6*p2p3 + 4*p2p4))- 2*p1p2**2*(8*p1p3**3 +8*p1p3**2
     &  *(mZ**2 + 2*p1p4 + 4*p2p3 + 3*p2p4) +2*p1p3*(-2*mW**4 + mW**2
     &  *mZ**2 + 4*p1p4**2 +12*p2p3**2 + 6*mW**2*p2p4 + 4*mZ**2*p2p4 +4
     &  *p2p4**2 +4*p1p4*(mW**2 + mZ**2 + 4*p2p3 + 3*p2p4) +2*p2p3*(2
     &  *mW**2 + 3*mZ**2 + 8*p2p4)) +mW**2*(8*p1p4**2 +(mW**2 - 2*p2p3
     &  - 2*p2p4)*(mW**2 - 2*mZ**2 - 2*p2p3 - 2*p2p4) +p1p4*(-6*mW**2
     &  + 6*mZ**2 + 24*p2p3 + 20*p2p4)))+ 2*mZ*(-4*mZ*p1p3**3*(p2p3
     &  + p2p4) +2*mZ*p1p3**2*(-4*p2p3**2 + p2p3*(mW**2 - 4*p1p4 - 6
     &  *p2p4) -2*p2p4*(2*p1p4 + p2p4)) +p1p3*(-4*mZ*p2p3**3 +mZ*(3
     &  *mW**4 - 6*mW**2*p1p4 - 4*p1p4**2)*p2p4 -4*mZ*(mW**2 + p1p4)
     &  *p2p4**2 -2*mZ*p2p3**2*(mW**2 + 4*p1p4 + 4*p2p4) +2*mZ*p2p3*(2
     &  *mW**4 - 2*p1p4**2 - 3*mW**2*p2p4 -2*p2p4**2 - 2*p1p4*(mW**2
     &  + 3*p2p4)) +2*Epsp1p2p3p4*mW**2*wZ) +mW**2*(-4*mZ*p1p4**2
     &  *(p2p3 + p2p4) +mZ*p1p4*(mW**2 - 2*p2p3 - 2*p2p4)*(3*p2p3 + 2
     &  *p2p4) +Epsp1p2p3p4*(mW**2 - 2*p2p3 - 2*p2p4)*wZ)) +p1p2*(8
     &  *p1p3**3*(mZ**2 + 2*p2p3 + 2*p2p4) +8*p1p3**2*(4*p2p3**2 + p2p4
     &  *(3*mZ**2 + 2*p2p4) +2*p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +p2p3*(
     &  -mW**2 + 4*mZ**2 + 6*p2p4)) +4*p1p3*(-(mW**4*mZ**2) + 4
     &  *p2p3**3 - 3*mW**4*p2p4 +3*mW**2*mZ**2*p2p4 + 4*mW**2*p2p4**2
     &  +2*mZ**2*p2p4**2 +2*p1p4**2*(mZ**2 + 2*p2p3 + 2*p2p4) +2
     &  *p2p3**2*(mW**2 + 3*mZ**2 + 4*p2p4) +p2p3*(-4*mW**4 + 2*mW**2
     &  *mZ**2 +(6*mW**2 + 8*mZ**2)*p2p4 + 4*p2p4**2) +2*p1p4*(mW**2
     &  *mZ**2 + 4*p2p3**2 +3*(mW**2 + mZ**2)*p2p4 + 2*p2p4**2 +2*p2p3
     &  *(mW**2 + 2*mZ**2 + 3*p2p4))) +mW**2*(8*p1p4**2*(mZ**2 + 2
     &  *p2p3 + 2*p2p4) +p1p4*(-6*mW**2*mZ**2 + 24*p2p3**2 +(-8*mW**2
     &  + 20*mZ**2)*p2p4 + 16*p2p4**2 +p2p3*(-12*mW**2 + 24*mZ**2 + 40
     &  *p2p4)) +mZ*(mW**4*mZ + 4*mZ*p2p3**2 -4*mZ*p2p3*(mW**2 - 2
     &  *p2p4) -4*mW**2*mZ*p2p4 + 4*mZ*p2p4**2 +4*Epsp1p2p3p4*wZ)))))
     &  /(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*(mZ**2 + 2*p2p3)*(
     &  -p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(mZ**4 - 4*mZ**2*p1p2 + 4
     &  *p1p2**2 + mZ**2*wZ**2))
 
* AB56
        dsig = dsig + (8*a*c*g2**4*gWWZ*gZL*(4*mW**2*p1p2**4 +4*p1p2**3
     &  *(-(p1p3*(mW**2 + 2*p1p4)) +mW**2*(mW**2 - 4*p1p4 - 2*p2p3 - 3
     &  *p2p4)) +4*p1p3**2*(p1p4 + p2p4)*(-((mW**2 - 2*p1p4)*p2p3) + 2
     &  *p1p4*p2p4) +p1p2**2*(8*p1p3**2*p1p4 +2*p1p3*(8*p1p4**2 +4*p1p4
     &  *(mW**2 + 2*p2p3 + 2*p2p4) +mW**2*(-mW**2 + 4*p2p3 + 6*p2p4))
     &  +mW**2*(mW**4 + 20*p1p4**2 + 4*p2p3**2 -4*p2p3*(mW**2 - 4
     &  *p2p4) - 8*mW**2*p2p4 +12*p2p4**2 + p1p4*(-10*mW**2 + 32*p2p3
     &  + 40*p2p4))) + mW**2*(8*p1p4**3*(p2p3 + p2p4) -2*p1p4*(mW**2
     &  - 2*p2p3 - 2*p2p4)*p2p4*(3*p2p3 + 2*p2p4) +2*p1p4**2*(6
     &  *p2p3**2 - 2*(mW**2 - 4*p2p4)*p2p4 +p2p3*(-3*mW**2 + 14*p2p4))
     &  +Epsp1p2p3p4*mW*(-mW**2 + 2*p2p3 + 2*p2p4)*wW) +2*p1p3*(4
     &  *p1p4**3*(p2p3 + p2p4) +2*p1p4**2*(2*p2p3**2 + 2*p2p4*(mW**2
     &  + p2p4) +p2p3*(mW**2 + 4*p2p4)) +p1p4*(-2*mW**2*(mW**2 - 3
     &  *p2p4)*p2p4 +2*p2p3**2*(mW**2 + 2*p2p4) +p2p3*(-3*mW**4 + 6
     &  *mW**2*p2p4 + 4*p2p4**2)) +mW**2*(2*p2p3**2*p2p4 - 2*mW**2
     &  *p2p4**2 +2*p2p4**3 + p2p3*p2p4*(-3*mW**2 + 4*p2p4)
     &  -Epsp1p2p3p4*mW*wW)) -p1p2*(8*(mW**2 + p1p3)*p1p4**3 +p1p4**2
     &  *(8*p1p3**2 +4*p1p3*(mW**2 + 6*p2p3 + 6*p2p4) +2*mW**2*(-3
     &  *mW**2 + 16*p2p3 + 18*p2p4)) +p1p4*(8*p1p3**2*(p2p3 + 2*p2p4)
     &  +p1p3*(-2*mW**4 + 8*p2p3**2 + 20*mW**2*p2p4 +8*p2p4**2 + 12
     &  *p2p3*(mW**2 + 2*p2p4)) +mW**2*(mW**4 + 16*p2p3**2 - 14*mW**2
     &  *p2p4 +32*p2p4**2 + p2p3*(-10*mW**2 + 52*p2p4))) +mW**2*(-4
     &  *p1p3**2*p2p3 + (mW**2 - 2*p2p3)**2*p2p4 -4*(mW**2 - 2*p2p3)
     &  *p2p4**2 + 4*p2p4**3 -2*p1p3*(3*mW**2 - 2*p2p3 - 6*p2p4)*(p2p3
     &  + p2p4) + 2*Epsp1p2p3p4*mW*wW))))/(mW**2*(mW**2 - 2*p1p4)
     &  *(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)*(mZ**2 + 2*p2p3)*(4
     &  *p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4
     &  + p2p4) + mW**2*wW**2))
 
* AB61
        dsig = dsig + (2*a*c*ee*g2**4*gWWA*(4*mW**2*p1p2**4 + 2*mW**4
     &  *p1p3*p2p4**2 +4*mW**2*p1p3**2*p2p4**2 + 4*mW**2*p1p3*p2p3
     &  *p2p4**2 -8*p1p3**2*p2p3*p2p4**2 - 8*p1p3*p2p3**2*p2p4**2 +4
     &  *mW**2*p1p3*p2p4**3 - 8*p1p3**2*p2p4**3 -16*p1p3*p2p3*p2p4**3
     &  - 8*p1p3*p2p4**4 -8*(mW**2 + p1p3)*p1p4**3*(p2p3 + p2p4) +4
     &  *p1p2**3*(mW**2*(mW**2 - 2*p2p3 - 3*p2p4) +2*p1p3*(p1p4
     &  + p2p4)) -2*p1p4*p2p4*(-(mW**2*(mW**2 - 2*p2p3 - 2*p2p4)*(p2p3
     &  + 2*p2p4)) +p1p3**2*(-2*mW**2 + 8*p2p3 + 8*p2p4) +p1p3*(-mW**4
     &  + 8*p2p3**2 - 2*mW**2*p2p4 +20*p2p3*p2p4 + 12*p2p4**2)) +2
     &  *p1p4**2*(-2*(mW**2 + 2*p1p3)*p2p3**2 +2*p2p4*(mW**4 - 2
     &  *p1p3**2 - 4*mW**2*p2p4 -6*p1p3*p2p4) +p2p3*(mW**4 - 4*p1p3**2
     &  - 10*mW**2*p2p4 -2*p1p3*(mW**2 + 8*p2p4))) +p1p2**2*(4*p1p3**2
     &  *(mW**2 - 2*p1p4 - 2*p2p4) +mW**2*(mW**4 - 12*p1p4**2 + 4
     &  *p2p3**2 -4*p2p3*(mW**2 - 4*p2p4) - 8*mW**2*p2p4 +12*p2p4**2
     &  - 2*p1p4*(mW**2 + 4*p2p4)) +4*p1p3*(mW**4 - 4*p1p4**2 + (mW**2
     &  - 4*p2p3)*p2p4 -6*p2p4**2 - p1p4*(mW**2 + 4*p2p3 + 10*p2p4)))
     &  +Epsp1p2p3p4*mW**5*wW + 2*Epsp1p2p3p4*mW**3*p1p3*wW -2
     &  *Epsp1p2p3p4*mW**3*p2p3*wW -2*Epsp1p2p3p4*mW**3*p2p4*wW +p1p2
     &  *(8*(mW**2 + p1p3)*p1p4**3 -(8*p1p3**2*(mW**2 - p2p3) +(mW**3
     &  - 2*mW*p2p3)**2 +p1p3*(6*mW**4 + 4*mW**2*p2p3 - 8*p2p3**2))
     &  *p2p4+ 4*(mW**4 + 4*p1p3**2 - 2*p1p3*(mW**2 - 4*p2p3) -2*mW**2
     &  *p2p3)*p2p4**2 -4*(mW**2 - 6*p1p3)*p2p4**3 +p1p4**2*(8*p1p3**2
     &  -2*mW**2*(mW**2 - 8*p2p3 - 14*p2p4) +4*p1p3*(mW**2 + 6*p2p3
     &  + 10*p2p4)) +p1p4*(-4*p1p3**2*(mW**2 - 2*p2p3 - 6*p2p4) +mW**2
     &  *(-mW**4 - 2*mW**2*p2p4 + 16*p2p4**2 +2*p2p3*(mW**2 + 6*p2p4))
     &  +p1p3*(-4*mW**4 + 8*p2p3**2 + 56*p2p4**2 +4*p2p3*(mW**2 + 14
     &  *p2p4))) +2*Epsp1p2p3p4*mW**3*wW)))/(mW**2*p1p2*(mW**2 + 2
     &  *p1p2 - 2*p1p3 - 2*p1p4)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(4
     &  *p1p2**2 + 4*p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4
     &  + p2p4) + mW**2*wW**2))
 
* AB62
        dsig = dsig + -(a*c*ee**2*g2**4*(4*p1p2**3*(mW**2 + 2*p1p3) +4
     &  *p1p2**2*(-4*p1p3**2 +mW**2*(mW**2 - p1p4 - 2*p2p3 - 2*p2p4) -2
     &  *p1p3*(p1p4 + 3*p2p3 + 2*p2p4)) +p1p2*(8*p1p3**3 +4*p1p3**2
     &  *(mW**2 + 2*p1p4 + 8*p2p3 + 6*p2p4) +4*p1p3*(6*p2p3**2 + 8*p2p3
     &  *p2p4 +p2p4*(mW**2 + 2*p2p4) +p1p4*(mW**2 + 4*p2p3 + 2*p2p4))
     &  +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)**2 +p1p4*(-2*mW**2 + 8*p2p3
     &  + 4*p2p4))) +2*(mW**2*p1p4*p2p3*(mW**2 - 2*p2p3 - 2*p2p4) -4
     &  *p1p3**3*(p2p3 + p2p4) -2*p1p3**2*(4*p2p3**2 + 6*p2p3*p2p4 +2
     &  *p1p4*(p2p3 + p2p4) + p2p4*(mW**2 + 2*p2p4)) +p1p3*(-4*p2p3**3
     &  +mW**2*(mW**2 - 4*p1p4 - 2*p2p4)*p2p4 -4*p2p3**2*(p1p4 + 2
     &  *p2p4) +2*p2p3*(mW**4 - mW**2*p2p4 - 2*p2p4**2 -p1p4*(mW**2 + 2
     &  *p2p4))))))/(2.*mW**2*p1p2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)
     &  *(p1p2 - p1p3 - p2p3)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4))
 
* AB63
        dsig = dsig + (-2*a*c*g2**4*gWWZ*gZL*(-16*mW**2*p1p2**5 -8
     &  *p1p2**4*(mW**2*(2*mW**2 - mZ**2 - 4*p2p3 - 6*p2p4) +4*p1p3
     &  *(p1p4 + p2p4)) -4*p1p2**3*(4*p1p3**2*(mW**2 - 2*p1p4 - 2
     &  *p2p4) +4*p1p3*(mW**4 - 4*p1p4**2 +(mW**2 - mZ**2 - 4*p2p3)
     &  *p2p4 - 6*p2p4**2 -p1p4*(mW**2 + mZ**2 + 4*p2p3 + 10*p2p4))
     &  +mW**2*(mW**4 - 2*mW**2*mZ**2 - 12*p1p4**2 +4*p2p3**2 - 4*p2p3
     &  *(mW**2 - mZ**2 - 4*p2p4) -8*mW**2*p2p4 + 6*mZ**2*p2p4 + 12
     &  *p2p4**2 -2*p1p4*(mW**2 + 4*p2p4) - mW*mZ*wW*wZ)) +2*p1p2**2*(4
     &  *p1p3**2*(mW**2*mZ**2 - 4*p1p4**2 +2*p1p4*(mW**2 - mZ**2 - 2
     &  *p2p3 - 6*p2p4) +(4*mW**2 - 2*mZ**2 - 4*p2p3)*p2p4 - 8
     &  *p2p4**2) +mW**2*(mW**4*mZ**2 - 16*p1p4**3 +4*p1p4**2*(mW**2
     &  - 3*mZ**2 - 8*p2p3 - 14*p2p4) +2*mW**4*p2p4 - 8*mW**2*mZ**2
     &  *p2p4 -8*mW**2*p2p4**2 + 12*mZ**2*p2p4**2 + 8*p2p4**3 +4
     &  *p2p3**2*(mZ**2 + 2*p2p4) -4*Epsp1p2p3p4*mW*wW - 4*Epsp1p2p3p4
     &  *mZ*wZ +2*mW**3*mZ*wW*wZ - 4*mW*mZ*p2p4*wW*wZ -4*p2p3*(2
     &  *(mW**2 - 2*mZ**2)*p2p4 - 4*p2p4**2 +mW*mZ*(mW*mZ + wW*wZ)) +2
     &  *p1p4*(2*(mW**2 - 2*mZ**2)*p2p4 - 16*p2p4**2 -2*p2p3*(mW**2 + 6
     &  *p2p4) +mW*(mW**3 - mW*mZ**2 + mZ*wW*wZ))) +4*p1p3*(mW**4
     &  *mZ**2 - 4*p1p4**3 +2*(2*mW**2 - 3*mZ**2 - 8*p2p3)*p2p4**2 -12
     &  *p2p4**3 -2*p1p4**2*(mW**2 + 2*mZ**2 + 6*p2p3 + 10*p2p4) +p1p4
     &  *(2*mW**4 - mW**2*mZ**2 - 4*p2p3**2 -10*mZ**2*p2p4 - 28
     &  *p2p4**2 -2*p2p3*(mW**2 + 2*mZ**2 + 14*p2p4) +mW*mZ*wW*wZ)
     &  +p2p4*(2*(mW**2 - 2*mZ**2)*p2p3 - 4*p2p3**2 +mW*(3*mW**3 + mW
     &  *mZ**2 + mZ*wW*wZ)))) +p1p2*(4*p1p3**2*((-4*mW**2 + 8*mZ**2 + 8
     &  *p2p3)*p2p4**2 +8*p2p4**3 +4*p1p4**2*(mZ**2 + 2*p2p3 + 2*p2p4)
     &  +mW**3*mZ*wW*wZ -2*p1p4*(2*(mW**2 - 3*mZ**2)*p2p4 - 8*p2p4**2
     &  -2*p2p3*(mZ**2 + 4*p2p4) +mW*mZ*(mW*mZ + wW*wZ)) -2*mZ*p2p4*(-2
     &  *mZ*p2p3 + mW*(2*mW*mZ + wW*wZ))) +mW**2*(-2*mW**4*mZ**2*p2p4
     &  +8*mW**2*mZ**2*p2p4**2 - 8*mZ**2*p2p4**3 +16*p1p4**3*(mZ**2 + 2
     &  *p2p3 + 2*p2p4) -4*Epsp1p2p3p4*mW**3*wW +4*Epsp1p2p3p4*mW*mZ**2
     &  *wW +8*Epsp1p2p3p4*mW*p2p4*wW -4*Epsp1p2p3p4*mW**2*mZ*wZ +16
     &  *Epsp1p2p3p4*mZ*p2p4*wZ + mW**5*mZ*wW*wZ -4*mW**3*mZ*p2p4*wW
     &  *wZ + 4*mW*mZ*p2p4**2*wW*wZ +4*mZ*p2p3**2*(-2*mZ*p2p4 + mW*wW
     &  *wZ) +p2p3*(-16*mZ**2*p2p4**2 - 4*mW**3*mZ*wW*wZ +8*Epsp1p2p3p4
     &  *(mW*wW + mZ*wZ) +8*mW*mZ*p2p4*(mW*mZ + wW*wZ)) -4*p1p4**2*(-4
     &  *p2p3**2 +2*p2p3*(mW**2 - 4*mZ**2 - 10*p2p4) +2*(2*mW**2 - 7
     &  *mZ**2)*p2p4 - 16*p2p4**2 +mW*mZ*(mW*mZ + 2*wW*wZ)) -2*p1p4*(-8
     &  *p2p3**2*p2p4 +8*(mW**2 - 2*mZ**2)*p2p4**2 - 16*p2p4**3 +2*mW
     &  *mZ*p2p4*(mW*mZ + 3*wW*wZ) +mZ*(mW**4*mZ - 4*Epsp1p2p3p4*wZ
     &  -mW**3*wW*wZ) -2*p2p3*(-2*(mW**2 - 3*mZ**2)*p2p4 + 12*p2p4**2
     &  +mW*mZ*(mW*mZ - 2*wW*wZ)))) +4*p1p3*(-4*(mW**2 - 3*mZ**2 - 4
     &  *p2p3)*p2p4**3 +8*p2p4**4 +4*p1p4**3*(mZ**2 + 2*p2p3 + 2*p2p4)
     &  +mW**2*(mW**3*mZ*wW*wZ -2*Epsp1p2p3p4*(mW*wW + mZ*wZ)) +2
     &  *p1p4**2*(4*p2p3**2 + 10*mZ**2*p2p4 + 12*p2p4**2 +2*p2p3
     &  *(mW**2 + 3*mZ**2 + 8*p2p4) +mW*mZ*(mW*mZ - wW*wZ)) +mZ*p2p4*(4
     &  *mZ*p2p3**2 +mW**3*(-3*mW*mZ + wW*wZ) -2*mW*p2p3*(mW*mZ + 2*wW
     &  *wZ)) -2*p2p4**2*(2*(mW**2 - 4*mZ**2)*p2p3 - 4*p2p3**2 +mW
     &  *(mW**3 + 2*mW*mZ**2 + 2*mZ*wW*wZ)) +p1p4*(-4*(mW**2 - 7*mZ**2)
     &  *p2p4**2 +24*p2p4**3 + 4*p2p3**2*(mZ**2 + 4*p2p4) -mW**3*mZ*(2
     &  *mW*mZ + wW*wZ) -2*p2p4*(mW**4 + 3*mW*mZ*wW*wZ) +2*p2p3*(14
     &  *mZ**2*p2p4 + 20*p2p4**2 +mW*mZ*(mW*mZ - 2*wW*wZ))))) +2*mZ*(-8
     &  *mZ*(mW**2 + p1p3)*p1p4**3*(p2p3 + p2p4) +Epsp1p2p3p4*mW**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*(mW*mZ*wW + 2*p2p4*wZ) -2*p1p3**2
     &  *(mW**2 - 2*p2p3 - 2*p2p4)*p2p4*(-2*mZ*p2p4 + mW*wW*wZ) +p1p3*(
     &  -8*mZ*p2p4**4 + 2*Epsp1p2p3p4*mW**3*mZ*wW +mW*p2p4*(4
     &  *Epsp1p2p3p4*mW - mW**4*wW -2*mW**2*p2p3*wW + 4*p2p3**2*wW)*wZ
     &  +4*p2p4**3*(-4*mZ*p2p3 + mW*(mW*mZ + wW*wZ)) +2*p2p4**2*(-4*mZ
     &  *p2p3**2 + mW**3*(mW*mZ - wW*wZ) +2*mW*p2p3*(mW*mZ + 2*wW
     &  *wZ))) +2*p1p4**2*(-2*mZ*(mW**2 + 2*p1p3)*p2p3**2 +2*p2p4*(-2
     &  *mZ*p1p3**2 +p1p3*(-6*mZ*p2p4 + mW*wW*wZ) +mW**2*(mW**2*mZ - 4
     &  *mZ*p2p4 + mW*wW*wZ)) +p2p3*(-4*mZ*p1p3**2 -2*p1p3*(mW**2*mZ
     &  + 8*mZ*p2p4 - mW*wW*wZ) +mW**2*(mW**2*mZ - 10*mZ*p2p4 + 2*mW*wW
     &  *wZ)))+ p1p4*(2*p2p3**2*(2*p1p3*(-4*mZ*p2p4 + mW*wW*wZ) +mW**2
     &  *(-2*mZ*p2p4 + mW*wW*wZ)) +2*(-4*mZ*(mW**2 + 3*p1p3)*p2p4**3
     &  +Epsp1p2p3p4*mW**2*(mW**2 + 2*p1p3)*wZ +mW*p2p4*(mW**3*mZ*p1p3
     &  -mW*(2*Epsp1p2p3p4 + mW**3*wW)*wZ +2*p1p3**2*(mW*mZ + wW*wZ))
     &  +2*p2p4**2*(-4*mZ*p1p3**2 + mW**3*(mW*mZ + wW*wZ) +mW*p1p3*(mW
     &  *mZ + 2*wW*wZ))) +p2p3*(4*p1p3**2*(-4*mZ*p2p4 + mW*wW*wZ) +2
     &  *p1p3*(-20*mZ*p2p4**2 + mW**3*wW*wZ +6*mW*p2p4*wW*wZ) -mW**2
     &  *(12*mZ*p2p4**2 +(4*Epsp1p2p3p4 + mW**3*wW)*wZ -2*mW*p2p4*(mW
     &  *mZ + 3*wW*wZ)))))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3 - 2*p1p4)
     &  *(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(4*p1p2**2 + 4*p1p4**2 + 8
     &  *p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4) + mW**2*wW**2)
     &  *(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB64
        dsig = dsig + (a*c*g2**4*gZL**2*(-8*p1p2**4*(mW**2 + 2*p1p3) +4
     &  *p1p2**3*(8*p1p3**2 +mW**2*(-2*mW**2 + mZ**2 + 2*p1p4 + 4*p2p3
     &  +4*p2p4) +2*p1p3*(mZ**2 + 2*p1p4 + 6*p2p3 + 4*p2p4)) -2*p1p2**2
     &  *(8*p1p3**3 +4*p1p3**2*(mW**2 + 2*mZ**2 + 2*p1p4 + 8*p2p3 +6
     &  *p2p4) +mW**2*((mW**2 - 2*p2p3 - 2*p2p4)*(mW**2 - 2*mZ**2 - 2
     &  *p2p3 - 2*p2p4) +p1p4*(-2*mW**2 + 2*mZ**2 + 8*p2p3 + 4*p2p4))
     &  +4*p1p3*(6*p2p3**2 +p2p4*(mW**2 + 2*mZ**2 + 2*p2p4) +p1p4
     &  *(mW**2 + mZ**2 + 4*p2p3 + 2*p2p4) +p2p3*(3*mZ**2 + 8*p2p4)))
     &  +p1p2*(8*p1p3**3*(mZ**2 + 2*p2p3 + 2*p2p4) +4*p1p3**2*(mW**2
     &  *mZ**2 + 8*p2p3**2 + 2*mW**2*p2p4 +6*mZ**2*p2p4 + 4*p2p4**2 +2
     &  *p1p4*(mZ**2 + 2*p2p3 + 2*p2p4) +4*p2p3*(2*mZ**2 + 3*p2p4)) +4
     &  *p1p3*(4*p2p3**3 + p2p3**2*(6*mZ**2 + 8*p2p4) +p2p4*(-mW**4
     &  + mW**2*mZ**2 +2*(mW**2 + mZ**2)*p2p4) +p2p3*(-2*mW**4 + 2
     &  *(mW**2 + 4*mZ**2)*p2p4 +4*p2p4**2) +p1p4*(mW**2*mZ**2 + 4
     &  *p2p3**2 +2*(2*mW**2 + mZ**2)*p2p4 +2*p2p3*(mW**2 + 2*mZ**2 + 2
     &  *p2p4))) +mW**2*(p1p4*(8*p2p3**2 - 2*mZ**2*(mW**2 - 2*p2p4)
     &  +p2p3*(-4*mW**2 + 8*mZ**2 + 8*p2p4)) +mZ*(mW**4*mZ + 4*mZ
     &  *p2p3**2 -4*mZ*p2p3*(mW**2 - 2*p2p4) -4*mW**2*mZ*p2p4 + 4*mZ
     &  *p2p4**2 -4*Epsp1p2p3p4*wZ))) +2*mZ*(-4*mZ*p1p3**3*(p2p3
     &  + p2p4) -2*mZ*p1p3**2*(4*p2p3**2 + 6*p2p3*p2p4 + 2*p1p4*(p2p3
     &  + p2p4) +p2p4*(mW**2 + 2*p2p4)) +mW**2*(mW**2 - 2*p2p3 - 2
     &  *p2p4)*(mZ*p1p4*p2p3 - Epsp1p2p3p4*wZ) +p1p3*(-4*mZ*p2p3**3 -4
     &  *mZ*p2p3**2*(p1p4 + 2*p2p4) +2*mZ*p2p3*(mW**4 - mW**2*p2p4 - 2
     &  *p2p4**2 -p1p4*(mW**2 + 2*p2p4)) +mW**2*(mZ*(mW**2 - 4*p1p4)
     &  *p2p4 - 2*mZ*p2p4**2 -2*Epsp1p2p3p4*wZ)))))/(mW**2*(mW**2 + 2
     &  *p1p2 - 2*p1p3 - 2*p1p4)*(p1p2 - p1p3 - p2p3)*(-p1p2 + p1p3
     &  + p1p4 + p2p3 + p2p4)*(mZ**4 - 4*mZ**2*p1p2 + 4*p1p2**2 + mZ**2
     &  *wZ**2))
 
* AB65
        dsig = dsig + (4*a*c*g2**4*gZL*gZnuL*(mZ**2 - 2*p1p2)*(p1p2
     &  - p2p3 - p2p4)*(2*p1p3**3 + 4*p1p3**2*(-p1p2 + p1p4 + p2p3
     &  + p2p4) +mW**2*p1p4*(-mW**2 - 2*p1p2 + 2*p1p4 + 2*p2p3 +2
     &  *p2p4) + p1p3*(-mW**4 + 2*p1p2**2 + 2*p1p4**2 + 2*p2p3**2 +4
     &  *p2p3*p2p4 + 2*p2p4**2 -4*p1p2*(p1p4 + p2p3 + p2p4) +2*p1p4
     &  *(mW**2 + 2*p2p3 + 2*p2p4))))/(mW**2*(mW**2 + 2*p1p2 - 2*p1p3
     &  - 2*p1p4)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)**2*(mZ**4 - 4
     &  *mZ**2*p1p2 + 4*p1p2**2 + mZ**2*wZ**2))
 
* AB66
        dsig = dsig + (8*a*c*g2**6*(p1p2 - p2p3 - p2p4)*(-p1p2 + p1p4
     &  + p2p4)*(p1p3**2*(mW**2 - 2*p1p4) +mW**2*p1p4*(mW**2 + 2*p1p2
     &  - 2*p1p4 - 2*p2p3 -2*p2p4) + p1p3*(-2*p1p4**2 + p1p2*(mW**2 + 2
     &  *p1p4) +mW**2*(mW**2 - p2p3 - p2p4) -p1p4*(mW**2 + 2*p2p3 + 2
     &  *p2p4))))/(mW**2*(mW**2 - 2*p1p4)*(mW**2 + 2*p1p2 - 2*p1p3 - 2
     &  *p1p4)*(-p1p2 + p1p3 + p1p4 + p2p3 + p2p4)*(4*p1p2**2 + 4
     &  *p1p4**2 + 8*p1p4*p2p4 + 4*p2p4**2 -8*p1p2*(p1p4 + p2p4)
     &  + mW**2*wW**2))
 
* End AB

      endif


      dsig=dsig*factor*p3mod*(1.d0-mW**2/delta0**2)*sin(teta)*sin(teta1)

      
      dsig=dsig/spinstates


      return
      end

      double precision function m45(rs,me,E3)
      implicit none
      double precision rs,me,E3
      m45=sqrt(rs**2+me**2-2.d0*rs*E3)
      return
      end

      double precision function e45(rs,me,E3)
      implicit none
      double precision E3,m45,rs,me
      e45=(rs**2+m45(rs,me,E3)**2-me**2)/2.d0/rs
      return
      end

      double precision function gama(rs,me,E3)
      implicit none
      double precision e45,m45,E3,rs,me
      gama=e45(rs,me,E3)/m45(rs,me,E3)
      return
      end

      double precision function beta(rs,me,E3)
      implicit none
      double precision gama,E3,rs,me
      beta=sqrt(1.d0-1.d0/gama(rs,me,E3)**2)
      return
      end

      double precision function dot(p,q)
      implicit none
      double precision p(4),q(4)
      dot=p(4)*q(4)-p(1)*q(1)-p(2)*q(2)-p(3)*q(3)
      return
      end


      double precision function MyEps(p1,p2,p3,p4)
      implicit none
      integer i1,i2,i3,i4
      double precision p1(4),p2(4),p3(4),p4(4)
      double precision Eps(4,4,4,4)


      do i1=1,4
         do i2=1,4
            do i3=1,4
               do i4=1,4
                  Eps(i1,i2,i3,i4)=0d0
               enddo
            enddo
         enddo
      enddo

      Eps(4,1,2,3)=1d0
      Eps(4,1,3,2)=-1d0
      Eps(4,3,1,2)=1d0
      Eps(4,3,2,1)=-1d0
      Eps(4,2,3,1)=1d0
      Eps(4,2,1,3)=-1d0

      Eps(1,4,2,3)=-1d0
      Eps(1,4,3,2)=1d0
      Eps(1,3,4,2)=-1d0
      Eps(1,3,2,4)=1d0
      Eps(1,2,3,4)=-1d0
      Eps(1,2,4,3)=1d0

      Eps(2,1,4,3)=-1d0
      Eps(2,1,3,4)=1d0
      Eps(2,3,1,4)=-1d0
      Eps(2,3,4,1)=1d0
      Eps(2,4,3,1)=-1d0
      Eps(2,4,1,3)=1d0

      Eps(3,1,2,4)=-1d0
      Eps(3,1,4,2)=1d0
      Eps(3,4,1,2)=-1d0
      Eps(3,4,2,1)=1d0
      Eps(3,2,4,1)=-1d0
      Eps(3,2,1,4)=1d0


      MyEps=0d0

      

      do i1=1,4
         do i2=1,4
            do i3=1,4
               do i4=1,4
                  MyEps=MyEps+
     &                 Eps(i1,i2,i3,i4)*p1(i1)*p2(i2)*p3(i3)*p4(i4)
               enddo
            enddo
         enddo
      enddo



      return
      end
      
