1 program main_upup_tautau_nlo
5 integer*4 l1,l2,l3,l4,iz
6 integer*4 iqed,iew,iborn,gfscheme,ifgg
7 real*8 sum,sig(2),har,hai,nc,fc,tlmu2,cosf
8 real*8 s,t,u,betaf,sigma,mta,conhc,pi
9 complex*16 UpUp_TauTau_HA_NLO,ha
10 external UpUp_TauTau_HA_NLO
52 call flagset(iqed,iew,iborn,gfscheme,ifgg,nc,fc,tlmu2)
55 call paraget(mta,conhc,pi)
70 betaf = sqrt(1d0-4d0*mta**2/s)
71 t = mta**2 - s/2*(1d0-betaf*cosf)
72 u = mta**2 - s/2*(1d0+betaf*cosf)
81 call upup(l1,l2,l3,l4,s,t,u,iz,har,hai);
82 sum = sum +har*har+hai*hai
95 print*,
"d_sigma/d_cos{theta} = ",sigma