1 #include "isajet/pilot.h"
2 REAL FUNCTION SSGX11(ET)
3 C-----------------------------------------------------------------------
4 C SSGLBF: glss -> ziss + tp + tb
6 C-----------------------------------------------------------------------
7 #if defined(CERNLIB_IMPNONE)
10 #include "isajet/sssm.inc"
11 #include "isajet/sspar.inc"
12 #include "isajet/sstmp.inc"
13 REAL MG,MT,MZ,MST1,MST2,ET
14 DOUBLE PRECISION DET,DMG,DMT,DMZ,DMT1,DMT2,TOP,BOT,DXT11
15 DOUBLE PRECISION XT,MUT,MUZ,XMIN,XMAX,EMIN,EMAX,SSDLAM
32 XMIN=((2.D0-XT)*(1.D0+2*MUT-MUZ-XT)-DSQRT(DMAX1(0.D0,
33 $ (XT**2-4*MUT)*SSDLAM((1.D0+MUT-XT),MUT,MUZ))))
35 XMAX=((2.D0-XT)*(1.D0+2*MUT-MUZ-XT)+DSQRT(DMAX1(0.D0,
36 $ (XT**2-4*MUT)*SSDLAM((1.D0+MUT-XT),MUT,MUZ))))
40 TOP=DMG**2-2*DMG*EMAX+DMT**2-DMT2**2
41 BOT=DMG**2-2*DMG*EMIN+DMT**2-DMT2**2
42 DXT11=-PI**2*DET*DLOG(TOP/BOT)/2.D0/(DMG**2-2*DMG*DET+DMT**2