Removed until updated.

[u/mrichter/AliRoot.git] / ISAJET / isasusy / ssl1st.F

diff --git a/ISAJET/isasusy/ssl1st.F b/ISAJET/isasusy/ssl1st.F
deleted file mode 100644 (file)
index c484036..0000000
--- a/ISAJET/isasusy/ssl1st.F
+++ /dev/null
@@ -1,23 +0,0 @@
-#include "isajet/pilot.h"
-        REAL FUNCTION SSL1ST(SS)
-C-----------------------------------------------------------------------
-C          SSL1ST: l_1 -> stau_1+nu_l+nutaubar: TATA F FUNCTION
-C-----------------------------------------------------------------------
-#if defined(CERNLIB_IMPNONE)
-      IMPLICIT NONE
-#endif
-#include "isajet/sssm.inc"
-#include "isajet/sspar.inc"
-#include "isajet/sstmp.inc"
-        REAL SS
-        DOUBLE PRECISION S,M1,M2,MST1,ML1,WID
-        S=SS
-        M1=TMP(1)
-        M2=TMP(2)
-        MST1=TMP(3)
-        ML1=TMP(4)
-        WID=(S-MST1**2)**2/(S-M1**2)/(S-M2**2)*(S-ML1**2)**2
-     $       /S/ML1**2
-        SSL1ST=WID
-        RETURN
-        END