*
*-----Collection of amplitudes squared; wto_wxxnmp
*
*     xx = gg, zz, gz
*     n= 1,4 is the index of the form factor
*     m= 1,6 is jj
*     p= s,c,q is the power of coupling constant
*
*-------------------------------------------------------------------------
*
      real*8 function wto_wgg11s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg10s= xx*rl3*vvc*gtm2*ys*(4./3.*o*x12*tx-4./3.*o*x2z*tx-4./3.
     #    *o*x2z-4./3.*o*txs-4./3.*os*x12+4./3.*os*x2z+4./3.*os
     #    *tx-4./3.*oc-4./3.*x12*txs+4./3.*x2z*tx)
      gg10s= gg10s+xx*vvs*gtm2*pwsm2*y*zxi*(-8./9.*o*x12*tx-4.
     #    /9.*o*x12+4./9.*o*tx-4./9.*o*txs+8./9.*os*x12-4./9.*
     #    os+4./9.*x12*tx+4./9.*x12*txs)
      gg10s= gg10s+xx*vvs*gtm2*pwsm2*y*(-4./3.*o*tx-4./9.*o
     #    +20./9.*os+4./9.*tx)
      gg10s= gg10s+xx*vvq*gtm2*yc*(-2*o*x2z*txs-2*x12*x2z*txs
     #    +2*x2z*txs)
      gg10s= gg10s+bxpi*rl3*vvc*gtm2*ys*(-8./3.*o*tx-4./3.*o
     #    +4./3.*os-4./3.*x12*tx+4./3.*tx)
      gg10s= gg10s+bxpi*vvs*gtm2*pwsm2*y*zxi*(-4./9.*o*tx-4./9.
     #    *o+4./9.*x12*tx+4./9.*tx)
      gg10s= gg10s+bxpi*vvq*gtm2*yc*(-o*x2z*tx-3*o*txs-3*x12
     #    *txs+x2z*tx+2*txs)
      gg10s= gg10s+rl1*vvs*y*(4./3.*o-4./3.*os)
      gg10s= gg10s+rl2*vvc*bxp*ys*(1+o*x12-o*x2z-4*o+3*os
     #    -2*x12*tx-x12+x2z+tx)
      gg10s= gg10s+rl2*vvc*bxps*ys*(-1+o+x12)
      gg10s= gg10s+rl2*vvc*ys*(-o*x12*tx-o*x2z*tx+2*o*x2z
     #    +2*o*tx+o*txs-os*x2z-os*tx+x12*tx+x12*txs-x2z*
     #    tx-x2z)
      gg10s= gg10s+rl3*vvc*gtm2*bxp*ys*(2./3.-2./3.*o-2./3.*x12)
      gg10s= gg10s+rl3*vvc*gtm2*ys*(2./3.*o*x2z+8./3.*o*tx+2*
     #    o-4./3.*os+2*x12*tx+2./3.*x12-2./3.*x2z-4./3.*tx)
      gg10s= gg10s+vvs*gsm2*pwtm2*y*bxp*(-o+os)
      gg10s= gg10s+vvs*gsm2*pwtm2*y*(o*tx)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*bxp*zxi*(2./9.-2./9.*o+2./
     #    9.*x12)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*zxi*(2./9.*o*x12+2./9.*o*tx
     #    +4./9.*o+2./9.*os-2./3.*x12*tx-4./9.*x12-4./9.*tx)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*(-2./9.+2./9.*o)
      gg10s= gg10s+vvq*gtm2*bxp*yc*(1+o*x12-o*x2z-3*o*tx-3
     #    *o+2*os-4*x12*tx-x12-x2z*tx+x2z+3*tx+txs)
      gg10s= gg10s+vvq*gtm2*bxps*yc*(-1+o+x12)
      gg10s= gg10s+vvq*gtm2*yc*(o*x12*tx+2*o*x2z*tx+2*o*x2z
     #    +2*o*tx+3*o*txs-os*x2z+2*x12*x2z*tx+x12*tx+3*x12*
     #    txs-3*x2z*tx-x2z*txs-x2z+tx*x12s+tx*x2zs-tx-2*txs)
*
      wto_wgg11s= gg10s
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg21s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg20s= xx*rl3*vvc*gtm2*ys*(4*o*x12*tx-4*o*x2z*tx-4*o*x2z-4*
     #    o*txs-4*os*x12+4*os*x2z+4*os*tx-4*oc-4*x12*txs+4*
     #    x2z*tx)
      gg20s= gg20s+xx*vvs*gtm2*pwsm2*y*zxi*(-8./3.*o*x12*tx-4.
     #    /3.*o*x12+4./3.*o*tx-4./3.*o*txs+8./3.*os*x12-4./3.*
     #    os+4./3.*x12*tx+4./3.*x12*txs)
      gg20s= gg20s+xx*vvs*gtm2*pwsm2*y*(-4*o*tx-4./3.*o+20./
     #    3.*os+4./3.*tx)
      gg20s= gg20s+xx*vvq*gtm2*yc*(-6*o*x2z*txs-6*x12*x2z*txs
     #    +6*x2z*txs)
      gg20s= gg20s+bxpi*rl3*vvc*gtm2*ys*(-8*o*tx-4*o+4*os-
     #    4*x12*tx+4*tx)
      gg20s= gg20s+bxpi*vvs*gtm2*pwsm2*y*zxi*(-4./3.*o*tx-4./3.
     #    *o+4./3.*x12*tx+4./3.*tx)
      gg20s= gg20s+bxpi*vvq*gtm2*yc*(-3*o*x2z*tx-9*o*txs-9*
     #    x12*txs+3*x2z*tx+6*txs)
      gg20s= gg20s+rl1*vvs*y*(4./3.*o-4./3.*os)
      gg20s= gg20s+rl2*vvc*bxp*ys*(1+o*x12-o*x2z-4*o+3*os
     #    -2*x12*tx-x12+x2z+tx)
      gg20s= gg20s+rl2*vvc*bxps*ys*(-1+o+x12)
      gg20s= gg20s+rl2*vvc*ys*(-o*x12*tx-o*x2z*tx+2*o*x2z
     #    +2*o*tx+o*txs-os*x2z-os*tx+x12*tx+x12*txs-x2z*tx-x2z)
      gg20s= gg20s+rl3*vvc*gtm2*bxp*ys*(2./3.-2./3.*o-2./3.*x12)
      gg20s= gg20s+rl3*vvc*gtm2*ys*(2./3.*o*x2z+8*o*tx+14./3.
     #    *o-4*os+14./3.*x12*tx+2./3.*x12-2./3.*x2z-4*tx)
      gg20s= gg20s+vvs*gsm2*pwtm2*y*bxp*(-o+os)
      gg20s= gg20s+vvs*gsm2*pwtm2*y*(o*tx)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*bxp*zxi*(2./9.-2./9.*o+2./
     #    9.*x12)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*zxi*(2./9.*o*x12+10./9.*o*
     #    tx+4./3.*o+2./9.*os-14./9.*x12*tx-4./9.*x12-4./3.*tx)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*(-2./9.+2./9.*o)
      gg20s= gg20s+vvq*gtm2*bxp*yc*(1+o*x12-o*x2z-6*o*tx-3
     #    *o+2*os-6*x12*tx-x12-x2z*tx+x2z+5*tx+txs)
      gg20s= gg20s+vvq*gtm2*bxps*yc*(-1+o+x12)
      gg20s= gg20s+vvq*gtm2*yc*(o*x12*tx+4*o*x2z*tx+2*o*x2z
     #    +5*o*tx+9*o*txs-os*x2z+2*x12*x2z*tx+3*x12*tx+9*
     #    x12*txs-5*x2z*tx-x2z*txs-x2z+tx*x12s+tx*x2zs-3*tx
     #    -6*txs)
*
      wto_wgg21s= gg20s
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg12s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg11s= xx*rl3*vvc*gtm2*ys*(4./3.*os*x2z+4./3.*oc*x12-4./3.*oc
     #    *x2z+4./3.*oq)
      gg11s= gg11s+xx*vvs*gtm2*pwsm2*y*zxi*(4./9.*os*x12-8./9.*
     #    oc*x12+4./9.*oc)
      gg11s= gg11s+xx*vvs*gtm2*pwsm2*y*(4./9.*os-28./9.*oc)
      gg11s= gg11s+bxpi*rl3*vvc*gtm2*ys*(4./3.*o*x2z+4./3.*os*
     #    x12-4./3.*os*x2z+4./3.*os)
      gg11s= gg11s+bxpi*vvs*gtm2*pwsm2*y*zxi*(4./9.*o*x12-8./9.*
     #    os*x12+8./9.*os)
      gg11s= gg11s+bxpi*vvs*gtm2*pwsm2*y*(4./9.*o-20./9.*os)
      gg11s= gg11s+rl1*vvs*y*(-4./3.*os+4./3.*oc)
      gg11s= gg11s+rl3*vvc*gtm2*bxp*ys*(2./3.+4./3.*o*x12-4./3.
     #    *o+4./3.*os)
      gg11s= gg11s+rl3*vvc*gtm2*ys*(-2./3.*o*x12+2./3.*o*x2z
     #    -4./3.*o-4./3.*os*x12-2./3.*os-2./3.*x2z)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*bxp*zxi*(2./9.-4./9.*o*x12
     #    +4./9.*os)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*zxi*(4./9.*o*x12-2./3.*o+
     #    4./9.*os*x12-4./9.*os-4./9.*oc-2./9.*x12)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*(-2./9.+2./3.*o+16./9.*os)
*
      wto_wgg12s= gg11s
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg22s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg21s= xx*rl3*vvc*gtm2*ys*(4*os*x2z+4*oc*x12-4*oc*x2z+4*oq
     #    )
      gg21s= gg21s+xx*vvs*gtm2*pwsm2*y*zxi*(4./3.*os*x12-8./3.*
     #    oc*x12+4./3.*oc)
      gg21s= gg21s+xx*vvs*gtm2*pwsm2*y*(4./3.*os-28./3.*oc)
      gg21s= gg21s+bxpi*rl3*vvc*gtm2*ys*(4*o*x2z+4*os*x12-4*os
     #    *x2z+4*os)
      gg21s= gg21s+bxpi*vvs*gtm2*pwsm2*y*zxi*(4./3.*o*x12-8./3.*
     #    os*x12+8./3.*os)
      gg21s= gg21s+bxpi*vvs*gtm2*pwsm2*y*(4./3.*o-20./3.*os)
      gg21s= gg21s+rl1*vvs*y*(-4./3.*os+4./3.*oc)
      gg21s= gg21s+rl3*vvc*gtm2*bxp*ys*(2./3.+4./3.*o*x12+4./3.
     #    *o-4./3.*os)
      gg21s= gg21s+rl3*vvc*gtm2*ys*(-2./3.*o*x12-2*o*x2z-4*
     #    o-4*os*x12+8./3.*os*x2z-2./3.*os-2./3.*x2z)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*bxp*zxi*(2./9.-4./9.*o*x12
     #    +8./9.*o+4./9.*os)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*zxi*(-4./9.*o*x12-14./9.*
     #    o+20./9.*os*x12-20./9.*os-4./9.*oc-2./9.*x12)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*(-2./9.-2./9.*o+56./9.*os)
*
      wto_wgg22s= gg21s
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg13s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg12s= xx*vvs*ums*gtm2*pwsm2*(-8./3.*oc)
      gg12s= gg12s+xx*vvs*gtm2*pwsm2*y*(8./9.*oq)
      gg12s= gg12s+bxpi*vvs*ums*gtm2*pwsm2*(-16./9.*os)
      gg12s= gg12s+bxpi*vvs*gtm2*pwsm2*y*(8./9.*oc)
      gg12s= gg12s+vvs*ums*gtm2*pwsm2*(4./9.*o+16./9.*
     #    os)
      gg12s= gg12s+vvs*gtm2*pwsm2*y*bxp*(4./9.*os)
      gg12s= gg12s+vvs*gtm2*pwsm2*y*(-4./9.*os-8./9.*oc)
*
      wto_wgg13s= gg12s
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg23s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg22s= xx*vvs*ums*gtm2*pwsm2*(-8*oc)
      gg22s= gg22s+xx*vvs*gtm2*pwsm2*y*(8./3.*oq)
      gg22s= gg22s+bxpi*vvs*ums*gtm2*pwsm2*(-16./3.*os)
      gg22s= gg22s+bxpi*vvs*gtm2*pwsm2*y*(8./3.*oc)
      gg22s= gg22s+vvs*ums*gtm2*pwsm2*(4./9.*o+16./3.*os)
      gg22s= gg22s+vvs*gtm2*pwsm2*y*bxp*(4./9.*os)
      gg22s= gg22s+vvs*gtm2*pwsm2*y*(-4./9.*os-8./3.*oc)
*
      wto_wgg23s= gg22s
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg11c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg10c= rs1wg(1)*xx*vvc*gtm2*ys*(8./3.*o*x12*tx-8./3.*o*x2z*tx
     #    -8./3.*o*x2z-8./3.*o*txs-8./3.*os*x12+8./3.*os*x2z+
     #    8./3.*os*tx-8./3.*oc-8./3.*x12*txs+8./3.*x2z*tx)
      gg10c= gg10c+rs1wg(1)*bxpi*vvc*gtm2*ys*(-8*o*tx-8./3.*o
     #    +16./3.*os-8./3.*x12*tx+8./3.*tx)
      gg10c= gg10c+rs1wg(1)*vvc*gtm2*bxp*ys*(4./3.-4./3.*o-4./
     #    3.*x12)
      gg10c= gg10c+rs1wg(1)*vvc*gtm2*ys*(4./3.*o*x2z+28./3.*o*
     #    tx+4*o-16./3.*os+4*x12*tx+4./3.*x12-4./3.*x2z-8./
     #    3.*tx)
      gg10c= gg10c+rs1wg(4)*xx*vvc*gtm2*ys*(2./3.*o*x2z*txs-2./
     #    3.*o*tx*x2zs+4./3.*o*x2zs+2./3.*x12*x2z*txs-2./3.*tx*
     #    x2zs)
      gg10c= gg10c+rs1wg(4)*bxpi*vvc*gtm2*ys*(-2./3.*o*x12*x2z
     #    +8./3.*o*x2z+2./3.*o*txs-2./3.*os*x2z+2./3.*x12*x2z*
     #    tx+2./3.*x12*txs-4./3.*x2z*tx)
      gg10c= gg10c+rs1wg(4)*vvc*gtm2*bxp*ys*(-o*x12+o*tx+5./
     #    3.*o-2./3.*os+x12*tx+2./3.*x12-tx-1./3.*x12s)
      gg10c= gg10c+rs1wg(4)*vvc*gtm2*ys*(1./3.*o*x12*x2z+1./3.*
     #    o*x12*tx+2./3.*o*x12+1./3.*o*x2z*tx-3*o*x2z-2./3.*o*
     #    tx-o*txs-4./3.*o+2./3.*os*x2z+2./3.*os-2./3.*x12*
     #    x2z*tx-2./3.*x12*x2z-2./3.*x12*tx-x12*txs+5./3.*x2z*
     #    tx+1./3.*tx*x12s+2./3.*tx)
      gg10c= gg10c+rs1wg(7)*xx*vvc*gtm2*ys*(-1./3.*o*x2z*txs-
     #    1./3.*o*tx*x2zs-1./3.*x12*x2z*txs+1./3.*tx*x2zs)
      gg10c= gg10c+rs1wg(7)*bxpi*vvc*gtm2*ys*(-1./3.*o*x12*x2z
     #    -1./3.*o*x2z*tx-1./3.*os*x2z-1./3.*x12*x2z*tx+1./3.*
     #    x2z*tx)
      gg10c= gg10c+rs1wg(7)*vvc*gtm2*bxp*ys*(-1./6.*os-1./3.*
     #    x12+1./6.*x12s)
      gg10c= gg10c+rs1wg(7)*vvc*gtm2*ys*(1./3.*o*x12*x2z-1./3.*
     #    o*x12*tx+1./3.*o*x2z*tx+1./6.*o*x12s+1./3.*os*x12+1./
     #    3.*os*x2z-1./6.*os*tx+1./6.*oc+1./3.*x12*x2z*tx+1./3.
     #    *x12*x2z-1./3.*x2z*tx-1./6.*tx*x12s)
      gg10c= gg10c+rs1wg(8)*bxpi*vvc*gtm2*ys*(2./3.*o*x2z*tx-4./
     #    3.*o*x2z-2./3.*o*txs-2./3.*x12*txs+2./3.*x2z*tx)
      gg10c= gg10c+rs1wg(8)*vvc*gtm2*bxp*ys*(o*x12-o*tx-5./3.*
     #    o+os-x12*tx+tx)
      gg10c= gg10c+rs1wg(8)*vvc*gtm2*ys*(1./3.*o*x12*tx-2./3.*o
     #    *x12-o*x2z*tx+5./3.*o*x2z+2./3.*o*tx+o*txs+4./3.*o
     #    -1./3.*os*x2z+1./3.*os*tx-2./3.*os+2./3.*x12*tx+x12
     #    *txs-x2z*tx-2./3.*tx)
      gg10c= gg10c+rs1wg(9)*bxpi*vvc*gtm2*ys*(8./3.*o*tx-8./3.*os)
      gg10c= gg10c+rs1wg(9)*vvc*gtm2*ys*(-4*o*tx+8./3.*os)
      gg10c= gg10c+rs1wg(10)*xx*vvc*gtm2*ys*(1./3.*o*x2z*txs+1./
     #    3.*o*tx*x2zs+1./3.*x12*x2z*txs-1./3.*tx*x2zs)
      gg10c= gg10c+rs1wg(10)*bxpi*vvc*gtm2*ys*(1./3.*o*x12*x2z+2.
     #    /3.*o*x2z*tx+1./3.*o*txs+1./3.*os*x2z+1./3.*x12*x2z*tx
     #    +1./3.*x12*txs-2./3.*x2z*tx)
      gg10c= gg10c+rs1wg(10)*vvc*gtm2*bxp*ys*(1./2.*o*x12+1./2.*
     #    o*tx-1./6.*o+2./3.*os+1./2.*x12*tx+1./3.*x12-1./2.*
     #    tx-1./6.*x12s)
      gg10c= gg10c+rs1wg(10)*vvc*gtm2*ys*(-1./3.*o*x12*x2z+1./
     #    6.*o*x12*tx-1./3.*o*x12-5./6.*o*x2z*tx+1./6.*o*x2z-1./
     #    3.*o*tx-1./6.*o*x12s-1./2.*o*txs-1./3.*os*x12-1./2.*
     #    os*x2z-1./3.*os-1./6.*oc-1./3.*x12*x2z*tx-1./3.*x12*
     #    x2z-1./3.*x12*tx-1./2.*x12*txs+5./6.*x2z*tx+1./6.*tx*
     #    x12s+1./3.*tx)
      gg10c= gg10c+rs1wg(11)*vvc*gtm2*bxp*ys*(2./3.-2./3.*o-2./
     #    3.*x12)
      gg10c= gg10c+rs1wg(11)*vvc*gtm2*ys*(2./3.*o*x12+2./3.*o*
     #    x2z-2./3.*o*tx+2./3.*os+2./3.*x12*tx-2./3.*x2z)
      gg10c= gg10c+rs1wg(12)*xx*vvc*gtm2*ys*(4./3.*o*x12*tx+4./
     #    3.*o*x2z*tx-4./3.*o*x2z-4./3.*o*txs-4./3.*os*x12-4./3.
     #    *os*x2z+4./3.*os*tx-4./3.*oc-4./3.*x12*txs+4./3.*x2z*tx)
      gg10c= gg10c+rs1wg(12)*bxpi*vvc*gtm2*ys*(-4./3.*o*tx-4./
     #    3.*o-4./3.*x12*tx+4./3.*tx)
      gg10c= gg10c+rs1wg(12)*vvc*gtm2*ys*(4./3.*o*tx+2*o+4./3.
     #    *x12*tx+2./3.*x12-4./3.*tx)
      gg10c= gg10c+rs1wg(13)*xx*vvc*gtm2*ys*(2./3.*o*x12*tx-2./
     #    3.*o*x2z*tx-2./3.*o*x2z-2./3.*o*txs-2./3.*os*x12+2./3.
     #    *os*x2z+2./3.*os*tx-2./3.*oc-2./3.*x12*txs+2./3.*x2z*tx)
      gg10c= gg10c+rs1wg(13)*bxpi*vvc*gtm2*ys*(-2./3.*o*tx-2./
     #    3.*o-2./3.*x12*tx+2./3.*tx)
      gg10c= gg10c+rs1wg(13)*vvc*gtm2*ys*(o*x12+2./3.*o*tx-1./
     #    3.*o+os+2./3.*x12*tx+1./3.*x12-2./3.*tx)
      gg10c= gg10c+rs1wg(14)*xx*vvc*gtm2*ys*(4./3.*o*x2z*tx-4./
     #    3.*os*x2z)
      gg10c= gg10c+rs1wg(14)*bxpi*vvc*gtm2*ys*(4./3.*o*tx-4./3.*
     #    os)
      gg10c= gg10c+rs1wg(14)*vvc*gtm2*bxp*ys*(1./3.-1./3.*o-1./
     #    3.*x12)
      gg10c= gg10c+rs1wg(14)*vvc*gtm2*ys*(-2./3.*o*x12+1./3.*
     #    o*x2z-o*tx+2./3.*os+1./3.*x12*tx-1./3.*x2z)
      gg10c= gg10c+rs2wg(1)*xx*vvq*gtm2*yc*(-8*o*x2z*txs-8*
     #    x12*x2z*txs+8*x2z*txs)
      gg10c= gg10c+rs2wg(1)*bxpi*vvq*gtm2*yc*(-6*o*x2z*tx-14*o
     #    *txs-14*x12*txs+6*x2z*tx+8*txs)
      gg10c= gg10c+rs2wg(1)*vvq*gtm2*bxp*yc*(4+4*o*x12-4*o*x2z
     #    -18*o*tx-12*o+8*os-18*x12*tx-4*x12-4*x2z*tx+4*
     #    x2z+14*tx+4*txs)
      gg10c= gg10c+rs2wg(1)*vvq*gtm2*bxps*yc*(-4+4*o+4*x12)
      gg10c= gg10c+rs2wg(1)*vvq*gtm2*yc*(6*o*x12*tx+12*o*x2z*tx
     #    +8*o*x2z+10*o*tx+14*o*txs-4*os*x2z+2*os*tx+8*x12*
     #    x2z*tx+6*x12*tx+14*x12*txs-14*x2z*tx-4*x2z*txs-4*
     #    x2z+4*tx*x12s+4*tx*x2zs-6*tx-8*txs)
      gg10c= gg10c+rs2wg(4)*xx*vvq*gtm2*yc*(o*x12*tx*x2zs-o*tx*
     #    x2zc-o*tx*x2zs+2*o*x2zc+o*x2zs*txs+os*tx*x2zs-os*
     #    x2zc+x12*tx*x2zs+x12*x2zs*txs+tx*x2zc-x2zc-2*x2zs*txs)
      gg10c= gg10c+rs2wg(4)*bxpi*vvq*gtm2*yc*(3./2.*o*x12*x2z*tx
     #    -2*o*x12*x2zs-2*o*x2z*tx+7./2.*o*x2z*txs-5./2.*o*tx*
     #    x2zs+13./2.*o*x2zs+5./2.*os*x2z*tx-7./2.*os*x2zs+2*
     #    x12*x2z*tx+7./2.*x12*x2z*txs-x12*tx*x2zs+2*x12*x2zs-
     #    x2z*tx*x12s-4*x2z*txs+3./2.*tx*x2zs-3*x2zs)
      gg10c= gg10c+rs2wg(4)*vvq*gtm2*bxp*yc*(-1-25./4.*o*x12*
     #    x2z+1./2.*o*x12*tx-7./4.*o*x12-7./4.*o*x2z*tx+45./4.*
     #    o*x2z-5./4.*o*tx-3./4.*o*x12s+4*o*txs+5./2.*o-1./2.
     #    *os*x12-25./4.*os*x2z+11./4.*os*tx-7./4.*os+1./4.*oc
     #    -3./4.*x12*x2z*tx+6*x12*x2z+11./4.*x12*tx+4*x12*txs
     #    +2*x12-1./4.*x2z*tx-x2z*x12s-5*x2z-9./4.*tx*x12s-
     #    1./2.*tx-x12s-3*txs)
      gg10c= gg10c+rs2wg(4)*vvq*gtm2*bxps*yc*(2+5*o*x12-o*tx
     #    -5*o+3*os-x12*tx-4*x12+tx+2*x12s)
      gg10c= gg10c+rs2wg(4)*vvq*gtm2*yc*(-5./2.*o*x12*x2z*tx+
     #    15./4.*o*x12*x2z-1./2.*o*x12*tx+2*o*x12*x2zs+1./2.*o*
     #    x12*txs+15./4.*o*x2z*tx-17./4.*o*x2z*txs-7*o*x2z+1./4.
     #    *o*tx*x12s+13./4.*o*tx*x2zs+o*tx-33./4.*o*x2zs-5./2.*
     #    o*txs-1./4.*os*x12*x2z+1./2.*os*x12*tx-7./2.*os*x2z*tx
     #    +17./4.*os*x2z-3./2.*os*tx+17./4.*os*x2zs+1./4.*os*
     #    txs-1./4.*oc*x2z+1./4.*oc*tx-11./4.*x12*x2z*tx-17./4.
     #    *x12*x2z*txs-4*x12*x2z+x12*tx*x2zs-x12*tx-2*x12*x2zs
     #    -5./2.*x12*txs+x2z*tx*x12s+x2z*x12s+5*x2z*txs+3*x2z
     #    +tx*x12s-7./4.*tx*x2zs+1./4.*x12s*txs+4*x2zs+2*txs)
      gg10c= gg10c+rs2wg(7)*xx*vvq*gtm2*yc*(-o*x12*x2z*txs+o*
     #    x2zc-o*x2zs*txs-1./2.*os*x2z*txs-1./2.*os*x2zc+x12*tx
     #    *x2zs-x12*x2zs*txs-1./2.*x2z*x12s*txs-1./2.*x2zc+x2zs
     #    *txs)
      gg10c= gg10c+rs2wg(7)*bxpi*vvq*gtm2*yc*(-5./4.*o*x12*x2z*
     #    tx-o*x12*x2zs-5./4.*o*x2z*txs-1./4.*o*tx*x2zs+9./4.*o
     #    *x2zs-1./4.*os*x2z*tx-5./4.*os*x2zs+x12*x2z*tx-5./4.*
     #    x12*x2z*txs+x12*x2zs-x2z*tx*x12s+x2z*txs+1./4.*tx*
     #    x2zs-x2zs)
      gg10c= gg10c+rs2wg(7)*vvq*gtm2*bxp*yc*(-9./8.*o*x12*x2z+
     #    1./4.*o*x12*tx-3./8.*o*x12-1./8.*o*x2z*tx+9./8.*o*x2z
     #    -3./8.*o*tx+1./8.*o*x12s-1./2.*o*txs+1./4.*o+3./4.*
     #    os*x12-5./8.*os*x2z+1./8.*os*tx-7./8.*os+5./8.*oc-1.
     #    /8.*x12*x2z*tx+x12*x2z-3./8.*x12*tx-1./2.*x12*txs+1./
     #    8.*x2z*tx-1./2.*x2z*x12s-1./2.*x2z+1./8.*tx*x12s+1./4.
     #    *tx+1./2.*txs)
      gg10c= gg10c+rs2wg(7)*vvq*gtm2*yc*(o*x12*x2z*tx+11./8.*o*
     #    x12*x2z+1./4.*o*x12*tx+o*x12*x2zs-1./4.*o*x12*txs+5./
     #    8.*o*x2z*tx+13./8.*o*x2z*txs-3./2.*o*x2z-1./8.*o*tx*
     #    x12s+1./8.*o*tx*x2zs-17./8.*o*x2zs+1./4.*o*txs-5./8.*
     #    os*x12*x2z-1./4.*os*x12*tx+13./8.*os*x2z+1./4.*os*tx+
     #    9./8.*os*x2zs-1./8.*os*txs-5./8.*oc*x2z-1./8.*oc*tx-5.
     #    /8.*x12*x2z*tx+13./8.*x12*x2z*txs-x12*x2z-x12*x2zs+1./
     #    4.*x12*txs+x2z*tx*x12s-1./2.*x2z*tx+1./2.*x2z*x12s-3./
     #    2.*x2z*txs+1./2.*x2z-1./8.*tx*x2zs-1./8.*x12s*txs+x2zs)
      gg10c= gg10c+rs2wg(8)*bxpi*vvq*gtm2*yc*(-o*x12*x2z*tx+o*
     #    x2z*tx-o*x2z*txs+o*tx*x2zs-2*o*x2zs-os*x2z*tx+os*
     #    x2zs-x12*x2z*tx-x12*x2z*txs+2*x2z*txs-tx*x2zs+x2zs)
      gg10c= gg10c+rs2wg(8)*vvq*gtm2*bxp*yc*(1+5./2.*o*x12*x2z
     #    -2*o*x12*tx+3./2.*o*x12+3./2.*o*x2z*tx-11./2.*o*x2z
     #    +3./2.*o*tx+1./2.*o*x12s-3*o*txs-2*o+os*x12+7./2.
     #    *os*x2z-5./2.*os*tx+1./2.*os+1./2.*oc+1./2.*x12*x2z*
     #    tx-2*x12*x2z-1./2.*x12*tx-3*x12*txs-2*x12+1./2.*x2z
     #    *tx+2*x2z+1./2.*tx*x12s+x12s+2*txs)
      gg10c= gg10c+rs2wg(8)*vvq*gtm2*bxps*yc*(-1-3*o*x12+o*
     #    tx+3*o-2*os+x12*tx+2*x12-tx-x12s)
      gg10c= gg10c+rs2wg(8)*vvq*gtm2*yc*(o*x12*x2z*tx-3./2.*o*
     #    x12*x2z+o*x12*txs-5./2.*o*x2z*tx+3./2.*o*x2z*txs+4*o*
     #    x2z+1./2.*o*tx*x12s-3./2.*o*tx*x2zs-o*tx+5./2.*o*x2zs
     #    +2*o*txs-1./2.*os*x12*x2z+os*x12*tx+os*x2z*tx-3./2.
     #    *os*x2z+os*tx-3./2.*os*x2zs+1./2.*os*txs-1./2.*oc*x2z
     #    +1./2.*oc*tx-1./2.*x12*x2z*tx+3./2.*x12*x2z*txs+2*x12
     #    *x2z+x12*tx+2*x12*txs+x2z*tx-2*x2z*txs-2*x2z-tx*
     #    x12s+1./2.*tx*x2zs+1./2.*x12s*txs-x2zs-2*txs)
      gg10c= gg10c+rs2wg(9)*bxpi*vvq*gtm2*yc*(2*o*x2z*tx+2*o*txs
     #    +2*x12*txs-2*x2z*tx)
      gg10c= gg10c+rs2wg(9)*vvq*gtm2*bxp*yc*(6*o*tx+2*x12*tx-2*tx)
      gg10c= gg10c+rs2wg(9)*vvq*gtm2*yc*(-2*o*x12*tx-4*o*x2z*
     #    tx-2*o*tx-2*o*txs-2*os*tx-2*x12*tx-2*x12*txs+2*
     #    x2z*tx+2*tx)
      gg10c= gg10c+rs2wg(10)*xx*vvq*gtm2*yc*(o*x12*x2z*txs-o*
     #    x2zc+o*x2zs*txs+1./2.*os*x2z*txs+1./2.*os*x2zc-x12*tx
     #    *x2zs+x12*x2zs*txs+1./2.*x2z*x12s*txs+1./2.*x2zc-x2zs*txs)
      gg10c= gg10c+rs2wg(10)*bxpi*vvq*gtm2*yc*(5./4.*o*x12*x2z*tx
     #    +o*x12*x2zs+o*x12*txs+9./4.*o*x2z*txs+1./4.*o*tx*x2zs
     #    -13./4.*o*x2zs+1./4.*os*x2z*tx+7./4.*os*x2zs+1./2.*os
     #    *txs-2*x12*x2z*tx+9./4.*x12*x2z*txs-x12*x2zs+x2z*tx*
     #    x12s-2*x2z*txs-1./4.*tx*x2zs+1./2.*x12s*txs+3./2.*x2zs)
      gg10c= gg10c+rs2wg(10)*vvq*gtm2*bxp*yc*(1./2.+19./8.*o*x12
     #    *x2z+7./4.*o*x12*tx+9./8.*o*x12+7./8.*o*x2z*tx-31./8.
     #    *o*x2z+1./8.*o*tx+1./8.*o*x12s+2*o*txs-5./4.*o-1./4.
     #    *os*x12+19./8.*os*x2z+5./8.*os*tx+9./8.*os-3./8.*oc
     #    +3./8.*x12*x2z*tx-2*x12*x2z-7./8.*x12*tx+2*x12*txs-
     #    x12-7./8.*x2z*tx+1./2.*x2z*x12s+3./2.*x2z+9./8.*tx*
     #    x12s-1./4.*tx+1./2.*x12s-3./2.*txs)
      gg10c= gg10c+rs2wg(10)*vvq*gtm2*bxps*yc*(-1./2.-3./2.*o*
     #    x12-1./2.*o*tx+3./2.*o-os-1./2.*x12*tx+x12+1./2.*
     #    tx-1./2.*x12s)
      gg10c= gg10c+rs2wg(10)*vvq*gtm2*yc*(-3./2.*o*x12*x2z*tx
     #    -17./8.*o*x12*x2z-5./4.*o*x12*tx-o*x12*x2zs-5./4.*o*
     #    x12*txs-3./8.*o*x2z*tx-23./8.*o*x2z*txs+7./2.*o*x2z-1.
     #    /8.*o*tx*x12s-3./8.*o*tx*x2zs+27./8.*o*x2zs-5./4.*o*txs
     #    +3./8.*os*x12*x2z-1./4.*os*x12*tx-1./2.*os*x2z*tx-19./
     #    8.*os*x2z-1./4.*os*tx-15./8.*os*x2zs-5./8.*os*txs+3./
     #    8.*oc*x2z-1./8.*oc*tx+15./8.*x12*x2z*tx-23./8.*x12*x2z*
     #    txs+2*x12*x2z+x12*tx+x12*x2zs-5./4.*x12*txs-x2z*tx*
     #    x12s+1./2.*x2z*tx-1./2.*x2z*x12s+5./2.*x2z*txs-3./2.*
     #    x2z-tx*x12s+3./8.*tx*x2zs-5./8.*x12s*txs-3./2.*x2zs+txs)
      gg10c= gg10c+rs2wg(11)*vvq*gtm2*bxp*yc*(-5./2.*o*x12-3*o
     #    *x2z+1./2.*o*tx-1./2.*o+1./2.*os-x12*x2z-7./2.*x12*
     #    tx+x12-2*x2z*tx+3*x2z+3./2.*tx-x12s+2*txs)
      gg10c= gg10c+rs2wg(11)*vvq*gtm2*bxps*yc*(-2+2*o+2*x12)
      gg10c= gg10c+rs2wg(11)*vvq*gtm2*yc*(o*x12*x2z+3./2.*o*x12
     #    *tx-1./2.*o*x2z*tx+1./2.*o*x2z+o*x2zs-1./2.*o*txs-1.
     #    /2.*os*x2z+1./2.*os*tx+3*x12*x2z*tx-x12*x2z-1./2.*x12
     #    *txs-3./2.*x2z*tx-2*x2z*txs+tx*x12s+2*tx*x2zs-x2zs)
      gg10c= gg10c+rs2wg(12)*xx*vvq*gtm2*yc*(-2*o*x2z*txs+2*o
     #    *tx*x2zs-2*x12*x2z*txs+4*x2z*txs-2*tx*x2zs)
      gg10c= gg10c+rs2wg(12)*bxpi*vvq*gtm2*yc*(3*o*x2z*tx-5*o*
     #    txs+2*x12*x2z*tx-5*x12*txs-x2z*tx+4*txs)
      gg10c= gg10c+rs2wg(12)*vvq*gtm2*bxp*yc*(2+7./2.*o*x12+o*
     #    x2z-5./2.*o*tx-9./2.*o+5./2.*os+x12*x2z-5./2.*x12*
     #    tx-3*x12-x2z+5./2.*tx+x12s)
      gg10c= gg10c+rs2wg(12)*vvq*gtm2*yc*(-o*x12*x2z+3./2.*o*
     #    x12*tx-3./2.*o*x2z*tx+5./2.*o*x2z+o*tx-o*x2zs+9./2.
     #    *o*txs-1./2.*os*x2z+1./2.*os*tx-x12*x2z*tx+x12*x2z+
     #    x12*tx+9./2.*x12*txs-1./2.*x2z*tx-2*x2z+tx*x12s-tx
     #    +x2zs-4*txs)
      gg10c= gg10c+rs2wg(13)*xx*vvq*gtm2*yc*(-2*o*x2z*txs-2*
     #    x12*x2z*txs+2*x2z*txs)
      gg10c= gg10c+rs2wg(13)*bxpi*vvq*gtm2*yc*(-1./2.*o*x2z*tx
     #    -5./2.*o*txs-5./2.*x12*txs+1./2.*x2z*tx+2*txs)
      gg10c= gg10c+rs2wg(13)*vvq*gtm2*bxp*yc*(-5./4.*o*x12-1./
     #    2.*o*x2z-3./4.*o*tx+3./4.*o-3./4.*os-1./2.*x12*x2z-
     #    3./4.*x12*tx+1./2.*x12+1./2.*x2z+3./4.*tx-1./2.*x12s)
      gg10c= gg10c+rs2wg(13)*vvq*gtm2*yc*(1./2.*o*x12*x2z+9./4.
     #    *o*x12*tx+5./4.*o*x2z*tx+1./4.*o*x2z-1./2.*o*tx+1./2.
     #    *o*x2zs+7./4.*o*txs-1./4.*os*x2z+3./4.*os*tx+3./2.*
     #    x12*x2z*tx-1./2.*x12*x2z-1./2.*x12*tx+7./4.*x12*txs-3.
     #    /4.*x2z*tx+3./2.*tx*x12s-1./2.*tx-1./2.*x2zs-2*txs)
      gg10c= gg10c+rs2wg(14)*xx*vvq*gtm2*yc*(o*x2z*txs+o*tx*
     #    x2zs+x12*x2z*txs-tx*x2zs)
      gg10c= gg10c+rs2wg(14)*bxpi*vvq*gtm2*yc*(3*o*x2z*tx+o*txs
     #    +x12*x2z*tx+x12*txs-2*x2z*tx)
      gg10c= gg10c+rs2wg(14)*vvq*gtm2*bxp*yc*(3./4.*o*x12+1./2.*
     #    o*x2z+3./4.*o*tx+3./4.*o-3./4.*os+1./2.*x12*x2z-1./
     #    4.*x12*tx-1./2.*x12-x2z*tx-1./2.*x2z+1./4.*tx+1./2.
     #    *x12s+txs)
      gg10c= gg10c+rs2wg(14)*vvq*gtm2*yc*(-1./2.*o*x12*x2z-3./
     #    4.*o*x12*tx-9./4.*o*x2z*tx-3./4.*o*x2z-2*o*tx-1./2.*o
     #    *x2zs-3./4.*o*txs+3./4.*os*x2z-1./4.*os*tx-1./2.*x12*
     #    x2z*tx+1./2.*x12*x2z-x12*tx-3./4.*x12*txs+3./4.*x2z*
     #    tx-x2z*txs-1./2.*tx*x12s+tx*x2zs+tx+1./2.*x2zs)
      gg10c= gg10c+rt1wg(1)*vvc*gsm2*bxp*ys*(2+2*o*x12-2*o*x2z
     #    -8*o+6*os-4*x12*tx-2*x12+2*x2z+2*tx)
      gg10c= gg10c+rt1wg(1)*vvc*gsm2*bxps*ys*(-2+2*o+2*x12)
      gg10c= gg10c+rt1wg(1)*vvc*gsm2*ys*(-2*o*x12*tx-2*o*x2z*
     #    tx+4*o*x2z+2*o*tx+2*o*txs-2*os*x2z-2*os*tx+2*x12*
     #    tx+2*x12*txs-2*x2z*tx-2*x2z)
      gg10c= gg10c+rt1wg(4)*vvc*gsm2*bxp*ys*(-1./2.*o*x12*x2z-
     #    o*x12*tx+1./2.*o*x12+3./2.*o*x2z-1./2.*o*x12s-1./2.*
     #    os*x2z-1./2.*os+1./2.*oc+x12*x2z+x12*tx-x2z-tx*x12s)
      gg10c= gg10c+rt1wg(4)*vvc*gsm2*bxps*ys*(1./2.+o*x12-o+
     #    1./2.*os-x12+1./2.*x12s)
      gg10c= gg10c+rt1wg(4)*vvc*gsm2*ys*(-1./2.*o*x12*x2z*tx-
     #    1./2.*o*x12*x2z+o*x12*txs+1./2.*o*tx*x12s-1./2.*o*x2zs
     #    -1./2.*os*x12*x2z+os*x12*tx-1./2.*os*x2z*tx+1./2.*os*
     #    x2z+1./2.*os*txs-1./2.*oc*x2z+1./2.*oc*tx-x12*x2z*tx
     #    +1./2.*x12s*txs+1./2.*x2zs)
      gg10c= gg10c+rt1wg(7)*vvc*gsm2*bxp*ys*(1./2.*o*x12*x2z+1./
     #    2.*o*x12*tx-1./4.*o*x12-o*x2z-1./4.*o*tx+1./4.*o+1./
     #    2.*os*x12+1./2.*os*x2z-3./4.*os+1./2.*oc-1./2.*x12*
     #    x2z-3./4.*x12*tx+1./2.*x2z+1./2.*tx*x12s+1./4.*tx)
      gg10c= gg10c+rt1wg(7)*vvc*gsm2*bxps*ys*(-1./4.-1./2.*o*
     #    x12+1./2.*o-1./4.*os+1./2.*x12-1./4.*x12s)
      gg10c= gg10c+rt1wg(7)*vvc*gsm2*ys*(1./4.*o*x12*tx-1./2.*o
     #    *x12*txs+1./4.*o*x2z*tx-1./4.*o*x2z+1./2.*o*x2zs+1./4.
     #    *o*txs-1./2.*os*x12*x2z+3./4.*os*x2z+1./4.*os*tx-1./4.
     #    *os*x2zs-1./4.*os*txs-1./2.*oc*x2z+1./2.*x12*x2z*tx+1.
     #    /4.*x12*txs-1./4.*x2z*tx-1./4.*x12s*txs-1./4.*x2zs)
      gg10c= gg10c+rt1wg(8)*vvc*gsm2*bxp*ys*(-1./2.*o*x12+1./2.
     #    *o*tx+1./2.*o-1./2.*os+1./2.*x12*tx-1./2.*tx)
      gg10c= gg10c+rt1wg(8)*vvc*gsm2*ys*(-1./2.*o*x12*tx+1./2.
     #    *o*x2z*tx-1./2.*o*x2z-1./2.*o*txs+1./2.*os*x2z-1./2.*
     #    os*tx-1./2.*x12*txs+1./2.*x2z*tx)
      gg10c= gg10c+rt1wg(9)*vvc*gsm2*ys*(2*o*tx)
      gg10c= gg10c+rt1wg(10)*vvc*gsm2*bxp*ys*(-1./2.*o*x12*x2z
     #    -1./2.*o*x12*tx+o*x2z-1./2.*os*x12-1./2.*os*x2z+1./
     #    2.*os-1./2.*oc+1./2.*x12*x2z+1./2.*x12*tx-1./2.*x2z
     #    -1./2.*tx*x12s)
      gg10c= gg10c+rt1wg(10)*vvc*gsm2*bxps*ys*(1./4.+1./2.*o*x12
     #    -1./2.*o+1./4.*os-1./2.*x12+1./4.*x12s)
      gg10c= gg10c+rt1wg(10)*vvc*gsm2*ys*(1./2.*o*x12*txs-1./2.
     #    *o*x2zs+1./2.*os*x12*x2z-1./2.*os*x2z+1./4.*os*x2zs+1.
     #    /4.*os*txs+1./2.*oc*x2z-1./2.*x12*x2z*tx+1./4.*x12s*txs
     #    +1./4.*x2zs)
      gg10c= gg10c+rt1wg(11)*vvc*gsm2*bxp*ys*(-o*x12-o*x2z-o
     #    +os-2*x12*tx+x2z+tx)
      gg10c= gg10c+rt1wg(11)*vvc*gsm2*bxps*ys*(-1+o+x12)
      gg10c= gg10c+rt1wg(11)*vvc*gsm2*ys*(o*x12*tx-o*x2z*tx+o
     #    *x2z+o*txs-os*x2z+os*tx+x12*txs-x2z*tx)
      gg10c= gg10c+rt1wg(12)*vvc*gsm2*bxp*ys*(1+o*x12-2*o+os
     #    -x12)
      gg10c= gg10c+rt1wg(12)*vvc*gsm2*ys*(-o*x12*tx+o*tx+os
     #    *x2z-os*tx+x12*tx-x2z)
      gg10c= gg10c+rt1wg(13)*vvc*gsm2*bxp*ys*(1./2.-1./2.*o-1./2.*x12)
      gg10c= gg10c+rt1wg(13)*vvc*gsm2*ys*(3./2.*o*x2z-1./2.*o*
     #    tx-os*x2z+1./2.*x12*tx-1./2.*x2z)
      gg10c= gg10c+rt1wg(14)*vvc*gsm2*bxp*ys*(-1./2.*o*x2z+o
     #    -os-x12*tx+1./2.*x2z+1./2.*tx)
      gg10c= gg10c+rt1wg(14)*vvc*gsm2*bxps*ys*(-1./2.+1./2.*o
     #    +1./2.*x12)
      gg10c= gg10c+rt1wg(14)*vvc*gsm2*ys*(-1./2.*o*x2z*tx-o*
     #    x2z+1./2.*o*txs+os*x2z+1./2.*x12*txs-1./2.*x2z*tx)
*
      wto_wgg11c= gg10c
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg21c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg20c= rs1wg(1)*xx*vvc*gtm2*ys*(8*o*x12*tx-8*o*x2z*tx-8*o*x2z
     #    -8*o*txs-8*os*x12+8*os*x2z+8*os*tx-8*oc-8*x12*txs
     #    +8*x2z*tx)
      gg20c= gg20c+rs1wg(1)*bxpi*vvc*gtm2*ys*(-24*o*tx-8*o+
     #    16*os-8*x12*tx+8*tx)
      gg20c= gg20c+rs1wg(1)*vvc*gtm2*bxp*ys*(4./3.-4./3.*o-4./
     #    3.*x12)
      gg20c= gg20c+rs1wg(1)*vvc*gtm2*ys*(4./3.*o*x2z+76./3.*o*
     #    tx+28./3.*o-16*os+28./3.*x12*tx+4./3.*x12-4./3.*x2z
     #    -8*tx)
      gg20c= gg20c+rs1wg(4)*xx*vvc*gtm2*ys*(2*o*x2z*txs-2*o*tx*
     #    x2zs+4*o*x2zs+2*x12*x2z*txs-2*tx*x2zs)
      gg20c= gg20c+rs1wg(4)*bxpi*vvc*gtm2*ys*(-2*o*x12*x2z+8*o
     #    *x2z+2*o*txs-2*os*x2z+2*x12*x2z*tx+2*x12*txs-4*x2z*tx)
      gg20c= gg20c+rs1wg(4)*vvc*gtm2*bxp*ys*(-7./3.*o*x12+7./3.
     #    *o*tx+13./3.*o-2*os+7./3.*x12*tx+2./3.*x12-7./3.*tx
     #    -1./3.*x12s)
      gg20c= gg20c+rs1wg(4)*vvc*gtm2*ys*(5./3.*o*x12*x2z+1./3.*
     #    o*x12*tx+2*o*x12+1./3.*o*x2z*tx-25./3.*o*x2z-2*o*tx
     #    -7./3.*o*txs-4*o+2*os*x2z+2*os-2*x12*x2z*tx-2./3.
     #    *x12*x2z-2*x12*tx-7./3.*x12*txs+13./3.*x2z*tx+1./3.*
     #    tx*x12s+2*tx)
      gg20c= gg20c+rs1wg(7)*xx*vvc*gtm2*ys*(-o*x2z*txs-o*tx*
     #    x2zs-x12*x2z*txs+tx*x2zs)
      gg20c= gg20c+rs1wg(7)*bxpi*vvc*gtm2*ys*(-o*x12*x2z-o*x2z
     #    *tx-os*x2z-x12*x2z*tx+x2z*tx)
      gg20c= gg20c+rs1wg(7)*vvc*gtm2*bxp*ys*(-1./6.*os-1./3.*
     #    x12+1./6.*x12s)
      gg20c= gg20c+rs1wg(7)*vvc*gtm2*ys*(o*x12*x2z-1./3.*o*x12*
     #    tx+o*x2z*tx+1./6.*o*x12s+1./3.*os*x12+os*x2z-1./6.*
     #    os*tx+1./6.*oc+x12*x2z*tx+1./3.*x12*x2z-x2z*tx-1./6.
     #    *tx*x12s)
      gg20c= gg20c+rs1wg(8)*bxpi*vvc*gtm2*ys*(2*o*x2z*tx-4*o*x2z
     #    -2*o*txs-2*x12*txs+2*x2z*tx)
      gg20c= gg20c+rs1wg(8)*vvc*gtm2*bxp*ys*(7./3.*o*x12-7./3.*o
     #    *tx-13./3.*o+7./3.*os-7./3.*x12*tx+7./3.*tx)
      gg20c= gg20c+rs1wg(8)*vvc*gtm2*ys*(1./3.*o*x12*tx-2*o*x12
     #    -7./3.*o*x2z*tx+13./3.*o*x2z+2*o*tx+7./3.*o*txs+4*o
     #    -1./3.*os*x2z+1./3.*os*tx-2*os+2*x12*tx+7./3.*x12*
     #    txs-7./3.*x2z*tx-2*tx)
      gg20c= gg20c+rs1wg(9)*bxpi*vvc*gtm2*ys*(8*o*tx-8*os)
      gg20c= gg20c+rs1wg(9)*vvc*gtm2*ys*(-28./3.*o*tx+8*os)
      gg20c= gg20c+rs1wg(10)*xx*vvc*gtm2*ys*(o*x2z*txs+o*tx*
     #    x2zs+x12*x2z*txs-tx*x2zs)
      gg20c= gg20c+rs1wg(10)*bxpi*vvc*gtm2*ys*(o*x12*x2z+2*o*x2z
     #    *tx+o*txs+os*x2z+x12*x2z*tx+x12*txs-2*x2z*tx)
      gg20c= gg20c+rs1wg(10)*vvc*gtm2*bxp*ys*(7./6.*o*x12+7./6.*
     #    o*tx-1./6.*o+4./3.*os+7./6.*x12*tx+1./3.*x12-7./6.*
     #    tx-1./6.*x12s)
      gg20c= gg20c+rs1wg(10)*vvc*gtm2*ys*(-o*x12*x2z+1./6.*o*
     #    x12*tx-o*x12-13./6.*o*x2z*tx+1./6.*o*x2z-o*tx-1./6.
     #    *o*x12s-7./6.*o*txs-1./3.*os*x12-7./6.*os*x2z-os-1./
     #    6.*oc-x12*x2z*tx-1./3.*x12*x2z-x12*tx-7./6.*x12*txs
     #    +13./6.*x2z*tx+1./6.*tx*x12s+tx)
      gg20c= gg20c+rs1wg(11)*vvc*gtm2*bxp*ys*(2./3.-2./3.*o-2./
     #    3.*x12)
      gg20c= gg20c+rs1wg(11)*vvc*gtm2*ys*(2./3.*o*x12+2./3.*o*
     #    x2z-2./3.*o*tx+2./3.*os+2./3.*x12*tx-2./3.*x2z)
      gg20c= gg20c+rs1wg(12)*xx*vvc*gtm2*ys*(4*o*x12*tx+4*o*x2z
     #    *tx-4*o*x2z-4*o*txs-4*os*x12-4*os*x2z+4*os*tx-4*
     #    oc-4*x12*txs+4*x2z*tx)
      gg20c= gg20c+rs1wg(12)*bxpi*vvc*gtm2*ys*(-4*o*tx-4*o-4
     #    *x12*tx+4*tx)
      gg20c= gg20c+rs1wg(12)*vvc*gtm2*ys*(4*o*tx+14./3.*o+4*
     #    x12*tx+2./3.*x12-4*tx)
      gg20c= gg20c+rs1wg(13)*xx*vvc*gtm2*ys*(2*o*x12*tx-2*o*x2z
     #    *tx-2*o*x2z-2*o*txs-2*os*x12+2*os*x2z+2*os*tx-2*
     #    oc-2*x12*txs+2*x2z*tx)
      gg20c= gg20c+rs1wg(13)*bxpi*vvc*gtm2*ys*(-2*o*tx-2*o-2
     #    *x12*tx+2*tx)
      gg20c= gg20c+rs1wg(13)*vvc*gtm2*ys*(o*x12+2*o*tx+o+os
     #    +2*x12*tx+1./3.*x12-2*tx)
      gg20c= gg20c+rs1wg(14)*xx*vvc*gtm2*ys*(4*o*x2z*tx-4*os*x2z)
      gg20c= gg20c+rs1wg(14)*bxpi*vvc*gtm2*ys*(4*o*tx-4*os)
      gg20c= gg20c+rs1wg(14)*vvc*gtm2*bxp*ys*(1./3.-1./3.*o-1./
     #    3.*x12)
      gg20c= gg20c+rs1wg(14)*vvc*gtm2*ys*(-2./3.*o*x12+1./3.*
     #    o*x2z-11./3.*o*tx+10./3.*os+1./3.*x12*tx-1./3.*x2z)
      gg20c= gg20c+rs2wg(1)*xx*vvq*gtm2*yc*(-24*o*x2z*txs-24*
     #    x12*x2z*txs+24*x2z*txs)
      gg20c= gg20c+rs2wg(1)*bxpi*vvq*gtm2*yc*(-18*o*x2z*tx-42*
     #    o*txs-42*x12*txs+18*x2z*tx+24*txs)
      gg20c= gg20c+rs2wg(1)*vvq*gtm2*bxp*yc*(4+4*o*x12-4*o*x2z
     #    -38*o*tx-12*o+8*os-30*x12*tx-4*x12-4*x2z*tx+4*
     #    x2z+26*tx+4*txs)
      gg20c= gg20c+rs2wg(1)*vvq*gtm2*bxps*yc*(-4+4*o+4*x12)
      gg20c= gg20c+rs2wg(1)*vvq*gtm2*yc*(6*o*x12*tx+24*o*x2z*tx
     #    +8*o*x2z+30*o*tx+42*o*txs-4*os*x2z+2*os*tx+8*x12*
     #    x2z*tx+18*x12*tx+42*x12*txs-26*x2z*tx-4*x2z*txs-4*
     #    x2z+4*tx*x12s+4*tx*x2zs-18*tx-24*txs)
      gg20c= gg20c+rs2wg(4)*xx*vvq*gtm2*yc*(3*o*x12*tx*x2zs-3*o
     #    *tx*x2zc-3*o*tx*x2zs+6*o*x2zc+3*o*x2zs*txs+3*os*tx*
     #    x2zs-3*os*x2zc+3*x12*tx*x2zs+3*x12*x2zs*txs+3*tx*x2zc
     #    -3*x2zc-6*x2zs*txs)
      gg20c= gg20c+rs2wg(4)*bxpi*vvq*gtm2*yc*(9./2.*o*x12*x2z*tx
     #    -6*o*x12*x2zs-6*o*x2z*tx+21./2.*o*x2z*txs-15./2.*o*tx
     #    *x2zs+39./2.*o*x2zs+15./2.*os*x2z*tx-21./2.*os*x2zs+6
     #    *x12*x2z*tx+21./2.*x12*x2z*txs-3*x12*tx*x2zs+6*x12*x2zs
     #    -3*x2z*tx*x12s-12*x2z*txs+9./2.*tx*x2zs-9*x2zs)
      gg20c= gg20c+rs2wg(4)*vvq*gtm2*bxp*yc*(-3-61./4.*o*x12*
     #    x2z+3./2.*o*x12*tx-27./4.*o*x12-15./4.*o*x2z*tx+101./
     #    4.*o*x2z-9./4.*o*tx-3./4.*o*x12s+9*o*txs+15./2.*o-1.
     #    /2.*os*x12-57./4.*os*x2z+23./4.*os*tx-19./4.*os+1./4.
     #    *oc-7./4.*x12*x2z*tx+14*x12*x2z+23./4.*x12*tx+9*x12*
     #    txs+6*x12-1./4.*x2z*tx-3*x2z*x12s-11*x2z-17./4.*tx*
     #    x12s-3./2.*tx-3*x12s-7*txs)
      gg20c= gg20c+rs2wg(4)*vvq*gtm2*bxps*yc*(4+10*o*x12-2*o*
     #    tx-10*o+6*os-2*x12*tx-8*x12+2*tx+4*x12s)
      gg20c= gg20c+rs2wg(4)*vvq*gtm2*yc*(-11./2.*o*x12*x2z*tx
     #    +51./4.*o*x12*x2z-3./2.*o*x12*tx+6*o*x12*x2zs+1./2.*o
     #    *x12*txs+39./4.*o*x2z*tx-45./4.*o*x2z*txs-21*o*x2z+1./
     #    4.*o*tx*x12s+33./4.*o*tx*x2zs+3*o*tx-85./4.*o*x2zs-15.
     #    /2.*o*txs-1./4.*os*x12*x2z+1./2.*os*x12*tx-17./2.*os*
     #    x2z*tx+49./4.*os*x2z-9./2.*os*tx+45./4.*os*x2zs+1./4.
     #    *os*txs-1./4.*oc*x2z+1./4.*oc*tx-23./4.*x12*x2z*tx-45.
     #    /4.*x12*x2z*txs-12*x12*x2z+3*x12*tx*x2zs-3*x12*tx-6*
     #    x12*x2zs-15./2.*x12*txs+3*x2z*tx*x12s+3*x2z*x12s+13*
     #    x2z*txs+9*x2z+3*tx*x12s-19./4.*tx*x2zs+1./4.*x12s*txs
     #    +10*x2zs+6*txs)
      gg20c= gg20c+rs2wg(7)*xx*vvq*gtm2*yc*(-3*o*x12*x2z*txs+
     #    3*o*x2zc-3*o*x2zs*txs-3./2.*os*x2z*txs-3./2.*os*x2zc+
     #    3*x12*tx*x2zs-3*x12*x2zs*txs-3./2.*x2z*x12s*txs-3./2.*
     #    x2zc+3*x2zs*txs)
      gg20c= gg20c+rs2wg(7)*bxpi*vvq*gtm2*yc*(-15./4.*o*x12*x2z*
     #    tx-3*o*x12*x2zs-15./4.*o*x2z*txs-3./4.*o*tx*x2zs+27./
     #    4.*o*x2zs-3./4.*os*x2z*tx-15./4.*os*x2zs+3*x12*x2z*tx
     #    -15./4.*x12*x2z*txs+3*x12*x2zs-3*x2z*tx*x12s+3*x2z*
     #    txs+3./4.*tx*x2zs-3*x2zs)
      gg20c= gg20c+rs2wg(7)*vvq*gtm2*bxp*yc*(-29./8.*o*x12*x2z
     #    +1./4.*o*x12*tx-3./8.*o*x12-5./8.*o*x2z*tx+29./8.*o*
     #    x2z-3./8.*o*tx+1./8.*o*x12s-1./2.*o*txs+1./4.*o+3./
     #    4.*os*x12-17./8.*os*x2z+1./8.*os*tx-7./8.*os+5./8.*oc
     #    -5./8.*x12*x2z*tx+3*x12*x2z-3./8.*x12*tx-1./2.*x12*
     #    txs+5./8.*x2z*tx-3./2.*x2z*x12s-3./2.*x2z+1./8.*tx*
     #    x12s+1./4.*tx+1./2.*txs)
      gg20c= gg20c+rs2wg(7)*vvq*gtm2*yc*(7./2.*o*x12*x2z*tx+31./
     #    8.*o*x12*x2z+1./4.*o*x12*tx+3*o*x12*x2zs-1./4.*o*x12*
     #    txs+9./8.*o*x2z*tx+33./8.*o*x2z*txs-4*o*x2z-1./8.*o*
     #    tx*x12s+5./8.*o*tx*x2zs-53./8.*o*x2zs+1./4.*o*txs-5./
     #    8.*os*x12*x2z-1./4.*os*x12*tx+1./2.*os*x2z*tx+25./8.*os
     #    *x2z+1./4.*os*tx+29./8.*os*x2zs-1./8.*os*txs-5./8.*oc
     #    *x2z-1./8.*oc*tx-17./8.*x12*x2z*tx+33./8.*x12*x2z*txs
     #    -3*x12*x2z-3*x12*x2zs+1./4.*x12*txs+3*x2z*tx*x12s-
     #    x2z*tx+3./2.*x2z*x12s-7./2.*x2z*txs+3./2.*x2z-5./8.*
     #    tx*x2zs-1./8.*x12s*txs+3*x2zs)
      gg20c= gg20c+rs2wg(8)*bxpi*vvq*gtm2*yc*(-3*o*x12*x2z*tx+
     #    3*o*x2z*tx-3*o*x2z*txs+3*o*tx*x2zs-6*o*x2zs-3*os*x2z*
     #    tx+3*os*x2zs-3*x12*x2z*tx-3*x12*x2z*txs+6*x2z*txs-3
     #    *tx*x2zs+3*x2zs)
      gg20c= gg20c+rs2wg(8)*vvq*gtm2*bxp*yc*(3+13./2.*o*x12*x2z
     #    -3*o*x12*tx+13./2.*o*x12+9./2.*o*x2z*tx-29./2.*o*x2z
     #    +5./2.*o*tx+1./2.*o*x12s-8*o*txs-7*o+os*x12+17./2.
     #    *os*x2z-11./2.*os*tx+7./2.*os+1./2.*oc+5./2.*x12*x2z*
     #    tx-6*x12*x2z-7./2.*x12*tx-8*x12*txs-6*x12-1./2.*x2z
     #    *tx+6*x2z+5./2.*tx*x12s+tx+3*x12s+6*txs)
      gg20c= gg20c+rs2wg(8)*vvq*gtm2*bxps*yc*(-3-8*o*x12+2*o
     #    *tx+8*o-5*os+2*x12*tx+6*x12-2*tx-3*x12s)
      gg20c= gg20c+rs2wg(8)*vvq*gtm2*yc*(3*o*x12*x2z*tx-11./2.*
     #    o*x12*x2z+o*x12*tx+o*x12*txs-15./2.*o*x2z*tx+7./2.*o*
     #    x2z*txs+13*o*x2z+1./2.*o*tx*x12s-7./2.*o*tx*x2zs-3*o*
     #    tx+13./2.*o*x2zs+7*o*txs-1./2.*os*x12*x2z+os*x12*tx
     #    +3*os*x2z*tx-13./2.*os*x2z+4*os*tx-7./2.*os*x2zs+1./
     #    2.*os*txs-1./2.*oc*x2z+1./2.*oc*tx-1./2.*x12*x2z*tx+7.
     #    /2.*x12*x2z*txs+6*x12*x2z+3*x12*tx+7*x12*txs+2*x2z*tx
     #    -6*x2z*txs-6*x2z-3*tx*x12s+5./2.*tx*x2zs+1./2.*x12s
     #    *txs-3*x2zs-6*txs)
      gg20c= gg20c+rs2wg(9)*bxpi*vvq*gtm2*yc*(6*o*x2z*tx+6*o*txs
     #    +6*x12*txs-6*x2z*tx)
      gg20c= gg20c+rs2wg(9)*vvq*gtm2*bxp*yc*(14*o*tx+6*x12*tx-6*tx)
      gg20c= gg20c+rs2wg(9)*vvq*gtm2*yc*(-2*o*x12*tx-8*o*x2z*
     #    tx-10*o*tx-6*o*txs-2*os*tx-6*x12*tx-6*x12*txs+6*
     #    x2z*tx+6*tx)
      gg20c= gg20c+rs2wg(10)*xx*vvq*gtm2*yc*(3*o*x12*x2z*txs-3*
     #    o*x2zc+3*o*x2zs*txs+3./2.*os*x2z*txs+3./2.*os*x2zc-3*
     #    x12*tx*x2zs+3*x12*x2zs*txs+3./2.*x2z*x12s*txs+3./2.*
     #    x2zc-3*x2zs*txs)
      gg20c= gg20c+rs2wg(10)*bxpi*vvq*gtm2*yc*(15./4.*o*x12*x2z*tx
     #    +3*o*x12*x2zs+3*o*x12*txs+27./4.*o*x2z*txs+3./4.*o*tx
     #    *x2zs-39./4.*o*x2zs+3./4.*os*x2z*tx+21./4.*os*x2zs+3./
     #    2.*os*txs-6*x12*x2z*tx+27./4.*x12*x2z*txs-3*x12*x2zs+
     #    3*x2z*tx*x12s-6*x2z*txs-3./4.*tx*x2zs+3./2.*x12s*txs+
     #    9./2.*x2zs)
      gg20c= gg20c+rs2wg(10)*vvq*gtm2*bxp*yc*(3./2.+55./8.*o*x12
     #    *x2z+17./4.*o*x12*tx+29./8.*o*x12+15./8.*o*x2z*tx-87./
     #    8.*o*x2z+5./8.*o*tx+1./8.*o*x12s+9./2.*o*txs-15./4.*o
     #    -1./4.*os*x12+51./8.*os*x2z+9./8.*os*tx+21./8.*os-3.
     #    /8.*oc+7./8.*x12*x2z*tx-6*x12*x2z-19./8.*x12*tx+9./2.
     #    *x12*txs-3*x12-15./8.*x2z*tx+3./2.*x2z*x12s+9./2.*x2z
     #    +25./8.*tx*x12s-3./4.*tx+3./2.*x12s-7./2.*txs)
      gg20c= gg20c+rs2wg(10)*vvq*gtm2*bxps*yc*(-3./2.-4*o*x12
     #    -o*tx+4*o-5./2.*os-x12*tx+3*x12+tx-3./2.*x12s)
      gg20c= gg20c+rs2wg(10)*vvq*gtm2*yc*(-4*o*x12*x2z*tx-53./
     #    8.*o*x12*x2z-15./4.*o*x12*tx-3*o*x12*x2zs-13./4.*o*x12*
     #    txs-11./8.*o*x2z*tx-59./8.*o*x2z*txs+21./2.*o*x2z-1./
     #    8.*o*tx*x12s-7./8.*o*tx*x2zs+79./8.*o*x2zs-15./4.*o*txs
     #    +3./8.*os*x12*x2z-1./4.*os*x12*tx-os*x2z*tx-51./8.*os
     #    *x2z-3./4.*os*tx-43./8.*os*x2zs-13./8.*os*txs+3./8.*
     #    oc*x2z-1./8.*oc*tx+43./8.*x12*x2z*tx-59./8.*x12*x2z*txs
     #    +6*x12*x2z+3*x12*tx+3*x12*x2zs-15./4.*x12*txs-3*x2z
     #    *tx*x12s+3./2.*x2z*tx-3./2.*x2z*x12s+13./2.*x2z*txs-9.
     #    /2.*x2z-3*tx*x12s+7./8.*tx*x2zs-13./8.*x12s*txs-9./2.
     #    *x2zs+3*txs)
      gg20c= gg20c+rs2wg(11)*vvq*gtm2*bxp*yc*(-5./2.*o*x12-3*o
     #    *x2z+1./2.*o*tx-1./2.*o+1./2.*os-x12*x2z-7./2.*x12*
     #    tx+x12-2*x2z*tx+3*x2z+3./2.*tx-x12s+2*txs)
      gg20c= gg20c+rs2wg(11)*vvq*gtm2*bxps*yc*(-2+2*o+2*x12)
      gg20c= gg20c+rs2wg(11)*vvq*gtm2*yc*(o*x12*x2z+3./2.*o*x12
     #    *tx-1./2.*o*x2z*tx+1./2.*o*x2z+o*x2zs-1./2.*o*txs-1.
     #    /2.*os*x2z+1./2.*os*tx+3*x12*x2z*tx-x12*x2z-1./2.*x12
     #    *txs-3./2.*x2z*tx-2*x2z*txs+tx*x12s+2*tx*x2zs-x2zs)
      gg20c= gg20c+rs2wg(12)*xx*vvq*gtm2*yc*(-6*o*x2z*txs+6*o
     #    *tx*x2zs-6*x12*x2z*txs+12*x2z*txs-6*tx*x2zs)
      gg20c= gg20c+rs2wg(12)*bxpi*vvq*gtm2*yc*(9*o*x2z*tx-15*o*
     #    txs+6*x12*x2z*tx-15*x12*txs-3*x2z*tx+12*txs)
      gg20c= gg20c+rs2wg(12)*vvq*gtm2*bxp*yc*(2+7./2.*o*x12+o*
     #    x2z-9./2.*o*tx-9./2.*o+5./2.*os+x12*x2z-9./2.*x12*
     #    tx-3*x12-x2z+9./2.*tx+x12s)
      gg20c= gg20c+rs2wg(12)*vvq*gtm2*yc*(-o*x12*x2z+3./2.*o*
     #    x12*tx-15./2.*o*x2z*tx+5./2.*o*x2z+3*o*tx-o*x2zs+29.
     #    /2.*o*txs-1./2.*os*x2z+1./2.*os*tx-5*x12*x2z*tx+x12*
     #    x2z+3*x12*tx+29./2.*x12*txs+3./2.*x2z*tx-2*x2z+tx*
     #    x12s-3*tx+x2zs-12*txs)
      gg20c= gg20c+rs2wg(13)*xx*vvq*gtm2*yc*(-6*o*x2z*txs-6*
     #    x12*x2z*txs+6*x2z*txs)
      gg20c= gg20c+rs2wg(13)*bxpi*vvq*gtm2*yc*(-3./2.*o*x2z*tx
     #    -15./2.*o*txs-15./2.*x12*txs+3./2.*x2z*tx+6*txs)
      gg20c= gg20c+rs2wg(13)*vvq*gtm2*bxp*yc*(-5./4.*o*x12-1./
     #    2.*o*x2z-7./4.*o*tx+3./4.*o-3./4.*os-1./2.*x12*x2z-
     #    7./4.*x12*tx+1./2.*x12+1./2.*x2z+7./4.*tx-1./2.*x12s)
      gg20c= gg20c+rs2wg(13)*vvq*gtm2*yc*(1./2.*o*x12*x2z+9./4.
     #    *o*x12*tx+9./4.*o*x2z*tx+1./4.*o*x2z+1./2.*o*tx+1./2.
     #    *o*x2zs+27./4.*o*txs-1./4.*os*x2z+3./4.*os*tx+3./2.*
     #    x12*x2z*tx-1./2.*x12*x2z+1./2.*x12*tx+27./4.*x12*txs-
     #    7./4.*x2z*tx+3./2.*tx*x12s-3./2.*tx-1./2.*x2zs-6*txs)
      gg20c= gg20c+rs2wg(14)*xx*vvq*gtm2*yc*(3*o*x2z*txs+3*o*tx
     #    *x2zs+3*x12*x2z*txs-3*tx*x2zs)
      gg20c= gg20c+rs2wg(14)*bxpi*vvq*gtm2*yc*(9*o*x2z*tx+3*o*
     #    txs+3*x12*x2z*tx+3*x12*txs-6*x2z*tx)
      gg20c= gg20c+rs2wg(14)*vvq*gtm2*bxp*yc*(3./4.*o*x12+1./2.*
     #    o*x2z+19./4.*o*tx+3./4.*o-3./4.*os+1./2.*x12*x2z+7./
     #    4.*x12*tx-1./2.*x12-x2z*tx-1./2.*x2z-7./4.*tx+1./2.
     #    *x12s+txs)
      gg20c= gg20c+rs2wg(14)*vvq*gtm2*yc*(-1./2.*o*x12*x2z-3./
     #    4.*o*x12*tx-33./4.*o*x2z*tx-3./4.*o*x2z-6*o*tx-1./2.*
     #    o*x2zs-11./4.*o*txs+3./4.*os*x2z-1./4.*os*tx-5./2.*
     #    x12*x2z*tx+1./2.*x12*x2z-3*x12*tx-11./4.*x12*txs+19./
     #    4.*x2z*tx-x2z*txs-1./2.*tx*x12s+tx*x2zs+3*tx+1./2.*
     #    x2zs)
      gg20c= gg20c+rt1wg(1)*vvc*gsm2*bxp*ys*(2+2*o*x12-2*o*x2z
     #    -8*o+6*os-4*x12*tx-2*x12+2*x2z+2*tx)
      gg20c= gg20c+rt1wg(1)*vvc*gsm2*bxps*ys*(-2+2*o+2*x12)
      gg20c= gg20c+rt1wg(1)*vvc*gsm2*ys*(-2*o*x12*tx-2*o*x2z*
     #    tx+4*o*x2z+2*o*tx+2*o*txs-2*os*x2z-2*os*tx+2*x12*
     #    tx+2*x12*txs-2*x2z*tx-2*x2z)
      gg20c= gg20c+rt1wg(4)*vvc*gsm2*bxp*ys*(-1./2.*o*x12*x2z-
     #    o*x12*tx+1./2.*o*x12+3./2.*o*x2z-1./2.*o*x12s-1./2.*
     #    os*x2z-1./2.*os+1./2.*oc+x12*x2z+x12*tx-x2z-tx*x12s)
      gg20c= gg20c+rt1wg(4)*vvc*gsm2*bxps*ys*(1./2.+o*x12-o+
     #    1./2.*os-x12+1./2.*x12s)
      gg20c= gg20c+rt1wg(4)*vvc*gsm2*ys*(-1./2.*o*x12*x2z*tx-
     #    1./2.*o*x12*x2z+o*x12*txs+1./2.*o*tx*x12s-1./2.*o*x2zs
     #    -1./2.*os*x12*x2z+os*x12*tx-1./2.*os*x2z*tx+1./2.*os*
     #    x2z+1./2.*os*txs-1./2.*oc*x2z+1./2.*oc*tx-x12*x2z*tx
     #    +1./2.*x12s*txs+1./2.*x2zs)
      gg20c= gg20c+rt1wg(7)*vvc*gsm2*bxp*ys*(1./2.*o*x12*x2z+1./
     #    2.*o*x12*tx-1./4.*o*x12-o*x2z-1./4.*o*tx+1./4.*o+1./
     #    2.*os*x12+1./2.*os*x2z-3./4.*os+1./2.*oc-1./2.*x12*
     #    x2z-3./4.*x12*tx+1./2.*x2z+1./2.*tx*x12s+1./4.*tx)
      gg20c= gg20c+rt1wg(7)*vvc*gsm2*bxps*ys*(-1./4.-1./2.*o*
     #    x12+1./2.*o-1./4.*os+1./2.*x12-1./4.*x12s)
      gg20c= gg20c+rt1wg(7)*vvc*gsm2*ys*(1./4.*o*x12*tx-1./2.*o
     #    *x12*txs+1./4.*o*x2z*tx-1./4.*o*x2z+1./2.*o*x2zs+1./4.
     #    *o*txs-1./2.*os*x12*x2z+3./4.*os*x2z+1./4.*os*tx-1./4.
     #    *os*x2zs-1./4.*os*txs-1./2.*oc*x2z+1./2.*x12*x2z*tx+1.
     #    /4.*x12*txs-1./4.*x2z*tx-1./4.*x12s*txs-1./4.*x2zs)
      gg20c= gg20c+rt1wg(8)*vvc*gsm2*bxp*ys*(-1./2.*o*x12+1./2.
     #    *o*tx+1./2.*o-1./2.*os+1./2.*x12*tx-1./2.*tx)
      gg20c= gg20c+rt1wg(8)*vvc*gsm2*ys*(-1./2.*o*x12*tx+1./2.
     #    *o*x2z*tx-1./2.*o*x2z-1./2.*o*txs+1./2.*os*x2z-1./2.*
     #    os*tx-1./2.*x12*txs+1./2.*x2z*tx)
      gg20c= gg20c+rt1wg(9)*vvc*gsm2*ys*(2*o*tx)
      gg20c= gg20c+rt1wg(10)*vvc*gsm2*bxp*ys*(-1./2.*o*x12*x2z
     #    -1./2.*o*x12*tx+o*x2z-1./2.*os*x12-1./2.*os*x2z+1./
     #    2.*os-1./2.*oc+1./2.*x12*x2z+1./2.*x12*tx-1./2.*x2z
     #    -1./2.*tx*x12s)
      gg20c= gg20c+rt1wg(10)*vvc*gsm2*bxps*ys*(1./4.+1./2.*o*x12
     #    -1./2.*o+1./4.*os-1./2.*x12+1./4.*x12s)
      gg20c= gg20c+rt1wg(10)*vvc*gsm2*ys*(1./2.*o*x12*txs-1./2.
     #    *o*x2zs+1./2.*os*x12*x2z-1./2.*os*x2z+1./4.*os*x2zs+1.
     #    /4.*os*txs+1./2.*oc*x2z-1./2.*x12*x2z*tx+1./4.*x12s*txs
     #    +1./4.*x2zs)
      gg20c= gg20c+rt1wg(11)*vvc*gsm2*bxp*ys*(-o*x12-o*x2z-o
     #    +os-2*x12*tx+x2z+tx)
      gg20c= gg20c+rt1wg(11)*vvc*gsm2*bxps*ys*(-1+o+x12)
      gg20c= gg20c+rt1wg(11)*vvc*gsm2*ys*(o*x12*tx-o*x2z*tx+o
     #    *x2z+o*txs-os*x2z+os*tx+x12*txs-x2z*tx)
      gg20c= gg20c+rt1wg(12)*vvc*gsm2*bxp*ys*(1+o*x12-2*o+os-x12)
      gg20c= gg20c+rt1wg(12)*vvc*gsm2*ys*(-o*x12*tx+o*tx+os
     #    *x2z-os*tx+x12*tx-x2z)
      gg20c= gg20c+rt1wg(13)*vvc*gsm2*bxp*ys*(1./2.-1./2.*o-1./
     #    2.*x12)
      gg20c= gg20c+rt1wg(13)*vvc*gsm2*ys*(3./2.*o*x2z-1./2.*o*
     #    tx-os*x2z+1./2.*x12*tx-1./2.*x2z)
      gg20c= gg20c+rt1wg(14)*vvc*gsm2*bxp*ys*(-1./2.*o*x2z+o
     #    -os-x12*tx+1./2.*x2z+1./2.*tx)
      gg20c= gg20c+rt1wg(14)*vvc*gsm2*bxps*ys*(-1./2.+1./2.*o
     #    +1./2.*x12)
      gg20c= gg20c+rt1wg(14)*vvc*gsm2*ys*(-1./2.*o*x2z*tx-o*
     #    x2z+1./2.*o*txs+os*x2z+1./2.*x12*txs-1./2.*x2z*tx)
*
      wto_wgg21c= gg20c
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg12c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
      xx= bxx
*
      gg11c = 
     # +rs1wg(1)*xx*vvc*gtm2*ys*(8./3.*os*x2z+8./3.*oc*x12-8./
     #    3.*oc*x2z+8./3.*oq)
      gg11c= gg11c+rs1wg(1)*bxpi*vvc*gtm2*ys*(8./3.*o*x2z+8./3.*
     #    os*x12-8./3.*os*x2z+8./3.*os-8./3.*oc)
      gg11c= gg11c+rs1wg(1)*vvc*gtm2*bxp*ys*(4./3.+8./3.*o*x12
     #    -8./3.*o)
      gg11c= gg11c+rs1wg(1)*vvc*gtm2*ys*(-4./3.*o*x12+4./3.*o
     #    *x2z-8./3.*o-8./3.*os*x12+4./3.*os+8./3.*oc-4./3.*x2z)
      gg11c= gg11c+rs1wg(4)*xx*vvc*gtm2*ys*(-4./3.*os*x2zs)
      gg11c= gg11c+rs1wg(4)*bxpi*vvc*gtm2*ys*(-2./3.*o*x2zs+2./
     #    3.*os*x12*x2z-8./3.*os*x2z-2./3.*os*x2zs+2./3.*oc*x2z)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*bxp*ys*(-2./3.*o*x12*x2z-
     #    1./3.*o*x12-1./3.*o*x2z-2./3.*o+2./3.*os*x12-4./3.*os
     #    *x2z-5./3.*os+2./3.*oc-2./3.*x2z)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*bxps*ys*(1./3.+2./3.*o*x12
     #    +2./3.*os)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*ys*(1./3.*o*x12*x2z+4./3.*
     #    o*x2z+1./3.*o*x2zs-2./3.*os*x12*x2z-2./3.*os*x12+11./
     #    3.*os*x2z+2./3.*os*x2zs+4./3.*os-2./3.*oc*x2z-2./3.*
     #    oc+1./3.*x2zs)
      gg11c= gg11c+rs1wg(7)*bxpi*vvc*gtm2*ys*(1./3.*o*x2zs+1./3.
     #    *os*x12*x2z-1./3.*os*x2zs+1./3.*oc*x2z)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*bxp*ys*(1./3.*o*x12*x2z+1./
     #    3.*o*x12-1./3.*o*x2z+2./3.*os*x12+1./3.*os*x2z-1./3.*
     #    os+2./3.*oc+1./3.*x2z)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*bxps*ys*(-1./6.-1./3.*o*
     #    x12+1./3.*o-1./3.*os)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*ys*(-1./3.*o*x12*x2z-1./
     #    3.*o*x2z-2./3.*os*x12*x2z+1./3.*os*x2z-1./6.*os*x12s+
     #    1./6.*os*x2zs-1./3.*oc*x12-2./3.*oc*x2z-1./6.*oq-1./6.
     #    *x2zs)
      gg11c= gg11c+rs1wg(8)*bxpi*vvc*gtm2*ys*(4./3.*os*x2z)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*bxp*ys*(2./3.*o*x2z+2./3.*o
     #    -2./3.*os*x12+2./3.*os*x2z+4./3.*os-2./3.*oc)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*bxps*ys*(-2./3.*o)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*ys*(-2./3.*o*x2z+2./3.*
     #    os*x12-2*os*x2z-4./3.*os+2./3.*oc)
      gg11c= gg11c+rs1wg(9)*bxpi*vvc*gtm2*ys*(8./3.*oc)
      gg11c= gg11c+rs1wg(9)*vvc*gtm2*bxp*ys*(8./3.*os)
      gg11c= gg11c+rs1wg(9)*vvc*gtm2*ys*(-8./3.*os-8./3.*oc)
      gg11c= gg11c+rs1wg(10)*bxpi*vvc*gtm2*ys*(-1./3.*o*x2zs-1.
     #    /3.*os*x12*x2z+1./3.*os*x2zs-1./3.*oc*x2z)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*bxp*ys*(-1./3.*o*x12*x2z
     #    -1./3.*o*x12-1./3.*o-os*x12+1./3.*os-oc-1./3.*x2z)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*bxps*ys*(1./6.+1./3.*o*x12
     #    +1./3.*os)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*ys*(1./3.*o*x12*x2z+2./3.
     #    *o*x2z+2./3.*os*x12*x2z+1./3.*os*x12-2./3.*os*x2z+1./
     #    6.*os*x12s-1./6.*os*x2zs+1./3.*oc*x12+2./3.*oc*x2z+1./
     #    3.*oc+1./6.*oq+1./6.*x2zs)
      gg11c= gg11c+rs1wg(11)*vvc*gtm2*bxp*ys*(-2./3.*o+4./3.*os)
      gg11c= gg11c+rs1wg(11)*vvc*gtm2*ys*(2./3.*o*x2z-2./3.*os*
     #    x12-2./3.*os*x2z-2./3.*oc)
      gg11c= gg11c+rs1wg(12)*xx*vvc*gtm2*ys*(4./3.*os*x2z+4./3.
     #    *oc*x12+4./3.*oc*x2z+4./3.*oq)
      gg11c= gg11c+rs1wg(12)*bxpi*vvc*gtm2*ys*(4./3.*o*x2z+4./3.
     #    *os*x12+4./3.*os*x2z+4./3.*os+4./3.*oc)
      gg11c= gg11c+rs1wg(12)*vvc*gtm2*bxp*ys*(2./3.+4./3.*o*x12
     #    +4./3.*os)
      gg11c= gg11c+rs1wg(12)*vvc*gtm2*ys*(-2./3.*o*x12-2./3.*
     #    o*x2z-4./3.*o-4./3.*os*x12-4./3.*os*x2z-2*os-4./3.*
     #    oc-2./3.*x2z)
      gg11c= gg11c+rs1wg(13)*xx*vvc*gtm2*ys*(2./3.*os*x2z+2./3.
     #    *oc*x12-2./3.*oc*x2z+2./3.*oq)
      gg11c= gg11c+rs1wg(13)*bxpi*vvc*gtm2*ys*(2./3.*o*x2z+2./3.
     #    *os*x12-2./3.*os*x2z+2./3.*os+2./3.*oc)
      gg11c= gg11c+rs1wg(13)*vvc*gtm2*bxp*ys*(1./3.+2./3.*o*x12
     #    -1./3.*o+2./3.*os)
      gg11c= gg11c+rs1wg(13)*vvc*gtm2*ys*(-1./3.*o*x12-2./3.*
     #    o-5./3.*os*x12+1./3.*os*x2z+1./3.*os-5./3.*oc-1./3.*x2z)
      gg11c= gg11c+rs1wg(14)*xx*vvc*gtm2*ys*(4./3.*oc*x2z)
      gg11c= gg11c+rs1wg(14)*bxpi*vvc*gtm2*ys*(4./3.*os*x2z+4./3.
     #    *oc)
      gg11c= gg11c+rs1wg(14)*vvc*gtm2*bxp*ys*(2./3.*os)
      gg11c= gg11c+rs1wg(14)*vvc*gtm2*ys*(2./3.*os*x12-4./3.*os
     #    *x2z-4./3.*os-2./3.*oc)
*
      wto_wgg12c= gg11c
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg22c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg21c = 
     # +rs1wg(1)*xx*vvc*gtm2*ys*(8*os*x2z+8*oc*x12-8*oc*x2z+
     #    8*oq)
      gg21c= gg21c+rs1wg(1)*bxpi*vvc*gtm2*ys*(8*o*x2z+8*os*x12
     #    -8*os*x2z+8*os-8*oc)
      gg21c= gg21c+rs1wg(1)*vvc*gtm2*bxp*ys*(4./3.+8./3.*o*x12
     #    +8./3.*o-32./3.*os)
      gg21c= gg21c+rs1wg(1)*vvc*gtm2*ys*(-4./3.*o*x12-4*o*x2z
     #    -8*o-8*os*x12+16./3.*os*x2z+20./3.*os+8*oc-4./3.*x2z)
      gg21c= gg21c+rs1wg(4)*xx*vvc*gtm2*ys*(-4*os*x2zs)
      gg21c= gg21c+rs1wg(4)*bxpi*vvc*gtm2*ys*(-2*o*x2zs+2*os*
     #    x12*x2z-8*os*x2z-2*os*x2zs+2*oc*x2z)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*bxp*ys*(-2./3.*o*x12*x2z-
     #    1./3.*o*x12-3*o*x2z-2*o+2*os*x12-8./3.*os*x2z-13./3.
     #    *os+2*oc-2./3.*x2z)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*bxps*ys*(1./3.+2./3.*o*x12
     #    +4./3.*o+2./3.*os)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*ys*(1./3.*o*x12*x2z+4*o*
     #    x2z+5./3.*o*x2zs-2*os*x12*x2z-2*os*x12+31./3.*os*x2z
     #    +2*os*x2zs+4*os-2*oc*x2z-2*oc+1./3.*x2zs)
      gg21c= gg21c+rs1wg(7)*bxpi*vvc*gtm2*ys*(o*x2zs+os*x12*x2z
     #    -os*x2zs+oc*x2z)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*bxp*ys*(1./3.*o*x12*x2z+1./
     #    3.*o*x12+1./3.*o*x2z+2./3.*os*x12+1./3.*os*x2z-1./3.*
     #    os+2./3.*oc+1./3.*x2z)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*bxps*ys*(-1./6.-1./3.*o*
     #    x12+1./3.*o-1./3.*os)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*ys*(-1./3.*o*x12*x2z-o*
     #    x2z-2./3.*o*x2zs-4./3.*os*x12*x2z+1./3.*os*x2z-1./6.*
     #    os*x12s+5./6.*os*x2zs-1./3.*oc*x12-4./3.*oc*x2z-1./6.
     #    *oq-1./6.*x2zs)
      gg21c= gg21c+rs1wg(8)*bxpi*vvc*gtm2*ys*(4*os*x2z)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*bxp*ys*(2*o*x2z+2*o-2*os*
     #    x12+2*os*x2z+4*os-2*oc)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*bxps*ys*(-2*o)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*ys*(-2*o*x2z+2*os*x12-
     #    6*os*x2z-4*os+2*oc)
      gg21c= gg21c+rs1wg(9)*bxpi*vvc*gtm2*ys*(8*oc)
      gg21c= gg21c+rs1wg(9)*vvc*gtm2*bxp*ys*(8*os)
      gg21c= gg21c+rs1wg(9)*vvc*gtm2*ys*(-8*os-8*oc)
      gg21c= gg21c+rs1wg(10)*bxpi*vvc*gtm2*ys*(-o*x2zs-os*x12*
     #    x2z+os*x2zs-oc*x2z)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*bxp*ys*(-1./3.*o*x12*x2z
     #    -1./3.*o*x12-4./3.*o*x2z-o-5./3.*os*x12+2./3.*os*
     #    x2z+1./3.*os-5./3.*oc-1./3.*x2z)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*bxps*ys*(1./6.+1./3.*o*x12
     #    +2./3.*o+1./3.*os)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*ys*(1./3.*o*x12*x2z+2*o*
     #    x2z+2./3.*o*x2zs+4./3.*os*x12*x2z+os*x12-4./3.*os*x2z
     #    +1./6.*os*x12s-5./6.*os*x2zs+1./3.*oc*x12+4./3.*oc*
     #    x2z+oc+1./6.*oq+1./6.*x2zs)
      gg21c= gg21c+rs1wg(11)*vvc*gtm2*bxp*ys*(-2./3.*o+4./3.*os)
      gg21c= gg21c+rs1wg(11)*vvc*gtm2*ys*(2./3.*o*x2z-2./3.*os*
     #    x12-2./3.*os*x2z-2./3.*oc)
      gg21c= gg21c+rs1wg(12)*xx*vvc*gtm2*ys*(4*os*x2z+4*oc*x12
     #    +4*oc*x2z+4*oq)
      gg21c= gg21c+rs1wg(12)*bxpi*vvc*gtm2*ys*(4*o*x2z+4*os*x12
     #    +4*os*x2z+4*os+4*oc)
      gg21c= gg21c+rs1wg(12)*vvc*gtm2*bxp*ys*(2./3.+4./3.*o*x12
     #    +8./3.*o+4./3.*os)
      gg21c= gg21c+rs1wg(12)*vvc*gtm2*ys*(-2./3.*o*x12-10./3.
     #    *o*x2z-4*o-4*os*x12-4*os*x2z-14./3.*os-4*oc-2./3.*x2z)
      gg21c= gg21c+rs1wg(13)*xx*vvc*gtm2*ys*(2*os*x2z+2*oc*x12
     #    -2*oc*x2z+2*oq)
      gg21c= gg21c+rs1wg(13)*bxpi*vvc*gtm2*ys*(2*o*x2z+2*os*x12
     #    -2*os*x2z+2*os+2*oc)
      gg21c= gg21c+rs1wg(13)*vvc*gtm2*bxp*ys*(1./3.+2./3.*o*x12
     #    +o+2./3.*os)
      gg21c= gg21c+rs1wg(13)*vvc*gtm2*ys*(-1./3.*o*x12-4./3.*
     #    o*x2z-2*o-3*os*x12+5./3.*os*x2z-os-3*oc-1./3.*x2z)
      gg21c= gg21c+rs1wg(14)*xx*vvc*gtm2*ys*(4*oc*x2z)
      gg21c= gg21c+rs1wg(14)*bxpi*vvc*gtm2*ys*(4*os*x2z+4*oc)
      gg21c= gg21c+rs1wg(14)*vvc*gtm2*bxp*ys*(10./3.*os)
      gg21c= gg21c+rs1wg(14)*vvc*gtm2*ys*(2./3.*os*x12-4*os*x2z
     #    -4*os-10./3.*oc)
*
      wto_wgg22c= gg21c
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg11q()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg10q= rwwg(1,1)*xx*vvq*yc*(-8*o*x2z*txs-8*x12*x2z*txs+8*
     #    x2z*txs)
      gg10q= gg10q+rwwg(1,1)*bxpi*vvq*yc*(-8*o*x2z*tx-16*o*txs
     #    -16*x12*txs+8*x2z*tx+8*txs)
      gg10q= gg10q+rwwg(1,1)*vvq*bxp*yc*(4+4*o*x12-4*o*x2z-
     #    28*o*tx-12*o+8*os-20*x12*tx-4*x12-4*x2z*tx+4*x2z
     #    +16*tx+4*txs)
      gg10q= gg10q+rwwg(1,1)*vvq*bxps*yc*(-4+4*o+4*x12)
      gg10q= gg10q+rwwg(1,1)*vvq*yc*(8*o*x12*tx+16*o*x2z*tx+8
     #    *o*x2z+16*o*tx+16*o*txs-4*os*x2z+4*os*tx+8*x12*x2z*
     #    tx+8*x12*tx+16*x12*txs-16*x2z*tx-4*x2z*txs-4*x2z+
     #    4*tx*x12s+4*tx*x2zs-8*tx-8*txs)
      gg10q= gg10q+rwwg(2,2)*xx*vvq*yc*(2*x2z*txs-2*tx*x2zs)
      gg10q= gg10q+rwwg(2,2)*bxpi*vvq*yc*(2*o*x2z*tx-2*o*txs+2
     #    *x12*x2z*tx-2*x12*txs-2*x2z*tx+2*txs)
      gg10q= gg10q+rwwg(2,2)*vvq*bxp*yc*(1-o*x2z-2*o+os-2*
     #    x12*tx-x12-x2z*tx+x2z+tx+txs)
      gg10q= gg10q+rwwg(2,2)*vvq*bxps*yc*(-1+o+x12)
      gg10q= gg10q+rwwg(2,2)*vvq*yc*(o*x12*tx-o*x2z*tx+o*x2z
     #    +o*txs+x12*txs+x2z*tx-x2z*txs-x2z+tx*x12s+tx*
     #    x2zs-2*txs)
      gg10q= gg10q+rwwg(2,3)*xx*vvq*yc*(-4*x2z*txs+4*tx*x2zs)
      gg10q= gg10q+rwwg(2,3)*bxpi*vvq*yc*(-4*o*x2z*tx+4*o*txs
     #    -4*x12*x2z*tx+4*x12*txs+4*x2z*tx-4*txs)
      gg10q= gg10q+rwwg(2,3)*vvq*bxp*yc*(-2-6*o*x12-4*o*x2z
     #    +2*o*tx+4*o-2*os-2*x12*x2z-2*x12*tx+4*x12-2*x2z
     #    *tx+4*x2z-2*x12s+2*txs)
      gg10q= gg10q+rwwg(2,3)*vvq*bxps*yc*(-2+2*o+2*x12)
      gg10q= gg10q+rwwg(2,3)*vvq*yc*(2*o*x12*x2z+2*o*x2z*tx-2
     #    *o*x2z+2*o*x2zs-4*o*txs+6*x12*x2z*tx-2*x12*x2z-4*
     #    x12*txs-4*x2z*tx-2*x2z*txs+2*x2z+2*tx*x2zs-2*x2zs
     #    +4*txs)
      gg10q= gg10q+rwwg(3,3)*xx*vvq*yc*(2*x2z*txs-2*tx*x2zs)
      gg10q= gg10q+rwwg(3,3)*bxpi*vvq*yc*(2*o*x2z*tx-2*o*txs+2
     #    *x12*x2z*tx-2*x12*txs-2*x2z*tx+2*txs)
      gg10q= gg10q+rwwg(3,3)*vvq*bxp*yc*(1+2*o*x12-3*o*x2z+2
     #    *o*tx-2*o+os-2*x12*x2z-3*x12-x2z*tx+3*x2z-tx+
     #    2*x12s+txs)
      gg10q= gg10q+rwwg(3,3)*vvq*bxps*yc*(-1+o+x12)
      gg10q= gg10q+rwwg(3,3)*vvq*yc*(2*o*x12*x2z-o*x12*tx-5*o
     #    *x2z*tx+o*x2z+2*o*x2zs+3*o*txs-2*x12*x2z*tx+2*x12*
     #    x2z+3*x12*txs+3*x2z*tx-x2z*txs-x2z-tx*x12s+tx*
     #    x2zs-2*x2zs-2*txs)
      gg10q= gg10q+rwwg(4,1)*xx*vvq*yc*(2*o*x12*tx*x2zs-2*o*tx*
     #    x2zc-2*o*tx*x2zs+4*o*x2zc+2*o*x2zs*txs+2*os*tx*x2zs
     #    -2*os*x2zc+2*x12*tx*x2zs+2*x12*x2zs*txs+2*tx*x2zc-2
     #    *x2zc-4*x2zs*txs)
      gg10q= gg10q+rwwg(4,1)*bxpi*vvq*yc*(4*o*x12*x2z*tx-4*o*x12
     #    *x2zs-4*o*x2z*tx+8*o*x2z*txs-6*o*tx*x2zs+14*o*x2zs+
     #    6*os*x2z*tx-8*os*x2zs+4*x12*x2z*tx+8*x12*x2z*txs-2*
     #    x12*tx*x2zs+4*x12*x2zs-2*x2z*tx*x12s-8*x2z*txs+2*tx*
     #    x2zs-6*x2zs)
      gg10q= gg10q+rwwg(4,1)*vvq*bxp*yc*(-2-14*o*x12*x2z+4*o
     #    *x12*tx-4*o*x12-4*o*x2z*tx+26*o*x2z-2*o*tx-2*o*x12s
     #    +10*o*txs+6*o-2*os*x12-16*os*x2z+8*os*tx-4*os+
     #    12*x12*x2z+6*x12*tx+10*x12*txs+4*x12-4*x2z*tx-2*x2z
     #    *x12s-10*x2z-4*tx*x12s-2*tx-2*x12s-6*txs)
      gg10q= gg10q+rwwg(4,1)*vvq*bxps*yc*(4+12*o*x12-4*o*tx-
     #    12*o+8*os-4*x12*tx-8*x12+4*tx+4*x12s)
      gg10q= gg10q+rwwg(4,1)*vvq*yc*(-6*o*x12*x2z*tx+8*o*x12*
     #    x2z-2*o*x12*tx+4*o*x12*x2zs+8*o*x2z*tx-10*o*x2z*txs
     #    -16*o*x2z+8*o*tx*x2zs+2*o*tx-18*o*x2zs-6*o*txs-8*
     #    os*x2z*tx+10*os*x2z-4*os*tx+10*os*x2zs-6*x12*x2z*tx
     #    -10*x12*x2z*txs-8*x12*x2z+2*x12*tx*x2zs-2*x12*tx-4*
     #    x12*x2zs-6*x12*txs+2*x2z*tx*x12s+2*x2z*tx+2*x2z*x12s
     #    +10*x2z*txs+6*x2z+2*tx*x12s-2*tx*x2zs+8*x2zs+4*txs)
      gg10q= gg10q+rwwg(4,4)*xx*vvq*yc*(-1./2.*o*x12*x2zc+1./
     #    2.*o*tx*x2zc-1./2.*o*x2zq-1./2.*x12*tx*x2zc-1./2.*tx*
     #    x2zq+1./2.*x2zq+1./2.*x2zc*txs)
      gg10q= gg10q+rwwg(4,4)*bxpi*vvq*yc*(1./2.*o*x12*x2zc-3./2.
     #    *o*x12*x2zs+1./2.*o*tx*x2zc+3./2.*o*tx*x2zs+1./2.*o*
     #    x12s*x2zs-5./2.*o*x2zc-1./2.*o*x2zs*txs+1./2.*os*x12*
     #    x2zs-1./2.*os*tx*x2zs+1./2.*os*x2zc+1./2.*x12*tx*x2zc
     #    -3./2.*x12*tx*x2zs-x12*x2zc-1./2.*x12*x2zs*txs+1./2.*
     #    tx*x12s*x2zs-3./2.*tx*x2zc+2*x2zc+3./2.*x2zs*txs)
      gg10q= gg10q+rwwg(4,4)*vvq*bxp*yc*(5./2.*o*x12*x2zs-1./2.*
     #    o*x12+3*o*x2z*tx+3./2.*o*x2z*x12s-3./2.*o*x2z*txs-7./
     #    2.*o*x2z+3./2.*o*tx*x2zs+1./2.*o*tx+1./2.*o*x12s-13./
     #    2.*o*x2zs-1./2.*o*txs+3./2.*os*x12*x2z+1./2.*os*x12-3.
     #    /2.*os*x2z*tx+3./2.*os*x2z-1./2.*os*tx+2*os*x2zs-2*
     #    x12*x2z*tx-3./2.*x12*x2z*txs-3*x12*x2z+3./2.*x12*tx*
     #    x2zs-1./2.*x12*tx-4*x12*x2zs-1./2.*x12*txs+3./2.*x2z*
     #    tx*x12s-1./2.*x2z*tx+x2z*x12s+5./2.*x2z*txs+2*x2z+1.
     #    /2.*tx*x12s-5./2.*tx*x2zs+1./2.*x12s*x2zs+9./2.*x2zs+
     #    1./2.*txs)
      gg10q= gg10q+rwwg(4,4)*vvq*bxps*yc*(-1./2.-4*o*x12*x2z
     #    -o*x2z*tx+6*o*x2z-o*tx-o*x12s+o*txs+o-os*x12-
     #    5./2.*os*x2z+os*tx-1./2.*os-x12*x2z*tx+5*x12*x2z+
     #    x12*tx+x12*txs+x12+x2z*tx-3./2.*x2z*x12s-7./2.*x2z
     #    -tx*x12s-1./2.*x12s-txs)
      gg10q= gg10q+rwwg(4,4)*vvq*yc*(3./2.*o*x12*x2z+2*o*x12*
     #    bxpc-1./2.*o*x12*x2zc-3./2.*o*x2z*tx-o*x2z*x12s+o*x2z*
     #    txs-1./2.*o*tx*x2zc-3*o*tx*x2zs-2*o*bxpc-1./2.*o*x12s*
     #    x2zs+3*o*x2zc+1./2.*o*x2zs*txs+9./2.*o*x2zs-os*x12*
     #    x2z-1./2.*os*x12*x2zs+os*x2z*tx+1./2.*os*tx*x2zs+os*
     #    bxpc-1./2.*os*x2zc-3./2.*os*x2zs+3./2.*x12*x2z*tx+x12*
     #    x2z*txs-1./2.*x12*tx*x2zc+x12*tx*x2zs-2*x12*bxpc+x12*
     #    x2zc+1./2.*x12*x2zs*txs+3*x12*x2zs-x2z*tx*x12s-3./2.*
     #    x2z*txs-1./2.*tx*x12s*x2zs+2*tx*x2zc+3./2.*tx*x2zs+
     #    bxpc*x12s+bxpc-1./2.*x12s*x2zs-5./2.*x2zc-2*x2zs*txs-
     #    3*x2zs)
      gg10q= gg10q+rwwg(4,12)*xx*vvq*yc*(-o*tx*x2zs+o*x2zc+
     #    x12*tx*x2zs+2*tx*x2zc-x2zc-2*x2zs*txs)
      gg10q= gg10q+rwwg(4,12)*bxpi*vvq*yc*(-o*x12*x2zs-2*o*x2z
     #    *tx+2*o*x2z*txs-2*o*tx*x2zs+4*o*x2zs+os*x2z*tx-os*
     #    x2zs+2*x12*x2z*tx+2*x12*x2z*txs-2*x12*tx*x2zs+2*x12*
     #    x2zs-x2z*tx*x12s-4*x2z*txs+4*tx*x2zs-3*x2zs)
      gg10q= gg10q+rwwg(4,12)*vvq*bxp*yc*(-1-4*o*x12*x2z-o*
     #    x12-3*o*x2z*tx+8*o*x2z-2*o*tx-o*x12s+3*o*txs+2*o
     #    -os*x12-3*os*x2z+2*os*tx-os-3*x12*x2z*tx+6*x12*
     #    x2z+2*x12*tx+3*x12*txs+2*x12+3*x2z*tx-x2z*x12s-5*
     #    x2z-2*tx*x12s-x12s-3*txs)
      gg10q= gg10q+rwwg(4,12)*vvq*bxps*yc*(2+4*o*x12-4*o+2*
     #    os-4*x12+2*x12s)
      gg10q= gg10q+rwwg(4,12)*vvq*yc*(2*o*x12*x2z+o*x12*x2zs+
     #    5*o*x2z*tx-2*o*x2z*txs-5*o*x2z+2*o*tx*x2zs+o*tx-5*o
     #    *x2zs-2*o*txs-os*x2z*tx+2*os*x2z-os*tx+os*x2zs-
     #    x12*x2z*tx-2*x12*x2z*txs-4*x12*x2z+2*x12*tx*x2zs-x12*
     #    tx-2*x12*x2zs-2*x12*txs+x2z*tx*x12s-2*x2z*tx+x2z*
     #    x12s+5*x2z*txs+3*x2z+tx*x12s-5*tx*x2zs+4*x2zs+2*txs)
      gg10q= gg10q+rwwg(5,5)*xx*vvq*yc*(1./2.*x2z*txs-1./2.*tx*
     #    x2zs)
      gg10q= gg10q+rwwg(5,5)*bxpi*vvq*yc*(1./2.*x12*x2z*tx-x2z*
     #    tx+1./2.*txs)
      gg10q= gg10q+rwwg(5,5)*vvq*bxp*yc*(-1./4.+1./4.*o*x2z+
     #    1./4.*os+1./2.*x12*tx+1./4.*x12-1./4.*x2z*tx-1./4.*
     #    x2z-1./4.*tx+1./4.*txs)
      gg10q= gg10q+rwwg(5,5)*vvq*bxps*yc*(1./4.-1./4.*o-1./4.*
     #    x12)
      gg10q= gg10q+rwwg(5,5)*vvq*yc*(1./4.*o*x12*tx+1./4.*o*x2z
     #    *tx-1./4.*o*x2z-1./4.*o*txs-x12*tx-1./4.*x12*txs+3./
     #    4.*x2z*tx-1./4.*x2z*txs+1./4.*x2z+1./4.*tx*x12s+1./4.
     #    *tx*x2zs+1./2.*tx-1./2.*txs)
      gg10q= gg10q+rwwg(5,6)*xx*vvq*yc*(-o*x2z*txs+o*tx*x2zs
     #    -x12*x2z*txs+x2z*txs)
      gg10q= gg10q+rwwg(5,6)*bxpi*vvq*yc*(2*o*x2z*tx-o*txs-x12
     #    *txs+txs)
      gg10q= gg10q+rwwg(5,6)*vvq*bxp*yc*(-1./2.-1./2.*o*x12-
     #    o*x2z+1./2.*o*tx+o-1./2.*os-1./2.*x12*x2z-1./2.*x12
     #    *tx+x12+1./2.*x2z*tx+x2z-1./2.*x12s-1./2.*txs)
      gg10q= gg10q+rwwg(5,6)*vvq*bxps*yc*(-1./2.+1./2.*o+1./
     #    2.*x12)
      gg10q= gg10q+rwwg(5,6)*vvq*yc*(1./2.*o*x12*x2z+o*x12*tx
     #    -3./2.*o*x2z*tx-3./2.*o*x2z-o*tx+1./2.*o*x2zs+o*txs
     #    +os*x2z+1./2.*x12*x2z*tx-1./2.*x12*x2z-x12*tx+x12*
     #    txs+1./2.*x2z*txs+1./2.*x2z+tx*x12s-1./2.*tx*x2zs-1.
     #    /2.*x2zs-txs)
      gg10q= gg10q+rwwg(6,6)*xx*vvq*yc*(-o*x2z*txs-o*tx*x2zs
     #    -x12*x2z*txs+1./2.*x2z*txs+1./2.*tx*x2zs)
      gg10q= gg10q+rwwg(6,6)*bxpi*vvq*yc*(-2*o*x2z*tx-o*txs-
     #    1./2.*x12*x2z*tx-x12*txs+x2z*tx+1./2.*txs)
      gg10q= gg10q+rwwg(6,6)*vvq*bxp*yc*(-1./4.-3./2.*o*x12+
     #    3./4.*o*x2z-1./2.*o*tx+o-3./4.*os+1./2.*x12*x2z+3./
     #    4.*x12-1./4.*x2z*tx-3./4.*x2z+1./4.*tx-1./2.*x12s+1.
     #    /4.*txs)
      gg10q= gg10q+rwwg(6,6)*vvq*bxps*yc*(1./4.-1./4.*o-1./4.*
     #    x12)
      gg10q= gg10q+rwwg(6,6)*vvq*yc*(3./2.*o*x12*x2z+3./4.*o*
     #    x12*tx+5./4.*o*x2z*tx-5./4.*o*x2z+o*tx-1./2.*o*x2zs
     #    +5./4.*o*txs+os*x2z-1./2.*x12*x2z*tx-1./2.*x12*x2z+
     #    5./4.*x12*txs-3./4.*x2z*tx-1./4.*x2z*txs+1./4.*x2z+3./
     #    4.*tx*x12s+1./4.*tx*x2zs-1./2.*tx+1./2.*x2zs-1./2.*txs)
      gg10q= gg10q+rwwg(7,1)*xx*vvq*yc*(-2*o*x12*x2z*txs+2*o*
     #    x2zc-2*o*x2zs*txs-os*x2z*txs-os*x2zc+2*x12*tx*x2zs-
     #    2*x12*x2zs*txs-x2z*x12s*txs-x2zc+2*x2zs*txs)
      gg10q= gg10q+rwwg(7,1)*bxpi*vvq*yc*(-3*o*x12*x2z*tx-2*o*
     #    x12*x2zs-3*o*x2z*txs-o*tx*x2zs+5*o*x2zs-os*x2z*tx-3
     #    *os*x2zs+2*x12*x2z*tx-3*x12*x2z*txs+2*x12*x2zs-2*x2z*
     #    tx*x12s+2*x2z*txs+tx*x2zs-2*x2zs)
      gg10q= gg10q+rwwg(7,1)*vvq*bxp*yc*(-3*o*x12*x2z-o*x2z*tx
     #    +3*o*x2z-o*txs+os*x12-2*os*x2z-os+oc-x12*x2z*tx
     #    +2*x12*x2z-x12*txs+x2z*tx-x2z*x12s-x2z+txs)
      gg10q= gg10q+rwwg(7,1)*vvq*yc*(3*o*x12*x2z*tx+3*o*x12*x2z
     #    +2*o*x12*x2zs+o*x2z*tx+4*o*x2z*txs-3*o*x2z+o*tx*
     #    x2zs-5*o*x2zs-os*x12*x2z+os*x2z*tx+3*os*x2z+3*os*
     #    x2zs-oc*x2z-x12*x2z*tx+4*x12*x2z*txs-2*x12*x2z-2*
     #    x12*x2zs+2*x2z*tx*x12s-x2z*tx+x2z*x12s-3*x2z*txs+
     #    x2z-tx*x2zs+2*x2zs)
      gg10q= gg10q+rwwg(7,4)*xx*vvq*yc*(-1./4.*o*x12*x2zc+1./
     #    2.*o*x12*x2zs*txs+1./4.*o*tx*x12s*x2zs-1./4.*o*tx*x2zq-
     #    1./4.*o*tx*x2zc+1./4.*o*x2zq+1./4.*o*x2zc*txs+1./2.*os*
     #    x12*tx*x2zs-1./4.*os*x12*x2zc-1./4.*os*x2zq+1./4.*os*
     #    x2zc+1./4.*os*x2zs*txs+1./4.*oc*tx*x2zs-1./4.*oc*x2zc
     #    -1./4.*x12*tx*x2zc+1./4.*x12*x2zc*txs+1./4.*tx*x2zq+1.
     #    /4.*x12s*x2zs*txs-1./2.*x2zc*txs)
      gg10q= gg10q+rwwg(7,4)*bxpi*vvq*yc*(1./2.*o*x12*x2z*txs+1./
     #    2.*o*x12*tx*x2zs-1./4.*o*x12*x2zc-1./2.*o*x12*x2zs+1./4.
     #    *o*x2z*tx*x12s-1./2.*o*tx*x2zc-1./2.*o*tx*x2zs+1./4.*o*
     #    x12s*x2zs+1./2.*o*x2zc+3./4.*o*x2zs*txs+1./2.*os*x12*
     #    x2z*tx-1./4.*os*x12*x2zs+1./4.*os*x2z*txs+1./4.*os*tx*
     #    x2zs-1./2.*os*x2zc+1./2.*os*x2zs+1./4.*oc*x2z*tx-1./2.
     #    *oc*x2zs-1./4.*x12*tx*x2zc-1./2.*x12*tx*x2zs+3./4.*x12*
     #    x2zs*txs+1./4.*x2z*x12s*txs+1./4.*tx*x12s*x2zs+1./2.*tx
     #    *x2zc-x2zs*txs)
      gg10q= gg10q+rwwg(7,4)*vvq*bxp*yc*(o*x12*x2z*tx-1./2.*o*
     #    x12*x2z+1./4.*o*x12*tx-3./8.*o*x12*x2zs-1./2.*o*x12*txs
     #    -1./2.*o*x2z*tx+1./2.*o*x2z*x12s+3./4.*o*x2z*txs-3./8.
     #    *o*tx*x12s-3./8.*o*tx*x2zs+1./8.*o*x12s-1./8.*o*x12c+
     #    3./8.*o*x2zs+1./4.*o*txs+1./4.*os*x12*x2z-3./8.*os*x12*
     #    tx+1./2.*os*x2z*tx+1./4.*os*x2z+1./8.*os*tx-1./8.*os*
     #    x12s-3./8.*os*x2zs-1./4.*os*txs+1./8.*oc*x12-1./4.*oc
     #    *x2z-1./8.*oc*tx-1./8.*oc+1./8.*oq-1./2.*x12*x2z*tx
     #    +3./4.*x12*x2z*txs-3./8.*x12*tx*x2zs+1./4.*x12*txs+1./
     #    2.*x2z*tx*x12s-3./4.*x2z*txs+1./8.*tx*x12s-1./8.*tx*
     #    x12c+3./8.*tx*x2zs-1./4.*x12s*txs)
      gg10q= gg10q+rwwg(7,4)*vvq*yc*(-3./4.*o*x12*x2z*tx-1./2.
     #    *o*x12*x2z*txs+1./4.*o*x12*x2z-5./8.*o*x12*tx*x2zs+1./4.
     #    *o*x12*x2zc+o*x12*x2zs-3./8.*o*x2z*tx*x12s+1./4.*o*x2z*
     #    tx-3./8.*o*x2z*x12s-3./4.*o*x2z*txs+1./8.*o*tx*x12c+5.
     #    /8.*o*tx*x2zc+o*tx*x2zs-1./4.*o*x12s*x2zs+3./8.*o*x12s*
     #    txs-5./8.*o*x2zc-7./8.*o*x2zs*txs-1./4.*o*x2zs-3./4.*
     #    os*x12*x2z*tx+1./4.*os*x12*x2zs+3./8.*os*x12*txs-3./8.*
     #    os*x2z*tx-1./8.*os*x2z*x12s-1./4.*os*x2z*txs-1./4.*os*
     #    x2z+3./8.*os*tx*x12s-3./8.*os*tx*x2zs+5./8.*os*x2zc-1.
     #    /4.*os*x2zs-1./4.*oc*x12*x2z+3./8.*oc*x12*tx-3./8.*oc*
     #    x2z*tx+3./8.*oc*x2z+1./2.*oc*x2zs+1./8.*oc*txs-1./8.*
     #    oq*x2z+1./8.*oq*tx+1./4.*x12*x2z*tx-3./4.*x12*x2z*txs
     #    +1./4.*x12*tx*x2zc+x12*tx*x2zs-7./8.*x12*x2zs*txs-3./
     #    8.*x2z*tx*x12s-1./4.*x2z*x12s*txs+1./2.*x2z*txs-1./4.*
     #    tx*x12s*x2zs-5./8.*tx*x2zc-1./4.*tx*x2zs+1./8.*x12c*txs
     #    +5./4.*x2zs*txs)
      gg10q= gg10q+rwwg(7,7)*xx*vvq*yc*(-1./4.*o*x12*x2zs*txs
     #    +1./4.*o*x2zq-1./8.*o*x2zc*txs-1./8.*os*x12*x2zc-1./8.
     #    *os*x2zq+1./8.*os*x2zc-1./8.*os*x2zs*txs-1./8.*oc*x2zc
     #    +1./4.*x12*tx*x2zc-1./8.*x12*x2zc*txs-1./8.*x12s*x2zs*
     #    txs-1./8.*x2zq+1./8.*x2zc*txs)
      gg10q= gg10q+rwwg(7,7)*bxpi*vvq*yc*(-1./4.*o*x12*tx*x2zs
     #    -1./4.*o*x12*x2zc+1./2.*o*x2zc-1./8.*o*x2zs*txs-1./8.
     #    *os*x12*x2zs-1./4.*os*x2zc+1./8.*os*x2zs-1./8.*oc*x2zs
     #    +1./4.*x12*tx*x2zs+1./4.*x12*x2zc-1./8.*x12*x2zs*txs-
     #    1./4.*tx*x12s*x2zs-1./4.*x2zc+1./8.*x2zs*txs)
      gg10q= gg10q+rwwg(7,7)*vvq*bxp*yc*(-o*x12*x2z-1./2.*o*
     #    x12*tx-1./4.*o*x12*x2zs+1./4.*o*x12*txs+1./4.*o*x2z*
     #    x12s+3./4.*o*x2z+1./2.*o*tx*x12s+1./4.*o*x2zs-1./4.*o
     #    *txs+1./2.*os*x12*x2z+1./4.*os*x12*tx-1./4.*os*x12-3./
     #    4.*os*x2z+1./8.*os*x12s-1./8.*os*x2zs+1./8.*os*txs+1./
     #    8.*os+1./4.*oc*x12+1./4.*oc*x2z-1./4.*oc+1./8.*oq+1.
     #    /2.*x12*x2z+1./4.*x12*tx+1./4.*x12*x2zs-1./4.*x12*txs
     #    -1./4.*x2z*x12s-1./4.*x2z-1./2.*tx*x12s+1./4.*tx*x12c
     #    -1./8.*x12s*x2zs+1./8.*x12s*txs-1./8.*x2zs+1./8.*txs)
      gg10q= gg10q+rwwg(7,7)*vvq*bxps*yc*(1./8.+3./4.*o*x12-3./
     #    8.*o*x12s-3./8.*o-3./8.*os*x12+3./8.*os-1./8.*oc-3./
     #    8.*x12+3./8.*x12s-1./8.*x12c)
      gg10q= gg10q+rwwg(7,7)*vvq*yc*(1./4.*o*x12*x2z*tx-1./4.*o
     #    *x12*x2z*txs+1./4.*o*x12*tx*x2zs+1./4.*o*x12*x2zc+1./2.
     #    *o*x12*x2zs+1./4.*o*x12*txs+1./4.*o*x2z*txs-3./8.*o*
     #    x12s*txs-1./2.*o*x2zc+1./8.*o*x2zs*txs-5./8.*o*x2zs+1.
     #    /4.*os*x12*x2z-3./8.*os*x12*txs-1./8.*os*x2z*x12s-1./8.
     #    *os*x2z*txs-1./8.*os*x2z+1./4.*os*x2zc+3./8.*os*x2zs+
     #    1./8.*os*txs-1./4.*oc*x12*x2z+1./4.*oc*x2z-1./8.*oc*txs
     #    -1./8.*oq*x2z-1./4.*x12*x2z*tx+1./4.*x12*x2z*txs-1./4.
     #    *x12*tx*x2zs-1./4.*x12*x2zc+1./8.*x12*x2zs*txs-3./8.*
     #    x12*x2zs+1./4.*x2z*tx*x12s-1./8.*x2z*x12s*txs-1./8.*x2z
     #    *txs+1./4.*tx*x12s*x2zs+1./8.*x12s*x2zs+1./8.*x12s*txs
     #    -1./8.*x12c*txs+1./4.*x2zc-1./8.*x2zs*txs+1./4.*x2zs)
      gg10q= gg10q+rwwg(7,11)*vvq*bxp*yc*(1./4.*o*x12*x2z-1./2.*
     #    o*x12*tx+1./4.*o*x12+1./4.*o*x2z*tx-1./4.*o*x2z+1./4.
     #    *o*tx-1./4.*o*x12s-1./2.*o*txs+1./4.*os*x2z-1./4.*os*
     #    tx-1./4.*os+1./4.*oc+1./4.*x12*x2z*tx+1./4.*x12*tx-
     #    1./2.*x12*txs-1./4.*x2z*tx-1./4.*tx*x12s+1./2.*txs)
      gg10q= gg10q+rwwg(7,11)*vvq*yc*(-1./4.*o*x12*x2z+1./2.*
     #    o*x12*txs-1./4.*o*x2z*tx+1./4.*o*x2z*txs+1./4.*o*tx*
     #    x12s-1./4.*o*tx*x2zs+1./4.*o*x2zs-1./4.*os*x12*x2z+1./
     #    2.*os*x12*tx+1./4.*os*x2z-1./4.*os*x2zs+1./4.*os*txs-
     #    1./4.*oc*x2z+1./4.*oc*tx-1./4.*x12*x2z*tx+1./4.*x12*x2z
     #    *txs-1./2.*x2z*txs+1./4.*tx*x2zs+1./4.*x12s*txs)
      gg10q= gg10q+rwwg(7,12)*xx*vvq*yc*(-o*x12*x2z*txs+1./2.
     #    *o*x12*tx*x2zs+1./2.*o*tx*x2zc+1./2.*o*x2zc-1./2.*o*
     #    x2zs*txs-1./2.*os*x2z*txs+1./2.*os*tx*x2zs+x12*tx*x2zs
     #    -1./2.*x12*x2zs*txs-1./2.*x2z*x12s*txs-1./2.*tx*x2zc-
     #    1./2.*x2zc+x2zs*txs)
      gg10q= gg10q+rwwg(7,12)*bxpi*vvq*yc*(-o*x12*x2z*tx-1./2.
     #    *o*x12*x2zs-o*x2z*txs+1./2.*o*tx*x2zs+3./2.*o*x2zs-1./
     #    2.*os*x2zs+x12*x2z*tx-x12*x2z*txs+1./2.*x12*tx*x2zs+
     #    x12*x2zs-x2z*tx*x12s+x2z*txs-1./2.*tx*x2zs-x2zs)
      gg10q= gg10q+rwwg(7,12)*vvq*bxp*yc*(-o*x12*x2z+o*x2z-1.
     #    /2.*os*x2z+x12*x2z-1./2.*x2z*x12s-1./2.*x2z)
      gg10q= gg10q+rwwg(7,12)*vvq*yc*(o*x12*x2z*tx+o*x12*x2z+
     #    1./2.*o*x12*x2zs+o*x2z*txs-o*x2z-1./2.*o*tx*x2zs-3./2.
     #    *o*x2zs+1./2.*os*x2z+1./2.*os*x2zs-x12*x2z*tx+x12*x2z
     #    *txs-x12*x2z-1./2.*x12*tx*x2zs-x12*x2zs+x2z*tx*x12s
     #    +1./2.*x2z*x12s-x2z*txs+1./2.*x2z+1./2.*tx*x2zs+x2zs)
      gg10q= gg10q+rwwg(7,13)*xx*vvq*yc*(-1./2.*o*x12*x2z*txs
     #    +1./2.*o*x2zc-1./2.*o*x2zs*txs-1./4.*os*x2z*txs-1./4.
     #    *os*x2zc+1./2.*x12*tx*x2zs-1./2.*x12*x2zs*txs-1./4.*x2z
     #    *x12s*txs-1./4.*x2zc+1./2.*x2zs*txs)
      gg10q= gg10q+rwwg(7,13)*bxpi*vvq*yc*(-1./2.*o*x12*x2z*tx
     #    -1./2.*o*x12*x2zs-1./2.*o*x2z*txs+o*x2zs-1./2.*os*
     #    x2zs+1./2.*x12*x2z*tx-1./2.*x12*x2z*txs+1./2.*x12*x2zs
     #    -1./2.*x2z*tx*x12s+1./2.*x2z*txs-1./2.*x2zs)
      gg10q= gg10q+rwwg(7,13)*vvq*bxp*yc*(-1./2.*o*x12*x2z+1./
     #    2.*o*x2z-1./4.*os*x2z+1./2.*x12*x2z-1./4.*x2z*x12s-1./
     #    4.*x2z)
      gg10q= gg10q+rwwg(7,13)*vvq*yc*(1./2.*o*x12*x2z*tx+1./2.*
     #    o*x12*x2z+1./2.*o*x12*x2zs+1./2.*o*x2z*txs-1./2.*o*x2z
     #    -o*x2zs+1./4.*os*x2z+1./2.*os*x2zs-1./2.*x12*x2z*tx
     #    +1./2.*x12*x2z*txs-1./2.*x12*x2z-1./2.*x12*x2zs+1./2.
     #    *x2z*tx*x12s+1./4.*x2z*x12s-1./2.*x2z*txs+1./4.*x2z+1.
     #    /2.*x2zs)
      gg10q= gg10q+rwwg(7,14)*xx*vvq*yc*(1./4.*o*x12*tx*x2zs+1./
     #    4.*o*tx*x2zc-1./4.*o*x2zc+1./4.*o*x2zs*txs+1./4.*os*tx*
     #    x2zs+1./4.*os*x2zc+1./4.*x12*x2zs*txs-1./4.*tx*x2zc)
      gg10q= gg10q+rwwg(7,14)*bxpi*vvq*yc*(1./4.*o*x12*x2z*tx+1./
     #    4.*o*x12*x2zs+1./4.*o*x2z*txs+1./2.*o*tx*x2zs-1./2.*o*
     #    x2zs+1./4.*os*x2z*tx+1./2.*os*x2zs+1./4.*x12*x2z*txs+
     #    1./4.*x12*tx*x2zs-1./2.*tx*x2zs)
      gg10q= gg10q+rwwg(7,14)*vvq*bxp*yc*(-1./4.*o*x12*x2z-1./
     #    2.*o*x12*tx+1./4.*o*x2z*tx+3./4.*o*x2z-1./4.*o*txs-1./
     #    4.*os*x12-1./4.*os*x2z+1./4.*os-1./4.*oc+1./4.*x12*
     #    x2z*tx+1./2.*x12*x2z+1./2.*x12*tx-1./4.*x12*txs-1./4.
     #    *x2z*tx-1./2.*x2z-1./2.*tx*x12s+1./4.*txs)
      gg10q= gg10q+rwwg(7,14)*vvq*bxps*yc*(1./4.+1./2.*o*x12-1.
     #    /2.*o+1./4.*os-1./2.*x12+1./4.*x12s)
      gg10q= gg10q+rwwg(7,14)*vvq*yc*(-1./4.*o*x12*x2z*tx-1./
     #    4.*o*x12*x2z-1./4.*o*x12*x2zs+1./2.*o*x12*txs-1./4.*o*
     #    x2z*tx+1./4.*o*x2z-1./2.*o*tx*x2zs+1./4.*os*x12*x2z-1.
     #    /4.*os*x2z*tx-1./2.*os*x2z-1./4.*os*x2zs+1./4.*os*txs
     #    +1./4.*oc*x2z-3./4.*x12*x2z*tx-1./4.*x12*tx*x2zs+1./4.
     #    *x2z*tx-1./4.*x2z*txs+1./2.*tx*x2zs+1./4.*x12s*txs+1./
     #    4.*x2zs)
      gg10q= gg10q+rwwg(8,1)*bxpi*vvq*yc*(-2*o*x12*x2z*tx+2*o*
     #    x2z*tx-2*o*x2z*txs+2*o*tx*x2zs-4*o*x2zs-2*os*x2z*tx
     #    +2*os*x2zs-2*x12*x2z*tx-2*x12*x2z*txs+4*x2z*txs-2*
     #    tx*x2zs+2*x2zs)
      gg10q= gg10q+rwwg(8,1)*vvq*bxp*yc*(2+5*o*x12*x2z-6*o*x12
     #    *tx+5*o*x12+5*o*x2z*tx-13*o*x2z+o*tx+o*x12s-8*o*
     #    txs-6*o+2*os*x12+9*os*x2z-7*os*tx+3*os+oc+x12*
     #    x2z*tx-4*x12*x2z-3*x12*tx-8*x12*txs-4*x12+3*x2z*tx
     #    +4*x2z+tx*x12s+2*tx+2*x12s+4*txs)
      gg10q= gg10q+rwwg(8,1)*vvq*bxps*yc*(-2-8*o*x12+4*o*tx
     #    +8*o-6*os+4*x12*tx+4*x12-4*tx-2*x12s)
      gg10q= gg10q+rwwg(8,1)*vvq*yc*(2*o*x12*x2z*tx-3*o*x12*x2z
     #    +2*o*x12*tx+2*o*x12*txs-7*o*x2z*tx+3*o*x2z*txs+10*o
     #    *x2z+o*tx*x12s-3*o*tx*x2zs-2*o*tx+5*o*x2zs+6*o*txs
     #    -os*x12*x2z+2*os*x12*tx+2*os*x2z*tx-5*os*x2z+4*os*
     #    tx-3*os*x2zs+os*txs-oc*x2z+oc*tx-x12*x2z*tx+3*x12
     #    *x2z*txs+4*x12*x2z+2*x12*tx+6*x12*txs-4*x2z*txs-4*
     #    x2z-2*tx*x12s+tx*x2zs+x12s*txs-2*x2zs-4*txs)
      gg10q= gg10q+rwwg(8,4)*bxpi*vvq*yc*(o*x12*x2zs-o*tx*x2zs
     #    +o*x2zc+x12*tx*x2zs+tx*x2zc-x2zc-x2zs*txs)
      gg10q= gg10q+rwwg(8,4)*vvq*bxp*yc*(-o*x12*x2z*tx+3*o*x12
     #    *x2z-3./2.*o*x12*x2zs+o*x12*txs+o*x12-4*o*x2z*tx-2*
     #    o*x2z*x12s+3./2.*o*x2z*txs+4*o*x2z-1./2.*o*tx*x12s-3./
     #    2.*o*tx*x2zs-o*tx-1./2.*o*x12s-1./2.*o*x12c+13./2.*o*
     #    x2zs+1./2.*o*txs-5./2.*os*x12*x2z+1./2.*os*x12*tx-1./
     #    2.*os*x12+os*x2z*tx-1./2.*os*x2z+1./2.*os*tx-os*x12s
     #    -3./2.*os*x2zs+1./2.*os*txs-1./2.*oc*x12-1./2.*oc*x2z
     #    +1./2.*oc*tx+3*x12*x2z*tx+3./2.*x12*x2z*txs+3*x12*x2z
     #    -3./2.*x12*tx*x2zs+x12*tx+3*x12*x2zs+1./2.*x12*txs-
     #    2*x2z*tx*x12s+x2z*tx-7./2.*x2z*txs-3*x2z-1./2.*tx*
     #    x12s-1./2.*tx*x12c+7./2.*tx*x2zs+1./2.*x12s*txs-5*
     #    x2zs-txs)
      gg10q= gg10q+rwwg(8,4)*vvq*bxps*yc*(1+5*o*x12*x2z-2*o*
     #    x12+2*o*x2z*tx-9*o*x2z+2*o*tx+7./2.*o*x12s-2*o*txs
     #    -3./2.*o+7./2.*os*x12+7./2.*os*x2z-2*os*tx+1./2.*oc
     #    +2*x12*x2z*tx-7*x12*x2z-2*x12*tx-2*x12*txs-3./2.*
     #    x12-2*x2z*tx+3./2.*x2z*x12s+11./2.*x2z+2*tx*x12s+1./
     #    2.*x12c+2*txs)
      gg10q= gg10q+rwwg(8,4)*vvq*yc*(-2*o*x12*x2z-4*o*x12*bxpc
     #    -o*x12*x2zs+2*o*x2z*tx+1./2.*o*x2z*x12s-1./2.*o*x2z*
     #    txs+2*o*tx*x2zs+4*o*bxpc-3./2.*o*x2zc-7./2.*o*x2zs+1.
     #    /2.*os*x12*x2z-1./2.*os*x2z*tx-2*os*bxpc+1./2.*os*x2zs
     #    -2*x12*x2z*tx-1./2.*x12*x2z*txs-x12*tx*x2zs+4*x12*bxpc
     #    -3./2.*x12*x2zs+1./2.*x2z*tx*x12s+2*x2z*txs-3./2.*tx*
     #    x2zc-2*tx*x2zs-2*bxpc*x12s-2*bxpc+3./2.*x2zc+3./2.*
     #    x2zs*txs+3*x2zs)
      gg10q= gg10q+rwwg(8,7)*bxpi*vvq*yc*(-1./2.*o*x12*x2z*txs
     #    +1./4.*o*x12*x2zs-1./4.*o*x2z*tx*x12s+1./4.*o*tx*x2zc
     #    +1./4.*o*tx*x2zs-1./4.*o*x2zc-1./4.*o*x2zs*txs-1./2.*
     #    os*x12*x2z*tx+1./4.*os*x12*x2zs-1./4.*os*x2z*txs+1./4.*
     #    os*x2zc-1./4.*os*x2zs-1./4.*oc*x2z*tx+1./4.*oc*x2zs+1.
     #    /4.*x12*tx*x2zs-1./4.*x12*x2zs*txs-1./4.*x2z*x12s*txs-1.
     #    /4.*tx*x2zc+1./2.*x2zs*txs)
      gg10q= gg10q+rwwg(8,7)*vvq*bxp*yc*(-1./2.*o*x12*x2z*tx+3.
     #    /4.*o*x12*tx+3./8.*o*x12*x2zs-1./2.*o*x12*txs-1./4.*o*
     #    x12-1./4.*o*x2z*x12s-3./4.*o*x2z*txs+1./4.*o*x2z-3./8.
     #    *o*tx*x12s+3./8.*o*tx*x2zs-1./4.*o*tx+3./8.*o*x12s-1./
     #    8.*o*x12c-3./8.*o*x2zs+3./4.*o*txs+1./4.*os*x12*x2z-3.
     #    /8.*os*x12*tx-1./4.*os*x2z*tx-3./4.*os*x2z+3./8.*os*tx
     #    -1./8.*os*x12s+3./8.*os*x2zs-1./4.*os*txs+1./4.*os+
     #    1./8.*oc*x12+1./2.*oc*x2z-1./8.*oc*tx-3./8.*oc+1./8.*
     #    oq-3./4.*x12*x2z*txs+3./8.*x12*tx*x2zs-1./4.*x12*tx+3.
     #    /4.*x12*txs-1./4.*x2z*tx*x12s+1./4.*x2z*tx+3./4.*x2z*
     #    txs+3./8.*tx*x12s-1./8.*tx*x12c-3./8.*tx*x2zs-1./4.*
     #    x12s*txs-1./2.*txs)
      gg10q= gg10q+rwwg(8,7)*vvq*yc*(1./4.*o*x12*x2z*tx+o*x12*
     #    x2z*txs-1./8.*o*x12*tx*x2zs-1./2.*o*x12*x2zs-1./2.*o*
     #    x12*txs+3./8.*o*x2z*tx*x12s+1./8.*o*x2z*x12s-1./4.*o*tx
     #    *x12s+1./8.*o*tx*x12c-3./8.*o*tx*x2zc-1./4.*o*tx*x2zs
     #    +3./8.*o*x12s*txs+3./8.*o*x2zc+3./8.*o*x2zs*txs+3./4.
     #    *os*x12*x2z*tx+1./4.*os*x12*x2z-1./2.*os*x12*tx-1./2.*
     #    os*x12*x2zs+3./8.*os*x12*txs+1./8.*os*x2z*tx-1./8.*os*
     #    x2z*x12s+1./2.*os*x2z*txs+3./8.*os*tx*x12s-1./8.*os*tx*
     #    x2zs-3./8.*os*x2zc+1./2.*os*x2zs-1./4.*os*txs-1./4.*
     #    oc*x12*x2z+3./8.*oc*x12*tx+3./8.*oc*x2z*tx+1./8.*oc*x2z
     #    -1./4.*oc*tx-1./2.*oc*x2zs+1./8.*oc*txs-1./8.*oq*x2z
     #    +1./8.*oq*tx-1./2.*x12*tx*x2zs+3./8.*x12*x2zs*txs+1./
     #    8.*x2z*tx*x12s+1./2.*x2z*x12s*txs+3./8.*tx*x2zc-1./4.*
     #    x12s*txs+1./8.*x12c*txs-3./4.*x2zs*txs)
      gg10q= gg10q+rwwg(8,8)*vvq*bxp*yc*(-o*x12+2*o*x2z*tx-3
     #    *o*x2z+o*tx+o*x12s-o*x2zs-o*txs+os*x12+os*x2z-
     #    os*tx-2*x12*x2z-x12*tx-x12*txs-x2z*tx+x2z*txs+2*
     #    x2z+tx*x12s-tx*x2zs+x2zs+txs)
      gg10q= gg10q+rwwg(8,8)*vvq*bxps*yc*(-1-o*x12*x2z-o*x12
     #    -o*x2z*tx+3*o*x2z-o*tx-o*x12s+o*txs+2*o-os*x12
     #    -os*x2z+os*tx-os-x12*x2z*tx+2*x12*x2z+x12*tx+
     #    x12*txs+2*x12+x2z*tx-2*x2z-tx*x12s-x12s-txs)
      gg10q= gg10q+rwwg(8,8)*vvq*yc*(o*x12*x2z+2*o*x12*bxpc-o*
     #    x2z*tx-2*o*bxpc+o*x2zs+os*bxpc+x12*x2z*tx-2*x12*bxpc
     #    -x2z*txs+tx*x2zs+bxpc*x12s+bxpc-x2zs)
      gg10q= gg10q+rwwg(8,11)*vvq*bxp*yc*(-o*x12*x2z+o*x12-o
     #    *x2z*tx+3*o*x2z-o*tx-o*x12s+o*txs-os*x12-os*x2z
     #    +os*tx-x12*x2z*tx+2*x12*x2z+x12*tx+x12*txs+x2z*tx
     #    -2*x2z-tx*x12s-txs)
      gg10q= gg10q+rwwg(8,11)*vvq*bxps*yc*(1+2*o*x12-2*o+os
     #    -2*x12+x12s)
      gg10q= gg10q+rwwg(8,11)*vvq*yc*(-o*x12*x2z+o*x2z*tx-o
     #    *x2zs-x12*x2z*tx+x2z*txs-tx*x2zs+x2zs)
      gg10q= gg10q+rwwg(8,12)*bxpi*vvq*yc*(o*x2z*tx-o*x2zs-x12
     #    *x2z*tx+2*x2z*txs-2*tx*x2zs+x2zs)
      gg10q= gg10q+rwwg(8,12)*vvq*bxp*yc*(1+2*o*x12*x2z+o*x12
     #    +3*o*x2z*tx-6*o*x2z+2*o*tx+o*x12s-3*o*txs-2*o+
     #    os*x12+2*os*x2z-2*os*tx+os+3*x12*x2z*tx-4*x12*x2z
     #    -2*x12*tx-3*x12*txs-2*x12-3*x2z*tx+4*x2z+2*tx*
     #    x12s+x12s+3*txs)
      gg10q= gg10q+rwwg(8,12)*vvq*bxps*yc*(-2-4*o*x12+4*o-
     #    2*os+4*x12-2*x12s)
      gg10q= gg10q+rwwg(8,12)*vvq*yc*(-4*o*x2z*tx+3*o*x2z-o
     #    *tx+2*o*x2zs+2*o*txs-os*x2z+os*tx+2*x12*x2z+x12*
     #    tx+2*x12*txs+2*x2z*tx-3*x2z*txs-2*x2z-tx*x12s+3*
     #    tx*x2zs-2*x2zs-2*txs)
      gg10q= gg10q+rwwg(8,13)*bxpi*vvq*yc*(-1./2.*o*x12*x2z*tx
     #    +1./2.*o*x2z*tx-1./2.*o*x2z*txs+1./2.*o*tx*x2zs-o*
     #    x2zs-1./2.*os*x2z*tx+1./2.*os*x2zs-1./2.*x12*x2z*tx-1.
     #    /2.*x12*x2z*txs+x2z*txs-1./2.*tx*x2zs+1./2.*x2zs)
      gg10q= gg10q+rwwg(8,13)*vvq*bxp*yc*(1./2.+5./4.*o*x12*x2z
     #    -1./2.*o*x12*tx+5./4.*o*x12+3./4.*o*x2z*tx-9./4.*o*
     #    x2z+3./4.*o*tx-1./4.*o*x12s-3./2.*o*txs-o+5./4.*os*
     #    x2z-3./4.*os*tx+1./4.*os+1./4.*oc+3./4.*x12*x2z*tx-
     #    x12*x2z-1./4.*x12*tx-3./2.*x12*txs-x12-3./4.*x2z*tx
     #    +x2z+1./4.*tx*x12s+1./2.*x12s+3./2.*txs)
      gg10q= gg10q+rwwg(8,13)*vvq*bxps*yc*(-1./2.-o*x12+o-
     #    1./2.*os+x12-1./2.*x12s)
      gg10q= gg10q+rwwg(8,13)*vvq*yc*(1./2.*o*x12*x2z*tx-5./4.*
     #    o*x12*x2z+1./2.*o*x12*txs-5./4.*o*x2z*tx+3./4.*o*x2z*
     #    txs+2*o*x2z+1./4.*o*tx*x12s-3./4.*o*tx*x2zs-1./2.*o*
     #    tx+5./4.*o*x2zs+o*txs-1./4.*os*x12*x2z+1./2.*os*x12*
     #    tx+1./2.*os*x2z*tx-3./4.*os*x2z+1./2.*os*tx-3./4.*os*
     #    x2zs+1./4.*os*txs-1./4.*oc*x2z+1./4.*oc*tx-1./4.*x12*
     #    x2z*tx+3./4.*x12*x2z*txs+x12*x2z+1./2.*x12*tx+x12*txs
     #    +1./2.*x2z*tx-3./2.*x2z*txs-x2z-1./2.*tx*x12s+3./4.
     #    *tx*x2zs+1./4.*x12s*txs-1./2.*x2zs-txs)
      gg10q= gg10q+rwwg(8,14)*bxpi*vvq*yc*(1./2.*o*x12*x2z*tx+1./
     #    2.*o*x2z*txs-1./2.*o*tx*x2zs+1./2.*o*x2zs+1./2.*os*x2z*
     #    tx-1./2.*os*x2zs+1./2.*x12*x2z*txs-1./2.*tx*x2zs)
      gg10q= gg10q+rwwg(8,14)*vvq*bxp*yc*(-3./4.*o*x12*x2z+o*
     #    x12*tx-3./4.*o*x12-1./4.*o*x2z*tx+5./4.*o*x2z+1./4.*o
     #    *tx+1./4.*o*x12s+o*txs+1./2.*o-5./4.*os*x2z+3./4.*
     #    os*tx-1./4.*os-1./4.*oc+1./4.*x12*x2z*tx+1./4.*x12*tx
     #    +x12*txs-3./4.*x2z*tx+1./4.*tx*x12s-1./2.*tx-1./2.*
     #    txs)
      gg10q= gg10q+rwwg(8,14)*vvq*bxps*yc*(1./2.*o*x12-1./2.*o*
     #    tx-1./2.*o+1./2.*os-1./2.*x12*tx+1./2.*tx)
      gg10q= gg10q+rwwg(8,14)*vvq*yc*(-1./2.*o*x12*x2z*tx+3./
     #    4.*o*x12*x2z-1./2.*o*x12*tx-1./2.*o*x12*txs+1./4.*o*x2z
     #    *tx-3./4.*o*x2z*txs-o*x2z-1./4.*o*tx*x12s+3./4.*o*tx*
     #    x2zs-3./4.*o*x2zs-1./2.*o*txs+1./4.*os*x12*x2z-1./2.*
     #    os*x12*tx-1./2.*os*x2z*tx+3./4.*os*x2z-1./2.*os*tx+3./
     #    4.*os*x2zs-1./4.*os*txs+1./4.*oc*x2z-1./4.*oc*tx-1./4.
     #    *x12*x2z*tx-3./4.*x12*x2z*txs-1./2.*x12*txs+x2z*tx+1./
     #    2.*x2z*txs+1./4.*tx*x2zs-1./4.*x12s*txs)
      gg10q= gg10q+rwwg(9,1)*bxpi*vvq*yc*(4*o*x2z*tx+4*o*txs+4
     #    *x12*txs-4*x2z*tx)
      gg10q= gg10q+rwwg(9,1)*vvq*bxp*yc*(20*o*tx+4*x12*tx-4*tx)
      gg10q= gg10q+rwwg(9,1)*vvq*yc*(-4*o*x12*tx-8*o*x2z*tx
     #    -12*o*tx-4*o*txs-4*os*tx-4*x12*tx-4*x12*txs+4*x2z
     #    *tx+4*tx)
      gg10q= gg10q+rwwg(9,4)*bxpi*vvq*yc*(-o*x12*x2z*tx-o*x2z*
     #    txs+o*tx*x2zs-o*x2zs-os*x2z*tx+os*x2zs-x12*x2z*txs
     #    +tx*x2zs)
      gg10q= gg10q+rwwg(9,4)*vvq*bxp*yc*(3./2.*o*x12*x2z-3*o*x12
     #    *tx+1./2.*o*x12+1./2.*o*x2z*tx-7./2.*o*x2z-1./2.*o*tx
     #    +1./2.*o*x12s-2*o*txs-o+os*x12+7./2.*os*x2z-5./2.
     #    *os*tx+1./2.*os+1./2.*oc-3./2.*x12*x2z*tx-1./2.*x12*
     #    tx-2*x12*txs+7./2.*x2z*tx-1./2.*tx*x12s+tx)
      gg10q= gg10q+rwwg(9,4)*vvq*bxps*yc*(-2*o*x12+2*o*tx+2*
     #    o-2*os+2*x12*tx-2*tx)
      gg10q= gg10q+rwwg(9,4)*vvq*yc*(o*x12*x2z*tx-1./2.*o*x12*
     #    x2z+o*x12*tx+o*x12*txs-1./2.*o*x2z*tx+3./2.*o*x2z*txs
     #    +2*o*x2z+1./2.*o*tx*x12s-3./2.*o*tx*x2zs+3./2.*o*x2zs
     #    +o*txs-1./2.*os*x12*x2z+os*x12*tx+os*x2z*tx-3./2.*
     #    os*x2z+os*tx-3./2.*os*x2zs+1./2.*os*txs-1./2.*oc*x2z
     #    +1./2.*oc*tx+1./2.*x12*x2z*tx+3./2.*x12*x2z*txs+x12*
     #    txs-2*x2z*tx-3./2.*tx*x2zs+1./2.*x12s*txs)
      gg10q= gg10q+rwwg(9,7)*bxpi*vvq*yc*(1./2.*o*x12*x2z*tx+1./
     #    2.*o*x2z*txs+1./2.*o*tx*x2zs-1./2.*o*x2zs+1./2.*os*x2z*
     #    tx+1./2.*os*x2zs+1./2.*x12*x2z*txs-1./2.*tx*x2zs)
      gg10q= gg10q+rwwg(9,7)*vvq*bxp*yc*(3./4.*o*x12*x2z+1./2.*o
     #    *x12*tx-3./4.*o*x12+3./4.*o*x2z*tx-3./4.*o*x2z-3./4.*
     #    o*tx+1./4.*o*x12s+1./2.*o+1./2.*os*x12+3./4.*os*x2z
     #    +1./4.*os*tx-3./4.*os+1./4.*oc+3./4.*x12*x2z*tx-3./
     #    4.*x12*tx-3./4.*x2z*tx+1./4.*tx*x12s+1./2.*tx)
      gg10q= gg10q+rwwg(9,7)*vvq*yc*(-o*x12*x2z*tx-1./4.*o*
     #    x12*x2z+1./2.*o*x12*tx-1./2.*o*x12*txs+1./4.*o*x2z*tx
     #    -3./4.*o*x2z*txs-1./4.*o*tx*x12s-3./4.*o*tx*x2zs+3./4.
     #    *o*x2zs+1./2.*o*txs-1./4.*os*x12*x2z-1./2.*os*x12*tx-
     #    os*x2z*tx+1./4.*os*x2z+1./2.*os*tx-3./4.*os*x2zs-1./4.
     #    *os*txs-1./4.*oc*x2z-1./4.*oc*tx-1./4.*x12*x2z*tx-3./
     #    4.*x12*x2z*txs+1./2.*x12*txs+3./4.*tx*x2zs-1./4.*x12s*
     #    txs)
      gg10q= gg10q+rwwg(9,8)*vvq*bxp*yc*(2*o*x12*tx-2*o*x12-2*
     #    o*x2z*tx+2*o*x2z+2*o*tx+2*o*txs+2*o-2*os*x2z+2*os
     #    *tx-2*os+2*x12*tx+2*x12*txs-2*x2z*tx-2*tx)
      gg10q= gg10q+rwwg(9,8)*vvq*bxps*yc*(2*o*x12-2*o*tx-2*o
     #    +2*os-2*x12*tx+2*tx)
      gg10q= gg10q+rwwg(9,8)*vvq*yc*(-2*o*x12*tx+2*o*x2z*tx
     #    -2*o*x2z-2*o*txs+2*os*x2z-2*os*tx-2*x12*txs+2*x2z*tx)
      gg10q= gg10q+rwwg(9,9)*vvq*bxp*yc*(-4*o*tx)
      gg10q= gg10q+rwwg(9,9)*vvq*yc*(4*o*tx)
      gg10q= gg10q+rwwg(9,11)*vvq*bxp*yc*(o*x12-o*tx-o+os-
     #    x12*tx+tx)
      gg10q= gg10q+rwwg(9,11)*vvq*yc*(o*x12*tx-o*x2z*tx+o*x2z
     #    +o*txs-os*x2z+os*tx+x12*txs-x2z*tx)
      gg10q= gg10q+rwwg(9,12)*bxpi*vvq*yc*(-2*o*x2z*tx+2*o*txs
     #    +2*x12*txs-2*x2z*tx)
      gg10q= gg10q+rwwg(9,12)*vvq*bxp*yc*(-o*x12+3*o*tx+o-
     #    os+3*x12*tx-3*tx)
      gg10q= gg10q+rwwg(9,12)*vvq*yc*(-o*x12*tx+3*o*x2z*tx-
     #    o*x2z-2*o*tx-3*o*txs+os*x2z-os*tx-2*x12*tx-3*x12*
     #    txs+3*x2z*tx+2*tx)
      gg10q= gg10q+rwwg(9,13)*bxpi*vvq*yc*(o*x2z*tx+o*txs+x12*
     #    txs-x2z*tx)
      gg10q= gg10q+rwwg(9,13)*vvq*bxp*yc*(1./2.*o*x12+3./2.*o*tx
     #    -1./2.*o+1./2.*os+3./2.*x12*tx-3./2.*tx)
      gg10q= gg10q+rwwg(9,13)*vvq*yc*(-1./2.*o*x12*tx-3./2.*o
     #    *x2z*tx+1./2.*o*x2z-o*tx-3./2.*o*txs-1./2.*os*x2z-1.
     #    /2.*os*tx-x12*tx-3./2.*x12*txs+3./2.*x2z*tx+tx)
      gg10q= gg10q+rwwg(9,14)*bxpi*vvq*yc*(-2*o*x2z*tx)
      gg10q= gg10q+rwwg(9,14)*vvq*bxp*yc*(-1./2.*o*x12-5./2.*o
     #    *tx+1./2.*o-1./2.*os-1./2.*x12*tx+1./2.*tx)
      gg10q= gg10q+rwwg(9,14)*vvq*yc*(1./2.*o*x12*tx+5./2.*o*
     #    x2z*tx-1./2.*o*x2z+2*o*tx+1./2.*o*txs+1./2.*os*x2z+
     #    1./2.*os*tx+1./2.*x12*txs-1./2.*x2z*tx)
      gg10q= gg10q+rwwg(10,1)*xx*vvq*yc*(2*o*x12*x2z*txs-2*o*
     #    x2zc+2*o*x2zs*txs+os*x2z*txs+os*x2zc-2*x12*tx*x2zs+
     #    2*x12*x2zs*txs+x2z*x12s*txs+x2zc-2*x2zs*txs)
      gg10q= gg10q+rwwg(10,1)*bxpi*vvq*yc*(3*o*x12*x2z*tx+2*o*
     #    x12*x2zs+2*o*x12*txs+5*o*x2z*txs+o*tx*x2zs-7*o*x2zs
     #    +os*x2z*tx+4*os*x2zs+os*txs-4*x12*x2z*tx+5*x12*x2z*
     #    txs-2*x12*x2zs+2*x2z*tx*x12s-4*x2z*txs-tx*x2zs+x12s
     #    *txs+3*x2zs)
      gg10q= gg10q+rwwg(10,1)*vvq*bxp*yc*(1+11./2.*o*x12*x2z+5
     #    *o*x12*tx+5./2.*o*x12+7./2.*o*x2z*tx-19./2.*o*x2z+1./
     #    2.*o*tx+1./2.*o*x12s+5*o*txs-3*o+13./2.*os*x2z+5./2.
     #    *os*tx+5./2.*os-1./2.*oc+3./2.*x12*x2z*tx-4*x12*x2z
     #    -3./2.*x12*tx+5*x12*txs-2*x12-7./2.*x2z*tx+x2z*x12s
     #    +3*x2z+5./2.*tx*x12s-tx+x12s-3*txs)
      gg10q= gg10q+rwwg(10,1)*vvq*bxps*yc*(-1-4*o*x12-2*o*tx
     #    +4*o-3*os-2*x12*tx+2*x12+2*tx-x12s)
      gg10q= gg10q+rwwg(10,1)*vvq*yc*(-4*o*x12*x2z*tx-9./2.*o
     #    *x12*x2z-3*o*x12*tx-2*o*x12*x2zs-3*o*x12*txs-3./2.*o*
     #    x2z*tx-13./2.*o*x2z*txs+8*o*x2z-1./2.*o*tx*x12s-3./2.
     #    *o*tx*x2zs+15./2.*o*x2zs-3*o*txs+1./2.*os*x12*x2z-os*
     #    x12*tx-2*os*x2z*tx-11./2.*os*x2z-os*tx-9./2.*os*x2zs
     #    -3./2.*os*txs+1./2.*oc*x2z-1./2.*oc*tx+7./2.*x12*x2z*
     #    tx-13./2.*x12*x2z*txs+4*x12*x2z+2*x12*tx+2*x12*x2zs
     #    -3*x12*txs-2*x2z*tx*x12s+2*x2z*tx-x2z*x12s+5*x2z*
     #    txs-3*x2z-2*tx*x12s+3./2.*tx*x2zs-3./2.*x12s*txs-3*
     #    x2zs+2*txs)
      gg10q= gg10q+rwwg(10,4)*xx*vvq*yc*(1./4.*o*x12*x2zc-1./2.
     #    *o*x12*x2zs*txs-1./4.*o*tx*x12s*x2zs+1./4.*o*tx*x2zq+1./
     #    4.*o*tx*x2zc-1./4.*o*x2zq-1./4.*o*x2zc*txs-1./2.*os*x12
     #    *tx*x2zs+1./4.*os*x12*x2zc+1./4.*os*x2zq-1./4.*os*x2zc
     #    -1./4.*os*x2zs*txs-1./4.*oc*tx*x2zs+1./4.*oc*x2zc+1./
     #    4.*x12*tx*x2zc-1./4.*x12*x2zc*txs-1./4.*tx*x2zq-1./4.*
     #    x12s*x2zs*txs+1./2.*x2zc*txs)
      gg10q= gg10q+rwwg(10,4)*bxpi*vvq*yc*(-o*x12*x2z*txs-1./2.
     #    *o*x12*tx*x2zs+1./4.*o*x12*x2zc+3./4.*o*x12*x2zs-1./2.*
     #    o*x2z*tx*x12s+3./4.*o*tx*x2zc+3./4.*o*tx*x2zs-1./4.*o*
     #    x12s*x2zs-3./4.*o*x2zc-o*x2zs*txs-os*x12*x2z*tx+1./2.
     #    *os*x12*x2zs-1./2.*os*x2z*txs-1./4.*os*tx*x2zs+3./4.*os
     #    *x2zc-3./4.*os*x2zs-1./2.*oc*x2z*tx+3./4.*oc*x2zs+1./
     #    4.*x12*tx*x2zc+3./4.*x12*tx*x2zs-x12*x2zs*txs-1./2.*x2z
     #    *x12s*txs-1./4.*tx*x12s*x2zs-3./4.*tx*x2zc+3./2.*x2zs*
     #    txs)
      gg10q= gg10q+rwwg(10,4)*vvq*bxp*yc*(-3./2.*o*x12*x2z*tx+
     #    3./2.*o*x12*x2z-1./2.*o*x12*tx+3./4.*o*x12*x2zs-o*x12*
     #    txs+1./4.*o*x12+3./2.*o*x2z*tx-3./4.*o*x2z*x12s-2*o*
     #    x2z*txs-1./4.*o*x2z-1./2.*o*tx*x12s+5./4.*o*tx*x2zs+1.
     #    /4.*o*tx-1./4.*o*x12s-5./4.*o*x2zs-1./2.*o*txs+1./2.*
     #    os*x12*x2z-os*x12*tx-3./4.*os*x2z*tx-os*x2z-1./4.*os*
     #    tx+5./4.*os*x2zs-1./2.*os*txs-1./4.*os+5./4.*oc*x2z
     #    -1./2.*oc*tx+1./4.*oc+3./2.*x12*x2z*tx-2*x12*x2z*txs
     #    +3./4.*x12*tx*x2zs+1./4.*x12*tx-1./2.*x12*txs-3./4.*
     #    x2z*tx*x12s-1./4.*x2z*tx+5./2.*x2z*txs-1./4.*tx*x12s-
     #    5./4.*tx*x2zs-1./2.*x12s*txs+1./2.*txs)
      gg10q= gg10q+rwwg(10,4)*vvq*bxps*yc*(-1./2.*o*x12*x2z+o*
     #    x12*tx-1./2.*o*x12-1./2.*o*x2z*tx+1./2.*o*x2z-1./2.*o
     #    *tx+1./2.*o*x12s+o*txs-1./2.*os*x2z+1./2.*os*tx+1./
     #    2.*os-1./2.*oc-1./2.*x12*x2z*tx-1./2.*x12*tx+x12*txs
     #    +1./2.*x2z*tx+1./2.*tx*x12s-txs)
      gg10q= gg10q+rwwg(10,4)*vvq*yc*(o*x12*x2z*tx+3./2.*o*x12*
     #    x2z*txs-3./4.*o*x12*x2z+1./2.*o*x12*tx*x2zs-1./4.*o*x12
     #    *x2zc-3./2.*o*x12*x2zs+1./2.*o*x12*txs+3./4.*o*x2z*tx*
     #    x12s-3./4.*o*x2z*tx+1./2.*o*x2z*x12s+5./4.*o*x2z*txs+
     #    1./4.*o*tx*x12s-o*tx*x2zc-7./4.*o*tx*x2zs+1./4.*o*x12s*
     #    x2zs+o*x2zc+5./4.*o*x2zs*txs+3./4.*o*x2zs+3./2.*os*
     #    x12*x2z*tx-1./4.*os*x12*x2z+1./2.*os*x12*tx-3./4.*os*
     #    x12*x2zs+1./2.*os*x2z*tx+3./4.*os*x2z*txs+3./4.*os*x2z
     #    +1./4.*os*tx*x2zs-os*x2zc+1./4.*os*x2zs+1./4.*os*txs
     #    +3./4.*oc*x2z*tx-3./4.*oc*x2z+1./4.*oc*tx-oc*x2zs-3.
     #    /4.*x12*x2z*tx+5./4.*x12*x2z*txs-1./4.*x12*tx*x2zc-3./2.
     #    *x12*tx*x2zs+5./4.*x12*x2zs*txs+1./2.*x2z*tx*x12s+3./4.
     #    *x2z*x12s*txs-3./2.*x2z*txs+1./4.*tx*x12s*x2zs+tx*x2zc
     #    +3./4.*tx*x2zs+1./4.*x12s*txs-2*x2zs*txs)
      gg10q= gg10q+rwwg(10,7)*xx*vvq*yc*(1./2.*o*x12*x2zs*txs-1.
     #    /2.*o*x2zq+1./4.*o*x2zc*txs+1./4.*os*x12*x2zc+1./4.*os*
     #    x2zq-1./4.*os*x2zc+1./4.*os*x2zs*txs+1./4.*oc*x2zc-1./
     #    2.*x12*tx*x2zc+1./4.*x12*x2zc*txs+1./4.*x12s*x2zs*txs+1.
     #    /4.*x2zq-1./4.*x2zc*txs)
      gg10q= gg10q+rwwg(10,7)*bxpi*vvq*yc*(1./2.*o*x12*x2z*txs+1.
     #    /2.*o*x12*tx*x2zs+1./2.*o*x12*x2zc-3./2.*o*x2zc+1./2.*o
     #    *x2zs*txs+1./2.*os*x12*x2zs+1./4.*os*x2z*txs+3./4.*os*
     #    x2zc-1./2.*os*x2zs+1./2.*oc*x2zs-x12*tx*x2zs-1./2.*
     #    x12*x2zc+1./2.*x12*x2zs*txs+1./4.*x2z*x12s*txs+1./2.*tx
     #    *x12s*x2zs+3./4.*x2zc-1./2.*x2zs*txs)
      gg10q= gg10q+rwwg(10,7)*vvq*bxp*yc*(3./4.*o*x12*x2z*tx+5./
     #    4.*o*x12*x2z+1./4.*o*x12*tx+5./4.*o*x12*x2zs-1./4.*o*
     #    x12*txs-1./4.*o*x2z*x12s+3./8.*o*x2z*txs-3./4.*o*x2z-
     #    1./2.*o*tx*x12s-2*o*x2zs+1./8.*o*txs-1./8.*os*x12*x2z
     #    -1./4.*os*x12*tx+1./8.*os*x12+3./8.*os*x2z-1./8.*os*
     #    x12s+os*x2zs-1./8.*os*txs-1./4.*oc*x12+1./8.*oc*x2z
     #    +1./8.*oc-1./8.*oq-3./4.*x12*x2z*tx+3./8.*x12*x2z*txs
     #    -3./4.*x12*x2z-5./4.*x12*x2zs+1./8.*x12*txs+3./4.*x2z
     #    *tx*x12s+1./2.*x2z*x12s-3./8.*x2z*txs+1./4.*x2z+1./4.
     #    *tx*x12s-1./4.*tx*x12c+1./4.*x12s*x2zs-1./8.*x12s*txs
     #    +x2zs)
      gg10q= gg10q+rwwg(10,7)*vvq*bxps*yc*(-3./4.*o*x12*x2z-1./
     #    2.*o*x12+3./4.*o*x2z+3./8.*o*x12s+1./8.*o+3./8.*os*
     #    x12-3./8.*os*x2z-1./4.*os+1./8.*oc+3./4.*x12*x2z+1./
     #    8.*x12-3./8.*x2z*x12s-3./8.*x2z-1./4.*x12s+1./8.*x12c)
      gg10q= gg10q+rwwg(10,7)*vvq*yc*(-3./4.*o*x12*x2z*tx-1./
     #    2.*o*x12*x2z*txs-1./2.*o*x12*tx*x2zs-1./2.*o*x12*x2zc-5.
     #    /4.*o*x12*x2zs-3./8.*o*x2z*txs+3./8.*o*x12s*txs+7./4.*o
     #    *x2zc-5./8.*o*x2zs*txs+13./8.*o*x2zs-3./8.*os*x12*x2z
     #    -1./2.*os*x12*x2zs+3./8.*os*x12*txs+1./8.*os*x2z*x12s
     #    -1./4.*os*x2z*txs+1./4.*os*x2z-7./8.*os*x2zc-3./8.*os
     #    *x2zs+1./4.*oc*x12*x2z-3./8.*oc*x2z-1./2.*oc*x2zs+1./
     #    8.*oc*txs+1./8.*oq*x2z+1./2.*x12*x2z*tx-3./8.*x12*x2z*
     #    txs+5./4.*x12*tx*x2zs+1./2.*x12*x2zc-5./8.*x12*x2zs*txs
     #    +9./8.*x12*x2zs-3./4.*x2z*tx*x12s-1./4.*x2z*x12s*txs+
     #    1./4.*x2z*txs-1./2.*tx*x12s*x2zs-1./4.*x12s*x2zs+1./8.*
     #    x12c*txs-7./8.*x2zc+5./8.*x2zs*txs-3./4.*x2zs)
      gg10q= gg10q+rwwg(10,8)*bxpi*vvq*yc*(1./2.*o*x12*x2z*txs-1.
     #    /4.*o*x12*x2zs+1./4.*o*x2z*tx*x12s-1./4.*o*tx*x2zc-1./4.
     #    *o*tx*x2zs+1./4.*o*x2zc+1./4.*o*x2zs*txs+1./2.*os*x12*
     #    x2z*tx-1./4.*os*x12*x2zs+1./4.*os*x2z*txs-1./4.*os*x2zc
     #    +1./4.*os*x2zs+1./4.*oc*x2z*tx-1./4.*oc*x2zs-1./4.*
     #    x12*tx*x2zs+1./4.*x12*x2zs*txs+1./4.*x2z*x12s*txs+1./4.
     #    *tx*x2zc-1./2.*x2zs*txs)
      gg10q= gg10q+rwwg(10,8)*vvq*bxp*yc*(1./2.*o*x12*x2z*tx-o*
     #    x12*x2z+1./4.*o*x12*tx-3./8.*o*x12*x2zs+3./2.*o*x12*txs
     #    -1./4.*o*x12-o*x2z*tx+1./4.*o*x2z*x12s+5./4.*o*x2z*
     #    txs+1./4.*o*x2z+7./8.*o*tx*x12s-7./8.*o*tx*x2zs-1./4.
     #    *o*tx+1./8.*o*x12s+1./8.*o*x12c+7./8.*o*x2zs+1./4.*o*
     #    txs-3./4.*os*x12*x2z+11./8.*os*x12*tx+1./4.*os*x2z*tx
     #    +3./4.*os*x2z+1./8.*os*tx+1./8.*os*x12s-7./8.*os*x2zs
     #    +3./4.*os*txs+1./4.*os-1./8.*oc*x12-oc*x2z+5./8.*oc
     #    *tx-1./8.*oc-1./8.*oq-x12*x2z*tx+5./4.*x12*x2z*txs-
     #    3./8.*x12*tx*x2zs-1./4.*x12*tx+1./4.*x12*txs+1./4.*x2z*
     #    tx*x12s+1./4.*x2z*tx-7./4.*x2z*txs+1./8.*tx*x12s+1./8.
     #    *tx*x12c+7./8.*tx*x2zs+3./4.*x12s*txs-1./2.*txs)
      gg10q= gg10q+rwwg(10,8)*vvq*bxps*yc*(1./2.*o*x12*x2z-o*x12
     #    *tx+1./2.*o*x12+1./2.*o*x2z*tx-1./2.*o*x2z+1./2.*o*tx
     #    -1./2.*o*x12s-o*txs+1./2.*os*x2z-1./2.*os*tx-1./2.*
     #    os+1./2.*oc+1./2.*x12*x2z*tx+1./2.*x12*tx-x12*txs-1.
     #    /2.*x2z*tx-1./2.*tx*x12s+txs)
      gg10q= gg10q+rwwg(10,8)*vvq*yc*(-1./4.*o*x12*x2z*tx-o*
     #    x12*x2z*txs+1./2.*o*x12*x2z+1./8.*o*x12*tx*x2zs+1./2.*o
     #    *x12*x2zs-1./2.*o*x12*txs-3./8.*o*x2z*tx*x12s+1./2.*o*
     #    x2z*tx-1./8.*o*x2z*x12s-1./2.*o*x2z*txs-1./4.*o*tx*x12s
     #    -1./8.*o*tx*x12c+3./8.*o*tx*x2zc+3./4.*o*tx*x2zs-3./8.
     #    *o*x12s*txs-3./8.*o*x2zc-3./8.*o*x2zs*txs-1./2.*o*x2zs
     #    -3./4.*os*x12*x2z*tx+1./4.*os*x12*x2z-1./2.*os*x12*tx
     #    +1./2.*os*x12*x2zs-3./8.*os*x12*txs-1./8.*os*x2z*tx+1.
     #    /8.*os*x2z*x12s-1./2.*os*x2z*txs-1./2.*os*x2z-3./8.*os*
     #    tx*x12s+1./8.*os*tx*x2zs+3./8.*os*x2zc-1./4.*os*txs+1.
     #    /4.*oc*x12*x2z-3./8.*oc*x12*tx-3./8.*oc*x2z*tx+3./8.*oc
     #    *x2z-1./4.*oc*tx+1./2.*oc*x2zs-1./8.*oc*txs+1./8.*oq*
     #    x2z-1./8.*oq*tx+1./2.*x12*x2z*tx-1./2.*x12*x2z*txs+1./
     #    2.*x12*tx*x2zs-3./8.*x12*x2zs*txs-1./8.*x2z*tx*x12s-1./
     #    2.*x2z*x12s*txs+x2z*txs-3./8.*tx*x2zc-1./2.*tx*x2zs-1.
     #    /4.*x12s*txs)
      gg10q= gg10q+rwwg(10,8)*vvq*yc*(-1./8.*x12c*txs+3./4.*
     #    x2zs*txs)
      gg10q= gg10q+rwwg(10,9)*bxpi*vvq*yc*(-1./2.*o*x12*x2z*tx
     #    -1./2.*o*x2z*txs-1./2.*o*tx*x2zs+1./2.*o*x2zs-1./2.*
     #    os*x2z*tx-1./2.*os*x2zs-1./2.*x12*x2z*txs+1./2.*tx*x2zs)
      gg10q= gg10q+rwwg(10,9)*vvq*bxp*yc*(-3./4.*o*x12*x2z-3./
     #    2.*o*x12*tx-1./4.*o*x12-7./4.*o*x2z*tx+7./4.*o*x2z-1./
     #    4.*o*tx-1./4.*o*x12s-o*txs+1./2.*o-1./2.*os*x12-7./
     #    4.*os*x2z-5./4.*os*tx-1./4.*os-1./4.*oc-3./4.*x12*x2z
     #    *tx-1./4.*x12*tx-x12*txs+7./4.*x2z*tx-1./4.*tx*x12s
     #    +1./2.*tx)
      gg10q= gg10q+rwwg(10,9)*vvq*bxps*yc*(o*x12+o*tx-o+os
     #    +x12*tx-tx)
      gg10q= gg10q+rwwg(10,9)*vvq*yc*(o*x12*x2z*tx+1./4.*o*x12*
     #    x2z+1./2.*o*x12*tx+1./2.*o*x12*txs+3./4.*o*x2z*tx+3./
     #    4.*o*x2z*txs-o*x2z+1./4.*o*tx*x12s+3./4.*o*tx*x2zs-3./
     #    4.*o*x2zs+1./2.*o*txs+1./4.*os*x12*x2z+1./2.*os*x12*tx
     #    +os*x2z*tx+3./4.*os*x2z+1./2.*os*tx+3./4.*os*x2zs+1.
     #    /4.*os*txs+1./4.*oc*x2z+1./4.*oc*tx+1./4.*x12*x2z*tx+
     #    3./4.*x12*x2z*txs+1./2.*x12*txs-x2z*tx-3./4.*tx*x2zs+
     #    1./4.*x12s*txs)
      gg10q= gg10q+rwwg(10,10)*xx*vvq*yc*(-1./4.*o*x12*x2zs*txs
     #    +1./4.*o*x2zq-1./8.*o*x2zc*txs-1./8.*os*x12*x2zc-1./8.
     #    *os*x2zq+1./8.*os*x2zc-1./8.*os*x2zs*txs-1./8.*oc*x2zc
     #    +1./4.*x12*tx*x2zc-1./8.*x12*x2zc*txs-1./8.*x12s*x2zs*
     #    txs-1./8.*x2zq+1./8.*x2zc*txs)
      gg10q= gg10q+rwwg(10,10)*bxpi*vvq*yc*(-1./2.*o*x12*x2z*txs
     #    -1./4.*o*x12*tx*x2zs-1./4.*o*x12*x2zc+o*x2zc-3./8.*o*
     #    x2zs*txs-3./8.*os*x12*x2zs-1./4.*os*x2z*txs-1./2.*os*
     #    x2zc+3./8.*os*x2zs-3./8.*oc*x2zs+3./4.*x12*tx*x2zs+1./
     #    4.*x12*x2zc-3./8.*x12*x2zs*txs-1./4.*x2z*x12s*txs-1./4.
     #    *tx*x12s*x2zs-1./2.*x2zc+3./8.*x2zs*txs)
      gg10q= gg10q+rwwg(10,10)*vvq*bxp*yc*(-3./4.*o*x12*x2z*tx
     #    -3./4.*o*x12*x2z-1./4.*o*x12*tx-o*x12*x2zs-1./2.*o*
     #    x12*txs-5./8.*o*x2z*txs+o*x2z+9./4.*o*x2zs-1./8.*o*
     #    txs-5./8.*os*x12*x2z-1./8.*os*x12+1./8.*os*x2z-9./8.*
     #    os*x2zs-1./4.*os*txs+1./8.*os-5./8.*oc*x2z-1./8.*oc
     #    +5./4.*x12*x2z*tx-5./8.*x12*x2z*txs+3./4.*x12*x2z+1./
     #    4.*x12*tx+x12*x2zs-1./8.*x12*txs-3./4.*x2z*tx*x12s-1./
     #    4.*x2z*x12s+5./8.*x2z*txs-1./2.*x2z-1./4.*tx*x12s-1./
     #    8.*x12s*x2zs-1./4.*x12s*txs-9./8.*x2zs+1./8.*txs)
      gg10q= gg10q+rwwg(10,10)*vvq*bxps*yc*(1./8.+5./4.*o*x12*
     #    x2z+1./2.*o*x12*tx+1./4.*o*x12-7./4.*o*x2z+1./4.*o*
     #    txs-1./4.*o+1./4.*os*x12+7./8.*os*x2z-1./8.*os+1./4.
     #    *oc-5./4.*x12*x2z-1./2.*x12*tx+1./4.*x12*txs-1./4.*
     #    x12+3./8.*x2z*x12s+7./8.*x2z+1./2.*tx*x12s+1./8.*x12s
     #    -1./4.*txs)
      gg10q= gg10q+rwwg(10,10)*vvq*yc*(1./2.*o*x12*x2z*tx+3./4.
     #    *o*x12*x2z*txs+1./4.*o*x12*tx*x2zs-1./2.*o*x12*bxpc+1./4.
     #    *o*x12*x2zc+3./4.*o*x12*x2zs+1./4.*o*x12*txs+3./8.*o*
     #    x2z*txs+1./2.*o*bxpc-5./4.*o*x2zc+1./2.*o*x2zs*txs-3./
     #    2.*o*x2zs+3./8.*os*x12*x2z+1./2.*os*x12*x2zs+3./8.*os*
     #    x2z*txs-3./8.*os*x2z-1./4.*os*bxpc+5./8.*os*x2zc+1./4.
     #    *os*x2zs+1./8.*os*txs+3./8.*oc*x2z+1./2.*oc*x2zs-3./4.
     #    *x12*x2z*tx+3./8.*x12*x2z*txs-x12*tx*x2zs+1./2.*x12*bxpc
     #    -1./4.*x12*x2zc+1./2.*x12*x2zs*txs-3./4.*x12*x2zs+1./
     #    2.*x2z*tx*x12s+3./8.*x2z*x12s*txs-3./8.*x2z*txs+1./4.*
     #    tx*x12s*x2zs-1./4.*bxpc*x12s-1./4.*bxpc+1./8.*x12s*x2zs
     #    +1./8.*x12s*txs+5./8.*x2zc-1./2.*x2zs*txs+3./4.*x2zs)
      gg10q= gg10q+rwwg(10,12)*xx*vvq*yc*(o*x12*x2z*txs-1./2.*o
     #    *x12*tx*x2zs-1./2.*o*tx*x2zc-1./2.*o*x2zc+1./2.*o*x2zs*
     #    txs+1./2.*os*x2z*txs-1./2.*os*tx*x2zs-x12*tx*x2zs+1./
     #    2.*x12*x2zs*txs+1./2.*x2z*x12s*txs+1./2.*tx*x2zc+1./2.*
     #    x2zc-x2zs*txs)
      gg10q= gg10q+rwwg(10,12)*bxpi*vvq*yc*(1./2.*o*x12*x2z*tx+1.
     #    /2.*o*x12*x2zs+o*x12*txs+3./2.*o*x2z*txs-o*tx*x2zs-2*
     #    o*x2zs-1./2.*os*x2z*tx+1./2.*os*x2zs+1./2.*os*txs-2*
     #    x12*x2z*tx+3./2.*x12*x2z*txs-1./2.*x12*tx*x2zs-x12*x2zs
     #    +x2z*tx*x12s-2*x2z*txs+tx*x2zs+1./2.*x12s*txs+3./2.
     #    *x2zs)
      gg10q= gg10q+rwwg(10,12)*vvq*bxp*yc*(1./2.+5./4.*o*x12*x2z
     #    +3./2.*o*x12*tx+3./4.*o*x12-3./4.*o*x2z*tx-9./4.*o*
     #    x2z-1./4.*o*tx+1./4.*o*x12s+3./2.*o*txs-o+3./4.*os*
     #    x2z+1./4.*os*tx+3./4.*os-1./4.*oc-3./4.*x12*x2z*tx-
     #    2*x12*x2z-5./4.*x12*tx+3./2.*x12*txs-x12+3./4.*x2z*tx
     #    +1./2.*x2z*x12s+3./2.*x2z+5./4.*tx*x12s+1./2.*x12s-
     #    3./2.*txs)
      gg10q= gg10q+rwwg(10,12)*vvq*bxps*yc*(-1./2.-o*x12+o
     #    -1./2.*os+x12-1./2.*x12s)
      gg10q= gg10q+rwwg(10,12)*vvq*yc*(-1./2.*o*x12*x2z*tx-5./
     #    4.*o*x12*x2z-o*x12*tx-1./2.*o*x12*x2zs-3./2.*o*x12*txs
     #    +3./4.*o*x2z*tx-7./4.*o*x2z*txs+5./2.*o*x2z-1./4.*o*
     #    tx*x12s+5./4.*o*tx*x2zs+7./4.*o*x2zs-o*txs+1./4.*os*
     #    x12*x2z-1./2.*os*x12*tx+1./2.*os*x2z*tx-5./4.*os*x2z-
     #    1./4.*os*x2zs-3./4.*os*txs+1./4.*oc*x2z-1./4.*oc*tx+
     #    11./4.*x12*x2z*tx-7./4.*x12*x2z*txs+2*x12*x2z+1./2.*x12
     #    *tx*x2zs+x12*tx+x12*x2zs-x12*txs-x2z*tx*x12s-1./2.*
     #    x2z*tx-1./2.*x2z*x12s+5./2.*x2z*txs-3./2.*x2z-tx*x12s
     #    -5./4.*tx*x2zs-3./4.*x12s*txs-3./2.*x2zs+txs)
      gg10q= gg10q+rwwg(10,13)*xx*vvq*yc*(1./2.*o*x12*x2z*txs-1.
     #    /2.*o*x2zc+1./2.*o*x2zs*txs+1./4.*os*x2z*txs+1./4.*os*
     #    x2zc-1./2.*x12*tx*x2zs+1./2.*x12*x2zs*txs+1./4.*x2z*
     #    x12s*txs+1./4.*x2zc-1./2.*x2zs*txs)
      gg10q= gg10q+rwwg(10,13)*bxpi*vvq*yc*(1./2.*o*x12*x2z*tx+1.
     #    /2.*o*x12*x2zs+1./2.*o*x12*txs+o*x2z*txs-3./2.*o*x2zs
     #    +3./4.*os*x2zs+1./4.*os*txs-x12*x2z*tx+x12*x2z*txs-
     #    1./2.*x12*x2zs+1./2.*x2z*tx*x12s-x2z*txs+1./4.*x12s*txs
     #    +3./4.*x2zs)
      gg10q= gg10q+rwwg(10,13)*vvq*bxp*yc*(1./4.+3./2.*o*x12*x2z
     #    +o*x12*tx+1./2.*o*x12-5./2.*o*x2z+3./4.*o*txs-1./2.
     #    *o+1./4.*os*x12+5./4.*os*x2z+1./4.*oc-3./2.*x12*x2z
     #    -x12*tx+3./4.*x12*txs-1./2.*x12+1./4.*x2z*x12s+5./4.
     #    *x2z+tx*x12s+1./4.*x12s-3./4.*txs)
      gg10q= gg10q+rwwg(10,13)*vvq*bxps*yc*(-1./2.-o*x12+o
     #    -1./2.*os+x12-1./2.*x12s)
      gg10q= gg10q+rwwg(10,13)*vvq*yc*(-1./2.*o*x12*x2z*tx-o*
     #    x12*x2z-1./2.*o*x12*tx-1./2.*o*x12*x2zs-o*x12*txs-5./
     #    4.*o*x2z*txs+3./2.*o*x2z+2*o*x2zs-1./2.*o*txs-1./4.*
     #    os*x12*x2z-1./2.*os*x2z-os*x2zs-1./2.*os*txs-1./4.*oc
     #    *x2z+3./2.*x12*x2z*tx-5./4.*x12*x2z*txs+x12*x2z+1./2.
     #    *x12*tx+1./2.*x12*x2zs-1./2.*x12*txs-1./2.*x2z*tx*x12s
     #    -1./4.*x2z*x12s+5./4.*x2z*txs-3./4.*x2z-1./2.*tx*x12s
     #    -1./2.*x12s*txs-x2zs+1./2.*txs)
      gg10q= gg10q+rwwg(10,14)*xx*vvq*yc*(-1./4.*o*x12*tx*x2zs
     #    -1./4.*o*tx*x2zc+1./4.*o*x2zc-1./4.*o*x2zs*txs-1./4.*
     #    os*tx*x2zs-1./4.*os*x2zc-1./4.*x12*x2zs*txs+1./4.*tx*
     #    x2zc)
      gg10q= gg10q+rwwg(10,14)*bxpi*vvq*yc*(-1./2.*o*x12*x2z*tx
     #    -1./4.*o*x12*x2zs-1./2.*o*x2z*txs-3./4.*o*tx*x2zs+3./
     #    4.*o*x2zs-1./2.*os*x2z*tx-3./4.*os*x2zs-1./2.*x12*x2z*
     #    txs-1./4.*x12*tx*x2zs+3./4.*tx*x2zs)
      gg10q= gg10q+rwwg(10,14)*vvq*bxp*yc*(-1./2.*o*x12*x2z-1./
     #    4.*o*x12*tx-1./4.*o*x12-3./4.*o*x2z*tx+3./4.*o*x2z-1./
     #    4.*o*tx-1./4.*o*txs+1./4.*o-3./4.*os*x2z-1./4.*os*tx
     #    -1./4.*os-1./2.*x12*x2z*tx-1./4.*x12*tx-1./4.*x12*txs
     #    +3./4.*x2z*tx+1./4.*tx)
      gg10q= gg10q+rwwg(10,14)*vvq*bxps*yc*(1./4.*o*x12+1./4.*o*
     #    tx-1./4.*o+1./4.*os+1./4.*x12*tx-1./4.*tx)
      gg10q= gg10q+rwwg(10,14)*vvq*yc*(1./2.*o*x12*x2z*tx+1./2.
     #    *o*x12*x2z+1./4.*o*x12*tx+1./4.*o*x12*x2zs+3./4.*o*x2z*
     #    tx+1./2.*o*x2z*txs-3./4.*o*x2z+3./4.*o*tx*x2zs-3./4.*
     #    o*x2zs+1./4.*o*txs+1./2.*os*x2z*tx+3./4.*os*x2z+1./4.
     #    *os*tx+3./4.*os*x2zs+1./2.*x12*x2z*tx+1./2.*x12*x2z*txs
     #    +1./4.*x12*tx*x2zs+1./4.*x12*txs-3./4.*x2z*tx-3./4.*
     #    tx*x2zs)
      gg10q= gg10q+rwwg(11,1)*vvq*bxp*yc*(-6*o*x12-6*o*x2z+2
     #    *o*tx-2*x12*x2z-6*x12*tx+2*x12-4*x2z*tx+6*x2z+2*
     #    tx-2*x12s+4*txs)
      gg10q= gg10q+rwwg(11,1)*vvq*bxps*yc*(-4+4*o+4*x12)
      gg10q= gg10q+rwwg(11,1)*vvq*yc*(2*o*x12*x2z+2*o*x12*tx+
     #    2*o*x2zs-2*o*txs+6*x12*x2z*tx-2*x12*x2z-2*x12*txs-2
     #    *x2z*tx-4*x2z*txs+2*tx*x12s+4*tx*x2zs-2*x2zs)
      gg10q= gg10q+rwwg(12,1)*xx*vvq*yc*(-4*o*x2z*txs+4*o*tx*
     #    x2zs-4*x12*x2z*txs+8*x2z*txs-4*tx*x2zs)
      gg10q= gg10q+rwwg(12,1)*bxpi*vvq*yc*(8*o*x2z*tx-12*o*txs
     #    +4*x12*x2z*tx-12*x12*txs+8*txs)
      gg10q= gg10q+rwwg(12,1)*vvq*bxp*yc*(4+8*o*x12+2*o*x2z-
     #    8*o*tx-10*o+6*os+2*x12*x2z-8*x12*tx-6*x12-2*x2z
     #    +8*tx+2*x12s)
      gg10q= gg10q+rwwg(12,1)*vvq*yc*(-2*o*x12*x2z+4*o*x12*tx
     #    -6*o*x2z*tx+6*o*x2z+4*o*tx-2*o*x2zs+12*o*txs-2*os
     #    *x2z+2*os*tx-2*x12*x2z*tx+2*x12*x2z+4*x12*tx+12*x12
     #    *txs-4*x2z*tx-4*x2z+2*tx*x12s-4*tx+2*x2zs-8*txs)
      gg10q= gg10q+rwwg(13,1)*xx*vvq*yc*(-4*o*x2z*txs-4*x12*
     #    x2z*txs+4*x2z*txs)
      gg10q= gg10q+rwwg(13,1)*bxpi*vvq*yc*(-2*o*x2z*tx-6*o*txs
     #    -6*x12*txs+2*x2z*tx+4*txs)
      gg10q= gg10q+rwwg(13,1)*vvq*bxp*yc*(-3*o*x12-o*x2z-3*o
     #    *tx+2*o-2*os-x12*x2z-3*x12*tx+x12+x2z+3*tx-
     #    x12s)
      gg10q= gg10q+rwwg(13,1)*vvq*yc*(o*x12*x2z+5*o*x12*tx+4*
     #    o*x2z*tx+o*x2zs+5*o*txs+2*os*tx+3*x12*x2z*tx-x12*
     #    x2z+5*x12*txs-3*x2z*tx+3*tx*x12s-2*tx-x2zs-4*txs)
      gg10q= gg10q+rwwg(13,4)*xx*vvq*yc*(1./2.*o*x12*tx*x2zs-1./
     #    2.*o*tx*x2zc-1./2.*o*tx*x2zs+o*x2zc+1./2.*o*x2zs*txs+
     #    1./2.*os*tx*x2zs-1./2.*os*x2zc+1./2.*x12*tx*x2zs+1./2.*
     #    x12*x2zs*txs+1./2.*tx*x2zc-1./2.*x2zc-x2zs*txs)
      gg10q= gg10q+rwwg(13,4)*bxpi*vvq*yc*(1./2.*o*x12*x2z*tx-o*
     #    x12*x2zs-o*x2z*tx+3./2.*o*x2z*txs-o*tx*x2zs+3*o*x2zs
     #    +os*x2z*tx-3./2.*os*x2zs+x12*x2z*tx+3./2.*x12*x2z*txs
     #    -1./2.*x12*tx*x2zs+x12*x2zs-1./2.*x2z*tx*x12s-2*x2z*
     #    txs+tx*x2zs-3./2.*x2zs)
      gg10q= gg10q+rwwg(13,4)*vvq*bxp*yc*(-1./2.-9./4.*o*x12*
     #    x2z+1./2.*o*x12*tx-5./4.*o*x12-3./4.*o*x2z*tx+13./4.*
     #    o*x2z-3./4.*o*tx+1./4.*o*x12s+3./2.*o*txs+o-7./4.*
     #    os*x2z+3./4.*os*tx-1./4.*os-1./4.*oc-3./4.*x12*x2z*tx
     #    +2*x12*x2z+1./4.*x12*tx+3./2.*x12*txs+x12+3./4.*x2z
     #    *tx-1./2.*x2z*x12s-3./2.*x2z-1./4.*tx*x12s-1./2.*x12s
     #    -3./2.*txs)
      gg10q= gg10q+rwwg(13,4)*vvq*bxps*yc*(1./2.+o*x12-o+1./
     #    2.*os-x12+1./2.*x12s)
      gg10q= gg10q+rwwg(13,4)*vvq*yc*(-1./2.*o*x12*x2z*tx+9./
     #    4.*o*x12*x2z+o*x12*x2zs-1./2.*o*x12*txs+7./4.*o*x2z*tx
     #    -7./4.*o*x2z*txs-3*o*x2z-1./4.*o*tx*x12s+5./4.*o*tx*
     #    x2zs+1./2.*o*tx-13./4.*o*x2zs-o*txs+1./4.*os*x12*x2z
     #    -1./2.*os*x12*tx-os*x2z*tx+5./4.*os*x2z-1./2.*os*tx
     #    +7./4.*os*x2zs-1./4.*os*txs+1./4.*oc*x2z-1./4.*oc*tx
     #    -1./4.*x12*x2z*tx-7./4.*x12*x2z*txs-2*x12*x2z+1./2.*
     #    x12*tx*x2zs-1./2.*x12*tx-x12*x2zs-x12*txs+1./2.*x2z*
     #    tx*x12s-1./2.*x2z*tx+1./2.*x2z*x12s+5./2.*x2z*txs+3./
     #    2.*x2z+1./2.*tx*x12s-5./4.*tx*x2zs-1./4.*x12s*txs+3./
     #    2.*x2zs+txs)
      gg10q= gg10q+rwwg(13,11)*vvq*bxp*yc*(-o*x12-1./2.*o*x2z
     #    +1./2.*o-1./2.*os-1./2.*x12*x2z+1./2.*x12+1./2.*x2z
     #    -1./2.*x12s)
      gg10q= gg10q+rwwg(13,11)*vvq*yc*(3./2.*o*x12*x2z+1./2.*o*
     #    x2z*tx-1./2.*o*x2z+1./2.*o*x2zs-o*txs+1./2.*os*x2z-
     #    1./2.*os*tx+3./2.*x12*x2z*tx-1./2.*x12*x2z-x12*txs+1./
     #    2.*tx*x12s-1./2.*x2zs)
      gg10q= gg10q+rwwg(13,12)*xx*vvq*yc*(-o*x2z*txs+o*tx*
     #    x2zs-x12*x2z*txs+2*x2z*txs-tx*x2zs)
      gg10q= gg10q+rwwg(13,12)*bxpi*vvq*yc*(o*x2z*tx-2*o*txs+
     #    x12*x2z*tx-2*x12*txs-x2z*tx+2*txs)
      gg10q= gg10q+rwwg(13,12)*vvq*yc*(-o*x12*x2z+2*o*x12*tx
     #    -o*x2z*tx+o*x2z-o*tx+2*o*txs-os*x2z+os*tx-x12*
     #    x2z*tx-x12*tx+2*x12*txs+x2z*tx+tx*x12s-2*txs)
      gg10q= gg10q+rwwg(14,1)*xx*vvq*yc*(2*o*x2z*txs+2*o*tx*
     #    x2zs+2*x12*x2z*txs-2*tx*x2zs)
      gg10q= gg10q+rwwg(14,1)*bxpi*vvq*yc*(8*o*x2z*tx+2*o*txs+
     #    2*x12*x2z*tx+2*x12*txs-4*x2z*tx)
      gg10q= gg10q+rwwg(14,1)*vvq*bxp*yc*(2*o*x12+o*x2z+4*o*tx
     #    +o-os+x12*x2z-x12-2*x2z*tx-x2z+x12s+2*txs)
      gg10q= gg10q+rwwg(14,1)*vvq*yc*(-o*x12*x2z-2*o*x12*tx
     #    -7*o*x2z*tx-o*x2z-6*o*tx-o*x2zs-2*o*txs+os*x2z-
     #    os*tx-x12*x2z*tx+x12*x2z-2*x12*tx-2*x12*txs+2*x2z*
     #    tx-2*x2z*txs-tx*x12s+2*tx*x2zs+2*tx+x2zs)
      gg10q= gg10q+rwwg(14,4)*xx*vvq*yc*(-1./2.*o*x12*tx*x2zs
     #    +1./2.*o*tx*x2zc-1./2.*o*x2zc-1./2.*o*x2zs*txs-1./2.*
     #    os*tx*x2zs+1./2.*os*x2zc-1./2.*x12*x2zs*txs+1./2.*tx*
     #    x2zc)
      gg10q= gg10q+rwwg(14,4)*bxpi*vvq*yc*(-o*x12*x2z*tx+1./2.
     #    *o*x12*x2zs-o*x2z*txs+1./2.*o*tx*x2zs-3./2.*o*x2zs-os
     #    *x2z*tx+3./2.*os*x2zs-x12*x2z*txs-1./2.*x12*tx*x2zs+3.
     #    /2.*tx*x2zs)
      gg10q= gg10q+rwwg(14,4)*vvq*bxp*yc*(o*x12*x2z-1./2.*o*x12*
     #    tx+1./2.*o*x12-1./2.*o*x2z*tx-3./2.*o*x2z-1./2.*o*tx
     #    -1./2.*o*txs-1./2.*o+3./2.*os*x2z-1./2.*os*tx+1./2.
     #    *os-x12*x2z*tx-1./2.*x12*tx-1./2.*x12*txs+3./2.*x2z*
     #    tx+1./2.*tx)
      gg10q= gg10q+rwwg(14,4)*vvq*bxps*yc*(-1./2.*o*x12+1./2.*
     #    o*tx+1./2.*o-1./2.*os+1./2.*x12*tx-1./2.*tx)
      gg10q= gg10q+rwwg(14,4)*vvq*yc*(o*x12*x2z*tx-o*x12*x2z+
     #    1./2.*o*x12*tx-1./2.*o*x12*x2zs+1./2.*o*x2z*tx+o*x2z*
     #    txs+3./2.*o*x2z-1./2.*o*tx*x2zs+3./2.*o*x2zs+1./2.*o*
     #    txs+os*x2z*tx-3./2.*os*x2z+1./2.*os*tx-3./2.*os*x2zs
     #    +x12*x2z*tx+x12*x2z*txs+1./2.*x12*tx*x2zs+1./2.*x12*
     #    txs-3./2.*x2z*tx-3./2.*tx*x2zs)
      gg10q= gg10q+rwwg(14,11)*vvq*bxp*yc*(o*x12-x2z*tx+txs)
      gg10q= gg10q+rwwg(14,11)*vvq*yc*(-o*x12*x2z-x2z*txs+
     #    tx*x2zs)
      gg10q= gg10q+rwwg(14,12)*xx*vvq*yc*(o*x2z*txs-o*tx*x2zs
     #    +x12*x2z*txs-tx*x2zs)
      gg10q= gg10q+rwwg(14,12)*bxpi*vvq*yc*(o*txs+x12*x2z*tx+
     #    x12*txs-2*x2z*tx)
      gg10q= gg10q+rwwg(14,12)*vvq*bxp*yc*(1./2.*o*x2z+1./2.*o
     #    -1./2.*os+1./2.*x12*x2z-1./2.*x12-1./2.*x2z+1./2.*
     #    x12s)
      gg10q= gg10q+rwwg(14,12)*vvq*yc*(1./2.*o*x12*x2z-o*x12*tx
     #    +1./2.*o*x2z*tx-1./2.*o*x2z-o*tx-1./2.*o*x2zs-o*txs
     #    +1./2.*os*x2z-1./2.*os*tx-1./2.*x12*x2z*tx+1./2.*x12*
     #    x2z-x12*tx-x12*txs+x2z*tx-1./2.*tx*x12s+tx+1./2.*
     #    x2zs)
*
      wto_wgg11q= gg10q
*
      return
      end
*
*-----------------------------------------------------------------------
*
      real*8 function wto_wgg21q()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg20q= rwwg(1,1)*xx*vvq*yc*(-24*o*x2z*txs-24*x12*x2z*txs+24
     #    *x2z*txs)
      gg20q= gg20q+rwwg(1,1)*bxpi*vvq*yc*(-24*o*x2z*tx-48*o*
     #    txs-48*x12*txs+24*x2z*tx+24*txs)
      gg20q= gg20q+rwwg(1,1)*vvq*bxp*yc*(4+4*o*x12-4*o*x2z-
     #    60*o*tx-12*o+8*os-36*x12*tx-4*x12-4*x2z*tx+4*x2z
     #    +32*tx+4*txs)
      gg20q= gg20q+rwwg(1,1)*vvq*bxps*yc*(-4+4*o+4*x12)
      gg20q= gg20q+rwwg(1,1)*vvq*yc*(8*o*x12*tx+32*o*x2z*tx+8
     #    *o*x2z+48*o*tx+48*o*txs-4*os*x2z+4*os*tx+8*x12*x2z*
     #    tx+24*x12*tx+48*x12*txs-32*x2z*tx-4*x2z*txs-4*x2z
     #    +4*tx*x12s+4*tx*x2zs-24*tx-24*txs)
      gg20q= gg20q+rwwg(2,2)*xx*vvq*yc*(6*x2z*txs-6*tx*x2zs)
      gg20q= gg20q+rwwg(2,2)*bxpi*vvq*yc*(6*o*x2z*tx-6*o*txs+6
     #    *x12*x2z*tx-6*x12*txs-6*x2z*tx+6*txs)
      gg20q= gg20q+rwwg(2,2)*vvq*bxp*yc*(1-o*x2z-2*o+os-2*
     #    x12*tx-x12-x2z*tx+x2z+tx+txs)
      gg20q= gg20q+rwwg(2,2)*vvq*bxps*yc*(-1+o+x12)
      gg20q= gg20q+rwwg(2,2)*vvq*yc*(o*x12*tx-5*o*x2z*tx+o*
     #    x2z+5*o*txs-4*x12*x2z*tx+5*x12*txs+5*x2z*tx-x2z*txs
     #    -x2z+tx*x12s+tx*x2zs-6*txs)
      gg20q= gg20q+rwwg(2,3)*xx*vvq*yc*(-12*x2z*txs+12*tx*x2zs)
      gg20q= gg20q+rwwg(2,3)*bxpi*vvq*yc*(-12*o*x2z*tx+12*o*
     #    txs-12*x12*x2z*tx+12*x12*txs+12*x2z*tx-12*txs)
      gg20q= gg20q+rwwg(2,3)*vvq*bxp*yc*(-2-6*o*x12-4*o*x2z
     #    +2*o*tx+4*o-2*os-2*x12*x2z-2*x12*tx+4*x12-2*x2z
     #    *tx+4*x2z-2*x12s+2*txs)
      gg20q= gg20q+rwwg(2,3)*vvq*bxps*yc*(-2+2*o+2*x12)
      gg20q= gg20q+rwwg(2,3)*vvq*yc*(2*o*x12*x2z+10*o*x2z*tx-
     #    2*o*x2z+2*o*x2zs-12*o*txs+14*x12*x2z*tx-2*x12*x2z-
     #    12*x12*txs-12*x2z*tx-2*x2z*txs+2*x2z+2*tx*x2zs-2*
     #    x2zs+12*txs)
      gg20q= gg20q+rwwg(3,3)*xx*vvq*yc*(6*x2z*txs-6*tx*x2zs)
      gg20q= gg20q+rwwg(3,3)*bxpi*vvq*yc*(6*o*x2z*tx-6*o*txs+6
     #    *x12*x2z*tx-6*x12*txs-6*x2z*tx+6*txs)
      gg20q= gg20q+rwwg(3,3)*vvq*bxp*yc*(1+2*o*x12-3*o*x2z+2
     #    *o*tx-2*o+os-2*x12*x2z-3*x12-x2z*tx+3*x2z-tx+
     #    2*x12s+txs)
      gg20q= gg20q+rwwg(3,3)*vvq*bxps*yc*(-1+o+x12)
      gg20q= gg20q+rwwg(3,3)*vvq*yc*(2*o*x12*x2z-o*x12*tx-9*o
     #    *x2z*tx+o*x2z+2*o*x2zs+7*o*txs-6*x12*x2z*tx+2*x12*
     #    x2z+7*x12*txs+7*x2z*tx-x2z*txs-x2z-tx*x12s+tx*
     #    x2zs-2*x2zs-6*txs)
      gg20q= gg20q+rwwg(4,1)*xx*vvq*yc*(6*o*x12*tx*x2zs-6*o*tx*
     #    x2zc-6*o*tx*x2zs+12*o*x2zc+6*o*x2zs*txs+6*os*tx*x2zs
     #    -6*os*x2zc+6*x12*tx*x2zs+6*x12*x2zs*txs+6*tx*x2zc-6
     #    *x2zc-12*x2zs*txs)
      gg20q= gg20q+rwwg(4,1)*bxpi*vvq*yc*(12*o*x12*x2z*tx-12*o*
     #    x12*x2zs-12*o*x2z*tx+24*o*x2z*txs-18*o*tx*x2zs+42*o*
     #    x2zs+18*os*x2z*tx-24*os*x2zs+12*x12*x2z*tx+24*x12*x2z
     #    *txs-6*x12*tx*x2zs+12*x12*x2zs-6*x2z*tx*x12s-24*x2z*
     #    txs+6*tx*x2zs-18*x2zs)
      gg20q= gg20q+rwwg(4,1)*vvq*bxp*yc*(-6-34*o*x12*x2z+8*o
     #    *x12*tx-16*o*x12-8*o*x2z*tx+58*o*x2z-2*o*tx-2*o*
     #    x12s+22*o*txs+18*o-2*os*x12-36*os*x2z+16*os*tx-12
     #    *os+28*x12*x2z+14*x12*tx+22*x12*txs+12*x12-8*x2z*tx
     #    -6*x2z*x12s-22*x2z-8*tx*x12s-6*tx-6*x12s-14*txs)
      gg20q= gg20q+rwwg(4,1)*vvq*bxps*yc*(8+24*o*x12-8*o*tx-
     #    24*o+16*os-8*x12*tx-16*x12+8*tx+8*x12s)
      gg20q= gg20q+rwwg(4,1)*vvq*yc*(-14*o*x12*x2z*tx+28*o*
     #    x12*x2z-6*o*x12*tx+12*o*x12*x2zs+20*o*x2z*tx-26*o*x2z
     #    *txs-48*o*x2z+20*o*tx*x2zs+6*o*tx-46*o*x2zs-18*o*
     #    txs-20*os*x2z*tx+30*os*x2z-12*os*tx+26*os*x2zs-14*
     #    x12*x2z*tx-26*x12*x2z*txs-24*x12*x2z+6*x12*tx*x2zs-6*
     #    x12*tx-12*x12*x2zs-18*x12*txs+6*x2z*tx*x12s+6*x2z*tx
     #    +6*x2z*x12s+26*x2z*txs+18*x2z+6*tx*x12s-6*tx*x2zs
     #    +20*x2zs+12*txs)
      gg20q= gg20q+rwwg(4,4)*xx*vvq*yc*(-3./2.*o*x12*x2zc+3./
     #    2.*o*tx*x2zc-3./2.*o*x2zq-3./2.*x12*tx*x2zc-3./2.*tx*
     #    x2zq+3./2.*x2zq+3./2.*x2zc*txs)
      gg20q= gg20q+rwwg(4,4)*bxpi*vvq*yc*(3./2.*o*x12*x2zc-9./2.
     #    *o*x12*x2zs+3./2.*o*tx*x2zc+9./2.*o*tx*x2zs+3./2.*o*
     #    x12s*x2zs-15./2.*o*x2zc-3./2.*o*x2zs*txs+3./2.*os*x12*
     #    x2zs-3./2.*os*tx*x2zs+3./2.*os*x2zc+3./2.*x12*tx*x2zc
     #    -9./2.*x12*tx*x2zs-3*x12*x2zc-3./2.*x12*x2zs*txs+3./2.
     #    *tx*x12s*x2zs-9./2.*tx*x2zc+6*x2zc+9./2.*x2zs*txs)
      gg20q= gg20q+rwwg(4,4)*vvq*bxp*yc*(2*o*x12*x2z+13./2.*o*
     #    x12*x2zs-3./2.*o*x12+7*o*x2z*tx+7./2.*o*x2z*x12s-7./2.
     #    *o*x2z*txs-21./2.*o*x2z+7./2.*o*tx*x2zs+3./2.*o*tx+3./
     #    2.*o*x12s-31./2.*o*x2zs-3./2.*o*txs+7./2.*os*x12*x2z+
     #    3./2.*os*x12-7./2.*os*x2z*tx+9./2.*os*x2z-3./2.*os*tx
     #    +5*os*x2zs-4*x12*x2z*tx-7./2.*x12*x2z*txs-9*x12*x2z
     #    +7./2.*x12*tx*x2zs-3./2.*x12*tx-10*x12*x2zs-3./2.*x12
     #    *txs+7./2.*x2z*tx*x12s-3./2.*x2z*tx+3*x2z*x12s+11./2.
     #    *x2z*txs+6*x2z+3./2.*tx*x12s-11./2.*tx*x2zs+3./2.*
     #    x12s*x2zs+21./2.*x2zs+3./2.*txs)
      gg20q= gg20q+rwwg(4,4)*vvq*bxps*yc*(-3./2.-9*o*x12*x2z
     #    -o*x12-2*o*x2z*tx+13*o*x2z-2*o*tx-2*o*x12s+2*o*
     #    txs+3*o-2*os*x12-11./2.*os*x2z+2*os*tx-3./2.*os-2
     #    *x12*x2z*tx+11*x12*x2z+2*x12*tx+2*x12*txs+3*x12+2*
     #    x2z*tx-7./2.*x2z*x12s-15./2.*x2z-2*tx*x12s-3./2.*x12s
     #    -2*txs)
      gg20q= gg20q+rwwg(4,4)*vvq*yc*(9./2.*o*x12*x2z+4*o*x12*
     #    bxpc-3./2.*o*x12*x2zc-o*x12*x2zs-9./2.*o*x2z*tx-3*o*
     #    x2z*x12s+3*o*x2z*txs-3./2.*o*tx*x2zc-8*o*tx*x2zs-4*o*
     #    bxpc-3./2.*o*x12s*x2zs+8*o*x2zc+3./2.*o*x2zs*txs+27./2.
     #    *o*x2zs-3*os*x12*x2z-3./2.*os*x12*x2zs+3*os*x2z*tx+3./
     #    2.*os*tx*x2zs+2*os*bxpc-3./2.*os*x2zc-9./2.*os*x2zs+9./
     #    2.*x12*x2z*tx+3*x12*x2z*txs-3./2.*x12*tx*x2zc+2*x12*tx*
     #    x2zs-4*x12*bxpc+3*x12*x2zc+3./2.*x12*x2zs*txs+9*x12*
     #    x2zs-3*x2z*tx*x12s-9./2.*x2z*txs-3./2.*tx*x12s*x2zs+5
     #    *tx*x2zc+9./2.*tx*x2zs+2*bxpc*x12s+2*bxpc-3./2.*x12s*
     #    x2zs-13./2.*x2zc-5*x2zs*txs-9*x2zs)
      gg20q= gg20q+rwwg(4,12)*xx*vvq*yc*(-3*o*tx*x2zs+3*o*
     #    x2zc+3*x12*tx*x2zs+6*tx*x2zc-3*x2zc-6*x2zs*txs)
      gg20q= gg20q+rwwg(4,12)*bxpi*vvq*yc*(-3*o*x12*x2zs-6*o*
     #    x2z*tx+6*o*x2z*txs-6*o*tx*x2zs+12*o*x2zs+3*os*x2z*tx
     #    -3*os*x2zs+6*x12*x2z*tx+6*x12*x2z*txs-6*x12*tx*x2zs
     #    +6*x12*x2zs-3*x2z*tx*x12s-12*x2z*txs+12*tx*x2zs-9*x2zs)
      gg20q= gg20q+rwwg(4,12)*vvq*bxp*yc*(-3-10*o*x12*x2z-5*
     #    o*x12-7*o*x2z*tx+18*o*x2z-4*o*tx-o*x12s+7*o*txs+6
     #    *o-os*x12-7*os*x2z+4*os*tx-3*os-7*x12*x2z*tx+14*
     #    x12*x2z+4*x12*tx+7*x12*txs+6*x12+7*x2z*tx-3*x2z*
     #    x12s-11*x2z-4*tx*x12s-3*x12s-7*txs)
      gg20q= gg20q+rwwg(4,12)*vvq*bxps*yc*(4+8*o*x12-8*o+4*
     #    os-8*x12+4*x12s)
      gg20q= gg20q+rwwg(4,12)*vvq*yc*(8*o*x12*x2z+3*o*x12*x2zs
     #    +13*o*x2z*tx-6*o*x2z*txs-15*o*x2z+6*o*tx*x2zs+3*o*
     #    tx-13*o*x2zs-6*o*txs-3*os*x2z*tx+6*os*x2z-3*os*tx
     #    +3*os*x2zs-x12*x2z*tx-6*x12*x2z*txs-12*x12*x2z+6*
     #    x12*tx*x2zs-3*x12*tx-6*x12*x2zs-6*x12*txs+3*x2z*tx*
     #    x12s-6*x2z*tx+3*x2z*x12s+13*x2z*txs+9*x2z+3*tx*x12s
     #    -13*tx*x2zs+10*x2zs+6*txs)
      gg20q= gg20q+rwwg(5,5)*xx*vvq*yc*(3./2.*x2z*txs-3./2.*tx*
     #    x2zs)
      gg20q= gg20q+rwwg(5,5)*bxpi*vvq*yc*(3./2.*x12*x2z*tx-3*x2z
     #    *tx+3./2.*txs)
      gg20q= gg20q+rwwg(5,5)*vvq*bxp*yc*(-1./4.+1./4.*o*x2z+
     #    1./4.*os+3./2.*x12*tx+1./4.*x12-1./4.*x2z*tx-1./4.*
     #    x2z-5./4.*tx+1./4.*txs)
      gg20q= gg20q+rwwg(5,5)*vvq*bxps*yc*(1./4.-1./4.*o-1./4.*x12)
      gg20q= gg20q+rwwg(5,5)*vvq*yc*(1./4.*o*x12*tx+1./4.*o*x2z
     #    *tx-1./4.*o*x2z-1./4.*o*txs-x12*x2z*tx-2*x12*tx-1./
     #    4.*x12*txs+11./4.*x2z*tx-1./4.*x2z*txs+1./4.*x2z+1./4.
     #    *tx*x12s+1./4.*tx*x2zs+3./2.*tx-3./2.*txs)
      gg20q= gg20q+rwwg(5,6)*xx*vvq*yc*(-3*o*x2z*txs+3*o*tx*
     #    x2zs-3*x12*x2z*txs+3*x2z*txs)
      gg20q= gg20q+rwwg(5,6)*bxpi*vvq*yc*(6*o*x2z*tx-3*o*txs-3
     #    *x12*txs+3*txs)
      gg20q= gg20q+rwwg(5,6)*vvq*bxp*yc*(-1./2.-1./2.*o*x12-
     #    o*x2z+5./2.*o*tx+o-1./2.*os-1./2.*x12*x2z-1./2.*x12
     #    *tx+x12+1./2.*x2z*tx+x2z-1./2.*x12s-1./2.*txs)
      gg20q= gg20q+rwwg(5,6)*vvq*bxps*yc*(-1./2.+1./2.*o+1./
     #    2.*x12)
      gg20q= gg20q+rwwg(5,6)*vvq*yc*(1./2.*o*x12*x2z+o*x12*tx
     #    -11./2.*o*x2z*tx-3./2.*o*x2z-3*o*tx+1./2.*o*x2zs+3*
     #    o*txs+os*x2z+1./2.*x12*x2z*tx-1./2.*x12*x2z-x12*tx+
     #    3*x12*txs+1./2.*x2z*txs+1./2.*x2z+tx*x12s-1./2.*tx*
     #    x2zs-1./2.*x2zs-3*txs)
      gg20q= gg20q+rwwg(6,6)*xx*vvq*yc*(-3*o*x2z*txs-3*o*tx*
     #    x2zs-3*x12*x2z*txs+3./2.*x2z*txs+3./2.*tx*x2zs)
      gg20q= gg20q+rwwg(6,6)*bxpi*vvq*yc*(-6*o*x2z*tx-3*o*txs
     #    -3./2.*x12*x2z*tx-3*x12*txs+3*x2z*tx+3./2.*txs)
      gg20q= gg20q+rwwg(6,6)*vvq*bxp*yc*(-1./4.-3./2.*o*x12+
     #    3./4.*o*x2z-5./2.*o*tx+o-3./4.*os+1./2.*x12*x2z-x12
     #    *tx+3./4.*x12-1./4.*x2z*tx-3./4.*x2z+5./4.*tx-1./2.
     #    *x12s+1./4.*txs)
      gg20q= gg20q+rwwg(6,6)*vvq*bxps*yc*(1./4.-1./4.*o-1./4.*x12)
      gg20q= gg20q+rwwg(6,6)*vvq*yc*(3./2.*o*x12*x2z+3./4.*o*
     #    x12*tx+21./4.*o*x2z*tx-5./4.*o*x2z+3*o*tx-1./2.*o*
     #    x2zs+13./4.*o*txs+os*x2z+1./2.*x12*x2z*tx-1./2.*x12*
     #    x2z+x12*tx+13./4.*x12*txs-11./4.*x2z*tx-1./4.*x2z*txs
     #    +1./4.*x2z+3./4.*tx*x12s+1./4.*tx*x2zs-3./2.*tx+1./
     #    2.*x2zs-3./2.*txs)
      gg20q= gg20q+rwwg(7,1)*xx*vvq*yc*(-6*o*x12*x2z*txs+6*o*
     #    x2zc-6*o*x2zs*txs-3*os*x2z*txs-3*os*x2zc+6*x12*tx*
     #    x2zs-6*x12*x2zs*txs-3*x2z*x12s*txs-3*x2zc+6*x2zs*txs
     #    )
      gg20q= gg20q+rwwg(7,1)*bxpi*vvq*yc*(-9*o*x12*x2z*tx-6*o*
     #    x12*x2zs-9*o*x2z*txs-3*o*tx*x2zs+15*o*x2zs-3*os*x2z*
     #    tx-9*os*x2zs+6*x12*x2z*tx-9*x12*x2z*txs+6*x12*x2zs-
     #    6*x2z*tx*x12s+6*x2z*txs+3*tx*x2zs-6*x2zs)
      gg20q= gg20q+rwwg(7,1)*vvq*bxp*yc*(-9*o*x12*x2z-3*o*x2z*
     #    tx+9*o*x2z-o*txs+os*x12-6*os*x2z-os+oc-3*x12*
     #    x2z*tx+6*x12*x2z-x12*txs+3*x2z*tx-3*x2z*x12s-3*x2z
     #    +txs)
      gg20q= gg20q+rwwg(7,1)*vvq*yc*(9*o*x12*x2z*tx+9*o*x12*x2z
     #    +6*o*x12*x2zs+3*o*x2z*tx+10*o*x2z*txs-9*o*x2z+3*o*
     #    tx*x2zs-15*o*x2zs-os*x12*x2z+3*os*x2z*tx+7*os*x2z+9
     #    *os*x2zs-oc*x2z-3*x12*x2z*tx+10*x12*x2z*txs-6*x12*x2z
     #    -6*x12*x2zs+6*x2z*tx*x12s-3*x2z*tx+3*x2z*x12s-7*x2z
     #    *txs+3*x2z-3*tx*x2zs+6*x2zs)
      gg20q= gg20q+rwwg(7,4)*xx*vvq*yc*(-3./4.*o*x12*x2zc+3./
     #    2.*o*x12*x2zs*txs+3./4.*o*tx*x12s*x2zs-3./4.*o*tx*x2zq-
     #    3./4.*o*tx*x2zc+3./4.*o*x2zq+3./4.*o*x2zc*txs+3./2.*os*
     #    x12*tx*x2zs-3./4.*os*x12*x2zc-3./4.*os*x2zq+3./4.*os*
     #    x2zc+3./4.*os*x2zs*txs+3./4.*oc*tx*x2zs-3./4.*oc*x2zc
     #    -3./4.*x12*tx*x2zc+3./4.*x12*x2zc*txs+3./4.*tx*x2zq+3.
     #    /4.*x12s*x2zs*txs-3./2.*x2zc*txs)
      gg20q= gg20q+rwwg(7,4)*bxpi*vvq*yc*(3./2.*o*x12*x2z*txs+3./
     #    2.*o*x12*tx*x2zs-3./4.*o*x12*x2zc-3./2.*o*x12*x2zs+3./4.
     #    *o*x2z*tx*x12s-3./2.*o*tx*x2zc-3./2.*o*tx*x2zs+3./4.*o*
     #    x12s*x2zs+3./2.*o*x2zc+9./4.*o*x2zs*txs+3./2.*os*x12*
     #    x2z*tx-3./4.*os*x12*x2zs+3./4.*os*x2z*txs+3./4.*os*tx*
     #    x2zs-3./2.*os*x2zc+3./2.*os*x2zs+3./4.*oc*x2z*tx-3./2.
     #    *oc*x2zs-3./4.*x12*tx*x2zc-3./2.*x12*tx*x2zs+9./4.*x12*
     #    x2zs*txs+3./4.*x2z*x12s*txs+3./4.*tx*x12s*x2zs+3./2.*tx
     #    *x2zc-3*x2zs*txs)
      gg20q= gg20q+rwwg(7,4)*vvq*bxp*yc*(2*o*x12*x2z*tx-o*x12*
     #    x2z+1./4.*o*x12*tx-7./8.*o*x12*x2zs-1./2.*o*x12*txs-o
     #    *x2z*tx+o*x2z*x12s+7./4.*o*x2z*txs-3./8.*o*tx*x12s-7./
     #    8.*o*tx*x2zs+1./8.*o*x12s-1./8.*o*x12c+7./8.*o*x2zs+1.
     #    /4.*o*txs+1./4.*os*x12*x2z-3./8.*os*x12*tx+os*x2z*tx+
     #    3./4.*os*x2z+1./8.*os*tx-1./8.*os*x12s-7./8.*os*x2zs-
     #    1./4.*os*txs+1./8.*oc*x12-3./4.*oc*x2z-1./8.*oc*tx-1./
     #    8.*oc+1./8.*oq-x12*x2z*tx+7./4.*x12*x2z*txs-7./8.*x12
     #    *tx*x2zs+1./4.*x12*txs+x2z*tx*x12s-7./4.*x2z*txs+1./8.
     #    *tx*x12s-1./8.*tx*x12c+7./8.*tx*x2zs-1./4.*x12s*txs)
      gg20q= gg20q+rwwg(7,4)*vvq*yc*(-7./4.*o*x12*x2z*tx-3./2.
     #    *o*x12*x2z*txs+3./4.*o*x12*x2z-13./8.*o*x12*tx*x2zs+3./
     #    4.*o*x12*x2zc+5./2.*o*x12*x2zs-7./8.*o*x2z*tx*x12s+3./4.
     #    *o*x2z*tx-7./8.*o*x2z*x12s-7./4.*o*x2z*txs+1./8.*o*tx*
     #    x12c+13./8.*o*tx*x2zc+5./2.*o*tx*x2zs-3./4.*o*x12s*x2zs
     #    +3./8.*o*x12s*txs-13./8.*o*x2zc-19./8.*o*x2zs*txs-3./
     #    4.*o*x2zs-7./4.*os*x12*x2z*tx+3./4.*os*x12*x2zs+3./8.*
     #    os*x12*txs-7./8.*os*x2z*tx-1./8.*os*x2z*x12s-3./4.*os*
     #    x2z*txs-3./4.*os*x2z+3./8.*os*tx*x12s-7./8.*os*tx*x2zs
     #    +13./8.*os*x2zc-3./4.*os*x2zs-1./4.*oc*x12*x2z+3./8.*
     #    oc*x12*tx-7./8.*oc*x2z*tx+7./8.*oc*x2z+3./2.*oc*x2zs+
     #    1./8.*oc*txs-1./8.*oq*x2z+1./8.*oq*tx+3./4.*x12*x2z*tx
     #    -7./4.*x12*x2z*txs+3./4.*x12*tx*x2zc+5./2.*x12*tx*x2zs
     #    -19./8.*x12*x2zs*txs-7./8.*x2z*tx*x12s-3./4.*x2z*x12s*
     #    txs+3./2.*x2z*txs-3./4.*tx*x12s*x2zs-13./8.*tx*x2zc-3.
     #    /4.*tx*x2zs)
      gg20q= gg20q+rwwg(7,4)*vvq*yc*(1./8.*x12c*txs+13./4.*x2zs
     #    *txs)
      gg20q= gg20q+rwwg(7,7)*xx*vvq*yc*(-3./4.*o*x12*x2zs*txs
     #    +3./4.*o*x2zq-3./8.*o*x2zc*txs-3./8.*os*x12*x2zc-3./8.
     #    *os*x2zq+3./8.*os*x2zc-3./8.*os*x2zs*txs-3./8.*oc*x2zc
     #    +3./4.*x12*tx*x2zc-3./8.*x12*x2zc*txs-3./8.*x12s*x2zs*
     #    txs-3./8.*x2zq+3./8.*x2zc*txs)
      gg20q= gg20q+rwwg(7,7)*bxpi*vvq*yc*(-3./4.*o*x12*tx*x2zs
     #    -3./4.*o*x12*x2zc+3./2.*o*x2zc-3./8.*o*x2zs*txs-3./8.
     #    *os*x12*x2zs-3./4.*os*x2zc+3./8.*os*x2zs-3./8.*oc*x2zs
     #    +3./4.*x12*tx*x2zs+3./4.*x12*x2zc-3./8.*x12*x2zs*txs-
     #    3./4.*tx*x12s*x2zs-3./4.*x2zc+3./8.*x2zs*txs)
      gg20q= gg20q+rwwg(7,7)*vvq*bxp*yc*(-o*x12*x2z-1./2.*o*
     #    x12*tx-3./4.*o*x12*x2zs+1./4.*o*x12*txs+1./4.*o*x2z*
     #    x12s+3./4.*o*x2z+1./2.*o*tx*x12s+3./4.*o*x2zs-1./4.*o
     #    *txs+1./2.*os*x12*x2z+1./4.*os*x12*tx-1./4.*os*x12-3./
     #    4.*os*x2z+1./8.*os*x12s-3./8.*os*x2zs+1./8.*os*txs+1./
     #    8.*os+1./4.*oc*x12+1./4.*oc*x2z-1./4.*oc+1./8.*oq+1.
     #    /2.*x12*x2z+1./4.*x12*tx+3./4.*x12*x2zs-1./4.*x12*txs
     #    -1./4.*x2z*x12s-1./4.*x2z-1./2.*tx*x12s+1./4.*tx*x12c
     #    -3./8.*x12s*x2zs+1./8.*x12s*txs-3./8.*x2zs+1./8.*txs)
      gg20q= gg20q+rwwg(7,7)*vvq*bxps*yc*(1./8.+3./4.*o*x12-3./
     #    8.*o*x12s-3./8.*o-3./8.*os*x12+3./8.*os-1./8.*oc-3./
     #    8.*x12+3./8.*x12s-1./8.*x12c)
      gg20q= gg20q+rwwg(7,7)*vvq*yc*(1./4.*o*x12*x2z*tx-1./4.*o
     #    *x12*x2z*txs+3./4.*o*x12*tx*x2zs+3./4.*o*x12*x2zc+o*x12
     #    *x2zs+1./4.*o*x12*txs+1./4.*o*x2z*txs-3./8.*o*x12s*txs
     #    -3./2.*o*x2zc+3./8.*o*x2zs*txs-9./8.*o*x2zs+1./4.*os*
     #    x12*x2z+1./4.*os*x12*x2zs-3./8.*os*x12*txs-1./8.*os*x2z
     #    *x12s-1./8.*os*x2z*txs-1./8.*os*x2z+3./4.*os*x2zc+3./
     #    8.*os*x2zs+1./8.*os*txs-1./4.*oc*x12*x2z+1./4.*oc*x2z
     #    +1./4.*oc*x2zs-1./8.*oc*txs-1./8.*oq*x2z-1./4.*x12*
     #    x2z*tx+1./4.*x12*x2z*txs-3./4.*x12*tx*x2zs-3./4.*x12*
     #    x2zc+3./8.*x12*x2zs*txs-7./8.*x12*x2zs+1./4.*x2z*tx*
     #    x12s-1./8.*x2z*x12s*txs-1./8.*x2z*txs+3./4.*tx*x12s*
     #    x2zs+3./8.*x12s*x2zs+1./8.*x12s*txs-1./8.*x12c*txs+3./
     #    4.*x2zc-3./8.*x2zs*txs+1./2.*x2zs)
      gg20q= gg20q+rwwg(7,11)*vvq*bxp*yc*(1./4.*o*x12*x2z-1./2.*
     #    o*x12*tx+1./4.*o*x12+1./4.*o*x2z*tx-1./4.*o*x2z+1./4.
     #    *o*tx-1./4.*o*x12s-1./2.*o*txs+1./4.*os*x2z-1./4.*os*
     #    tx-1./4.*os+1./4.*oc+1./4.*x12*x2z*tx+1./4.*x12*tx-
     #    1./2.*x12*txs-1./4.*x2z*tx-1./4.*tx*x12s+1./2.*txs)
      gg20q= gg20q+rwwg(7,11)*vvq*yc*(-1./4.*o*x12*x2z+1./2.*
     #    o*x12*txs-1./4.*o*x2z*tx+1./4.*o*x2z*txs+1./4.*o*tx*
     #    x12s-1./4.*o*tx*x2zs+1./4.*o*x2zs-1./4.*os*x12*x2z+1./
     #    2.*os*x12*tx+1./4.*os*x2z-1./4.*os*x2zs+1./4.*os*txs-
     #    1./4.*oc*x2z+1./4.*oc*tx-1./4.*x12*x2z*tx+1./4.*x12*x2z
     #    *txs-1./2.*x2z*txs+1./4.*tx*x2zs+1./4.*x12s*txs)
      gg20q= gg20q+rwwg(7,12)*xx*vvq*yc*(-3*o*x12*x2z*txs+3./
     #    2.*o*x12*tx*x2zs+3./2.*o*tx*x2zc+3./2.*o*x2zc-3./2.*o*
     #    x2zs*txs-3./2.*os*x2z*txs+3./2.*os*tx*x2zs+3*x12*tx*
     #    x2zs-3./2.*x12*x2zs*txs-3./2.*x2z*x12s*txs-3./2.*tx*
     #    x2zc-3./2.*x2zc+3*x2zs*txs)
      gg20q= gg20q+rwwg(7,12)*bxpi*vvq*yc*(-3*o*x12*x2z*tx-3./
     #    2.*o*x12*x2zs-3*o*x2z*txs+3./2.*o*tx*x2zs+9./2.*o*x2zs
     #    -3./2.*os*x2zs+3*x12*x2z*tx-3*x12*x2z*txs+3./2.*x12*
     #    tx*x2zs+3*x12*x2zs-3*x2z*tx*x12s+3*x2z*txs-3./2.*tx*
     #    x2zs-3*x2zs)
      gg20q= gg20q+rwwg(7,12)*vvq*bxp*yc*(-3*o*x12*x2z+3*o*x2z
     #    -3./2.*os*x2z+3*x12*x2z-3./2.*x2z*x12s-3./2.*x2z)
      gg20q= gg20q+rwwg(7,12)*vvq*yc*(3*o*x12*x2z*tx+3*o*x12*
     #    x2z+3./2.*o*x12*x2zs+3*o*x2z*txs-3*o*x2z-3./2.*o*tx*
     #    x2zs-9./2.*o*x2zs+3./2.*os*x2z+3./2.*os*x2zs-3*x12*
     #    x2z*tx+3*x12*x2z*txs-3*x12*x2z-3./2.*x12*tx*x2zs-3*
     #    x12*x2zs+3*x2z*tx*x12s+3./2.*x2z*x12s-3*x2z*txs+3./2.
     #    *x2z+3./2.*tx*x2zs+3*x2zs)
      gg20q= gg20q+rwwg(7,13)*xx*vvq*yc*(-3./2.*o*x12*x2z*txs
     #    +3./2.*o*x2zc-3./2.*o*x2zs*txs-3./4.*os*x2z*txs-3./4.
     #    *os*x2zc+3./2.*x12*tx*x2zs-3./2.*x12*x2zs*txs-3./4.*x2z
     #    *x12s*txs-3./4.*x2zc+3./2.*x2zs*txs)
      gg20q= gg20q+rwwg(7,13)*bxpi*vvq*yc*(-3./2.*o*x12*x2z*tx
     #    -3./2.*o*x12*x2zs-3./2.*o*x2z*txs+3*o*x2zs-3./2.*os*
     #    x2zs+3./2.*x12*x2z*tx-3./2.*x12*x2z*txs+3./2.*x12*x2zs
     #    -3./2.*x2z*tx*x12s+3./2.*x2z*txs-3./2.*x2zs)
      gg20q= gg20q+rwwg(7,13)*vvq*bxp*yc*(-3./2.*o*x12*x2z+3./
     #    2.*o*x2z-3./4.*os*x2z+3./2.*x12*x2z-3./4.*x2z*x12s-3./
     #    4.*x2z)
      gg20q= gg20q+rwwg(7,13)*vvq*yc*(3./2.*o*x12*x2z*tx+3./2.*
     #    o*x12*x2z+3./2.*o*x12*x2zs+3./2.*o*x2z*txs-3./2.*o*x2z
     #    -3*o*x2zs+3./4.*os*x2z+3./2.*os*x2zs-3./2.*x12*x2z*tx
     #    +3./2.*x12*x2z*txs-3./2.*x12*x2z-3./2.*x12*x2zs+3./2.
     #    *x2z*tx*x12s+3./4.*x2z*x12s-3./2.*x2z*txs+3./4.*x2z+3.
     #    /2.*x2zs)
      gg20q= gg20q+rwwg(7,14)*xx*vvq*yc*(3./4.*o*x12*tx*x2zs+3./
     #    4.*o*tx*x2zc-3./4.*o*x2zc+3./4.*o*x2zs*txs+3./4.*os*tx*
     #    x2zs+3./4.*os*x2zc+3./4.*x12*x2zs*txs-3./4.*tx*x2zc)
      gg20q= gg20q+rwwg(7,14)*bxpi*vvq*yc*(3./4.*o*x12*x2z*tx+3./
     #    4.*o*x12*x2zs+3./4.*o*x2z*txs+3./2.*o*tx*x2zs-3./2.*o*
     #    x2zs+3./4.*os*x2z*tx+3./2.*os*x2zs+3./4.*x12*x2z*txs+
     #    3./4.*x12*tx*x2zs-3./2.*tx*x2zs)
      gg20q= gg20q+rwwg(7,14)*vvq*bxp*yc*(1./4.*o*x12*x2z-1./2.*
     #    o*x12*tx+3./4.*o*x2z*tx+1./4.*o*x2z-1./4.*o*txs-1./4.
     #    *os*x12+1./4.*os*x2z+1./4.*os-1./4.*oc+3./4.*x12*x2z*
     #    tx+1./2.*x12*x2z+1./2.*x12*tx-1./4.*x12*txs-3./4.*x2z
     #    *tx-1./2.*x2z-1./2.*tx*x12s+1./4.*txs)
      gg20q= gg20q+rwwg(7,14)*vvq*bxps*yc*(1./4.+1./2.*o*x12-1.
     #    /2.*o+1./4.*os-1./2.*x12+1./4.*x12s)
      gg20q= gg20q+rwwg(7,14)*vvq*yc*(-3./4.*o*x12*x2z*tx-3./
     #    4.*o*x12*x2z-3./4.*o*x12*x2zs+1./2.*o*x12*txs-3./4.*o*
     #    x2z*tx-1./2.*o*x2z*txs+3./4.*o*x2z-3./2.*o*tx*x2zs+o*
     #    x2zs+1./4.*os*x12*x2z-3./4.*os*x2z*tx-os*x2z-5./4.*os
     #    *x2zs+1./4.*os*txs+1./4.*oc*x2z-5./4.*x12*x2z*tx-1./2.
     #    *x12*x2z*txs-3./4.*x12*tx*x2zs+3./4.*x2z*tx-1./4.*x2z*
     #    txs+3./2.*tx*x2zs+1./4.*x12s*txs+1./4.*x2zs)
      gg20q= gg20q+rwwg(8,1)*bxpi*vvq*yc*(-6*o*x12*x2z*tx+6*o*
     #    x2z*tx-6*o*x2z*txs+6*o*tx*x2zs-12*o*x2zs-6*os*x2z*tx
     #    +6*os*x2zs-6*x12*x2z*tx-6*x12*x2z*txs+12*x2z*txs-6*
     #    tx*x2zs+6*x2zs)
      gg20q= gg20q+rwwg(8,1)*vvq*bxp*yc*(6+13*o*x12*x2z-10*o*
     #    x12*tx+17*o*x12+13*o*x2z*tx-33*o*x2z+o*tx+o*x12s-
     #    20*o*txs-18*o+2*os*x12+21*os*x2z-15*os*tx+11*os+
     #    oc+5*x12*x2z*tx-12*x12*x2z-11*x12*tx-20*x12*txs-12*
     #    x12+3*x2z*tx+12*x2z+5*tx*x12s+6*tx+6*x12s+12*txs)
      gg20q= gg20q+rwwg(8,1)*vvq*bxps*yc*(-6-20*o*x12+8*o*tx
     #    +20*o-14*os+8*x12*tx+12*x12-8*tx-6*x12s)
      gg20q= gg20q+rwwg(8,1)*vvq*yc*(6*o*x12*x2z*tx-11*o*x12*
     #    x2z+6*o*x12*tx+2*o*x12*txs-19*o*x2z*tx+7*o*x2z*txs+
     #    30*o*x2z+o*tx*x12s-7*o*tx*x2zs-6*o*tx+13*o*x2zs+18*
     #    o*txs-os*x12*x2z+2*os*x12*tx+6*os*x2z*tx-17*os*x2z+
     #    12*os*tx-7*os*x2zs+os*txs-oc*x2z+oc*tx-x12*x2z*tx
     #    +7*x12*x2z*txs+12*x12*x2z+6*x12*tx+18*x12*txs-12*
     #    x2z*txs-12*x2z-6*tx*x12s+5*tx*x2zs+x12s*txs-6*x2zs
     #    -12*txs)
      gg20q= gg20q+rwwg(8,4)*bxpi*vvq*yc*(3*o*x12*x2zs-3*o*tx*
     #    x2zs+3*o*x2zc+3*x12*tx*x2zs+3*tx*x2zc-3*x2zc-3*x2zs
     #    *txs)
      gg20q= gg20q+rwwg(8,4)*vvq*bxp*yc*(-o*x12*x2z*tx+o*x12*
     #    x2z-7./2.*o*x12*x2zs+o*x12*txs+3*o*x12-10*o*x2z*tx-
     #    4*o*x2z*x12s+7./2.*o*x2z*txs+14*o*x2z-1./2.*o*tx*x12s
     #    -7./2.*o*tx*x2zs-3*o*tx-5./2.*o*x12s-1./2.*o*x12c+
     #    29./2.*o*x2zs+5./2.*o*txs-9./2.*os*x12*x2z+1./2.*os*x12
     #    *tx-5./2.*os*x12+3*os*x2z*tx-9./2.*os*x2z+5./2.*os*tx
     #    -os*x12s-7./2.*os*x2zs+1./2.*os*txs-1./2.*oc*x12-1./
     #    2.*oc*x2z+1./2.*oc*tx+5*x12*x2z*tx+7./2.*x12*x2z*txs+
     #    11*x12*x2z-7./2.*x12*tx*x2zs+3*x12*tx+7*x12*x2zs+5./2.
     #    *x12*txs-4*x2z*tx*x12s+3*x2z*tx-2*x2z*x12s-15./2.*x2z
     #    *txs-9*x2z-5./2.*tx*x12s-1./2.*tx*x12c+15./2.*tx*x2zs
     #    +1./2.*x12s*txs-11*x2zs-3*txs)
      gg20q= gg20q+rwwg(8,4)*vvq*bxps*yc*(3+11*o*x12*x2z+4*o*
     #    x2z*tx-19*o*x2z+4*o*tx+11./2.*o*x12s-4*o*txs-11./2.
     #    *o+11./2.*os*x12+15./2.*os*x2z-4*os*tx+2*os+1./2.*
     #    oc+4*x12*x2z*tx-15*x12*x2z-4*x12*tx-4*x12*txs-11./2.
     #    *x12-4*x2z*tx+7./2.*x2z*x12s+23./2.*x2z+4*tx*x12s+2
     #    *x12s+1./2.*x12c+4*txs)
      gg20q= gg20q+rwwg(8,4)*vvq*yc*(-6*o*x12*x2z-8*o*x12*bxpc
     #    -o*x12*x2zs+6*o*x2z*tx+5./2.*o*x2z*x12s-5./2.*o*x2z*
     #    txs+6*o*tx*x2zs+8*o*bxpc-7./2.*o*x2zc-23./2.*o*x2zs+
     #    5./2.*os*x12*x2z-5./2.*os*x2z*tx-4*os*bxpc+5./2.*os*x2zs
     #    -6*x12*x2z*tx-5./2.*x12*x2z*txs-x12*tx*x2zs+8*x12*bxpc
     #    -11./2.*x12*x2zs+5./2.*x2z*tx*x12s+6*x2z*txs-7./2.*tx
     #    *x2zc-6*tx*x2zs-4*bxpc*x12s-4*bxpc+7./2.*x2zc+7./2.*
     #    x2zs*txs+9*x2zs)
      gg20q= gg20q+rwwg(8,7)*bxpi*vvq*yc*(-3./2.*o*x12*x2z*txs
     #    +3./4.*o*x12*x2zs-3./4.*o*x2z*tx*x12s+3./4.*o*tx*x2zc
     #    +3./4.*o*tx*x2zs-3./4.*o*x2zc-3./4.*o*x2zs*txs-3./2.*
     #    os*x12*x2z*tx+3./4.*os*x12*x2zs-3./4.*os*x2z*txs+3./4.*
     #    os*x2zc-3./4.*os*x2zs-3./4.*oc*x2z*tx+3./4.*oc*x2zs+3.
     #    /4.*x12*tx*x2zs-3./4.*x12*x2zs*txs-3./4.*x2z*x12s*txs-3.
     #    /4.*tx*x2zc+3./2.*x2zs*txs)
      gg20q= gg20q+rwwg(8,7)*vvq*bxp*yc*(-3./2.*o*x12*x2z*tx+1.
     #    /2.*o*x12*x2z+3./4.*o*x12*tx+7./8.*o*x12*x2zs-1./2.*o*
     #    x12*txs-1./4.*o*x12+1./2.*o*x2z*tx-3./4.*o*x2z*x12s-7.
     #    /4.*o*x2z*txs+1./4.*o*x2z-3./8.*o*tx*x12s+7./8.*o*tx*
     #    x2zs-1./4.*o*tx+3./8.*o*x12s-1./8.*o*x12c-7./8.*o*
     #    x2zs+3./4.*o*txs+1./4.*os*x12*x2z-3./8.*os*x12*tx-3./
     #    4.*os*x2z*tx-5./4.*os*x2z+3./8.*os*tx-1./8.*os*x12s+7.
     #    /8.*os*x2zs-1./4.*os*txs+1./4.*os+1./8.*oc*x12+oc*x2z
     #    -1./8.*oc*tx-3./8.*oc+1./8.*oq+1./2.*x12*x2z*tx-7./
     #    4.*x12*x2z*txs+7./8.*x12*tx*x2zs-1./4.*x12*tx+3./4.*x12
     #    *txs-3./4.*x2z*tx*x12s+1./4.*x2z*tx+7./4.*x2z*txs+3./
     #    8.*tx*x12s-1./8.*tx*x12c-7./8.*tx*x2zs-1./4.*x12s*txs
     #    -1./2.*txs)
      gg20q= gg20q+rwwg(8,7)*vvq*yc*(5./4.*o*x12*x2z*tx+2*o*x12
     #    *x2z*txs-1./2.*o*x12*x2z-1./8.*o*x12*tx*x2zs-3./2.*o*
     #    x12*x2zs-1./2.*o*x12*txs+7./8.*o*x2z*tx*x12s-1./2.*o*
     #    x2z*tx+5./8.*o*x2z*x12s+o*x2z*txs-1./4.*o*tx*x12s+1./
     #    8.*o*tx*x12c-7./8.*o*tx*x2zc-5./4.*o*tx*x2zs+3./8.*o*
     #    x12s*txs+7./8.*o*x2zc+7./8.*o*x2zs*txs+1./2.*o*x2zs+7.
     #    /4.*os*x12*x2z*tx+1./4.*os*x12*x2z-1./2.*os*x12*tx-os*
     #    x12*x2zs+3./8.*os*x12*txs+5./8.*os*x2z*tx-1./8.*os*x2z*
     #    x12s+os*x2z*txs+1./2.*os*x2z+3./8.*os*tx*x12s-1./8.*
     #    os*tx*x2zs-7./8.*os*x2zc+1./2.*os*x2zs-1./4.*os*txs-1.
     #    /4.*oc*x12*x2z+3./8.*oc*x12*tx+7./8.*oc*x2z*tx-3./8.*oc
     #    *x2z-1./4.*oc*tx-oc*x2zs+1./8.*oc*txs-1./8.*oq*x2z+
     #    1./8.*oq*tx-1./2.*x12*x2z*tx+x12*x2z*txs-3./2.*x12*tx*
     #    x2zs+7./8.*x12*x2zs*txs+5./8.*x2z*tx*x12s+x2z*x12s*txs
     #    -x2z*txs+7./8.*tx*x2zc+1./2.*tx*x2zs-1./4.*x12s*txs
     #    +1./8.*x12c*txs)
      gg20q= gg20q+rwwg(8,7)*vvq*yc*(-7./4.*x2zs*txs)
      gg20q= gg20q+rwwg(8,8)*vvq*bxp*yc*(-2*o*x12+4*o*x2z*tx
     #    -6*o*x2z+2*o*tx+2*o*x12s-2*o*x2zs-2*o*txs+2*os*
     #    x12+2*os*x2z-2*os*tx-4*x12*x2z-2*x12*tx-2*x12*txs
     #    -2*x2z*tx+2*x2z*txs+4*x2z+2*tx*x12s-2*tx*x2zs+2*
     #    x2zs+2*txs)
      gg20q= gg20q+rwwg(8,8)*vvq*bxps*yc*(-2-2*o*x12*x2z-2*o
     #    *x12-2*o*x2z*tx+6*o*x2z-2*o*tx-2*o*x12s+2*o*txs+4
     #    *o-2*os*x12-2*os*x2z+2*os*tx-2*os-2*x12*x2z*tx+4*
     #    x12*x2z+2*x12*tx+2*x12*txs+4*x12+2*x2z*tx-4*x2z-2
     #    *tx*x12s-2*x12s-2*txs)
      gg20q= gg20q+rwwg(8,8)*vvq*yc*(2*o*x12*x2z+4*o*x12*bxpc-
     #    2*o*x2z*tx-4*o*bxpc+2*o*x2zs+2*os*bxpc+2*x12*x2z*tx-4
     #    *x12*bxpc-2*x2z*txs+2*tx*x2zs+2*bxpc*x12s+2*bxpc-2*
     #    x2zs)
      gg20q= gg20q+rwwg(8,11)*vvq*bxp*yc*(-o*x12*x2z+o*x12-o
     #    *x2z*tx+3*o*x2z-o*tx-o*x12s+o*txs-os*x12-os*x2z
     #    +os*tx-x12*x2z*tx+2*x12*x2z+x12*tx+x12*txs+x2z*tx
     #    -2*x2z-tx*x12s-txs)
      gg20q= gg20q+rwwg(8,11)*vvq*bxps*yc*(1+2*o*x12-2*o+os
     #    -2*x12+x12s)
      gg20q= gg20q+rwwg(8,11)*vvq*yc*(-o*x12*x2z+o*x2z*tx-o
     #    *x2zs-x12*x2z*tx+x2z*txs-tx*x2zs+x2zs)
      gg20q= gg20q+rwwg(8,12)*bxpi*vvq*yc*(3*o*x2z*tx-3*o*x2zs
     #    -3*x12*x2z*tx+6*x2z*txs-6*tx*x2zs+3*x2zs)
      gg20q= gg20q+rwwg(8,12)*vvq*bxp*yc*(3+4*o*x12*x2z+5*o*
     #    x12+7*o*x2z*tx-12*o*x2z+4*o*tx+o*x12s-7*o*txs-6*o
     #    +os*x12+4*os*x2z-4*os*tx+3*os+7*x12*x2z*tx-8*x12*
     #    x2z-4*x12*tx-7*x12*txs-6*x12-7*x2z*tx+8*x2z+4*tx*
     #    x12s+3*x12s+7*txs)
      gg20q= gg20q+rwwg(8,12)*vvq*bxps*yc*(-4-8*o*x12+8*o-
     #    4*os+8*x12-4*x12s)
      gg20q= gg20q+rwwg(8,12)*vvq*yc*(-2*o*x12*x2z-10*o*x2z*
     #    tx+9*o*x2z-3*o*tx+4*o*x2zs+6*o*txs-3*os*x2z+3*os*
     #    tx-2*x12*x2z*tx+6*x12*x2z+3*x12*tx+6*x12*txs+6*x2z*
     #    tx-7*x2z*txs-6*x2z-3*tx*x12s+7*tx*x2zs-4*x2zs-6*txs)
      gg20q= gg20q+rwwg(8,13)*bxpi*vvq*yc*(-3./2.*o*x12*x2z*tx
     #    +3./2.*o*x2z*tx-3./2.*o*x2z*txs+3./2.*o*tx*x2zs-3*o*
     #    x2zs-3./2.*os*x2z*tx+3./2.*os*x2zs-3./2.*x12*x2z*tx-3.
     #    /2.*x12*x2z*txs+3*x2z*txs-3./2.*tx*x2zs+3./2.*x2zs)
      gg20q= gg20q+rwwg(8,13)*vvq*bxp*yc*(3./2.+13./4.*o*x12*x2z
     #    -1./2.*o*x12*tx+13./4.*o*x12+7./4.*o*x2z*tx-25./4.*o*
     #    x2z+7./4.*o*tx-1./4.*o*x12s-7./2.*o*txs-3*o+13./4.*
     #    os*x2z-7./4.*os*tx+5./4.*os+1./4.*oc+7./4.*x12*x2z*tx
     #    -3*x12*x2z-5./4.*x12*tx-7./2.*x12*txs-3*x12-7./4.*
     #    x2z*tx+3*x2z+5./4.*tx*x12s+3./2.*x12s+7./2.*txs)
      gg20q= gg20q+rwwg(8,13)*vvq*bxps*yc*(-3./2.-3*o*x12+3*
     #    o-3./2.*os+3*x12-3./2.*x12s)
      gg20q= gg20q+rwwg(8,13)*vvq*yc*(3./2.*o*x12*x2z*tx-13./4.
     #    *o*x12*x2z+1./2.*o*x12*txs-13./4.*o*x2z*tx+7./4.*o*x2z*
     #    txs+6*o*x2z+1./4.*o*tx*x12s-7./4.*o*tx*x2zs-3./2.*o*
     #    tx+13./4.*o*x2zs+3*o*txs-1./4.*os*x12*x2z+1./2.*os*
     #    x12*tx+3./2.*os*x2z*tx-11./4.*os*x2z+3./2.*os*tx-7./4.
     #    *os*x2zs+1./4.*os*txs-1./4.*oc*x2z+1./4.*oc*tx-1./4.*
     #    x12*x2z*tx+7./4.*x12*x2z*txs+3*x12*x2z+3./2.*x12*tx+3
     #    *x12*txs+3./2.*x2z*tx-7./2.*x2z*txs-3*x2z-3./2.*tx*
     #    x12s+7./4.*tx*x2zs+1./4.*x12s*txs-3./2.*x2zs-3*txs)
      gg20q= gg20q+rwwg(8,14)*bxpi*vvq*yc*(3./2.*o*x12*x2z*tx+3./
     #    2.*o*x2z*txs-3./2.*o*tx*x2zs+3./2.*o*x2zs+3./2.*os*x2z*
     #    tx-3./2.*os*x2zs+3./2.*x12*x2z*txs-3./2.*tx*x2zs)
      gg20q= gg20q+rwwg(8,14)*vvq*bxp*yc*(-7./4.*o*x12*x2z+2*o
     #    *x12*tx-7./4.*o*x12-1./4.*o*x2z*tx+13./4.*o*x2z+5./4.
     #    *o*tx+1./4.*o*x12s+2*o*txs+3./2.*o-13./4.*os*x2z+7./
     #    4.*os*tx-5./4.*os-1./4.*oc+5./4.*x12*x2z*tx+5./4.*x12
     #    *tx+2*x12*txs-11./4.*x2z*tx+1./4.*tx*x12s-3./2.*tx-
     #    1./2.*txs)
      gg20q= gg20q+rwwg(8,14)*vvq*bxps*yc*(3./2.*o*x12-3./2.*o*
     #    tx-3./2.*o+3./2.*os-3./2.*x12*tx+3./2.*tx)
      gg20q= gg20q+rwwg(8,14)*vvq*yc*(-3./2.*o*x12*x2z*tx+7./
     #    4.*o*x12*x2z-3./2.*o*x12*tx-1./2.*o*x12*txs+1./4.*o*x2z
     #    *tx-7./4.*o*x2z*txs-3*o*x2z-1./4.*o*tx*x12s+7./4.*o*
     #    tx*x2zs-7./4.*o*x2zs-3./2.*o*txs+1./4.*os*x12*x2z-1./
     #    2.*os*x12*tx-3./2.*os*x2z*tx+11./4.*os*x2z-3./2.*os*tx
     #    +7./4.*os*x2zs-1./4.*os*txs+1./4.*oc*x2z-1./4.*oc*tx
     #    -5./4.*x12*x2z*tx-7./4.*x12*x2z*txs-3./2.*x12*txs+3*
     #    x2z*tx+1./2.*x2z*txs+5./4.*tx*x2zs-1./4.*x12s*txs)
      gg20q= gg20q+rwwg(9,1)*bxpi*vvq*yc*(12*o*x2z*tx+12*o*txs
     #    +12*x12*txs-12*x2z*tx)
      gg20q= gg20q+rwwg(9,1)*vvq*bxp*yc*(44*o*tx+12*x12*tx-12*tx)
      gg20q= gg20q+rwwg(9,1)*vvq*yc*(-4*o*x12*tx-16*o*x2z*tx
     #    -36*o*tx-12*o*txs-4*os*tx-12*x12*tx-12*x12*txs+12
     #    *x2z*tx+12*tx)
      gg20q= gg20q+rwwg(9,4)*bxpi*vvq*yc*(-3*o*x12*x2z*tx-3*o*
     #    x2z*txs+3*o*tx*x2zs-3*o*x2zs-3*os*x2z*tx+3*os*x2zs-
     #    3*x12*x2z*txs+3*tx*x2zs)
      gg20q= gg20q+rwwg(9,4)*vvq*bxp*yc*(7./2.*o*x12*x2z-5*o*x12
     #    *tx+5./2.*o*x12+1./2.*o*x2z*tx-15./2.*o*x2z-5./2.*o*
     #    tx+1./2.*o*x12s-4*o*txs-3*o+os*x12+15./2.*os*x2z-
     #    9./2.*os*tx+5./2.*os+1./2.*oc-7./2.*x12*x2z*tx-5./2.*
     #    x12*tx-4*x12*txs+15./2.*x2z*tx-1./2.*tx*x12s+3*tx)
      gg20q= gg20q+rwwg(9,4)*vvq*bxps*yc*(-4*o*x12+4*o*tx+4*
     #    o-4*os+4*x12*tx-4*tx)
      gg20q= gg20q+rwwg(9,4)*vvq*yc*(3*o*x12*x2z*tx-5./2.*o*x12
     #    *x2z+3*o*x12*tx+o*x12*txs-1./2.*o*x2z*tx+7./2.*o*x2z*
     #    txs+6*o*x2z+1./2.*o*tx*x12s-7./2.*o*tx*x2zs+7./2.*o*
     #    x2zs+3*o*txs-1./2.*os*x12*x2z+os*x12*tx+3*os*x2z*tx
     #    -11./2.*os*x2z+3*os*tx-7./2.*os*x2zs+1./2.*os*txs-1.
     #    /2.*oc*x2z+1./2.*oc*tx+5./2.*x12*x2z*tx+7./2.*x12*x2z*
     #    txs+3*x12*txs-6*x2z*tx-7./2.*tx*x2zs+1./2.*x12s*txs)
      gg20q= gg20q+rwwg(9,7)*bxpi*vvq*yc*(3./2.*o*x12*x2z*tx+3./
     #    2.*o*x2z*txs+3./2.*o*tx*x2zs-3./2.*o*x2zs+3./2.*os*x2z*
     #    tx+3./2.*os*x2zs+3./2.*x12*x2z*txs-3./2.*tx*x2zs)
      gg20q= gg20q+rwwg(9,7)*vvq*bxp*yc*(7./4.*o*x12*x2z+1./2.*o
     #    *x12*tx-3./4.*o*x12+7./4.*o*x2z*tx-7./4.*o*x2z-3./4.*
     #    o*tx+1./4.*o*x12s+1./2.*o+1./2.*os*x12+7./4.*os*x2z
     #    +1./4.*os*tx-3./4.*os+1./4.*oc+7./4.*x12*x2z*tx-3./
     #    4.*x12*tx-7./4.*x2z*tx+1./4.*tx*x12s+1./2.*tx)
      gg20q= gg20q+rwwg(9,7)*vvq*yc*(-2*o*x12*x2z*tx-5./4.*o*
     #    x12*x2z+1./2.*o*x12*tx-1./2.*o*x12*txs-3./4.*o*x2z*tx
     #    -7./4.*o*x2z*txs+o*x2z-1./4.*o*tx*x12s-7./4.*o*tx*
     #    x2zs+7./4.*o*x2zs+1./2.*o*txs-1./4.*os*x12*x2z-1./2.*
     #    os*x12*tx-2*os*x2z*tx-3./4.*os*x2z+1./2.*os*tx-7./4.*
     #    os*x2zs-1./4.*os*txs-1./4.*oc*x2z-1./4.*oc*tx-5./4.*
     #    x12*x2z*tx-7./4.*x12*x2z*txs+1./2.*x12*txs+x2z*tx+7./
     #    4.*tx*x2zs-1./4.*x12s*txs)
      gg20q= gg20q+rwwg(9,8)*vvq*bxp*yc*(4*o*x12*tx-4*o*x12-4*
     #    o*x2z*tx+4*o*x2z+4*o*tx+4*o*txs+4*o-4*os*x2z+4*os
     #    *tx-4*os+4*x12*tx+4*x12*txs-4*x2z*tx-4*tx)
      gg20q= gg20q+rwwg(9,8)*vvq*bxps*yc*(4*o*x12-4*o*tx-4*o
     #    +4*os-4*x12*tx+4*tx)
      gg20q= gg20q+rwwg(9,8)*vvq*yc*(-4*o*x12*tx+4*o*x2z*tx
     #    -4*o*x2z-4*o*txs+4*os*x2z-4*os*tx-4*x12*txs+4*x2z*tx)
      gg20q= gg20q+rwwg(9,9)*vvq*bxp*yc*(-8*o*tx)
      gg20q= gg20q+rwwg(9,9)*vvq*yc*(8*o*tx)
      gg20q= gg20q+rwwg(9,11)*vvq*bxp*yc*(o*x12-o*tx-o+os-
     #    x12*tx+tx)
      gg20q= gg20q+rwwg(9,11)*vvq*yc*(o*x12*tx-o*x2z*tx+o*x2z
     #    +o*txs-os*x2z+os*tx+x12*txs-x2z*tx)
      gg20q= gg20q+rwwg(9,12)*bxpi*vvq*yc*(-6*o*x2z*tx+6*o*txs
     #    +6*x12*txs-6*x2z*tx)
      gg20q= gg20q+rwwg(9,12)*vvq*bxp*yc*(-o*x12+7*o*tx+o-
     #    os+7*x12*tx-7*tx)
      gg20q= gg20q+rwwg(9,12)*vvq*yc*(-o*x12*tx+7*o*x2z*tx-
     #    o*x2z-6*o*tx-7*o*txs+os*x2z-os*tx-6*x12*tx-7*x12*
     #    txs+7*x2z*tx+6*tx)
      gg20q= gg20q+rwwg(9,13)*bxpi*vvq*yc*(3*o*x2z*tx+3*o*txs+
     #    3*x12*txs-3*x2z*tx)
      gg20q= gg20q+rwwg(9,13)*vvq*bxp*yc*(1./2.*o*x12+7./2.*o*tx
     #    -1./2.*o+1./2.*os+7./2.*x12*tx-7./2.*tx)
      gg20q= gg20q+rwwg(9,13)*vvq*yc*(-1./2.*o*x12*tx-7./2.*o
     #    *x2z*tx+1./2.*o*x2z-3*o*tx-7./2.*o*txs-1./2.*os*x2z
     #    -1./2.*os*tx-3*x12*tx-7./2.*x12*txs+7./2.*x2z*tx+3*tx)
      gg20q= gg20q+rwwg(9,14)*bxpi*vvq*yc*(-6*o*x2z*tx)
      gg20q= gg20q+rwwg(9,14)*vvq*bxp*yc*(-1./2.*o*x12-13./2.*
     #    o*tx+1./2.*o-1./2.*os-1./2.*x12*tx+1./2.*tx)
      gg20q= gg20q+rwwg(9,14)*vvq*yc*(1./2.*o*x12*tx+13./2.*o*
     #    x2z*tx-1./2.*o*x2z+6*o*tx+1./2.*o*txs+1./2.*os*x2z+
     #    1./2.*os*tx+1./2.*x12*txs-1./2.*x2z*tx)
      gg20q= gg20q+rwwg(10,1)*xx*vvq*yc*(6*o*x12*x2z*txs-6*o*
     #    x2zc+6*o*x2zs*txs+3*os*x2z*txs+3*os*x2zc-6*x12*tx*
     #    x2zs+6*x12*x2zs*txs+3*x2z*x12s*txs+3*x2zc-6*x2zs*txs)
      gg20q= gg20q+rwwg(10,1)*bxpi*vvq*yc*(9*o*x12*x2z*tx+6*o*
     #    x12*x2zs+6*o*x12*txs+15*o*x2z*txs+3*o*tx*x2zs-21*o*
     #    x2zs+3*os*x2z*tx+12*os*x2zs+3*os*txs-12*x12*x2z*tx+
     #    15*x12*x2z*txs-6*x12*x2zs+6*x2z*tx*x12s-12*x2z*txs-3*
     #    tx*x2zs+3*x12s*txs+9*x2zs)
      gg20q= gg20q+rwwg(10,1)*vvq*bxp*yc*(3+31./2.*o*x12*x2z+
     #    11*o*x12*tx+17./2.*o*x12+15./2.*o*x2z*tx-51./2.*o*x2z
     #    +5./2.*o*tx+1./2.*o*x12s+11*o*txs-9*o+33./2.*os*x2z
     #    +9./2.*os*tx+13./2.*os-1./2.*oc+7./2.*x12*x2z*tx-12
     #    *x12*x2z-7./2.*x12*tx+11*x12*txs-6*x12-15./2.*x2z*tx
     #    +3*x2z*x12s+9*x2z+13./2.*tx*x12s-3*tx+3*x12s-7*txs)
      gg20q= gg20q+rwwg(10,1)*vvq*bxps*yc*(-3-10*o*x12-4*o*
     #    tx+10*o-7*os-4*x12*tx+6*x12+4*tx-3*x12s)
      gg20q= gg20q+rwwg(10,1)*vvq*yc*(-10*o*x12*x2z*tx-29./2.
     #    *o*x12*x2z-9*o*x12*tx-6*o*x12*x2zs-7*o*x12*txs-11./2.
     #    *o*x2z*tx-33./2.*o*x2z*txs+24*o*x2z-1./2.*o*tx*x12s-7.
     #    /2.*o*tx*x2zs+43./2.*o*x2zs-9*o*txs+1./2.*os*x12*x2z-
     #    os*x12*tx-4*os*x2z*tx-31./2.*os*x2z-3*os*tx-25./2.*os
     #    *x2zs-7./2.*os*txs+1./2.*oc*x2z-1./2.*oc*tx+19./2.*
     #    x12*x2z*tx-33./2.*x12*x2z*txs+12*x12*x2z+6*x12*tx+6*
     #    x12*x2zs-9*x12*txs-6*x2z*tx*x12s+6*x2z*tx-3*x2z*x12s
     #    +13*x2z*txs-9*x2z-6*tx*x12s+7./2.*tx*x2zs-7./2.*
     #    x12s*txs-9*x2zs+6*txs)
      gg20q= gg20q+rwwg(10,4)*xx*vvq*yc*(3./4.*o*x12*x2zc-3./2.
     #    *o*x12*x2zs*txs-3./4.*o*tx*x12s*x2zs+3./4.*o*tx*x2zq+3./
     #    4.*o*tx*x2zc-3./4.*o*x2zq-3./4.*o*x2zc*txs-3./2.*os*x12
     #    *tx*x2zs+3./4.*os*x12*x2zc+3./4.*os*x2zq-3./4.*os*x2zc
     #    -3./4.*os*x2zs*txs-3./4.*oc*tx*x2zs+3./4.*oc*x2zc+3./
     #    4.*x12*tx*x2zc-3./4.*x12*x2zc*txs-3./4.*tx*x2zq-3./4.*
     #    x12s*x2zs*txs+3./2.*x2zc*txs)
      gg20q= gg20q+rwwg(10,4)*bxpi*vvq*yc*(-3*o*x12*x2z*txs-3./
     #    2.*o*x12*tx*x2zs+3./4.*o*x12*x2zc+9./4.*o*x12*x2zs-3./2.
     #    *o*x2z*tx*x12s+9./4.*o*tx*x2zc+9./4.*o*tx*x2zs-3./4.*o*
     #    x12s*x2zs-9./4.*o*x2zc-3*o*x2zs*txs-3*os*x12*x2z*tx+3.
     #    /2.*os*x12*x2zs-3./2.*os*x2z*txs-3./4.*os*tx*x2zs+9./4.
     #    *os*x2zc-9./4.*os*x2zs-3./2.*oc*x2z*tx+9./4.*oc*x2zs+
     #    3./4.*x12*tx*x2zc+9./4.*x12*tx*x2zs-3*x12*x2zs*txs-3./2.
     #    *x2z*x12s*txs-3./4.*tx*x12s*x2zs-9./4.*tx*x2zc+9./2.*
     #    x2zs*txs)
      gg20q= gg20q+rwwg(10,4)*vvq*bxp*yc*(-7./2.*o*x12*x2z*tx+
     #    7./2.*o*x12*x2z-3./2.*o*x12*tx+7./4.*o*x12*x2zs-2*o*x12
     #    *txs+3./4.*o*x12+7./2.*o*x2z*tx-7./4.*o*x2z*x12s-9./2.
     #    *o*x2z*txs-3./4.*o*x2z-o*tx*x12s+11./4.*o*tx*x2zs+3./
     #    4.*o*tx-3./4.*o*x12s-11./4.*o*x2zs-3./2.*o*txs+os*x12
     #    *x2z-2*os*x12*tx-7./4.*os*x2z*tx-2*os*x2z-3./4.*os*tx
     #    +11./4.*os*x2zs-os*txs-3./4.*os+11./4.*oc*x2z-oc*tx
     #    +3./4.*oc+7./2.*x12*x2z*tx-9./2.*x12*x2z*txs+7./4.*
     #    x12*tx*x2zs+3./4.*x12*tx-3./2.*x12*txs-7./4.*x2z*tx*
     #    x12s-3./4.*x2z*tx+11./2.*x2z*txs-3./4.*tx*x12s-11./4.
     #    *tx*x2zs-x12s*txs+3./2.*txs)
      gg20q= gg20q+rwwg(10,4)*vvq*bxps*yc*(-o*x12*x2z+2*o*x12*
     #    tx-o*x12-o*x2z*tx+o*x2z-o*tx+o*x12s+2*o*txs-os*
     #    x2z+os*tx+os-oc-x12*x2z*tx-x12*tx+2*x12*txs+x2z
     #    *tx+tx*x12s-2*txs)
      gg20q= gg20q+rwwg(10,4)*vvq*yc*(3*o*x12*x2z*tx+7./2.*o*
     #    x12*x2z*txs-9./4.*o*x12*x2z+3./2.*o*x12*tx*x2zs-3./4.*o
     #    *x12*x2zc-4*o*x12*x2zs+3./2.*o*x12*txs+7./4.*o*x2z*tx*
     #    x12s-9./4.*o*x2z*tx+3./2.*o*x2z*x12s+15./4.*o*x2z*txs
     #    +3./4.*o*tx*x12s-5./2.*o*tx*x2zc-19./4.*o*tx*x2zs+3./
     #    4.*o*x12s*x2zs+5./2.*o*x2zc+13./4.*o*x2zs*txs+9./4.*o*
     #    x2zs+7./2.*os*x12*x2z*tx-3./4.*os*x12*x2z+3./2.*os*x12*
     #    tx-7./4.*os*x12*x2zs+3./2.*os*x2z*tx+7./4.*os*x2z*txs
     #    +9./4.*os*x2z+3./4.*os*tx*x2zs-5./2.*os*x2zc+1./4.*os
     #    *x2zs+3./4.*os*txs+7./4.*oc*x2z*tx-9./4.*oc*x2z+3./4.
     #    *oc*tx-5./2.*oc*x2zs-9./4.*x12*x2z*tx+15./4.*x12*x2z*
     #    txs-3./4.*x12*tx*x2zc-4*x12*tx*x2zs+13./4.*x12*x2zs*txs
     #    +3./2.*x2z*tx*x12s+7./4.*x2z*x12s*txs-9./2.*x2z*txs+3.
     #    /4.*tx*x12s*x2zs+5./2.*tx*x2zc+9./4.*tx*x2zs+3./4.*x12s
     #    *txs-5*x2zs*txs)
      gg20q= gg20q+rwwg(10,7)*xx*vvq*yc*(3./2.*o*x12*x2zs*txs-3.
     #    /2.*o*x2zq+3./4.*o*x2zc*txs+3./4.*os*x12*x2zc+3./4.*os*
     #    x2zq-3./4.*os*x2zc+3./4.*os*x2zs*txs+3./4.*oc*x2zc-3./
     #    2.*x12*tx*x2zc+3./4.*x12*x2zc*txs+3./4.*x12s*x2zs*txs+3.
     #    /4.*x2zq-3./4.*x2zc*txs)
      gg20q= gg20q+rwwg(10,7)*bxpi*vvq*yc*(3./2.*o*x12*x2z*txs+3.
     #    /2.*o*x12*tx*x2zs+3./2.*o*x12*x2zc-9./2.*o*x2zc+3./2.*o
     #    *x2zs*txs+3./2.*os*x12*x2zs+3./4.*os*x2z*txs+9./4.*os*
     #    x2zc-3./2.*os*x2zs+3./2.*oc*x2zs-3*x12*tx*x2zs-3./2.*
     #    x12*x2zc+3./2.*x12*x2zs*txs+3./4.*x2z*x12s*txs+3./2.*tx
     #    *x12s*x2zs+9./4.*x2zc-3./2.*x2zs*txs)
      gg20q= gg20q+rwwg(10,7)*vvq*bxp*yc*(7./4.*o*x12*x2z*tx+9./
     #    4.*o*x12*x2z+1./4.*o*x12*tx+13./4.*o*x12*x2zs-1./4.*o*
     #    x12*txs-1./4.*o*x2z*x12s+7./8.*o*x2z*txs-7./4.*o*x2z-
     #    1./2.*o*tx*x12s-5*o*x2zs+1./8.*o*txs+3./8.*os*x12*x2z
     #    -1./4.*os*x12*tx+1./8.*os*x12+3./8.*os*x2z-1./8.*os*
     #    x12s+5./2.*os*x2zs-1./8.*os*txs-1./4.*oc*x12+5./8.*oc
     #    *x2z+1./8.*oc-1./8.*oq-7./4.*x12*x2z*tx+7./8.*x12*x2z
     #    *txs-7./4.*x12*x2z-13./4.*x12*x2zs+1./8.*x12*txs+7./4.
     #    *x2z*tx*x12s+x2z*x12s-7./8.*x2z*txs+3./4.*x2z+1./4.*
     #    tx*x12s-1./4.*tx*x12c+3./4.*x12s*x2zs-1./8.*x12s*txs+
     #    5./2.*x2zs)
      gg20q= gg20q+rwwg(10,7)*vvq*bxps*yc*(-7./4.*o*x12*x2z-1./
     #    2.*o*x12+7./4.*o*x2z+3./8.*o*x12s+1./8.*o+3./8.*os*
     #    x12-7./8.*os*x2z-1./4.*os+1./8.*oc+7./4.*x12*x2z+1./
     #    8.*x12-7./8.*x2z*x12s-7./8.*x2z-1./4.*x12s+1./8.*x12c)
      gg20q= gg20q+rwwg(10,7)*vvq*yc*(-7./4.*o*x12*x2z*tx-3./
     #    2.*o*x12*x2z*txs-3./2.*o*x12*tx*x2zs-3./2.*o*x12*x2zc-
     #    13./4.*o*x12*x2zs-7./8.*o*x2z*txs+3./8.*o*x12s*txs+19./
     #    4.*o*x2zc-13./8.*o*x2zs*txs+37./8.*o*x2zs-7./8.*os*x12*
     #    x2z-3./2.*os*x12*x2zs+3./8.*os*x12*txs+1./8.*os*x2z*
     #    x12s-3./4.*os*x2z*txs+3./4.*os*x2z-19./8.*os*x2zc-7./
     #    8.*os*x2zs+1./4.*oc*x12*x2z-7./8.*oc*x2z-3./2.*oc*x2zs
     #    +1./8.*oc*txs+1./8.*oq*x2z+3./2.*x12*x2z*tx-7./8.*x12
     #    *x2z*txs+13./4.*x12*tx*x2zs+3./2.*x12*x2zc-13./8.*x12*
     #    x2zs*txs+25./8.*x12*x2zs-7./4.*x2z*tx*x12s-3./4.*x2z*
     #    x12s*txs+3./4.*x2z*txs-3./2.*tx*x12s*x2zs-3./4.*x12s*
     #    x2zs+1./8.*x12c*txs-19./8.*x2zc+13./8.*x2zs*txs-9./4.
     #    *x2zs)
      gg20q= gg20q+rwwg(10,8)*bxpi*vvq*yc*(3./2.*o*x12*x2z*txs-3.
     #    /4.*o*x12*x2zs+3./4.*o*x2z*tx*x12s-3./4.*o*tx*x2zc-3./4.
     #    *o*tx*x2zs+3./4.*o*x2zc+3./4.*o*x2zs*txs+3./2.*os*x12*
     #    x2z*tx-3./4.*os*x12*x2zs+3./4.*os*x2z*txs-3./4.*os*x2zc
     #    +3./4.*os*x2zs+3./4.*oc*x2z*tx-3./4.*oc*x2zs-3./4.*
     #    x12*tx*x2zs+3./4.*x12*x2zs*txs+3./4.*x2z*x12s*txs+3./4.
     #    *tx*x2zc-3./2.*x2zs*txs)
      gg20q= gg20q+rwwg(10,8)*vvq*bxp*yc*(3./2.*o*x12*x2z*tx-5./
     #    2.*o*x12*x2z+5./4.*o*x12*tx-7./8.*o*x12*x2zs+5./2.*o*
     #    x12*txs-3./4.*o*x12-5./2.*o*x2z*tx+3./4.*o*x2z*x12s+
     #    11./4.*o*x2z*txs+3./4.*o*x2z+11./8.*o*tx*x12s-15./8.*o*
     #    tx*x2zs-3./4.*o*tx+5./8.*o*x12s+1./8.*o*x12c+15./8.*o
     #    *x2zs+5./4.*o*txs-5./4.*os*x12*x2z+19./8.*os*x12*tx+3.
     #    /4.*os*x2z*tx+5./4.*os*x2z+5./8.*os*tx+1./8.*os*x12s-
     #    15./8.*os*x2zs+5./4.*os*txs+3./4.*os-1./8.*oc*x12-2*
     #    oc*x2z+9./8.*oc*tx-5./8.*oc-1./8.*oq-5./2.*x12*x2z*tx
     #    +11./4.*x12*x2z*txs-7./8.*x12*tx*x2zs-3./4.*x12*tx+5./
     #    4.*x12*txs+3./4.*x2z*tx*x12s+3./4.*x2z*tx-15./4.*x2z*
     #    txs+5./8.*tx*x12s+1./8.*tx*x12c+15./8.*tx*x2zs+5./4.*
     #    x12s*txs-3./2.*txs)
      gg20q= gg20q+rwwg(10,8)*vvq*bxps*yc*(o*x12*x2z-2*o*x12*tx
     #    +o*x12+o*x2z*tx-o*x2z+o*tx-o*x12s-2*o*txs+os*
     #    x2z-os*tx-os+oc+x12*x2z*tx+x12*tx-2*x12*txs-x2z
     #    *tx-tx*x12s+2*txs)
      gg20q= gg20q+rwwg(10,8)*vvq*yc*(-5./4.*o*x12*x2z*tx-2*o
     #    *x12*x2z*txs+3./2.*o*x12*x2z+1./8.*o*x12*tx*x2zs+3./2.*
     #    o*x12*x2zs-3./2.*o*x12*txs-7./8.*o*x2z*tx*x12s+3./2.*o*
     #    x2z*tx-5./8.*o*x2z*x12s-2*o*x2z*txs-3./4.*o*tx*x12s-1.
     #    /8.*o*tx*x12c+7./8.*o*tx*x2zc+9./4.*o*tx*x2zs-3./8.*o*
     #    x12s*txs-7./8.*o*x2zc-7./8.*o*x2zs*txs-3./2.*o*x2zs-7.
     #    /4.*os*x12*x2z*tx+3./4.*os*x12*x2z-3./2.*os*x12*tx+os*
     #    x12*x2zs-3./8.*os*x12*txs-5./8.*os*x2z*tx+1./8.*os*x2z*
     #    x12s-os*x2z*txs-3./2.*os*x2z-3./8.*os*tx*x12s+1./8.*
     #    os*tx*x2zs+7./8.*os*x2zc+1./2.*os*x2zs-3./4.*os*txs+1.
     #    /4.*oc*x12*x2z-3./8.*oc*x12*tx-7./8.*oc*x2z*tx+11./8.*
     #    oc*x2z-3./4.*oc*tx+oc*x2zs-1./8.*oc*txs+1./8.*oq*x2z
     #    -1./8.*oq*tx+3./2.*x12*x2z*tx-2*x12*x2z*txs+3./2.*x12
     #    *tx*x2zs-7./8.*x12*x2zs*txs-5./8.*x2z*tx*x12s-x2z*x12s*
     #    txs+3*x2z*txs-7./8.*tx*x2zc-3./2.*tx*x2zs-3./4.*x12s*
     #    txs)
      gg20q= gg20q+rwwg(10,8)*vvq*yc*(-1./8.*x12c*txs+7./4.*
     #    x2zs*txs)
      gg20q= gg20q+rwwg(10,9)*bxpi*vvq*yc*(-3./2.*o*x12*x2z*tx
     #    -3./2.*o*x2z*txs-3./2.*o*tx*x2zs+3./2.*o*x2zs-3./2.*
     #    os*x2z*tx-3./2.*os*x2zs-3./2.*x12*x2z*txs+3./2.*tx*x2zs)
      gg20q= gg20q+rwwg(10,9)*vvq*bxp*yc*(-7./4.*o*x12*x2z-5./
     #    2.*o*x12*tx-5./4.*o*x12-15./4.*o*x2z*tx+15./4.*o*x2z-
     #    5./4.*o*tx-1./4.*o*x12s-2*o*txs+3./2.*o-1./2.*os*x12
     #    -15./4.*os*x2z-9./4.*os*tx-5./4.*os-1./4.*oc-7./4.*
     #    x12*x2z*tx-5./4.*x12*tx-2*x12*txs+15./4.*x2z*tx-1./4.
     #    *tx*x12s+3./2.*tx)
      gg20q= gg20q+rwwg(10,9)*vvq*bxps*yc*(2*o*x12+2*o*tx-2*o
     #    +2*os+2*x12*tx-2*tx)
      gg20q= gg20q+rwwg(10,9)*vvq*yc*(2*o*x12*x2z*tx+5./4.*o*
     #    x12*x2z+3./2.*o*x12*tx+1./2.*o*x12*txs+11./4.*o*x2z*tx
     #    +7./4.*o*x2z*txs-3*o*x2z+1./4.*o*tx*x12s+7./4.*o*tx*
     #    x2zs-7./4.*o*x2zs+3./2.*o*txs+1./4.*os*x12*x2z+1./2.*
     #    os*x12*tx+2*os*x2z*tx+11./4.*os*x2z+3./2.*os*tx+7./4.
     #    *os*x2zs+1./4.*os*txs+1./4.*oc*x2z+1./4.*oc*tx+5./4.*
     #    x12*x2z*tx+7./4.*x12*x2z*txs+3./2.*x12*txs-3*x2z*tx-7.
     #    /4.*tx*x2zs+1./4.*x12s*txs)
      gg20q= gg20q+rwwg(10,10)*xx*vvq*yc*(-3./4.*o*x12*x2zs*txs
     #    +3./4.*o*x2zq-3./8.*o*x2zc*txs-3./8.*os*x12*x2zc-3./8.
     #    *os*x2zq+3./8.*os*x2zc-3./8.*os*x2zs*txs-3./8.*oc*x2zc
     #    +3./4.*x12*tx*x2zc-3./8.*x12*x2zc*txs-3./8.*x12s*x2zs*
     #    txs-3./8.*x2zq+3./8.*x2zc*txs)
      gg20q= gg20q+rwwg(10,10)*bxpi*vvq*yc*(-3./2.*o*x12*x2z*txs
     #    -3./4.*o*x12*tx*x2zs-3./4.*o*x12*x2zc+3*o*x2zc-9./8.*
     #    o*x2zs*txs-9./8.*os*x12*x2zs-3./4.*os*x2z*txs-3./2.*os*
     #    x2zc+9./8.*os*x2zs-9./8.*oc*x2zs+9./4.*x12*tx*x2zs+3./
     #    4.*x12*x2zc-9./8.*x12*x2zs*txs-3./4.*x2z*x12s*txs-3./4.
     #    *tx*x12s*x2zs-3./2.*x2zc+9./8.*x2zs*txs)
      gg20q= gg20q+rwwg(10,10)*vvq*bxp*yc*(-7./4.*o*x12*x2z*tx
     #    -9./4.*o*x12*x2z-3./4.*o*x12*tx-5./2.*o*x12*x2zs-o*
     #    x12*txs-11./8.*o*x2z*txs+3*o*x2z+21./4.*o*x2zs-3./8.*
     #    o*txs-11./8.*os*x12*x2z-3./8.*os*x12-1./8.*os*x2z-21./
     #    8.*os*x2zs-1./2.*os*txs+3./8.*os-11./8.*oc*x2z-3./8.*
     #    oc+11./4.*x12*x2z*tx-11./8.*x12*x2z*txs+9./4.*x12*x2z
     #    +3./4.*x12*tx+5./2.*x12*x2zs-3./8.*x12*txs-7./4.*x2z*
     #    tx*x12s-3./4.*x2z*x12s+11./8.*x2z*txs-3./2.*x2z-3./4.
     #    *tx*x12s-3./8.*x12s*x2zs-1./2.*x12s*txs-21./8.*x2zs+3.
     #    /8.*txs)
      gg20q= gg20q+rwwg(10,10)*vvq*bxps*yc*(3./8.+11./4.*o*x12*
     #    x2z+o*x12*tx+3./4.*o*x12-15./4.*o*x2z+1./2.*o*txs-3.
     #    /4.*o+1./2.*os*x12+15./8.*os*x2z-1./8.*os+1./2.*oc-
     #    11./4.*x12*x2z-x12*tx+1./2.*x12*txs-3./4.*x12+7./8.*
     #    x2z*x12s+15./8.*x2z+tx*x12s+3./8.*x12s-1./2.*txs)
      gg20q= gg20q+rwwg(10,10)*vvq*yc*(3./2.*o*x12*x2z*tx+7./4.
     #    *o*x12*x2z*txs+3./4.*o*x12*tx*x2zs-o*x12*bxpc+3./4.*o*
     #    x12*x2zc+9./4.*o*x12*x2zs+3./4.*o*x12*txs+9./8.*o*x2z*
     #    txs+o*bxpc-13./4.*o*x2zc+5./4.*o*x2zs*txs-9./2.*o*x2zs
     #    +9./8.*os*x12*x2z+5./4.*os*x12*x2zs+7./8.*os*x2z*txs-
     #    9./8.*os*x2z-1./2.*os*bxpc+13./8.*os*x2zc+os*x2zs+3./8.
     #    *os*txs+9./8.*oc*x2z+5./4.*oc*x2zs-9./4.*x12*x2z*tx+9.
     #    /8.*x12*x2z*txs-5./2.*x12*tx*x2zs+x12*bxpc-3./4.*x12*
     #    x2zc+5./4.*x12*x2zs*txs-9./4.*x12*x2zs+3./2.*x2z*tx*
     #    x12s+7./8.*x2z*x12s*txs-9./8.*x2z*txs+3./4.*tx*x12s*
     #    x2zs-1./2.*bxpc*x12s-1./2.*bxpc+3./8.*x12s*x2zs+3./8.*
     #    x12s*txs+13./8.*x2zc-5./4.*x2zs*txs+9./4.*x2zs)
      gg20q= gg20q+rwwg(10,12)*xx*vvq*yc*(3*o*x12*x2z*txs-3./2.
     #    *o*x12*tx*x2zs-3./2.*o*tx*x2zc-3./2.*o*x2zc+3./2.*o*
     #    x2zs*txs+3./2.*os*x2z*txs-3./2.*os*tx*x2zs-3*x12*tx*
     #    x2zs+3./2.*x12*x2zs*txs+3./2.*x2z*x12s*txs+3./2.*tx*
     #    x2zc+3./2.*x2zc-3*x2zs*txs)
      gg20q= gg20q+rwwg(10,12)*bxpi*vvq*yc*(3./2.*o*x12*x2z*tx+3.
     #    /2.*o*x12*x2zs+3*o*x12*txs+9./2.*o*x2z*txs-3*o*tx*x2zs
     #    -6*o*x2zs-3./2.*os*x2z*tx+3./2.*os*x2zs+3./2.*os*txs
     #    -6*x12*x2z*tx+9./2.*x12*x2z*txs-3./2.*x12*tx*x2zs-3*
     #    x12*x2zs+3*x2z*tx*x12s-6*x2z*txs+3*tx*x2zs+3./2.*x12s
     #    *txs+9./2.*x2zs)
      gg20q= gg20q+rwwg(10,12)*vvq*bxp*yc*(3./2.+17./4.*o*x12*
     #    x2z+7./2.*o*x12*tx+11./4.*o*x12-7./4.*o*x2z*tx-29./4.
     #    *o*x2z-1./4.*o*tx+1./4.*o*x12s+7./2.*o*txs-3*o+11./
     #    4.*os*x2z+1./4.*os*tx+7./4.*os-1./4.*oc-7./4.*x12*x2z
     #    *tx-6*x12*x2z-13./4.*x12*tx+7./2.*x12*txs-3*x12+7./
     #    4.*x2z*tx+3./2.*x2z*x12s+9./2.*x2z+13./4.*tx*x12s+3./
     #    2.*x12s-7./2.*txs)
      gg20q= gg20q+rwwg(10,12)*vvq*bxps*yc*(-3./2.-3*o*x12+3
     #    *o-3./2.*os+3*x12-3./2.*x12s)
      gg20q= gg20q+rwwg(10,12)*vvq*yc*(-3./2.*o*x12*x2z*tx-17.
     #    /4.*o*x12*x2z-3*o*x12*tx-3./2.*o*x12*x2zs-7./2.*o*x12*
     #    txs+7./4.*o*x2z*tx-19./4.*o*x2z*txs+15./2.*o*x2z-1./4.
     #    *o*tx*x12s+13./4.*o*tx*x2zs+23./4.*o*x2zs-3*o*txs+1./
     #    4.*os*x12*x2z-1./2.*os*x12*tx+3./2.*os*x2z*tx-13./4.*os
     #    *x2z-5./4.*os*x2zs-7./4.*os*txs+1./4.*oc*x2z-1./4.*oc
     #    *tx+31./4.*x12*x2z*tx-19./4.*x12*x2z*txs+6*x12*x2z+3./
     #    2.*x12*tx*x2zs+3*x12*tx+3*x12*x2zs-3*x12*txs-3*x2z*tx
     #    *x12s-3./2.*x2z*tx-3./2.*x2z*x12s+13./2.*x2z*txs-9./2.
     #    *x2z-3*tx*x12s-13./4.*tx*x2zs-7./4.*x12s*txs-9./2.*
     #    x2zs+3*txs)
      gg20q= gg20q+rwwg(10,13)*xx*vvq*yc*(3./2.*o*x12*x2z*txs-3.
     #    /2.*o*x2zc+3./2.*o*x2zs*txs+3./4.*os*x2z*txs+3./4.*os*
     #    x2zc-3./2.*x12*tx*x2zs+3./2.*x12*x2zs*txs+3./4.*x2z*
     #    x12s*txs+3./4.*x2zc-3./2.*x2zs*txs)
      gg20q= gg20q+rwwg(10,13)*bxpi*vvq*yc*(3./2.*o*x12*x2z*tx+3.
     #    /2.*o*x12*x2zs+3./2.*o*x12*txs+3*o*x2z*txs-9./2.*o*x2zs
     #    +9./4.*os*x2zs+3./4.*os*txs-3*x12*x2z*tx+3*x12*x2z*
     #    txs-3./2.*x12*x2zs+3./2.*x2z*tx*x12s-3*x2z*txs+3./4.*
     #    x12s*txs+9./4.*x2zs)
      gg20q= gg20q+rwwg(10,13)*vvq*bxp*yc*(3./4.+7./2.*o*x12*x2z
     #    +2*o*x12*tx+3./2.*o*x12-11./2.*o*x2z+7./4.*o*txs-3./
     #    2.*o+1./4.*os*x12+11./4.*os*x2z+1./2.*os+1./4.*oc-7.
     #    /2.*x12*x2z-2*x12*tx+7./4.*x12*txs-3./2.*x12+3./4.*
     #    x2z*x12s+11./4.*x2z+2*tx*x12s+3./4.*x12s-7./4.*txs)
      gg20q= gg20q+rwwg(10,13)*vvq*bxps*yc*(-1-2*o*x12+2*o
     #    -os+2*x12-x12s)
      gg20q= gg20q+rwwg(10,13)*vvq*yc*(-3./2.*o*x12*x2z*tx-3*
     #    o*x12*x2z-3./2.*o*x12*tx-3./2.*o*x12*x2zs-2*o*x12*txs
     #    -13./4.*o*x2z*txs+9./2.*o*x2z+5*o*x2zs-3./2.*o*txs-
     #    1./4.*os*x12*x2z-2*os*x2z-5./2.*os*x2zs-os*txs-1./4.*
     #    oc*x2z+7./2.*x12*x2z*tx-13./4.*x12*x2z*txs+3*x12*x2z+
     #    3./2.*x12*tx+3./2.*x12*x2zs-3./2.*x12*txs-3./2.*x2z*tx*
     #    x12s-3./4.*x2z*x12s+13./4.*x2z*txs-9./4.*x2z-3./2.*tx
     #    *x12s-x12s*txs-5./2.*x2zs+3./2.*txs)
      gg20q= gg20q+rwwg(10,14)*xx*vvq*yc*(-3./4.*o*x12*tx*x2zs
     #    -3./4.*o*tx*x2zc+3./4.*o*x2zc-3./4.*o*x2zs*txs-3./4.*
     #    os*tx*x2zs-3./4.*os*x2zc-3./4.*x12*x2zs*txs+3./4.*tx*
     #    x2zc)
      gg20q= gg20q+rwwg(10,14)*bxpi*vvq*yc*(-3./2.*o*x12*x2z*tx
     #    -3./4.*o*x12*x2zs-3./2.*o*x2z*txs-9./4.*o*tx*x2zs+9./
     #    4.*o*x2zs-3./2.*os*x2z*tx-9./4.*os*x2zs-3./2.*x12*x2z*
     #    txs-3./4.*x12*tx*x2zs+9./4.*tx*x2zs)
      gg20q= gg20q+rwwg(10,14)*vvq*bxp*yc*(-3./2.*o*x12*x2z-3./
     #    4.*o*x12*tx-3./4.*o*x12-9./4.*o*x2z*tx+9./4.*o*x2z-3./
     #    4.*o*tx-3./4.*o*txs+3./4.*o-9./4.*os*x2z-3./4.*os*tx
     #    -3./4.*os-3./2.*x12*x2z*tx-3./4.*x12*tx-3./4.*x12*txs
     #    +9./4.*x2z*tx+3./4.*tx)
      gg20q= gg20q+rwwg(10,14)*vvq*bxps*yc*(3./4.*o*x12+3./4.*o*
     #    tx-3./4.*o+3./4.*os+3./4.*x12*tx-3./4.*tx)
      gg20q= gg20q+rwwg(10,14)*vvq*yc*(3./2.*o*x12*x2z*tx+3./2.
     #    *o*x12*x2z+3./4.*o*x12*tx+3./4.*o*x12*x2zs+9./4.*o*x2z*
     #    tx+3./2.*o*x2z*txs-9./4.*o*x2z+9./4.*o*tx*x2zs-9./4.*
     #    o*x2zs+3./4.*o*txs+3./2.*os*x2z*tx+9./4.*os*x2z+3./4.
     #    *os*tx+9./4.*os*x2zs+3./2.*x12*x2z*tx+3./2.*x12*x2z*txs
     #    +3./4.*x12*tx*x2zs+3./4.*x12*txs-9./4.*x2z*tx-9./4.*
     #    tx*x2zs)
      gg20q= gg20q+rwwg(11,1)*vvq*bxp*yc*(-6*o*x12-6*o*x2z+2
     #    *o*tx-2*x12*x2z-6*x12*tx+2*x12-4*x2z*tx+6*x2z+2*
     #    tx-2*x12s+4*txs)
      gg20q= gg20q+rwwg(11,1)*vvq*bxps*yc*(-4+4*o+4*x12)
      gg20q= gg20q+rwwg(11,1)*vvq*yc*(2*o*x12*x2z+2*o*x12*tx+
     #    2*o*x2zs-2*o*txs+6*x12*x2z*tx-2*x12*x2z-2*x12*txs-2
     #    *x2z*tx-4*x2z*txs+2*tx*x12s+4*tx*x2zs-2*x2zs)
      gg20q= gg20q+rwwg(12,1)*xx*vvq*yc*(-12*o*x2z*txs+12*o*
     #    tx*x2zs-12*x12*x2z*txs+24*x2z*txs-12*tx*x2zs)
      gg20q= gg20q+rwwg(12,1)*bxpi*vvq*yc*(24*o*x2z*tx-36*o*txs
     #    +12*x12*x2z*tx-36*x12*txs+24*txs)
      gg20q= gg20q+rwwg(12,1)*vvq*bxp*yc*(4+8*o*x12+2*o*x2z-
     #    16*o*tx-10*o+6*os+2*x12*x2z-16*x12*tx-6*x12-2*x2z
     #    +16*tx+2*x12s)
      gg20q= gg20q+rwwg(12,1)*vvq*yc*(-2*o*x12*x2z+4*o*x12*tx
     #    -22*o*x2z*tx+6*o*x2z+12*o*tx-2*o*x2zs+36*o*txs-2*
     #    os*x2z+2*os*tx-10*x12*x2z*tx+2*x12*x2z+12*x12*tx+36
     #    *x12*txs-4*x2z*tx-4*x2z+2*tx*x12s-12*tx+2*x2zs-24*txs)
      gg20q= gg20q+rwwg(13,1)*xx*vvq*yc*(-12*o*x2z*txs-12*x12
     #    *x2z*txs+12*x2z*txs)
      gg20q= gg20q+rwwg(13,1)*bxpi*vvq*yc*(-6*o*x2z*tx-18*o*
     #    txs-18*x12*txs+6*x2z*tx+12*txs)
      gg20q= gg20q+rwwg(13,1)*vvq*bxp*yc*(-3*o*x12-o*x2z-7*o
     #    *tx+2*o-2*os-x12*x2z-7*x12*tx+x12+x2z+7*tx-x12s)
      gg20q= gg20q+rwwg(13,1)*vvq*yc*(o*x12*x2z+5*o*x12*tx+8*
     #    o*x2z*tx+4*o*tx+o*x2zs+17*o*txs+2*os*tx+3*x12*x2z*
     #    tx-x12*x2z+4*x12*tx+17*x12*txs-7*x2z*tx+3*tx*x12s
     #    -6*tx-x2zs-12*txs)
      gg20q= gg20q+rwwg(13,4)*xx*vvq*yc*(3./2.*o*x12*tx*x2zs-3./
     #    2.*o*tx*x2zc-3./2.*o*tx*x2zs+3*o*x2zc+3./2.*o*x2zs*txs
     #    +3./2.*os*tx*x2zs-3./2.*os*x2zc+3./2.*x12*tx*x2zs+3./
     #    2.*x12*x2zs*txs+3./2.*tx*x2zc-3./2.*x2zc-3*x2zs*txs)
      gg20q= gg20q+rwwg(13,4)*bxpi*vvq*yc*(3./2.*o*x12*x2z*tx-3*
     #    o*x12*x2zs-3*o*x2z*tx+9./2.*o*x2z*txs-3*o*tx*x2zs+9*o
     #    *x2zs+3*os*x2z*tx-9./2.*os*x2zs+3*x12*x2z*tx+9./2.*
     #    x12*x2z*txs-3./2.*x12*tx*x2zs+3*x12*x2zs-3./2.*x2z*tx*
     #    x12s-6*x2z*txs+3*tx*x2zs-9./2.*x2zs)
      gg20q= gg20q+rwwg(13,4)*vvq*bxp*yc*(-3./2.-25./4.*o*x12*
     #    x2z+1./2.*o*x12*tx-13./4.*o*x12-7./4.*o*x2z*tx+37./4.
     #    *o*x2z-7./4.*o*tx+1./4.*o*x12s+7./2.*o*txs+3*o-19./
     #    4.*os*x2z+7./4.*os*tx-5./4.*os-1./4.*oc-7./4.*x12*x2z
     #    *tx+6*x12*x2z+5./4.*x12*tx+7./2.*x12*txs+3*x12+7./4.
     #    *x2z*tx-3./2.*x2z*x12s-9./2.*x2z-5./4.*tx*x12s-3./2.*
     #    x12s-7./2.*txs)
      gg20q= gg20q+rwwg(13,4)*vvq*bxps*yc*(3./2.+3*o*x12-3*o
     #    +3./2.*os-3*x12+3./2.*x12s)
      gg20q= gg20q+rwwg(13,4)*vvq*yc*(-3./2.*o*x12*x2z*tx+25./
     #    4.*o*x12*x2z+3*o*x12*x2zs-1./2.*o*x12*txs+19./4.*o*x2z*
     #    tx-19./4.*o*x2z*txs-9*o*x2z-1./4.*o*tx*x12s+13./4.*o*
     #    tx*x2zs+3./2.*o*tx-37./4.*o*x2zs-3*o*txs+1./4.*os*x12
     #    *x2z-1./2.*os*x12*tx-3*os*x2z*tx+17./4.*os*x2z-3./2.*
     #    os*tx+19./4.*os*x2zs-1./4.*os*txs+1./4.*oc*x2z-1./4.*
     #    oc*tx-5./4.*x12*x2z*tx-19./4.*x12*x2z*txs-6*x12*x2z+3.
     #    /2.*x12*tx*x2zs-3./2.*x12*tx-3*x12*x2zs-3*x12*txs+3./
     #    2.*x2z*tx*x12s-3./2.*x2z*tx+3./2.*x2z*x12s+13./2.*x2z*
     #    txs+9./2.*x2z+3./2.*tx*x12s-13./4.*tx*x2zs-1./4.*x12s
     #    *txs+9./2.*x2zs+3*txs)
      gg20q= gg20q+rwwg(13,11)*vvq*bxp*yc*(-o*x12-1./2.*o*x2z
     #    +1./2.*o-1./2.*os-1./2.*x12*x2z+1./2.*x12+1./2.*x2z
     #    -1./2.*x12s)
      gg20q= gg20q+rwwg(13,11)*vvq*yc*(3./2.*o*x12*x2z+1./2.*o*
     #    x2z*tx-1./2.*o*x2z+1./2.*o*x2zs-o*txs+1./2.*os*x2z-
     #    1./2.*os*tx+3./2.*x12*x2z*tx-1./2.*x12*x2z-x12*txs+1./
     #    2.*tx*x12s-1./2.*x2zs)
      gg20q= gg20q+rwwg(13,12)*xx*vvq*yc*(-3*o*x2z*txs+3*o*tx
     #    *x2zs-3*x12*x2z*txs+6*x2z*txs-3*tx*x2zs)
      gg20q= gg20q+rwwg(13,12)*bxpi*vvq*yc*(3*o*x2z*tx-6*o*txs
     #    +3*x12*x2z*tx-6*x12*txs-3*x2z*tx+6*txs)
      gg20q= gg20q+rwwg(13,12)*vvq*yc*(-o*x12*x2z+2*o*x12*tx
     #    -3*o*x2z*tx+o*x2z-o*tx+6*o*txs-os*x2z+os*tx-3*
     #    x12*x2z*tx-x12*tx+6*x12*txs+3*x2z*tx+tx*x12s-6*txs)
      gg20q= gg20q+rwwg(14,1)*xx*vvq*yc*(6*o*x2z*txs+6*o*tx*
     #    x2zs+6*x12*x2z*txs-6*tx*x2zs)
      gg20q= gg20q+rwwg(14,1)*bxpi*vvq*yc*(24*o*x2z*tx+6*o*txs
     #    +6*x12*x2z*tx+6*x12*txs-12*x2z*tx)
      gg20q= gg20q+rwwg(14,1)*vvq*bxp*yc*(2*o*x12+o*x2z+16*o*
     #    tx+o-os+x12*x2z+4*x12*tx-x12-2*x2z*tx-x2z-4*
     #    tx+x12s+2*txs)
      gg20q= gg20q+rwwg(14,1)*vvq*yc*(-o*x12*x2z-2*o*x12*tx
     #    -23*o*x2z*tx-o*x2z-18*o*tx-o*x2zs-6*o*txs+os*x2z
     #    -os*tx-5*x12*x2z*tx+x12*x2z-6*x12*tx-6*x12*txs+10
     #    *x2z*tx-2*x2z*txs-tx*x12s+2*tx*x2zs+6*tx+x2zs)
      gg20q= gg20q+rwwg(14,4)*xx*vvq*yc*(-3./2.*o*x12*tx*x2zs
     #    +3./2.*o*tx*x2zc-3./2.*o*x2zc-3./2.*o*x2zs*txs-3./2.*
     #    os*tx*x2zs+3./2.*os*x2zc-3./2.*x12*x2zs*txs+3./2.*tx*
     #    x2zc)
      gg20q= gg20q+rwwg(14,4)*bxpi*vvq*yc*(-3*o*x12*x2z*tx+3./
     #    2.*o*x12*x2zs-3*o*x2z*txs+3./2.*o*tx*x2zs-9./2.*o*x2zs
     #    -3*os*x2z*tx+9./2.*os*x2zs-3*x12*x2z*txs-3./2.*x12*tx
     #    *x2zs+9./2.*tx*x2zs)
      gg20q= gg20q+rwwg(14,4)*vvq*bxp*yc*(3*o*x12*x2z-3./2.*o*
     #    x12*tx+3./2.*o*x12-3./2.*o*x2z*tx-9./2.*o*x2z-3./2.*o
     #    *tx-3./2.*o*txs-3./2.*o+9./2.*os*x2z-3./2.*os*tx+3./
     #    2.*os-3*x12*x2z*tx-3./2.*x12*tx-3./2.*x12*txs+9./2.*
     #    x2z*tx+3./2.*tx)
      gg20q= gg20q+rwwg(14,4)*vvq*bxps*yc*(-3./2.*o*x12+3./2.*
     #    o*tx+3./2.*o-3./2.*os+3./2.*x12*tx-3./2.*tx)
      gg20q= gg20q+rwwg(14,4)*vvq*yc*(3*o*x12*x2z*tx-3*o*x12*
     #    x2z+3./2.*o*x12*tx-3./2.*o*x12*x2zs+3./2.*o*x2z*tx+3*
     #    o*x2z*txs+9./2.*o*x2z-3./2.*o*tx*x2zs+9./2.*o*x2zs+3./
     #    2.*o*txs+3*os*x2z*tx-9./2.*os*x2z+3./2.*os*tx-9./2.*
     #    os*x2zs+3*x12*x2z*tx+3*x12*x2z*txs+3./2.*x12*tx*x2zs+
     #    3./2.*x12*txs-9./2.*x2z*tx-9./2.*tx*x2zs)
      gg20q= gg20q+rwwg(14,11)*vvq*bxp*yc*(o*x12-x2z*tx+txs)
      gg20q= gg20q+rwwg(14,11)*vvq*yc*(-o*x12*x2z-x2z*txs+
     #    tx*x2zs)
      gg20q= gg20q+rwwg(14,12)*xx*vvq*yc*(3*o*x2z*txs-3*o*tx*
     #    x2zs+3*x12*x2z*txs-3*tx*x2zs)
      gg20q= gg20q+rwwg(14,12)*bxpi*vvq*yc*(3*o*txs+3*x12*x2z*tx
     #    +3*x12*txs-6*x2z*tx)
      gg20q= gg20q+rwwg(14,12)*vvq*bxp*yc*(1./2.*o*x2z+2*o*tx+
     #    1./2.*o-1./2.*os+1./2.*x12*x2z+2*x12*tx-1./2.*x12-1.
     #    /2.*x2z-2*tx+1./2.*x12s)
      gg20q= gg20q+rwwg(14,12)*vvq*yc*(1./2.*o*x12*x2z-o*x12*tx
     #    +1./2.*o*x2z*tx-1./2.*o*x2z-3*o*tx-1./2.*o*x2zs-3*o
     #    *txs+1./2.*os*x2z-1./2.*os*tx-5./2.*x12*x2z*tx+1./2.*
     #    x12*x2z-3*x12*tx-3*x12*txs+5*x2z*tx-1./2.*tx*x12s+3
     #    *tx+1./2.*x2zs)
*
      wto_wgg21q= gg20q
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg14s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg10s= xx*rl3*vvc*gtm2*ys*(2*o*x12*x2z-2./3.*o*x12*ux-4./3.*o
     #    *x2z*ux-2./3.*o*x2z+2./3.*o*x2zs+2./3.*o*uxs-4./3.*os
     #    *x12-4./3.*os*x2z+4./3.*os*ux+2./3.*oc-2./3.*x12*x2z*
     #    ux+4./3.*x12*x2z-2./3.*x12*x2zs+2./3.*x12*uxs-2./3.*
     #    x2z*ux+4./3.*x2z*x12s-2*ux*x12s+2*x12c+4./3.*x2zs)
      gg10s= gg10s+xx*vvs*gtm2*pwsm2*y*zxi*(8./3.*o*x12*ux-4./3.
     #    *o*x12-4./9.*o*ux-4./9.*o*uxs+40./9.*os*x12-16./9.*os
     #    *ux-4./3.*os-16./9.*oc-4./9.*x12*ux+4./9.*x12*uxs)
      gg10s= gg10s+xx*vvs*gtm2*pwsm2*y*(34./9.*o*x12+4./9.*o*
     #    x2z-8./9.*o*ux-4./3.*o-4./3.*os-8./9.*x12*x2z+10./9.
     #    *x12*ux+8./9.*x2z-4./9.*ux-2./3.*x12s)
      gg10s= gg10s+bxpi*rl3*vvc*gtm2*ys*(5./3.*o*x12+1./3.*o*x2z
     #    -1./3.*o*ux-2./3.*o-1./3.*os-4./3.*x12*x2z+1./3.*
     #    x12*ux+4./3.*x12+7./3.*x2z-2./3.*ux)
      gg10s= gg10s+bxpi*vvs*gtm2*pwsm2*y*zxi*(40./9.*o*x12-4./3.
     #    *o*ux-20./9.*o-8./3.*os+4./3.*x12*ux-8./9.*x12-4./9.*ux)
      gg10s= gg10s+bxpi*vvs*gtm2*pwsm2*y*(-4./9.*o)
      gg10s= gg10s+rl1*vvs*y*bxp*(1./3.-1./3.*o-x12)
      gg10s= gg10s+rl1*vvs*y*(1./3.*o*x2z-1./3.*o*ux-1./3.*o
     #    +2./3.*x12*x2z-1./3.*x12*ux+1./3.*x12-1./3.*x2z+2./
     #    3.*x12s)
      gg10s= gg10s+rl3*vvc*gtm2*bxps*ys*(-2./3.)
      gg10s= gg10s+rl3*vvc*gtm2*ys*bxp*(2-5./3.*o-1./3.*x12+
     #    4./3.*x2z-2./3.*ux)
      gg10s= gg10s+rl3*vvc*gtm2*ys*(-1-2./3.*o*x12+o*x2z+
     #    1./3.*o*ux+1./3.*o+2./3.*os+2./3.*x12*x2z-x12+2./3.
     #    *x2z*ux-10./3.*x2z+2./3.*ux-2./3.*x2zs)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*bxp*zxi*(-2./3.-14./9.*o
     #    +2./3.*x12)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*bxp*(1./9.)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*zxi*(8./9.-34./9.*o*x12+
     #    14./9.*o*ux+28./9.*o+10./3.*os-10./9.*x12*ux-4./9.*
     #    x12+4./9.*ux)
      gg10s= gg10s+vvs*gtm2*pwsm2*y*(-2./9.+o+1./3.*x12-1./9.*x2z)
*
      wto_wgg14s= gg10s
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg24s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg20s= xx*rl3*vvc*gtm2*ys*(6*o*x12*x2z-2*o*x12*ux-4*o*x2z*ux
     #    -2*o*x2z+2*o*x2zs+2*o*uxs-4*os*x12-4*os*x2z+4*os*
     #    ux+2*oc-2*x12*x2z*ux+4*x12*x2z-2*x12*x2zs+2*x12*uxs
     #    -2*x2z*ux+4*x2z*x12s-6*ux*x12s+6*x12c+4*x2zs)
      gg20s= gg20s+xx*vvs*gtm2*pwsm2*y*zxi*(8*o*x12*ux-4*o*x12
     #    -4./3.*o*ux-4./3.*o*uxs+40./3.*os*x12-16./3.*os*ux-
     #    4*os-16./3.*oc-4./3.*x12*ux+4./3.*x12*uxs)
      gg20s= gg20s+xx*vvs*gtm2*pwsm2*y*(34./3.*o*x12+4./3.*o*
     #    x2z-8./3.*o*ux-4*o-4*os-8./3.*x12*x2z+10./3.*x12*ux
     #    +8./3.*x2z-4./3.*ux-2*x12s)
      gg20s= gg20s+bxpi*rl3*vvc*gtm2*ys*(5*o*x12+o*x2z-o*ux-
     #    2*o-os-4*x12*x2z+x12*ux+4*x12+7*x2z-2*ux)
      gg20s= gg20s+bxpi*vvs*gtm2*pwsm2*y*zxi*(40./3.*o*x12-4*o*
     #    ux-20./3.*o-8*os+4*x12*ux-8./3.*x12-4./3.*ux)
      gg20s= gg20s+bxpi*vvs*gtm2*pwsm2*y*(-4./3.*o)
      gg20s= gg20s+rl1*vvs*y*bxp*(1./3.-1./3.*o-x12)
      gg20s= gg20s+rl1*vvs*y*(1./3.*o*x2z-1./3.*o*ux-1./3.*o
     #    +2./3.*x12*x2z-1./3.*x12*ux+1./3.*x12-1./3.*x2z+2./
     #    3.*x12s)
      gg20s= gg20s+rl3*vvc*gtm2*bxps*ys*(-2./3.)
      gg20s= gg20s+rl3*vvc*gtm2*ys*bxp*(4-5./3.*o-5./3.*x12+
     #    4./3.*x2z-2./3.*ux)
      gg20s= gg20s+rl3*vvc*gtm2*ys*(-3-4*o*x12+1./3.*o*x2z
     #    +o*ux+5./3.*o+4./3.*os+10./3.*x12*x2z-2./3.*x12*ux
     #    -7./3.*x12+2./3.*x2z*ux-8*x2z+2*ux-2./3.*x2zs)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*bxp*zxi*(-22./9.-10./3.*o
     #    +22./9.*x12)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*bxp*(1./9.)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*zxi*(8./3.-38./3.*o*x12+
     #    38./9.*o*ux+28./3.*o+26./3.*os-34./9.*x12*ux-4./9.*
     #    x12+4./3.*ux)
      gg20s= gg20s+vvs*gtm2*pwsm2*y*(-2./9.+17./9.*o+1./3.*
     #    x12-1./9.*x2z)
*
      wto_wgg24s= gg20s
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg15s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg11s= xx*rl3*vvc*gtm2*ys*(-2./3.*o*x12*x2zs-4./3.*o*x2z*x12s
     #    -2./3.*o*x12c-2./3.*x12*x12c+2./3.*x12*x2zc-4./3.*x12
     #    *x2zs-2./3.*x2z*x12s-2./3.*x2z*x12c+2./3.*x12s*x2zs-2.
     #    /3.*x2zc)
      gg11s= gg11s+xx*vvs*gtm2*pwsm2*y*zxi*(-4./9.*os*x12+8./
     #    9.*oc*x12-4./9.*oc)
      gg11s= gg11s+xx*vvs*gtm2*pwsm2*y*(-8./9.*o*x12*x2z+4./9.
     #    *o*x2z-8./9.*o*x12s+8./9.*os*x12-4./9.*os-4./9.*x12*
     #    x2z+2./9.*x12*x2zs-2./9.*x12c-4./9.*x2zs)
      gg11s= gg11s+bxpi*rl3*vvc*gtm2*ys*(-5./3.*o*x12*x2z-5./3.
     #    *o*x12s-3*x12*x2z+5./3.*x12*x2zs+2./3.*x2z*x12s-2./3.
     #    *x12s-x12c-7./3.*x2zs)
      gg11s= gg11s+bxpi*vvs*gtm2*pwsm2*y*zxi*(-4./9.*o*x12+8./
     #    9.*os*x12-8./9.*os)
      gg11s= gg11s+bxpi*vvs*gtm2*pwsm2*y*(-8./9.*o*x12+4./9.*
     #    x12*x2z-4./9.*x12-8./9.*x2z)
      gg11s= gg11s+rl1*vvs*bxps*y*(2./3.-2./3.*o-4./3.*x12)
      gg11s= gg11s+rl1*vvs*y*bxp*(-1./3.+2./3.*o*x2z+1./3.*o
     #    +4./3.*x12*x2z+1./3.*x12-x2z+4./3.*x12s)
      gg11s= gg11s+rl1*vvs*y*(1./3.*o*x12-1./3.*o*x2z-1./3.*
     #    os*x12-1./3.*x12*x2zs-2./3.*x2z*x12s+1./3.*x2z-1./3.*
     #    x12s-1./3.*x12c+1./3.*x2zs)
      gg11s= gg11s+rl3*vvc*gtm2*bxps*ys*bxp*(-2./3.)
      gg11s= gg11s+rl3*vvc*gtm2*bxps*ys*(7./3.-4./3.*o-2./3.*
     #    x12+4./3.*x2z)
      gg11s= gg11s+rl3*vvc*gtm2*ys*bxp*(-4./3.+1./3.*o*x12+2
     #    *o*x2z+1./3.*o+5./3.*x12*x2z-2*x12-5*x2z+x12s-2./
     #    3.*x2zs)
      gg11s= gg11s+rl3*vvc*gtm2*ys*(1./3.*o*x12*x2z+4./3.*o*x12
     #    -1./3.*o*x2z+o*x12s-2./3.*o*x2zs-1./3.*os*x12+8./3.
     #    *x12*x2z-2*x12*x2zs+5./3.*x12-4./3.*x2z*x12s+3*x2z+
     #    2./3.*x12s+2./3.*x12c+10./3.*x2zs)
      gg11s= gg11s+vvs*gtm2*pwsm2*bxps*y*(2./9.)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*bxp*zxi*(-2./9.+4./9.*o*
     #    x12-4./9.*os)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*bxp*(-7./9.+1./3.*o+1./3.
     #    *x12-1./3.*x2z)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*zxi*(-4./9.*o*x12+2./3.*o
     #    -4./9.*os*x12+4./9.*os+4./9.*oc+2./9.*x12)
      gg11s= gg11s+vvs*gtm2*pwsm2*y*(2./3.+7./9.*o*x12-1./3.*
     #    o*x2z-4./9.*o+4./9.*os-4./9.*x12*x2z+1./9.*x12+11./
     #    9.*x2z-1./9.*x12s+1./9.*x2zs)
*
      wto_wgg15s= gg11s
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg25s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg21s= xx*rl3*vvc*gtm2*ys*(-2*o*x12*x2zs-4*o*x2z*x12s-2*o*
     #    x12c-2*x12*x12c+2*x12*x2zc-4*x12*x2zs-2*x2z*x12s-2*
     #    x2z*x12c+2*x12s*x2zs-2*x2zc)
      gg21s= gg21s+xx*vvs*gtm2*pwsm2*y*zxi*(-4./3.*os*x12+8./
     #    3.*oc*x12-4./3.*oc)
      gg21s= gg21s+xx*vvs*gtm2*pwsm2*y*(-8./3.*o*x12*x2z+4./3.
     #    *o*x2z-8./3.*o*x12s+8./3.*os*x12-4./3.*os-4./3.*x12*
     #    x2z+2./3.*x12*x2zs-2./3.*x12c-4./3.*x2zs)
      gg21s= gg21s+bxpi*rl3*vvc*gtm2*ys*(-5*o*x12*x2z-5*o*x12s
     #    -9*x12*x2z+5*x12*x2zs+2*x2z*x12s-2*x12s-3*x12c-7*x2zs)
      gg21s= gg21s+bxpi*vvs*gtm2*pwsm2*y*zxi*(-4./3.*o*x12+8./
     #    3.*os*x12-8./3.*os)
      gg21s= gg21s+bxpi*vvs*gtm2*pwsm2*y*(-8./3.*o*x12+4./3.*
     #    x12*x2z-4./3.*x12-8./3.*x2z)
      gg21s= gg21s+rl1*vvs*bxps*y*(2./3.-2./3.*o-4./3.*x12)
      gg21s= gg21s+rl1*vvs*y*bxp*(-1./3.+2./3.*o*x2z+1./3.*o
     #    +4./3.*x12*x2z+1./3.*x12-x2z+4./3.*x12s)
      gg21s= gg21s+rl1*vvs*y*(1./3.*o*x12-1./3.*o*x2z-1./3.*
     #    os*x12-1./3.*x12*x2zs-2./3.*x2z*x12s+1./3.*x2z-1./3.*
     #    x12s-1./3.*x12c+1./3.*x2zs)
      gg21s= gg21s+rl3*vvc*gtm2*bxps*ys*bxp*(-2./3.)
      gg21s= gg21s+rl3*vvc*gtm2*bxps*ys*(13./3.-4./3.*o-2*x12
     #    +4./3.*x2z)
      gg21s= gg21s+rl3*vvc*gtm2*ys*bxp*(-10./3.-5./3.*o*x12+
     #    2*o*x2z+1./3.*o+5*x12*x2z-4*x12-31./3.*x2z+5./3.*
     #    x12s-2./3.*x2zs)
      gg21s= gg21s+rl3*vvc*gtm2*ys*(11./3.*o*x12*x2z+10./3.*o*
     #    x12-1./3.*o*x2z+13./3.*o*x12s-2./3.*o*x2zs-1./3.*os*
     #    x12+16./3.*x12*x2z-16./3.*x12*x2zs+5*x12-8./3.*x2z*
     #    x12s+25./3.*x2z+4./3.*x12s+8./3.*x12c+8*x2zs)
      gg21s= gg21s+vvs*gtm2*pwsm2*bxps*y*(2./9.)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*bxp*zxi*(-2./9.+4./9.*o*
     #    x12-8./9.*o-4./9.*os)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*bxp*(-5./3.+1./3.*o+7./9.
     #    *x12-1./3.*x2z)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*zxi*(4./9.*o*x12+14./9.*o
     #    -20./9.*os*x12+20./9.*os+4./9.*oc+2./9.*x12)
      gg21s= gg21s+vvs*gtm2*pwsm2*y*(14./9.+23./9.*o*x12-1./3.
     #    *o*x2z-4./9.*o+4./9.*os-4./3.*x12*x2z+5./9.*x12+3*
     #    x2z-1./9.*x12s+1./9.*x2zs)
*
      wto_wgg25s= gg21s
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg16s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg12s= xx*vvs*dms*gtm2*pwsm2*(-2./9.*x12*x2zs-8./9.*
     #    x2z*x12s-2./3.*x12c)
      gg12s= gg12s+xx*vvs*gtm2*pwsm2*y*(2./9.*x12*x12c+4./9.*
     #    x2z*x12c+2./9.*x12s*x2zs)
      gg12s= gg12s+bxpi*vvs*dms*gtm2*pwsm2*(-8./9.*x12*
     #    x2z-4./3.*x12s)
      gg12s= gg12s+bxpi*vvs*gtm2*pwsm2*y*(2./9.*x12*x2zs+8./9.*
     #    x2z*x12s+2./3.*x12c)
      gg12s= gg12s+vvs*dms*gtm2*pwsm2*bxps*(2./9.)
      gg12s= gg12s+vvs*dms*gtm2*pwsm2*bxp*(-1./9.-1./9.
     #    *o-x12-1./3.*x2z)
      gg12s= gg12s+vvs*dms*gtm2*pwsm2*(1./9.*o*x12+1./9.
     #    *o*x2z+10./9.*x12*x2z+7./9.*x12+1./9.*x2z+13./9.*x12s
     #    +1./9.*x2zs)
      gg12s= gg12s+vvs*gtm2*pwsm2*bxps*y*bxp*(1./9.)
      gg12s= gg12s+vvs*gtm2*pwsm2*bxps*y*(-1./9.-4./9.*x12-2.
     #    /9.*x2z)
      gg12s= gg12s+vvs*gtm2*pwsm2*y*bxp*(2./3.*x12*x2z+4./9.*x12
     #    +2./9.*x2z+7./9.*x12s+1./9.*x2zs)
      gg12s= gg12s+vvs*gtm2*pwsm2*y*(-2./3.*x12*x2z-2./9.*x12
     #    *x2zs-8./9.*x2z*x12s-7./9.*x12s-2./3.*x12c-1./9.*x2zs)
*
      wto_wgg16s= gg12s
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg26s()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg22s= xx*vvs*dms*gtm2*pwsm2*(-2./3.*x12*x2zs-8./3.*
     #    x2z*x12s-2*x12c)
      gg22s= gg22s+xx*vvs*gtm2*pwsm2*y*(2./3.*x12*x12c+4./3.*
     #    x2z*x12c+2./3.*x12s*x2zs)
      gg22s= gg22s+bxpi*vvs*dms*gtm2*pwsm2*(-8./3.*x12*
     #    x2z-4*x12s)
      gg22s= gg22s+bxpi*vvs*gtm2*pwsm2*y*(2./3.*x12*x2zs+8./3.*
     #    x2z*x12s+2*x12c)
      gg22s= gg22s+vvs*dms*gtm2*pwsm2*bxps*(2./9.)
      gg22s= gg22s+vvs*dms*gtm2*pwsm2*bxp*(-1./9.-1./9.
     #    *o-7./3.*x12-1./3.*x2z)
      gg22s= gg22s+vvs*dms*gtm2*pwsm2*(1./9.*o*x12+1./9.
     #    *o*x2z+26./9.*x12*x2z+19./9.*x12+1./9.*x2z+37./9.*
     #    x12s+1./9.*x2zs)
      gg22s= gg22s+vvs*gtm2*pwsm2*bxps*y*bxp*(1./9.)
      gg22s= gg22s+vvs*gtm2*pwsm2*bxps*y*(-1./9.-8./9.*x12-2.
     #    /9.*x2z)
      gg22s= gg22s+vvs*gtm2*pwsm2*y*bxp*(14./9.*x12*x2z+8./9.*
     #    x12+2./9.*x2z+19./9.*x12s+1./9.*x2zs)
      gg22s= gg22s+vvs*gtm2*pwsm2*y*(-14./9.*x12*x2z-2./3.*
     #    x12*x2zs-8./3.*x2z*x12s-19./9.*x12s-2*x12c-1./9.*x2zs)
*
      wto_wgg26s= gg22s
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg14c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg10c= rs1wg(1)*xx*vvc*gtm2*ys*(4*o*x12*x2z-4./3.*o*x12*ux-8./
     #    3.*o*x2z*ux-4./3.*o*x2z+4./3.*o*x2zs+4./3.*o*uxs-8./3.
     #    *os*x12-8./3.*os*x2z+8./3.*os*ux+4./3.*oc-4./3.*x12*
     #    x2z*ux+8./3.*x12*x2z-4./3.*x12*x2zs+4./3.*x12*uxs-4./
     #    3.*x2z*ux+8./3.*x2z*x12s-4*ux*x12s+4*x12c+8./3.*x2zs)
      gg10c= gg10c+rs1wg(1)*bxpi*vvc*gtm2*ys*(16./3.*o*x12+4./3.
     #    *o*x2z-4./3.*o*ux-4./3.*o-4./3.*os-4*x12*x2z+4./3.*
     #    x12*ux+8./3.*x12+16./3.*x2z-4./3.*ux-4./3.*x12s)
      gg10c= gg10c+rs1wg(1)*vvc*gtm2*bxps*ys*(-4./3.)
      gg10c= gg10c+rs1wg(1)*vvc*gtm2*ys*bxp*(14./3.-10./3.*o-2
     #    *x12+8./3.*x2z-4./3.*ux)
      gg10c= gg10c+rs1wg(1)*vvc*gtm2*ys*(-8./3.-4*o*x12+2./
     #    3.*o*x2z+2*o*ux+2./3.*o+8./3.*os+8./3.*x12*x2z-2./3.
     #    *x12*ux-2./3.*x12+4./3.*x2z*ux-22./3.*x2z+4./3.*ux+
     #    4./3.*x12s-4./3.*x2zs)
      gg10c= gg10c+rs1wg(4)*xx*vvc*gtm2*ys*(2./3.*o*x12*x2z*ux-
     #    1./3.*o*x12*x2zs-2./3.*o*x2z*x12s-1./3.*o*x2z*uxs+1./3.
     #    *o*ux*x2zs-1./3.*o*x2zs+1./3.*os*x12*x2z-1./3.*os*x2z*
     #    ux+1./3.*os*x2zs-1./3.*x12*x2z*uxs+2./3.*x12*ux*x2zs-
     #    1./3.*x12*x2zc-1./3.*x12*x2zs+x2z*ux*x12s-x2z*x12c+1./
     #    3.*ux*x2zs-4./3.*x12s*x2zs-1./3.*x2zc)
      gg10c= gg10c+rs1wg(4)*bxpi*vvc*gtm2*ys*(-2./3.*o*x12*x2z
     #    +2./3.*o*x12*ux+1./3.*o*x2z*ux-2./3.*o*x2z-2./3.*o*
     #    x12s-1./3.*o*uxs+1./3.*os*x12+2./3.*os*x2z-1./3.*os*
     #    ux+2./3.*x12*x2z*ux-2./3.*x12*x2z-2./3.*x12*x2zs-1./3.
     #    *x12*uxs+2./3.*x2z*ux-2*x2z*x12s+ux*x12s-x12c-x2zs)
      gg10c= gg10c+rs1wg(4)*vvc*gtm2*bxps*ys*(2./3.-1./3.*o-1./
     #    3.*x12)
      gg10c= gg10c+rs1wg(4)*vvc*gtm2*ys*bxp*(-1./3.+1./6.*o*
     #    x12+1./2.*o*x2z-1./6.*o*ux-1./2.*o+1./2.*os+1./6.*
     #    x12*x2z-1./6.*x12*ux-2./3.*x12-5./3.*x2z+1./2.*ux-1.
     #    /3.*x12s)
      gg10c= gg10c+rs1wg(4)*vvc*gtm2*ys*(1./3.*o*x12*x2z-5./6.*
     #    o*x12*ux+1./3.*o*x12-1./3.*o*x2z*ux+5./6.*o*x2z+2./3.
     #    *o*x12s-1./6.*o*x2zs+1./2.*o*uxs+1./3.*o-1./2.*os*x12
     #    -5./6.*os*x2z+1./2.*os*ux-1./3.*os-5./6.*x12*x2z*ux
     #    +4./3.*x12*x2z+1./2.*x12*x2zs+1./2.*x12*uxs+1./3.*x12
     #    -5./6.*x2z*ux+2*x2z*x12s+x2z-4./3.*ux*x12s-1./3.*ux
     #    +2./3.*x12s+7./6.*x12c+4./3.*x2zs)
      gg10c= gg10c+rs1wg(7)*xx*vvc*gtm2*ys*(1./6.*o*x12*x2zs-1./
     #    6.*o*x2z*x12s+1./6.*o*x2z*uxs-1./3.*o*ux*x2zs+1./6.*o*
     #    x2zc-1./3.*o*x2zs-1./6.*os*x12*x2z+1./3.*os*x2z*ux-1./
     #    6.*os*x2zs+1./6.*oc*x2z+1./6.*x12*x2z*uxs-1./6.*x12*ux*
     #    x2zs-1./6.*x12*x2zc+2./3.*x12*x2zs-1./3.*x2z*ux*x12s+
     #    1./6.*x2z*x12c-1./6.*ux*x2zs+1./3.*x2zc)
      gg10c= gg10c+rs1wg(7)*bxpi*vvc*gtm2*ys*(-1./6.*o*x12*x2z
     #    -1./3.*o*x2z+1./6.*os*x2z+2./3.*x12*x2z-1./6.*x12*
     #    x2zs-1./6.*x2z*ux-1./3.*x2z*x12s+1./2.*x2zs)
      gg10c= gg10c+rs1wg(7)*vvc*gtm2*bxps*ys*(-1./6.+1./6.*o
     #    +1./6.*x12)
      gg10c= gg10c+rs1wg(7)*vvc*gtm2*ys*bxp*(-1./2.*o*x12-1./2.
     #    *o*x2z+1./6.*o*ux-1./6.*o+1./12.*os-1./2.*x12*x2z+1.
     #    /6.*x12*ux+1./2.*x12+2./3.*x2z-1./6.*ux-7./12.*x12s)
      gg10c= gg10c+rs1wg(7)*vvc*gtm2*ys*(2./3.*o*x12*x2z-1./6.*
     #    o*x12*ux-1./6.*o*x2z*ux+1./2.*o*x2z+1./4.*o*x12s+1./3.
     #    *o*x2zs-1./6.*os*x2z-1./12.*os*ux-1./12.*oc-1./6.*x12
     #    *x2z*ux-7./6.*x12*x2z+1./2.*x12*x2zs+1./3.*x2z*ux+5./
     #    6.*x2z*x12s-1./6.*x2z-1./12.*ux*x12s+1./6.*x12c-5./6.
     #    *x2zs)
      gg10c= gg10c+rs1wg(8)*bxpi*vvc*gtm2*ys*(1./3.*o*x12*x2z-2./
     #    3.*o*x12*ux-1./3.*o*x2z*ux+1./3.*o*x2z+2./3.*o*x12s+1.
     #    /3.*o*uxs-1./3.*os*x12-1./3.*os*x2z+1./3.*os*ux-2./3.
     #    *x12*x2z*ux+1./3.*x12*x2z+1./3.*x12*x2zs+1./3.*x12*uxs
     #    -1./3.*x2z*ux+4./3.*x2z*x12s-ux*x12s+x12c+1./3.*
     #    x2zs)
      gg10c= gg10c+rs1wg(8)*vvc*gtm2*bxps*ys*(-1./3.)
      gg10c= gg10c+rs1wg(8)*vvc*gtm2*ys*bxp*(1./3.+1./6.*o*x12
     #    +1./6.*o*x2z-1./6.*o*ux+2./3.*o-2./3.*os+1./2.*x12*
     #    x2z-1./6.*x12*ux+1./6.*x12+1./2.*x2z-1./6.*ux+5./6.
     #    *x12s)
      gg10c= gg10c+rs1wg(8)*vvc*gtm2*ys*(-1./3.*o*x12*x2z+5./
     #    6.*o*x12*ux-1./3.*o*x12+1./2.*o*x2z*ux-2./3.*o*x2z-2./
     #    3.*o*x12s-1./2.*o*uxs-1./3.*o+1./2.*os*x12+1./2.*os*
     #    x2z-1./2.*os*ux+1./3.*os+x12*x2z*ux-1./2.*x12*x2z-1.
     #    /2.*x12*x2zs-1./2.*x12*uxs-1./3.*x12+1./6.*x2z*ux-5./
     #    3.*x2z*x12s-2./3.*x2z+4./3.*ux*x12s+1./3.*ux-2./3.*
     #    x12s-7./6.*x12c-1./6.*x2zs)
      gg10c= gg10c+rs1wg(9)*bxpi*vvc*gtm2*ys*(-2*o*x12-2./3.*o
     #    *x2z+2./3.*o*ux+2./3.*os+4./3.*x12*x2z-2./3.*x12*ux
     #    -2./3.*x2z+4./3.*x12s)
      gg10c= gg10c+rs1wg(9)*vvc*gtm2*ys*bxp*(-2./3.+4./3.*x12)
      gg10c= gg10c+rs1wg(9)*vvc*gtm2*ys*(2./3.+8./3.*o*x12+4./
     #    3.*o*x2z-4./3.*o*ux-4./3.*os-4./3.*x12*x2z+2./3.*x12*
     #    ux-4./3.*x12+2./3.*x2z-4./3.*x12s)
      gg10c= gg10c+rs1wg(10)*xx*vvc*gtm2*ys*(-1./6.*o*x12*x2zs
     #    +1./6.*o*x2z*x12s-1./6.*o*x2z*uxs+1./3.*o*ux*x2zs-1./
     #    6.*o*x2zc+1./3.*o*x2zs+1./6.*os*x12*x2z-1./3.*os*x2z*ux
     #    +1./6.*os*x2zs-1./6.*oc*x2z-1./6.*x12*x2z*uxs+1./6.*
     #    x12*ux*x2zs+1./6.*x12*x2zc-2./3.*x12*x2zs+1./3.*x2z*ux*
     #    x12s-1./6.*x2z*x12c+1./6.*ux*x2zs-1./3.*x2zc)
      gg10c= gg10c+rs1wg(10)*bxpi*vvc*gtm2*ys*(1./3.*o*x2z*ux+2./
     #    3.*o*x2z+1./6.*o*x12s-1./6.*o*x2zs-1./6.*o*uxs+1./6.*
     #    os*x12-1./3.*os*ux-1./6.*oc+1./6.*x12*x2z*ux-4./3.*
     #    x12*x2z+1./3.*x12*x2zs-1./6.*x12*uxs+1./3.*x2z*ux+1./
     #    3.*x2z*x12s+1./3.*ux*x12s-1./6.*x12c-5./6.*x2zs)
      gg10c= gg10c+rs1wg(10)*vvc*gtm2*bxps*ys*(1./3.-1./6.*o-1.
     #    /6.*x12)
      gg10c= gg10c+rs1wg(10)*vvc*gtm2*ys*bxp*(-1./6.+7./12.*o*
     #    x12+5./12.*o*x2z-1./12.*o*ux+1./2.*o-1./4.*os+7./12.
     #    *x12*x2z-1./12.*x12*ux-13./12.*x12-13./12.*x2z+1./4.*
     #    ux+5./6.*x12s)
      gg10c= gg10c+rs1wg(10)*vvc*gtm2*ys*(-1./3.*o*x12*x2z+1./
     #    12.*o*x12*ux-1./6.*o*x12-5./12.*o*x2z*ux-5./6.*o*x2z-
     #    5./12.*o*x12s+1./4.*o*uxs-1./3.*o-1./4.*os*x12-1./12.
     #    *os*x2z+1./2.*os*ux+1./6.*os+1./4.*oc-1./6.*x12*x2z*
     #    ux+19./12.*x12*x2z-7./12.*x12*x2zs+1./4.*x12*uxs+2./3.
     #    *x12-5./12.*x2z*ux-2./3.*x2z*x12s+2./3.*x2z-5./12.*ux
     #    *x12s-1./6.*ux-1./3.*x12s+1./12.*x12c+13./12.*x2zs)
      gg10c= gg10c+rs1wg(11)*vvc*gtm2*bxps*ys*(-2./3.)
      gg10c= gg10c+rs1wg(11)*vvc*gtm2*ys*bxp*(-1./3.*o+5./3.*
     #    x12+4./3.*x2z-2./3.*ux)
      gg10c= gg10c+rs1wg(11)*vvc*gtm2*ys*(1./3.*o*x12+1./3.*o*
     #    x2z-5./3.*x12*x2z+2./3.*x12*ux+2./3.*x2z*ux-x12s-2./
     #    3.*x2zs)
      gg10c= gg10c+rs1wg(12)*xx*vvc*gtm2*ys*(-2./3.*o*x12*ux-
     #    2./3.*o*x2z*ux-2./3.*o*x2z+2./3.*o*uxs-4./3.*os*x12-2.
     #    /3.*os*x2z+4./3.*os*ux+2./3.*oc-4./3.*x12*x2z*ux+4./3.
     #    *x12*x2z+2./3.*x12*x2zs+2./3.*x12*uxs-2./3.*x2z*ux+8./
     #    3.*x2z*x12s-2*ux*x12s+2*x12c+2./3.*x2zs)
      gg10c= gg10c+rs1wg(12)*bxpi*vvc*gtm2*ys*(2./3.*o*x12-2./3.
     #    *o+2./3.*x12*x2z+4./3.*x12+4./3.*x2z-2./3.*ux+2./3.*x12s)
      gg10c= gg10c+rs1wg(12)*vvc*gtm2*ys*bxp*(4./3.-2./3.*o-2./
     #    3.*x12)
      gg10c= gg10c+rs1wg(12)*vvc*gtm2*ys*(-2./3.+1./3.*o*x2z
     #    +1./3.*o+1./3.*os-1./3.*x12*x2z-5./3.*x12-2*x2z+2.
     #    /3.*ux-1./3.*x12s)
      gg10c= gg10c+rs1wg(13)*xx*vvc*gtm2*ys*(o*x12*x2z-1./3.*o*
     #    x12*ux-2./3.*o*x2z*ux-1./3.*o*x2z+1./3.*o*x2zs+1./3.*
     #    o*uxs-2./3.*os*x12-2./3.*os*x2z+2./3.*os*ux+1./3.*oc
     #    -1./3.*x12*x2z*ux+2./3.*x12*x2z-1./3.*x12*x2zs+1./3.*
     #    x12*uxs-1./3.*x2z*ux+2./3.*x2z*x12s-ux*x12s+x12c+2./
     #    3.*x2zs)
      gg10c= gg10c+rs1wg(13)*bxpi*vvc*gtm2*ys*(1./3.*o*x12-1./3.
     #    *o-1./3.*x12*x2z+2./3.*x12+x2z-1./3.*ux+1./3.*x12s)
      gg10c= gg10c+rs1wg(13)*vvc*gtm2*ys*bxp*(1./2.)
      gg10c= gg10c+rs1wg(13)*vvc*gtm2*ys*(-1./3.-1./6.*o*x12
     #    +1./6.*o*ux+1./2.*o+1./2.*x12*x2z+1./6.*x12*ux-7./6.
     #    *x12-7./6.*x2z+1./3.*ux-1./6.*x12s)
      gg10c= gg10c+rs1wg(14)*xx*vvc*gtm2*ys*(-o*x12*x2z+1./3.
     #    *o*x2z*ux-1./3.*o*x2zs+1./3.*os*x2z-1./3.*x12*x2z*ux+
     #    2./3.*x12*x2zs+2./3.*x2z*x12s-1./3.*x2zs)
      gg10c= gg10c+rs1wg(14)*bxpi*vvc*gtm2*ys*(-o*x12-1./3.*o*
     #    x2z+1./3.*o*ux+1./3.*os+4./3.*x12*x2z-1./3.*x12*ux-
     #    2./3.*x2z+2./3.*x12s)
      gg10c= gg10c+rs1wg(14)*vvc*gtm2*bxps*ys*(-1./3.)
      gg10c= gg10c+rs1wg(14)*vvc*gtm2*ys*bxp*(-1./6.-1./6.*o
     #    +3./2.*x12+2./3.*x2z-1./3.*ux)
      gg10c= gg10c+rs1wg(14)*vvc*gtm2*ys*(1./3.+2./3.*o*x12+1.
     #    /3.*o*x2z-1./6.*o*ux-1./6.*os-13./6.*x12*x2z+1./2.*
     #    x12*ux-2./3.*x12+1./3.*x2z*ux+1./2.*x2z-7./6.*x12s-
     #    1./3.*x2zs)
*
      wto_wgg14c= gg10c
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg24c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg20c= rs1wg(1)*xx*vvc*gtm2*ys*(12*o*x12*x2z-4*o*x12*ux-8*o*
     #    x2z*ux-4*o*x2z+4*o*x2zs+4*o*uxs-8*os*x12-8*os*x2z
     #    +8*os*ux+4*oc-4*x12*x2z*ux+8*x12*x2z-4*x12*x2zs+4
     #    *x12*uxs-4*x2z*ux+8*x2z*x12s-12*ux*x12s+12*x12c+8*
     #    x2zs)
      gg20c= gg20c+rs1wg(1)*bxpi*vvc*gtm2*ys*(16*o*x12+4*o*x2z
     #    -4*o*ux-4*o-4*os-12*x12*x2z+4*x12*ux+8*x12+16*
     #    x2z-4*ux-4*x12s)
      gg20c= gg20c+rs1wg(1)*vvc*gtm2*bxps*ys*(-4./3.)
      gg20c= gg20c+rs1wg(1)*vvc*gtm2*ys*bxp*(10-10./3.*o-22./3.
     #    *x12+8./3.*x2z-4./3.*ux)
      gg20c= gg20c+rs1wg(1)*vvc*gtm2*ys*(-8-44./3.*o*x12-2*
     #    o*x2z+14./3.*o*ux+10./3.*o+16./3.*os+32./3.*x12*x2z
     #    -10./3.*x12*ux-2./3.*x12+4./3.*x2z*ux-18*x2z+4*ux
     #    +4*x12s-4./3.*x2zs)
      gg20c= gg20c+rs1wg(4)*xx*vvc*gtm2*ys*(2*o*x12*x2z*ux-o*
     #    x12*x2zs-2*o*x2z*x12s-o*x2z*uxs+o*ux*x2zs-o*x2zs+os
     #    *x12*x2z-os*x2z*ux+os*x2zs-x12*x2z*uxs+2*x12*ux*x2zs
     #    -x12*x2zc-x12*x2zs+3*x2z*ux*x12s-3*x2z*x12c+ux*x2zs
     #    -4*x12s*x2zs-x2zc)
      gg20c= gg20c+rs1wg(4)*bxpi*vvc*gtm2*ys*(-2*o*x12*x2z+2*o
     #    *x12*ux+o*x2z*ux-2*o*x2z-2*o*x12s-o*uxs+os*x12+2*
     #    os*x2z-os*ux+2*x12*x2z*ux-2*x12*x2z-2*x12*x2zs-x12*
     #    uxs+2*x2z*ux-6*x2z*x12s+3*ux*x12s-3*x12c-3*x2zs)
      gg20c= gg20c+rs1wg(4)*vvc*gtm2*bxps*ys*(4./3.-1./3.*o-1./
     #    3.*x12)
      gg20c= gg20c+rs1wg(4)*vvc*gtm2*ys*bxp*(-1-1./2.*o*x12+
     #    1./2.*o*x2z-1./6.*o*ux-7./6.*o+7./6.*os-1./2.*x12*x2z
     #    -1./6.*x12*ux-4./3.*x12-11./3.*x2z+7./6.*ux-5./3.*x12s)
      gg20c= gg20c+rs1wg(4)*vvc*gtm2*ys*(5./3.*o*x12*x2z-13./6.
     #    *o*x12*ux+o*x12-o*x2z*ux+13./6.*o*x2z+2*o*x12s-1./6.
     #    *o*x2zs+7./6.*o*uxs+o-7./6.*os*x12-13./6.*os*x2z+7./
     #    6.*os*ux-os-13./6.*x12*x2z*ux+10./3.*x12*x2z+11./6.*
     #    x12*x2zs+7./6.*x12*uxs+x12-13./6.*x2z*ux+6*x2z*x12s
     #    +3*x2z-10./3.*ux*x12s-ux+2*x12s+19./6.*x12c+10./3.
     #    *x2zs)
      gg20c= gg20c+rs1wg(7)*xx*vvc*gtm2*ys*(1./2.*o*x12*x2zs-1./
     #    2.*o*x2z*x12s+1./2.*o*x2z*uxs-o*ux*x2zs+1./2.*o*x2zc-
     #    o*x2zs-1./2.*os*x12*x2z+os*x2z*ux-1./2.*os*x2zs+1./2.
     #    *oc*x2z+1./2.*x12*x2z*uxs-1./2.*x12*ux*x2zs-1./2.*x12*
     #    x2zc+2*x12*x2zs-x2z*ux*x12s+1./2.*x2z*x12c-1./2.*ux*
     #    x2zs+x2zc)
      gg20c= gg20c+rs1wg(7)*bxpi*vvc*gtm2*ys*(-1./2.*o*x12*x2z
     #    -o*x2z+1./2.*os*x2z+2*x12*x2z-1./2.*x12*x2zs-1./2.*
     #    x2z*ux-x2z*x12s+3./2.*x2zs)
      gg20c= gg20c+rs1wg(7)*vvc*gtm2*bxps*ys*(-1./6.+1./6.*o
     #    +1./6.*x12)
      gg20c= gg20c+rs1wg(7)*vvc*gtm2*ys*bxp*(-1./2.*o*x12-1./2.
     #    *o*x2z+1./6.*o*ux-1./6.*o+1./12.*os-1./2.*x12*x2z+1.
     #    /6.*x12*ux+1./2.*x12+x2z-1./6.*ux-7./12.*x12s)
      gg20c= gg20c+rs1wg(7)*vvc*gtm2*ys*(o*x12*x2z-1./6.*o*x12*
     #    ux-1./6.*o*x2z*ux+7./6.*o*x2z+1./4.*o*x12s+1./3.*o*
     #    x2zs-1./2.*os*x2z-1./12.*os*ux-1./12.*oc-1./6.*x12*
     #    x2z*ux-5./2.*x12*x2z+5./6.*x12*x2zs+2./3.*x2z*ux+3./2.
     #    *x2z*x12s-1./2.*x2z-1./12.*ux*x12s+1./6.*x12c-11./6.*
     #    x2zs)
      gg20c= gg20c+rs1wg(8)*bxpi*vvc*gtm2*ys*(o*x12*x2z-2*o*x12*
     #    ux-o*x2z*ux+o*x2z+2*o*x12s+o*uxs-os*x12-os*x2z+
     #    os*ux-2*x12*x2z*ux+x12*x2z+x12*x2zs+x12*uxs-x2z*ux
     #    +4*x2z*x12s-3*ux*x12s+3*x12c+x2zs)
      gg20c= gg20c+rs1wg(8)*vvc*gtm2*bxps*ys*(-1)
      gg20c= gg20c+rs1wg(8)*vvc*gtm2*ys*bxp*(1+5./6.*o*x12+1./
     #    6.*o*x2z-1./6.*o*ux+4./3.*o-4./3.*os+7./6.*x12*x2z-
     #    1./6.*x12*ux+5./6.*x12+11./6.*x2z-5./6.*ux+13./6.*
     #    x12s)
      gg20c= gg20c+rs1wg(8)*vvc*gtm2*ys*(-o*x12*x2z+13./6.*o*
     #    x12*ux-o*x12+7./6.*o*x2z*ux-4./3.*o*x2z-2*o*x12s-7./
     #    6.*o*uxs-o+7./6.*os*x12+7./6.*os*x2z-7./6.*os*ux+os
     #    +7./3.*x12*x2z*ux-11./6.*x12*x2z-7./6.*x12*x2zs-7./6.
     #    *x12*uxs-x12+5./6.*x2z*ux-13./3.*x2z*x12s-2*x2z+10./
     #    3.*ux*x12s+ux-2*x12s-19./6.*x12c-5./6.*x2zs)
      gg20c= gg20c+rs1wg(9)*bxpi*vvc*gtm2*ys*(-6*o*x12-2*o*x2z
     #    +2*o*ux+2*os+4*x12*x2z-2*x12*ux-2*x2z+4*x12s)
      gg20c= gg20c+rs1wg(9)*vvc*gtm2*ys*bxp*(-2+4*x12)
      gg20c= gg20c+rs1wg(9)*vvc*gtm2*ys*(2+20./3.*o*x12+8./3.
     #    *o*x2z-8./3.*o*ux-8./3.*os-4*x12*x2z+2*x12*ux-4*x12
     #    +2*x2z-4*x12s)
      gg20c= gg20c+rs1wg(10)*xx*vvc*gtm2*ys*(-1./2.*o*x12*x2zs
     #    +1./2.*o*x2z*x12s-1./2.*o*x2z*uxs+o*ux*x2zs-1./2.*o*
     #    x2zc+o*x2zs+1./2.*os*x12*x2z-os*x2z*ux+1./2.*os*x2zs
     #    -1./2.*oc*x2z-1./2.*x12*x2z*uxs+1./2.*x12*ux*x2zs+1./
     #    2.*x12*x2zc-2*x12*x2zs+x2z*ux*x12s-1./2.*x2z*x12c+1./
     #    2.*ux*x2zs-x2zc)
      gg20c= gg20c+rs1wg(10)*bxpi*vvc*gtm2*ys*(o*x2z*ux+2*o*x2z
     #    +1./2.*o*x12s-1./2.*o*x2zs-1./2.*o*uxs+1./2.*os*x12
     #    -os*ux-1./2.*oc+1./2.*x12*x2z*ux-4*x12*x2z+x12*x2zs
     #    -1./2.*x12*uxs+x2z*ux+x2z*x12s+ux*x12s-1./2.*x12c
     #    -5./2.*x2zs)
      gg20c= gg20c+rs1wg(10)*vvc*gtm2*bxps*ys*(2./3.-1./6.*o-1.
     #    /6.*x12)
      gg20c= gg20c+rs1wg(10)*vvc*gtm2*ys*bxp*(-1./2.+11./12.*o
     #    *x12+5./12.*o*x2z-1./12.*o*ux+7./6.*o-7./12.*os+11./
     #    12.*x12*x2z-1./12.*x12*ux-29./12.*x12-29./12.*x2z+7./
     #    12.*ux+3./2.*x12s)
      gg20c= gg20c+rs1wg(10)*vvc*gtm2*ys*(-1./3.*o*x12*x2z+1./
     #    12.*o*x12*ux-1./2.*o*x12-13./12.*o*x2z*ux-13./6.*o*x2z
     #    -3./4.*o*x12s+1./3.*o*x2zs+7./12.*o*uxs-o-7./12.*os
     #    *x12-1./12.*os*x2z+7./6.*os*ux+1./2.*os+7./12.*oc-1.
     #    /2.*x12*x2z*ux+47./12.*x12*x2z-5./4.*x12*x2zs+7./12.*
     #    x12*uxs+2*x12-13./12.*x2z*ux-4./3.*x2z*x12s+2*x2z-
     #    13./12.*ux*x12s-1./2.*ux-x12s+5./12.*x12c+11./4.*x2zs)
      gg20c= gg20c+rs1wg(11)*vvc*gtm2*bxps*ys*(-2./3.)
      gg20c= gg20c+rs1wg(11)*vvc*gtm2*ys*bxp*(-1./3.*o+5./3.*
     #    x12+4./3.*x2z-2./3.*ux)
      gg20c= gg20c+rs1wg(11)*vvc*gtm2*ys*(1./3.*o*x12+1./3.*o*
     #    x2z-5./3.*x12*x2z+2./3.*x12*ux+2./3.*x2z*ux-x12s-2./
     #    3.*x2zs)
      gg20c= gg20c+rs1wg(12)*xx*vvc*gtm2*ys*(-2*o*x12*ux-2*o*
     #    x2z*ux-2*o*x2z+2*o*uxs-4*os*x12-2*os*x2z+4*os*ux+
     #    2*oc-4*x12*x2z*ux+4*x12*x2z+2*x12*x2zs+2*x12*uxs-2*
     #    x2z*ux+8*x2z*x12s-6*ux*x12s+6*x12c+2*x2zs)
      gg20c= gg20c+rs1wg(12)*bxpi*vvc*gtm2*ys*(2*o*x12-2*o+2*
     #    x12*x2z+4*x12+4*x2z-2*ux+2*x12s)
      gg20c= gg20c+rs1wg(12)*vvc*gtm2*ys*bxp*(8./3.-2./3.*o-2./
     #    3.*x12)
      gg20c= gg20c+rs1wg(12)*vvc*gtm2*ys*(-2-4./3.*o*x12+1./
     #    3.*o*x2z+5./3.*o+1./3.*os-5./3.*x12*x2z-13./3.*x12-
     #    14./3.*x2z+2*ux-5./3.*x12s)
      gg20c= gg20c+rs1wg(13)*xx*vvc*gtm2*ys*(3*o*x12*x2z-o*x12*
     #    ux-2*o*x2z*ux-o*x2z+o*x2zs+o*uxs-2*os*x12-2*os*
     #    x2z+2*os*ux+oc-x12*x2z*ux+2*x12*x2z-x12*x2zs+x12*
     #    uxs-x2z*ux+2*x2z*x12s-3*ux*x12s+3*x12c+2*x2zs)
      gg20c= gg20c+rs1wg(13)*bxpi*vvc*gtm2*ys*(o*x12-o-x12*x2z
     #    +2*x12+3*x2z-ux+x12s)
      gg20c= gg20c+rs1wg(13)*vvc*gtm2*ys*bxp*(7./6.)
      gg20c= gg20c+rs1wg(13)*vvc*gtm2*ys*(-1-5./6.*o*x12+1./
     #    6.*o*ux+7./6.*o+7./6.*x12*x2z+1./6.*x12*ux-5./2.*x12
     #    -19./6.*x2z+ux-5./6.*x12s)
      gg20c= gg20c+rs1wg(14)*xx*vvc*gtm2*ys*(-3*o*x12*x2z+o*
     #    x2z*ux-o*x2zs+os*x2z-x12*x2z*ux+2*x12*x2zs+2*x2z*
     #    x12s-x2zs)
      gg20c= gg20c+rs1wg(14)*bxpi*vvc*gtm2*ys*(-3*o*x12-o*x2z
     #    +o*ux+os+4*x12*x2z-x12*ux-2*x2z+2*x12s)
      gg20c= gg20c+rs1wg(14)*vvc*gtm2*bxps*ys*(-1./3.)
      gg20c= gg20c+rs1wg(14)*vvc*gtm2*ys*bxp*(-5./6.-1./6.*o
     #    +17./6.*x12+2./3.*x2z-1./3.*ux)
      gg20c= gg20c+rs1wg(14)*vvc*gtm2*ys*(1+8./3.*o*x12+o*x2z
     #    -5./6.*o*ux-5./6.*os-29./6.*x12*x2z+7./6.*x12*ux-2*
     #    x12+1./3.*x2z*ux+11./6.*x2z-5./2.*x12s-1./3.*x2zs)
*
      wto_wgg24c= gg20c
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg15c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg11c= rs1wg(1)*xx*vvc*gtm2*ys*(-4./3.*o*x12*x2zs-8./3.*o*x2z
     #    *x12s-4./3.*o*x12c-4./3.*x12*x12c+4./3.*x12*x2zc-8./3.
     #    *x12*x2zs-4./3.*x2z*x12s-4./3.*x2z*x12c+4./3.*x12s*x2zs
     #    -4./3.*x2zc)
      gg11c= gg11c+rs1wg(1)*bxpi*vvc*gtm2*ys*(-4*o*x12*x2z-4*o
     #    *x12s-20./3.*x12*x2z+4*x12*x2zs+8./3.*x2z*x12s-4./3.*
     #    x12s-4./3.*x12c-16./3.*x2zs)
      gg11c= gg11c+rs1wg(1)*vvc*gtm2*bxps*ys*bxp*(-4./3.)
      gg11c= gg11c+rs1wg(1)*vvc*gtm2*bxps*ys*(16./3.-8./3.*o-8.
     #    /3.*x12+8./3.*x2z)
      gg11c= gg11c+rs1wg(1)*vvc*gtm2*ys*bxp*(-10./3.+4*o*x2z
     #    +2./3.*o+16./3.*x12*x2z-10./3.*x12-34./3.*x2z+4*
     #    x12s-4./3.*x2zs)
      gg11c= gg11c+rs1wg(1)*vvc*gtm2*ys*(4./3.*o*x12*x2z+10./3.
     #    *o*x12-2./3.*o*x2z+8./3.*o*x12s-4./3.*o*x2zs-2./3.*os
     #    *x12+4*x12*x2z-14./3.*x12*x2zs+4*x12-4*x2z*x12s+22./
     #    3.*x2z-2./3.*x12s+2./3.*x12c+22./3.*x2zs)
      gg11c= gg11c+rs1wg(4)*xx*vvc*gtm2*ys*(2./3.*o*x12*x2zs+2./
     #    3.*o*x2z*x12c+2./3.*o*x12s*x2zs+1./3.*os*x2z*x12s+1./3.
     #    *x12*x2z*x12c+1./3.*x12s*x2zc+2./3.*x12c*x2zs+1./3.*
     #    x2zc)
      gg11c= gg11c+rs1wg(4)*bxpi*vvc*gtm2*ys*(4./3.*o*x12*x2z+o*
     #    x12*x2zs+5./3.*o*x2z*x12s+2./3.*o*x12c+1./3.*os*x12s+
     #    1./3.*x12*x12c+1./3.*x12*x2zc-1./3.*x12*x2zs+5./3.*x2z*
     #    x12c+5./3.*x12s*x2zs+1./3.*x2zc+x2zs)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*bxps*ys*bxp*(2./3.-1./3.*o
     #    -1./3.*x12)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*bxps*ys*(-5./6.-2./3.*o*
     #    x12+2./3.*o*x2z+1./6.*o+1./3.*x12*x2z+1./6.*x12-11./
     #    6.*x2z-2./3.*x12s)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*ys*bxp*(1./3.+4./3.*o*x12*
     #    x2z+11./6.*o*x12-1./3.*o*x2z+2./3.*o*x12s-1./3.*o*
     #    x2zs-1./6.*os*x12+1./6.*x12*x2z+1./6.*x12*x2zs-1./3.*
     #    x12+5./3.*x2z*x12s+7./3.*x2z+7./6.*x12s+5./6.*x12c+
     #    5./3.*x2zs)
      gg11c= gg11c+rs1wg(4)*vvc*gtm2*ys*(-7./2.*o*x12*x2z-2./
     #    3.*o*x12*x2zs-2./3.*o*x12-4./3.*o*x2z*x12s-o*x12s-2./
     #    3.*o*x12c+1./6.*o*x2zs+1./6.*os*x12*x2z-1./3.*os*x12s
     #    +2./3.*x12*x2z-1./3.*x12*x12c-1./6.*x12*x2zc-2./3.*
     #    x12*x2zs-5./2.*x2z*x12s-3./2.*x2z*x12c-x2z-4./3.*x12s
     #    *x2zs-x12c-1./2.*x2zc-13./6.*x2zs)
      gg11c= gg11c+rs1wg(7)*xx*vvc*gtm2*ys*(1./6.*o*x12*x2zs-1./
     #    6.*o*x2zc-1./6.*os*x12*x2zs+1./6.*x12*x2zq-2./3.*x12*
     #    x2zc+1./3.*x12s*x2zc-1./2.*x12s*x2zs+1./6.*x12c*x2zs-
     #    1./6.*x2zq+1./6.*x2zc)
      gg11c= gg11c+rs1wg(7)*bxpi*vvc*gtm2*ys*(1./6.*o*x12*x2z+1./
     #    2.*o*x12*x2zs+1./6.*o*x2z*x12s-1./3.*o*x2zs-1./6.*os*
     #    x12*x2z+1./3.*x12*x2zc-5./3.*x12*x2zs-1./2.*x2z*x12s+
     #    1./3.*x2z*x12c+2./3.*x12s*x2zs-1./2.*x2zc+1./3.*x2zs)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*bxps*ys*bxp*(-1./6.+1./6.*
     #    o+1./6.*x12)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*bxps*ys*(-1./12.-5./6.*o*
     #    x12-1./2.*o*x2z+1./6.*o-1./6.*os-1./2.*x12*x2z+2./3.
     #    *x12+2./3.*x2z-2./3.*x12s)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*ys*bxp*(11./6.*o*x12*x2z-1./
     #    2.*o*x2z+2./3.*o*x12s+1./2.*o*x2zs+1./6.*os*x12+1./3.
     #    *os*x2z-13./6.*x12*x2z+2./3.*x12*x2zs+3./2.*x2z*x12s+
     #    1./6.*x2z-1./3.*x12s+1./2.*x12c-x2zs)
      gg11c= gg11c+rs1wg(7)*vvc*gtm2*ys*(-2./3.*o*x12*x2z-o*
     #    x12*x2zs-2./3.*o*x2z*x12s+1./6.*o*x2z-1./6.*o*x12c-1./
     #    6.*o*x2zc+1./2.*o*x2zs-1./12.*os*x12s-1./6.*os*x2zs+
     #    x12*x2z-1./12.*x12*x12c-1./2.*x12*x2zc+2*x12*x2zs+1./
     #    3.*x2z*x12s-2./3.*x2z*x12c-1./6.*x2z-13./12.*x12s*x2zs
     #    +2./3.*x2zc+1./12.*x2zs)
      gg11c= gg11c+rs1wg(8)*bxpi*vvc*gtm2*ys*(-2./3.*o*x12*x2z
     #    -2./3.*o*x2z*x12s-2./3.*o*x12c-1./3.*os*x12s-1./3.*
     #    x12*x12c-2./3.*x2z*x12c-1./3.*x12s*x2zs-1./3.*x2zs)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*bxps*ys*bxp*(-1./3.)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*bxps*ys*(2./3.+o*x12+1./3.
     #    *x12*x2z-1./3.*x12+2./3.*x2z+x12s)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*ys*bxp*(-1./3.-o*x12*x2z
     #    -5./3.*o*x12-o*x12s-1./3.*x12*x2zs+1./3.*x12-4./3.*
     #    x2z*x12s-4./3.*x2z-x12s-x12c-1./3.*x2zs)
      gg11c= gg11c+rs1wg(8)*vvc*gtm2*ys*(5./3.*o*x12*x2z+2./3.*
     #    o*x12+2./3.*o*x2z*x12s+o*x12s+2./3.*o*x12c+1./3.*os*
     #    x12s-1./3.*x12*x2z+1./3.*x12*x12c+1./3.*x12*x2zs+4./3.
     #    *x2z*x12s+2./3.*x2z*x12c+2./3.*x2z+1./3.*x12s*x2zs+
     #    x12c+2./3.*x2zs)
      gg11c= gg11c+rs1wg(9)*bxpi*vvc*gtm2*ys*(2./3.*o*x12*x2z+2./
     #    3.*o*x12s+2./3.*x12*x2z-2./3.*x12*x2zs-4./3.*x2z*x12s
     #    -2./3.*x12c+2./3.*x2zs)
      gg11c= gg11c+rs1wg(9)*vvc*gtm2*bxps*ys*(-2./3.+4./3.*x12)
      gg11c= gg11c+rs1wg(9)*vvc*gtm2*ys*bxp*(2./3.+2./3.*o*x12
     #    -2*x12*x2z-2./3.*x12+4./3.*x2z-2*x12s)
      gg11c= gg11c+rs1wg(9)*vvc*gtm2*ys*(-2./3.*o*x12*x2z-2./
     #    3.*o*x12-2./3.*o*x12s+4./3.*x12*x2z+2./3.*x12*x2zs-2./
     #    3.*x12+4./3.*x2z*x12s-4./3.*x2z+2*x12s+2./3.*x12c-2.
     #    /3.*x2zs)
      gg11c= gg11c+rs1wg(10)*xx*vvc*gtm2*ys*(-1./6.*o*x12*x2zs
     #    +1./6.*o*x2zc+1./6.*os*x12*x2zs-1./6.*x12*x2zq+2./3.*
     #    x12*x2zc-1./3.*x12s*x2zc+1./2.*x12s*x2zs-1./6.*x12c*
     #    x2zs+1./6.*x2zq-1./6.*x2zc)
      gg11c= gg11c+rs1wg(10)*bxpi*vvc*gtm2*ys*(-1./3.*o*x12*x2z
     #    -1./2.*o*x12*x2zs-1./6.*o*x2z*x12s+1./2.*o*x2zs+1./3.
     #    *os*x12*x2z-1./2.*x12*x2zc+7./3.*x12*x2zs+x2z*x12s-1./
     #    2.*x2z*x12c-x12s*x2zs+2./3.*x2zc-1./2.*x2zs)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*bxps*ys*bxp*(1./3.-1./6.*o
     #    -1./6.*x12)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*bxps*ys*(1./12.+4./3.*o*
     #    x12+1./2.*o*x2z-1./3.*o+1./6.*os+2./3.*x12*x2z-5./3.
     #    *x12-7./6.*x2z+7./6.*x12s)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*ys*bxp*(-1./6.-7./3.*o*
     #    x12*x2z-2./3.*o*x12+5./6.*o*x2z-5./6.*o*x12s-1./2.*o*
     #    x2zs+1./6.*o-1./3.*os*x2z+11./3.*x12*x2z-x12*x2zs+
     #    x12-13./6.*x2z*x12s+1./3.*x12s-5./6.*x12c+3./2.*x2zs)
      gg11c= gg11c+rs1wg(10)*vvc*gtm2*ys*(4./3.*o*x12*x2z+o*x12
     #    *x2zs+1./6.*o*x12+2./3.*o*x2z*x12s-1./2.*o*x2z+1./6.*
     #    o*x12s+1./6.*o*x12c+1./6.*o*x2zc-2./3.*o*x2zs-1./6.*
     #    os*x12*x2z-1./6.*os*x12+1./12.*os*x12s+1./6.*os*x2zs-
     #    8./3.*x12*x2z+1./12.*x12*x12c+2./3.*x12*x2zc-7./3.*x12*
     #    x2zs-1./6.*x2z*x12s+5./6.*x2z*x12c+1./2.*x2z+17./12.*
     #    x12s*x2zs-1./2.*x12s+1./3.*x12c-5./6.*x2zc-5./12.*
     #    x2zs)
      gg11c= gg11c+rs1wg(11)*vvc*gtm2*bxps*ys*bxp*(-2./3.)
      gg11c= gg11c+rs1wg(11)*vvc*gtm2*bxps*ys*(1./3.+4./3.*x12
     #    +4./3.*x2z)
      gg11c= gg11c+rs1wg(11)*vvc*gtm2*ys*bxp*(-1./3.*o*x12-5./
     #    3.*x12*x2z-1./3.*x12-2./3.*x2z-x12s-2./3.*x2zs)
      gg11c= gg11c+rs1wg(11)*vvc*gtm2*ys*(1./3.*o*x12*x2z+1./3.
     #    *o*x12s+1./3.*x12*x2z+1./3.*x12*x2zs+2./3.*x2z*x12s+1.
     #    /3.*x12c+1./3.*x2zs)
      gg11c= gg11c+rs1wg(12)*xx*vvc*gtm2*ys*(-2./3.*o*x2z*x12s
     #    -2./3.*o*x12c-2./3.*x12*x12c-2./3.*x12*x2zs-2./3.*x2z
     #    *x12s-4./3.*x2z*x12c-2./3.*x12s*x2zs)
      gg11c= gg11c+rs1wg(12)*bxpi*vvc*gtm2*ys*(-2./3.*o*x12*x2z
     #    -4./3.*o*x12s-2*x12*x2z-2./3.*x12*x2zs-2*x2z*x12s-2.
     #    /3.*x12s-4./3.*x12c-2./3.*x2zs)
      gg11c= gg11c+rs1wg(12)*vvc*gtm2*bxps*ys*(4./3.-2./3.*o-2.
     #    /3.*x12)
      gg11c= gg11c+rs1wg(12)*vvc*gtm2*ys*bxp*(-1+2./3.*o*x2z
     #    +1./3.*o-5./3.*x12-7./3.*x2z)
      gg11c= gg11c+rs1wg(12)*vvc*gtm2*ys*(o*x12-1./3.*o*x2z+2.
     #    /3.*o*x12s-1./3.*os*x12+10./3.*x12*x2z+1./3.*x12*x2zs
     #    +4./3.*x12+4./3.*x2z*x12s+5./3.*x2z+5./3.*x12s+x12c
     #    +x2zs)
      gg11c= gg11c+rs1wg(13)*xx*vvc*gtm2*ys*(-1./3.*o*x12*x2zs
     #    -2./3.*o*x2z*x12s-1./3.*o*x12c-1./3.*x12*x12c+1./3.*
     #    x12*x2zc-2./3.*x12*x2zs-1./3.*x2z*x12s-1./3.*x2z*x12c
     #    +1./3.*x12s*x2zs-1./3.*x2zc)
      gg11c= gg11c+rs1wg(13)*bxpi*vvc*gtm2*ys*(-2./3.*o*x12*x2z
     #    -2./3.*o*x12s-4./3.*x12*x2z+2./3.*x12*x2zs-1./3.*x12s
     #    -2./3.*x12c-x2zs)
      gg11c= gg11c+rs1wg(13)*vvc*gtm2*bxps*ys*(1./2.)
      gg11c= gg11c+rs1wg(13)*vvc*gtm2*ys*bxp*(-1./6.+1./6.*o*
     #    x12+1./3.*o*x2z-1./6.*o+5./6.*x12*x2z-5./3.*x12-3./
     #    2.*x2z+1./6.*x12s)
      gg11c= gg11c+rs1wg(13)*vvc*gtm2*ys*(1./6.*o*x12*x2z+1./6.
     #    *o*x12+1./6.*o*x2z+1./2.*o*x12s-1./3.*o*x2zs+1./6.*os
     #    *x12+11./6.*x12*x2z-x12*x2zs+2./3.*x12-2./3.*x2z*x12s
     #    +5./6.*x2z+7./6.*x12s+1./3.*x12c+4./3.*x2zs)
      gg11c= gg11c+rs1wg(14)*xx*vvc*gtm2*ys*(1./3.*o*x12*x2zs+1.
     #    /3.*o*x2z*x12s-1./3.*x12*x2zc+1./3.*x12*x2zs-1./3.*x2z*
     #    x12c-2./3.*x12s*x2zs+1./3.*x2zc)
      gg11c= gg11c+rs1wg(14)*bxpi*vvc*gtm2*ys*(2./3.*o*x12*x2z+1.
     #    /3.*o*x12s+2./3.*x12*x2z-4./3.*x12*x2zs-5./3.*x2z*x12s
     #    -1./3.*x12c+x2zs)
      gg11c= gg11c+rs1wg(14)*vvc*gtm2*bxps*ys*bxp*(-1./3.)
      gg11c= gg11c+rs1wg(14)*vvc*gtm2*bxps*ys*(-1./3.+1./3.*o
     #    +5./3.*x12+2./3.*x2z)
      gg11c= gg11c+rs1wg(14)*vvc*gtm2*ys*bxp*(1./3.-1./3.*o*x12
     #    -2./3.*o*x2z-3*x12*x2z-1./3.*x12+x2z-2*x12s-1./3.*x2zs)
      gg11c= gg11c+rs1wg(14)*vvc*gtm2*ys*(-1./3.*o*x12+1./3.*
     #    o*x2zs+x12*x2z+5./3.*x12*x2zs-1./3.*x12+7./3.*x2z*
     #    x12s-x2z+x12s+2./3.*x12c-x2zs)
*
      wto_wgg15c= gg11c
*
      return
      end
*
*-------------------------------------------------------------------
*
      real*8 function wto_wgg25c()
      implicit real*8(a-h,o-z)
*
      common/wtampli/gsm2,gtm2,rl1,rl2,rl3,xv,x1,x2,z,tau,ups,strrx,
     #               ctrrx,ums,dms,vv,y,pwsm2,gstm2,zxi,pwtm2             
      common/wtamplia/rs1wg(14),rs2wg(14),rt1wg(14),rt2wg(14),
     #                rwwg(14,14),rs1wz(14),rs2wz(14),rt1wz(14),
     #                rt2wz(14),rwwz(14,14),rwwgz(14,14)
      common/wtampli2/vvs,vvc,vvq,ys,yc,yq,bxp,bxps,bxpc,bxpi,bxx,o,
     #                os,oc,oq,x12,x12s,x12c,x2z,x2zs,x2zc,x2zq,zi,
     #                zis,tx,txs,ux,uxs,cst,cqt,csti,cqti,vpe,vme,
     #                vpd,vmd,vpu,vmu,vpes,vmes,vpds,vmds,vpus,vmus
*
      xx= bxx
      gg21c= rs1wg(1)*xx*vvc*gtm2*ys*(-4*o*x12*x2zs-8*o*x2z*x12s-
     #    4*o*x12c-4*x12*x12c+4*x12*x2zc-8*x12*x2zs-4*x2z*x12s
     #    -4*x2z*x12c+4*x12s*x2zs-4*x2zc)
      gg21c= gg21c+rs1wg(1)*bxpi*vvc*gtm2*ys*(-12*o*x12*x2z-12
     #    *o*x12s-20*x12*x2z+12*x12*x2zs+8*x2z*x12s-4*x12s-4*
     #    x12c-16*x2zs)
      gg21c= gg21c+rs1wg(1)*vvc*gtm2*bxps*ys*bxp*(-4./3.)
      gg21c= gg21c+rs1wg(1)*vvc*gtm2*bxps*ys*(32./3.-8./3.*o-8
     #    *x12+8./3.*x2z)
      gg21c= gg21c+rs1wg(1)*vvc*gtm2*ys*bxp*(-26./3.-16./3.*o*
     #    x12+4*o*x2z+2./3.*o+16*x12*x2z-6*x12-74./3.*x2z+
     #    28./3.*x12s-4./3.*x2zs)
      gg21c= gg21c+rs1wg(1)*vvc*gtm2*ys*(28./3.*o*x12*x2z+26./3.
     #    *o*x12-2./3.*o*x2z+32./3.*o*x12s-4./3.*o*x2zs-2./3.*
     #    os*x12+20./3.*x12*x2z-38./3.*x12*x2zs+12*x12-28./3.*
     #    x2z*x12s+62./3.*x2z-10./3.*x12s+10./3.*x12c+18*x2zs)
      gg21c= gg21c+rs1wg(4)*xx*vvc*gtm2*ys*(2*o*x12*x2zs+2*o*
     #    x2z*x12c+2*o*x12s*x2zs+os*x2z*x12s+x12*x2z*x12c+x12s*
     #    x2zc+2*x12c*x2zs+x2zc)
      gg21c= gg21c+rs1wg(4)*bxpi*vvc*gtm2*ys*(4*o*x12*x2z+3*o*
     #    x12*x2zs+5*o*x2z*x12s+2*o*x12c+os*x12s+x12*x12c+x12
     #    *x2zc-x12*x2zs+5*x2z*x12c+5*x12s*x2zs+x2zc+3*x2zs)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*bxps*ys*bxp*(4./3.-1./3.*o
     #    -1./3.*x12)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*bxps*ys*(-13./6.-8./3.*o*
     #    x12+2./3.*o*x2z+1./6.*o-1./3.*x12*x2z+5./6.*x12-23./
     #    6.*x2z-8./3.*x12s)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*ys*bxp*(1+16./3.*o*x12*x2z
     #    +31./6.*o*x12-1./3.*o*x2z+8./3.*o*x12s-1./3.*o*x2zs
     #    -1./6.*os*x12-1./2.*x12*x2z+3./2.*x12*x2zs-x12+19./
     #    3.*x2z*x12s+19./3.*x2z+19./6.*x12s+17./6.*x12c+11./3.
     #    *x2zs)
      gg21c= gg21c+rs1wg(4)*vvc*gtm2*ys*(-61./6.*o*x12*x2z-8./
     #    3.*o*x12*x2zs-2*o*x12-14./3.*o*x2z*x12s-3*o*x12s-2*o*
     #    x12c+1./6.*o*x2zs+1./6.*os*x12*x2z-os*x12s+2*x12*x2z
     #    -x12*x12c-5./6.*x12*x2zc-4./3.*x12*x2zs-43./6.*x2z*
     #    x12s-29./6.*x2z*x12c-3*x2z-14./3.*x12s*x2zs-3*x12c-
     #    7./6.*x2zc-37./6.*x2zs)
      gg21c= gg21c+rs1wg(7)*xx*vvc*gtm2*ys*(1./2.*o*x12*x2zs-1./
     #    2.*o*x2zc-1./2.*os*x12*x2zs+1./2.*x12*x2zq-2*x12*x2zc
     #    +x12s*x2zc-3./2.*x12s*x2zs+1./2.*x12c*x2zs-1./2.*x2zq
     #    +1./2.*x2zc)
      gg21c= gg21c+rs1wg(7)*bxpi*vvc*gtm2*ys*(1./2.*o*x12*x2z+3./
     #    2.*o*x12*x2zs+1./2.*o*x2z*x12s-o*x2zs-1./2.*os*x12*x2z
     #    +x12*x2zc-5*x12*x2zs-3./2.*x2z*x12s+x2z*x12c+2*x12s
     #    *x2zs-3./2.*x2zc+x2zs)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*bxps*ys*bxp*(-1./6.+1./6.*
     #    o+1./6.*x12)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*bxps*ys*(-1./12.-5./6.*o*
     #    x12-1./2.*o*x2z+1./6.*o-1./6.*os-1./2.*x12*x2z+2./3.
     #    *x12+x2z-2./3.*x12s)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*ys*bxp*(17./6.*o*x12*x2z-5./
     #    6.*o*x2z+2./3.*o*x12s+1./2.*o*x2zs+1./6.*os*x12+1./3.
     #    *os*x2z-25./6.*x12*x2z+x12*x2zs+5./2.*x2z*x12s+1./6.*
     #    x2z-1./3.*x12s+1./2.*x12c-2*x2zs)
      gg21c= gg21c+rs1wg(7)*vvc*gtm2*ys*(-2*o*x12*x2z-2*o*x12
     #    *x2zs-o*x2z*x12s+1./2.*o*x2z-1./6.*o*x12c-1./6.*o*
     #    x2zc+7./6.*o*x2zs+1./3.*os*x12*x2z-1./12.*os*x12s-1./
     #    6.*os*x2zs+3*x12*x2z-1./12.*x12*x12c-7./6.*x12*x2zc+5
     #    *x12*x2zs+1./3.*x2z*x12s-4./3.*x2z*x12c-1./2.*x2z-29./
     #    12.*x12s*x2zs+5./3.*x2zc+5./12.*x2zs)
      gg21c= gg21c+rs1wg(8)*bxpi*vvc*gtm2*ys*(-2*o*x12*x2z-2*o
     #    *x2z*x12s-2*o*x12c-os*x12s-x12*x12c-2*x2z*x12c-x12s
     #    *x2zs-x2zs)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*bxps*ys*bxp*(-1)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*bxps*ys*(2+3*o*x12+x12*
     #    x2z-x12+2*x2z+3*x12s)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*ys*bxp*(-1-3*o*x12*x2z-
     #    5*o*x12-3*o*x12s-x12*x2zs+x12-4*x2z*x12s-4*x2z-3*
     #    x12s-3*x12c-x2zs)
      gg21c= gg21c+rs1wg(8)*vvc*gtm2*ys*(5*o*x12*x2z+2*o*x12+
     #    2*o*x2z*x12s+3*o*x12s+2*o*x12c+os*x12s-x12*x2z+x12*
     #    x12c+x12*x2zs+4*x2z*x12s+2*x2z*x12c+2*x2z+x12s*x2zs
     #    +3*x12c+2*x2zs)
      gg21c= gg21c+rs1wg(9)*bxpi*vvc*gtm2*ys*(2*o*x12*x2z+2*o*
     #    x12s+2*x12*x2z-2*x12*x2zs-4*x2z*x12s-2*x12c+2*x2zs)
      gg21c= gg21c+rs1wg(9)*vvc*gtm2*bxps*ys*(-2+4*x12)
      gg21c= gg21c+rs1wg(9)*vvc*gtm2*ys*bxp*(2+2*o*x12-6*x12*
     #    x2z-2*x12+4*x2z-6*x12s)
      gg21c= gg21c+rs1wg(9)*vvc*gtm2*ys*(-2*o*x12*x2z-2*o*x12
     #    -2*o*x12s+4*x12*x2z+2*x12*x2zs-2*x12+4*x2z*x12s-4
     #    *x2z+6*x12s+2*x12c-2*x2zs)
      gg21c= gg21c+rs1wg(10)*xx*vvc*gtm2*ys*(-1./2.*o*x12*x2zs
     #    +1./2.*o*x2zc+1./2.*os*x12*x2zs-1./2.*x12*x2zq+2*x12*
     #    x2zc-x12s*x2zc+3./2.*x12s*x2zs-1./2.*x12c*x2zs+1./2.*
     #    x2zq-1./2.*x2zc)
      gg21c= gg21c+rs1wg(10)*bxpi*vvc*gtm2*ys*(-o*x12*x2z-3./2.
     #    *o*x12*x2zs-1./2.*o*x2z*x12s+3./2.*o*x2zs+os*x12*x2z-
     #    3./2.*x12*x2zc+7*x12*x2zs+3*x2z*x12s-3./2.*x2z*x12c-3
     #    *x12s*x2zs+2*x2zc-3./2.*x2zs)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*bxps*ys*bxp*(2./3.-1./6.*o
     #    -1./6.*x12)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*bxps*ys*(1./12.+7./3.*o*
     #    x12+1./2.*o*x2z-2./3.*o+1./6.*os+x12*x2z-11./3.*x12
     #    -5./2.*x2z+13./6.*x12s)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*ys*bxp*(-1./2.-13./3.*o*
     #    x12*x2z-2*o*x12+11./6.*o*x2z-7./6.*o*x12s-1./2.*o*
     #    x2zs+1./2.*o+1./3.*os*x12-1./3.*os*x2z+26./3.*x12*x2z
     #    -2*x12*x2zs+3*x12-9./2.*x2z*x12s+1./3.*x2z+1./3.*
     #    x12s-3./2.*x12c+7./2.*x2zs)
      gg21c= gg21c+rs1wg(10)*vvc*gtm2*ys*(4*o*x12*x2z+2*o*x12*
     #    x2zs+1./2.*o*x12+o*x2z*x12s-3./2.*o*x2z+1./2.*o*x12s
     #    +1./6.*o*x12c+1./6.*o*x2zc-5./3.*o*x2zs-5./6.*os*x12*
     #    x2z-1./2.*os*x12+1./12.*os*x12s+1./6.*os*x2zs-8*x12*
     #    x2z+1./12.*x12*x12c+5./3.*x12*x2zc-6*x12*x2zs+1./6.*
     #    x2z*x12s+11./6.*x2z*x12c+3./2.*x2z+41./12.*x12s*x2zs-
     #    3./2.*x12s+x12c-13./6.*x2zc-17./12.*x2zs)
      gg21c= gg21c+rs1wg(11)*vvc*gtm2*bxps*ys*bxp*(-2./3.)
      gg21c= gg21c+rs1wg(11)*vvc*gtm2*bxps*ys*(1./3.+4./3.*x12
     #    +4./3.*x2z)
      gg21c= gg21c+rs1wg(11)*vvc*gtm2*ys*bxp*(-1./3.*o*x12-5./
     #    3.*x12*x2z-1./3.*x12-2./3.*x2z-x12s-2./3.*x2zs)
      gg21c= gg21c+rs1wg(11)*vvc*gtm2*ys*(1./3.*o*x12*x2z+1./3.
     #    *o*x12s+1./3.*x12*x2z+1./3.*x12*x2zs+2./3.*x2z*x12s+1.
     #    /3.*x12c+1./3.*x2zs)
      gg21c= gg21c+rs1wg(12)*xx*vvc*gtm2*ys*(-2*o*x2z*x12s-2*
     #    o*x12c-2*x12*x12c-2*x12*x2zs-2*x2z*x12s-4*x2z*x12c-
     #    2*x12s*x2zs)
      gg21c= gg21c+rs1wg(12)*bxpi*vvc*gtm2*ys*(-2*o*x12*x2z-4*
     #    o*x12s-6*x12*x2z-2*x12*x2zs-6*x2z*x12s-2*x12s-4*
     #    x12c-2*x2zs)
      gg21c= gg21c+rs1wg(12)*vvc*gtm2*bxps*ys*(8./3.-2./3.*o-2.
     #    /3.*x12)
      gg21c= gg21c+rs1wg(12)*vvc*gtm2*ys*bxp*(-7./3.-4./3.*o*
     #    x12+2./3.*o*x2z+1./3.*o-4./3.*x12*x2z-13./3.*x12-5*
     #    x2z-4./3.*x12s)
      gg21c= gg21c+rs1wg(12)*vvc*gtm2*ys*(4./3.*o*x12*x2z+7./3.
     #    *o*x12-1./3.*o*x2z+10./3.*o*x12s-1./3.*os*x12+26./3.*
     #    x12*x2z+5./3.*x12*x2zs+4*x12+16./3.*x2z*x12s+13./3.*
     #    x2z+13./3.*x12s+11./3.*x12c+7./3.*x2zs)
      gg21c= gg21c+rs1wg(13)*xx*vvc*gtm2*ys*(-o*x12*x2zs-2*o*
     #    x2z*x12s-o*x12c-x12*x12c+x12*x2zc-2*x12*x2zs-x2z*
     #    x12s-x2z*x12c+x12s*x2zs-x2zc)
      gg21c= gg21c+rs1wg(13)*bxpi*vvc*gtm2*ys*(-2*o*x12*x2z-2*
     #    o*x12s-4*x12*x2z+2*x12*x2zs-x12s-2*x12c-3*x2zs)
      gg21c= gg21c+rs1wg(13)*vvc*gtm2*bxps*ys*(7./6.)
      gg21c= gg21c+rs1wg(13)*vvc*gtm2*ys*bxp*(-5./6.-1./2.*o*
     #    x12+1./3.*o*x2z-1./6.*o+3./2.*x12*x2z-3*x12-7./2.*
     #    x2z-1./2.*x12s)
      gg21c= gg21c+rs1wg(13)*vvc*gtm2*ys*(3./2.*o*x12*x2z+5./6.
     #    *o*x12+1./6.*o*x2z+11./6.*o*x12s-1./3.*o*x2zs+1./6.*
     #    os*x12+23./6.*x12*x2z-7./3.*x12*x2zs+2*x12-2./3.*x2z*
     #    x12s+17./6.*x2z+5./2.*x12s+5./3.*x12c+10./3.*x2zs)
      gg21c= gg21c+rs1wg(14)*xx*vvc*gtm2*ys*(o*x12*x2zs+o*x2z*
     #    x12s-x12*x2zc+x12*x2zs-x2z*x12c-2*x12s*x2zs+x2zc)
      gg21c= gg21c+rs1wg(14)*bxpi*vvc*gtm2*ys*(2*o*x12*x2z+o*
     #    x12s+2*x12*x2z-4*x12*x2zs-5*x2z*x12s-x12c+3*x2zs)
      gg21c= gg21c+rs1wg(14)*vvc*gtm2*bxps*ys*bxp*(-1./3.)
      gg21c= gg21c+rs1wg(14)*vvc*gtm2*bxps*ys*(-1+1./3.*o+3*
     #    x12+2./3.*x2z)
      gg21c= gg21c+rs1wg(14)*vvc*gtm2*ys*bxp*(1+1./3.*o*x12-2./
     #    3.*o*x2z-19./3.*x12*x2z-x12+3*x2z-4*x12s-1./3.*x2zs)
      gg21c= gg21c+rs1wg(14)*vvc*gtm2*ys*(-4./3.*o*x12*x2z-o*
     #    x12-2./3.*o*x12s+1./3.*o*x2zs+3*x12*x2z+13./3.*x12*
     #    x2zs-x12+17./3.*x2z*x12s-3*x2z+3*x12s+4./3.*x12c-
     #    3*x2zs)
*
      wto_wgg25c= gg21c
*
      return
      end