1 #include "isajet/pilot.h"
2 REAL FUNCTION SSWZF6(EE)
3 C-----------------------------------------------------------------------
4 C SSWZBF: wiss -> zjss f fbar
5 C Drees' function for charged Higgs exchange
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 E,MW,MZ,MH,AL,BE,SN,RES
25 RES=SQRT(E**2-MZ**2)*(MW**2+MZ**2-2*MW*E)*
26 ,(E*(AL**2+BE**2)+2*SN*MZ*AL*BE)/
27 ,(MW**2+MZ**2-2*MW*E-MH**2)**2