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)
10 #include "isajet/sssm.inc"
11 #include "isajet/sspar.inc"
12 #include "isajet/sstmp.inc"
14 DOUBLE PRECISION MZ,MG,MS,QS,MGS,MSS,MZS,FUN
23 FUN=QS*(MGS-2*MG*Q-MZS)**2/(MGS-2*MG*Q-MSS)**2/(MGS-2*MG*Q)