**************************************************************** * Color ordered amplitudes for: * 0 -> q(-p1) + qb(-p4) + a(p2) + a(p3) + lb(p5) + l(p6) **************************************************************** subroutine zaa_a60h(j1,j2,j3,j4,j5,j6,za,zb,a60h) implicit none include 'constants.f' include 'zprods_decl.f' include 'ipsgen.f' integer j1,j2,j3,j4,j5,j6 double complex a6treeg,a6treeQLslc double complex a60h(4,16) character*9 st1,st2,st3 character*14 st4,st5 integer i,j,k c-----helicity stamp st1='q+qb-g+g+' st2='q+qb-g+g-' st3='q+qb-g-g+' st4='q+qb-g+g+lb-l+' st5='q+qb-g+g-lb-l+' c-----initialize a60h do i=1,4 do j=1,8 a60h(i,j)=czip enddo enddo c-----QQ contributions if (ipsgen .ne. 2) then a60h(1,1) = a6treeg(st1,j1,j4,j2,j3,j5,j6,za,zb) . +a6treeg(st1,j1,j4,j3,j2,j5,j6,za,zb) a60h(1,9) = a6treeg(st1,j1,j4,j2,j3,j5,j6,zb,za) . +a6treeg(st1,j1,j4,j3,j2,j5,j6,zb,za) a60h(1,2) = a6treeg(st2,j1,j4,j2,j3,j5,j6,za,zb) . +a6treeg(st3,j1,j4,j3,j2,j5,j6,za,zb) a60h(1,10)= a6treeg(st2,j1,j4,j2,j3,j5,j6,zb,za) . +a6treeg(st3,j1,j4,j3,j2,j5,j6,zb,za) a60h(1,3) = a6treeg(st3,j1,j4,j2,j3,j5,j6,za,zb) . +a6treeg(st2,j1,j4,j3,j2,j5,j6,za,zb) a60h(1,11)= a6treeg(st3,j1,j4,j2,j3,j5,j6,zb,za) . +a6treeg(st2,j1,j4,j3,j2,j5,j6,zb,za) a60h(1,4) = a6treeg(st1,j4,j1,j2,j3,j6,j5,zb,za) . +a6treeg(st1,j4,j1,j3,j2,j6,j5,zb,za) a60h(1,12)= a6treeg(st1,j4,j1,j2,j3,j6,j5,za,zb) . +a6treeg(st1,j4,j1,j3,j2,j6,j5,za,zb) a60h(1,5) = a6treeg(st1,j1,j4,j2,j3,j6,j5,za,zb) . +a6treeg(st1,j1,j4,j3,j2,j6,j5,za,zb) a60h(1,13)= a6treeg(st1,j1,j4,j2,j3,j6,j5,zb,za) . +a6treeg(st1,j1,j4,j3,j2,j6,j5,zb,za) a60h(1,6) = a6treeg(st2,j1,j4,j2,j3,j6,j5,za,zb) . +a6treeg(st3,j1,j4,j3,j2,j6,j5,za,zb) a60h(1,14)= a6treeg(st2,j1,j4,j2,j3,j6,j5,zb,za) . +a6treeg(st3,j1,j4,j3,j2,j6,j5,zb,za) a60h(1,7) = a6treeg(st3,j1,j4,j2,j3,j6,j5,za,zb) . +a6treeg(st2,j1,j4,j3,j2,j6,j5,za,zb) a60h(1,15)= a6treeg(st3,j1,j4,j2,j3,j6,j5,zb,za) . +a6treeg(st2,j1,j4,j3,j2,j6,j5,zb,za) a60h(1,8) = a6treeg(st1,j4,j1,j2,j3,j5,j6,zb,za) . +a6treeg(st1,j4,j1,j3,j2,j5,j6,zb,za) a60h(1,16)= a6treeg(st1,j4,j1,j2,j3,j5,j6,za,zb) . +a6treeg(st1,j4,j1,j3,j2,j5,j6,za,zb) endif c-----LL contributions if (ipsgen .ne. 3) then a60h(2,1) = a6treeg(st1,j6,j5,j2,j3,j4,j1,za,zb) . +a6treeg(st1,j6,j5,j3,j2,j4,j1,za,zb) a60h(2,9) = a6treeg(st1,j6,j5,j2,j3,j4,j1,zb,za) . +a6treeg(st1,j6,j5,j3,j2,j4,j1,zb,za) a60h(2,2) = a6treeg(st2,j6,j5,j2,j3,j4,j1,za,zb) . +a6treeg(st3,j6,j5,j3,j2,j4,j1,za,zb) a60h(2,10)= a6treeg(st2,j6,j5,j2,j3,j4,j1,zb,za) . +a6treeg(st3,j6,j5,j3,j2,j4,j1,zb,za) a60h(2,3) = a6treeg(st3,j6,j5,j2,j3,j4,j1,za,zb) . +a6treeg(st2,j6,j5,j3,j2,j4,j1,za,zb) a60h(2,11)= a6treeg(st3,j6,j5,j2,j3,j4,j1,zb,za) . +a6treeg(st2,j6,j5,j3,j2,j4,j1,zb,za) a60h(2,4) = a6treeg(st1,j5,j6,j2,j3,j1,j4,zb,za) . +a6treeg(st1,j5,j6,j3,j2,j1,j4,zb,za) a60h(2,12)= a6treeg(st1,j5,j6,j2,j3,j1,j4,za,zb) . +a6treeg(st1,j5,j6,j3,j2,j1,j4,za,zb) a60h(2,5) = a6treeg(st1,j5,j6,j2,j3,j4,j1,za,zb) . +a6treeg(st1,j5,j6,j3,j2,j4,j1,za,zb) a60h(2,13)= a6treeg(st1,j5,j6,j2,j3,j4,j1,zb,za) . +a6treeg(st1,j5,j6,j3,j2,j4,j1,zb,za) a60h(2,6) = a6treeg(st2,j5,j6,j2,j3,j4,j1,za,zb) . +a6treeg(st3,j5,j6,j3,j2,j4,j1,za,zb) a60h(2,14)= a6treeg(st2,j5,j6,j2,j3,j4,j1,zb,za) . +a6treeg(st3,j5,j6,j3,j2,j4,j1,zb,za) a60h(2,7) = a6treeg(st3,j5,j6,j2,j3,j4,j1,za,zb) . +a6treeg(st2,j5,j6,j3,j2,j4,j1,za,zb) a60h(2,15)= a6treeg(st3,j5,j6,j2,j3,j4,j1,zb,za) . +a6treeg(st2,j5,j6,j3,j2,j4,j1,zb,za) a60h(2,8) = a6treeg(st1,j6,j5,j2,j3,j1,j4,zb,za) . +a6treeg(st1,j6,j5,j3,j2,j1,j4,zb,za) a60h(2,16)= a6treeg(st1,j6,j5,j2,j3,j1,j4,za,zb) . +a6treeg(st1,j6,j5,j3,j2,j1,j4,za,zb) endif c-----QL contributions if ((ipsgen .eq. 2) .or. (ipsgen .eq. 3)) then a60h(3,1) = -a6treeQLslc(st4,j1,j4,j2,j3,j5,j6,za,zb) a60h(3,9) = -a6treeQLslc(st4,j1,j4,j2,j3,j5,j6,zb,za) a60h(3,2) = -a6treeQLslc(st5,j1,j4,j2,j3,j5,j6,za,zb) a60h(3,10)= -a6treeQLslc(st5,j1,j4,j2,j3,j5,j6,zb,za) a60h(3,3) = -a6treeQLslc(st5,j4,j1,j2,j3,j6,j5,zb,za) a60h(3,11)= -a6treeQLslc(st5,j4,j1,j2,j3,j6,j5,za,zb) a60h(3,4) = -a6treeQLslc(st4,j4,j1,j2,j3,j6,j5,zb,za) a60h(3,12)= -a6treeQLslc(st4,j4,j1,j2,j3,j6,j5,za,zb) a60h(3,5) = -a6treeQLslc(st4,j1,j4,j2,j3,j6,j5,za,zb) a60h(3,13)= -a6treeQLslc(st4,j1,j4,j2,j3,j6,j5,zb,za) a60h(3,6) = -a6treeQLslc(st5,j1,j4,j2,j3,j6,j5,za,zb) a60h(3,14)= -a6treeQLslc(st5,j1,j4,j2,j3,j6,j5,zb,za) a60h(3,7) = -a6treeQLslc(st5,j4,j1,j2,j3,j5,j6,zb,za) a60h(3,15)= -a6treeQLslc(st5,j4,j1,j2,j3,j5,j6,za,zb) a60h(3,8) = -a6treeQLslc(st4,j4,j1,j2,j3,j5,j6,zb,za) a60h(3,16)= -a6treeQLslc(st4,j4,j1,j2,j3,j5,j6,za,zb) endif if ((ipsgen .eq. 3) .or. (ipsgen .eq. 4)) then a60h(4,1) = -a6treeQLslc(st4,j1,j4,j3,j2,j5,j6,za,zb) a60h(4,9) = -a6treeQLslc(st4,j1,j4,j3,j2,j5,j6,zb,za) a60h(4,2) = -a6treeQLslc(st5,j4,j1,j3,j2,j6,j5,zb,za) a60h(4,10)= -a6treeQLslc(st5,j4,j1,j3,j2,j6,j5,za,zb) a60h(4,3) = -a6treeQLslc(st5,j1,j4,j3,j2,j5,j6,za,zb) a60h(4,11)= -a6treeQLslc(st5,j1,j4,j3,j2,j5,j6,zb,za) a60h(4,4) = -a6treeQLslc(st4,j4,j1,j3,j2,j6,j5,zb,za) a60h(4,12)= -a6treeQLslc(st4,j4,j1,j3,j2,j6,j5,za,zb) a60h(4,5) = -a6treeQLslc(st4,j1,j4,j3,j2,j6,j5,za,zb) a60h(4,13)= -a6treeQLslc(st4,j1,j4,j3,j2,j6,j5,zb,za) a60h(4,6) = -a6treeQLslc(st5,j4,j1,j3,j2,j5,j6,zb,za) a60h(4,14)= -a6treeQLslc(st5,j4,j1,j3,j2,j5,j6,za,zb) a60h(4,7) = -a6treeQLslc(st5,j1,j4,j3,j2,j6,j5,za,zb) a60h(4,15)= -a6treeQLslc(st5,j1,j4,j3,j2,j6,j5,zb,za) a60h(4,8) = -a6treeQLslc(st4,j4,j1,j3,j2,j5,j6,zb,za) a60h(4,16)= -a6treeQLslc(st4,j4,j1,j3,j2,j5,j6,za,zb) endif c-----done here return end