!==== this routine builds the Sub Leading Color one-loop amplitude for 
!==== Wgam jet ++ (34) pieces


      double complex function wgamjet_vamp_q2slc_pp(i1,i2,i3,i4,i5,i6
     &,za,zb)
      include 'constants.f' 
      include 'zprods_decl.f' 
      include 'sprods_com.f'
      integer i1,i2,i3,i4,i5,i6
      double complex Atree_q2pp
      double complex d2me1,d2me2,d2me3,d1m1,d1m2,d1m3
      double complex Dcoeff2me_q2slcpp_s26s34s126s134
      double complex Dcoeff2me_q2slcpp_s25s34s125s134
      double complex Dcoeff2me_q2slcpp_s12s34s126s125
      double complex Dcoeff1m_q2slcpp_s126s12s26
      double complex Dcoeff1m_q2slcpp_s126s16s12
      double complex Dcoeff1m_q2slcpp_s125s12s25
      double complex Bcoeff_q2slcpp_s34
      double complex Bcoeff_q2slcpp_s16
      double complex Bcoeff_q2slcpp_s12
      double complex Bcoeff_q2slcpp_s125
      double complex b34,b126,b16,b12,b125

      logical do_check 
      common/do_check_wgamj/do_check
      double complex zab2
      zab2(i1,i2,i3,i4)=za(i1,i2)*zb(i2,i4)+za(i1,i3)*zb(i3,i4)

      Atree_q2pp= (za(i1,i3)**2*zab2(i2,i3,i4,i5))/
     -  (za(i1,i6)*za(i2,i5)*za(i3,i4)*
     -    za(i6,i2)*zab2(i5,i3,i4,i5))

!===== KC normalization 
!      Atree_q2pp=Atree_q2pp

!======== box coefficients       
      d2me1=Dcoeff2me_q2slcpp_s25s34s125s134(i1,i2,i3,i4,i5,i6,za,zb)
      d2me2=Dcoeff2me_q2slcpp_s26s34s126s134(i1,i2,i3,i4,i5,i6,za,zb)
      d2me3=Dcoeff2me_q2slcpp_s12s34s126s125(i1,i2,i3,i4,i5,i6,za,zb)

      d1m1=Dcoeff1m_q2slcpp_s126s12s26(i1,i2,i3,i4,i5,i6,za,zb)
      d1m2=Dcoeff1m_q2slcpp_s126s16s12(i1,i2,i3,i4,i5,i6,za,zb)
      d1m3=Dcoeff1m_q2slcpp_s125s12s25(i1,i2,i3,i4,i5,i6,za,zb)


!======== bubble coefficients 
      b34=Bcoeff_q2slcpp_s34(i1,i2,i3,i4,i5,i6,za,zb)
      b16=Bcoeff_q2slcpp_s16(i1,i2,i3,i4,i5,i6,za,zb)
      b125=Bcoeff_q2slcpp_s125(i1,i2,i3,i4,i5,i6,za,zb)
      b12=Bcoeff_q2slcpp_s12(i1,i2,i3,i4,i5,i6,za,zb)

      b126=-3d0/2d0*Atree_q2pp-b34-b16-b12-b125

      if(do_check) then
!==== print out information for KC 
         write(6,*) ' LO ',im*Atree_q2pp
         write(6,*) 'im * Box 2me /LO  1',im*d2me1/Atree_q2pp
         write(6,*) 'im * Box 2me /LO  2',im*d2me2/Atree_q2pp
         write(6,*) 'im * Box 2me /LO  3',im*d2me3/Atree_q2pp
         write(6,*) 'im * Box 1m /LO 1 ',im*d1m1/Atree_q2pp
         write(6,*) 'im*Box 1m 2/LO 2',im*d1m2/Atree_q2pp
         write(6,*) 'im*Box 1m 2/LO 3',im*d1m3/Atree_q2pp
          write(6,*) 'im*Bub (34) /LO ',im*b34/Atree_q2pp
          write(6,*) 'im*Bub (16) /LO ',im*b16/Atree_q2pp
          write(6,*) 'im*Bub (125) /LO ',im*b125/Atree_q2pp
          write(6,*) 'im*Bub (12) /LO ',im*b12/Atree_q2pp
          write(6,*) 'im*Bub (126) /LO ',im*b126/Atree_q2pp
         
      endif

      return 
      end