ISAJET/isasusy/sszhx.F

   1 #include "isajet/pilot.h"
   2       FUNCTION SSZHX(X)
   3 C----------------------------------------------------------------
   4 C          Auxiliary function for Z -> HL Z*. Called by SSTEST.
   5 C----------------------------------------------------------------
   6 #if defined(CERNLIB_IMPNONE)
   7       IMPLICIT NONE
   8 #endif
   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"
  15 C
  16       REAL X,SSZHX
  17       REAL MHL,MZ,GZ,R,DEN,TERM
  18 C
  19       MHL=TMP(1)
  20       MZ=AMZ
  21       GZ=GAMZ
  22       R=MHL/MZ
  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
  25       SSZHX=TERM/DEN
  26       RETURN
  27       END