1 #include "isajet/pilot.h"
2 REAL FUNCTION SSZZF5(SP)
3 C-----------------------------------------------------------------------
4 C SSWZBF: ziss -> zjss f fbar
5 C Drees' I26 integrand for higgs-sfermion interference
6 C-----------------------------------------------------------------------
7 #if defined(CERNLIB_IMPNONE)
10 #include "isajet/sssm.inc"
11 #include "isajet/sspar.inc"
12 #include "isajet/sstmp.inc"
15 DOUBLE PRECISION S,M2,M1,MS,E,QS,MUS,BKT
16 DOUBLE PRECISION THZ,TERM,MH,DFI,Q,MF,QP
26 E=(S+M2**2-M1**2)/2.D0/M2
29 QP=Q*DSQRT(MAX(0.D0,1.D0-4*MF**2/S))
30 MUS=MS**2+S-M1**2-MF**2
31 BKT=S*MS**2-MF**2*(M1**2+M2**2)+THZ*M1*M2*(S-2*MF**2)
32 TERM=DLOG((M2*(E+QP)-MUS)/(M2*(E-QP)-MUS))
33 DFI=(S*QP/2.D0+BKT*TERM/4.D0/M2)/(S-MH**2)