1 #include "isajet/pilot.h"
2 REAL FUNCTION SSGWT2(E)
3 C-----------------------------------------------------------------------
4 C SSGLBF: glss -> wiss + tp + bb
6 C-----------------------------------------------------------------------
7 #if defined(CERNLIB_IMPNONE)
10 #include "isajet/sssm.inc"
11 #include "isajet/sspar.inc"
12 #include "isajet/sstmp.inc"
14 DOUBLE PRECISION MWI,MG,MT,DFTBW,EB,TOP,BOT,MSB
15 DOUBLE PRECISION SSDLAM,TERM
23 TOP=EB**2*(MG**2+AMBT**2-2*MG*EB-MWI**2-MT**2)
24 BOT=(MG**2+AMBT**2-2*MG*EB-MSB**2)**2*
25 $ (MG**2+AMBT**2-2*EB*MG)
26 TERM=SSDLAM((MG**2+AMBT**2-2*MG*EB),MWI**2,MT**2)
28 DFTBW=MG*TOP/BOT*DSQRT(TERM)