1 #include "isajet/pilot.h"
2 REAL FUNCTION SSL1ST(SS)
3 C-----------------------------------------------------------------------
4 C SSL1ST: l_1 -> stau_1+nu_l+nutaubar: TATA F FUNCTION
5 C-----------------------------------------------------------------------
6 #if defined(CERNLIB_IMPNONE)
9 #include "isajet/sssm.inc"
10 #include "isajet/sspar.inc"
11 #include "isajet/sstmp.inc"
13 DOUBLE PRECISION S,M1,M2,MST1,ML1,WID
19 WID=(S-MST1**2)**2/(S-M1**2)/(S-M2**2)*(S-ML1**2)**2