ISAJET/isasusy/ssn1st.F

   1 #include "isajet/pilot.h"
   2         REAL FUNCTION SSN1ST(SS)
   3 C-----------------------------------------------------------------------
   4 C          SSN1ST: l_1 -> stau_1+nu_l+nutaubar: TATA G FUNCTION
   5 C-----------------------------------------------------------------------
   6 #if defined(CERNLIB_IMPNONE)
   7       IMPLICIT NONE
   8 #endif
   9 #include "isajet/sssm.inc"
  10 #include "isajet/sspar.inc"
  11 #include "isajet/sstmp.inc"
  12         REAL SS
  13         DOUBLE PRECISION S,M1,M2,MST1,MN1,WID
  14         S=SS
  15         M1=TMP(1)
  16         M2=TMP(2)
  17         MST1=TMP(3)
  18         MN1=TMP(4)
  19         WID=(S-MST1**2)**2/(S-M1**2)/(S-M2**2)*(S-MN1**2)**2
  20      $       /S**2/MN1**2
  21         SSN1ST=WID
  22         RETURN
  23         END