ISAJET/isasusy/sssnws.F

   1 #include "isajet/pilot.h"
   2         REAL FUNCTION SSSNWS(EE)
   3 C-----------------------------------------------------------------------
   4 C          SSSNWS: sneutrino->stau_1+f+fb' via W*
   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 EE
  13         DOUBLE PRECISION E,M1,M2,MSN,ML1,WID
  14         E=EE
  15         M1=TMP(1)
  16         M2=TMP(2)
  17         ML1=TMP(3)
  18         MSN=TMP(4)
  19         WID=MSN**2*(E*E-ML1*ML1)**1.5/
  20      $      (MSN**2+ML1**2-2*MSN*E-M1**2)**2
  21         SSSNWS=WID
  22         RETURN
  23         END