1 #include "isajet/pilot.h"
2 REAL FUNCTION SSGZG2(XARG)
3 C-----------------------------------------------------------------------
4 C SSGLBF: glss -> ziss + gl
5 C Baer's FUNI1- removed masses to simplify
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 TOP,BOT,XX,F,MQ,MX,MS,MG
22 TOP=-MG**2*XX*(1.D0-XX)+MS**2*XX+MQ**2*(1.D0-XX)
23 BOT=-MX**2*XX*(1.D0-XX)+MS**2*XX+MQ**2*(1.D0-XX)