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

#include "isajet/pilot.h"
        REAL FUNCTION SSN1ST(SS)
C-----------------------------------------------------------------------
C          SSN1ST: l_1 -> stau_1+nu_l+nutaubar: TATA G 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,MN1,WID
        S=SS
        M1=TMP(1)
        M2=TMP(2)
        MST1=TMP(3)
        MN1=TMP(4)
        WID=(S-MST1**2)**2/(S-M1**2)/(S-M2**2)*(S-MN1**2)**2
     $       /S**2/MN1**2
        SSN1ST=WID
        RETURN
        END
Commit	Line	Data
0795afa3	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-MST12)2/(S-M12)/(S-M22)(S-MN12)*2
	20	$ /S2/MN12
	21	SSN1ST=WID
	22	RETURN
	23	END