1 #include "isajet/pilot.h"
3 C----------------------------------------------------------------
4 C Auxiliary function for Z -> HL Z*. Called by SSTEST.
5 C----------------------------------------------------------------
6 #if defined(CERNLIB_IMPNONE)
9 #include "isajet/sslun.inc"
10 #include "isajet/ssmode.inc"
11 #include "isajet/sssm.inc"
12 #include "isajet/sspar.inc"
13 #include "isajet/sstmp.inc"
14 #include "isajet/sstype.inc"
17 REAL MHL,MZ,GZ,R,DEN,TERM
23 TERM=(1.-X+X**2/12.+2*R**2/3.)*SQRT(X**2-4*R**2)
24 DEN=(X-R**2)**2+(GZ/MZ)**2