]> git.uio.no Git - u/mrichter/AliRoot.git/blob - ISAJET/isasusy/ssgwq1.F
Adding MUON HLT code to the repository.
[u/mrichter/AliRoot.git] / ISAJET / isasusy / ssgwq1.F
1 #include "isajet/pilot.h"
2         REAL FUNCTION SSGWQ1(Q)
3 C-----------------------------------------------------------------------
4 C          SSGLBF: glss -> wiss + qk + qb
5 C          The function psi of PRD36, 96 (1987); Eq. 3.2
6 C-----------------------------------------------------------------------
7 #if defined(CERNLIB_IMPNONE)
8       IMPLICIT NONE
9 #endif
10 #include "isajet/sssm.inc"
11 #include "isajet/sspar.inc"
12 #include "isajet/sstmp.inc"
13         REAL Q,PI
14         DOUBLE PRECISION MZ,MG,MS,QS,MGS,MSS,MZS,FUN
15         PI=4*ATAN(1.)
16         MZ=TMP(1)
17         MS=TMP(2)
18         MG=AMGLSS
19         QS=Q*Q
20         MGS=MG*MG
21         MZS=MZ*MZ
22         MSS=MS*MS
23         FUN=QS*(MGS-2*MG*Q-MZS)**2/(MGS-2*MG*Q-MSS)**2/(MGS-2*MG*Q)
24         SSGWQ1=PI**2*MG*FUN
25         RETURN
26         END