ISAJET/isasusy/ssgzg3.F

   1 #include "isajet/pilot.h"
   2         REAL FUNCTION SSGZG3(XARG)
   3 C-----------------------------------------------------------------------
   4 C          SSGLBF: glss -> ziss + gl
   5 C          Baer's FUNK - remove masses to simplify
   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 XARG
  14         DOUBLE PRECISION TOP,BOT,XX,F,MQ,MX,MS,MG
  15 C
  16         MQ=TMP(1)
  17         MX=TMP(2)
  18         MS=TMP(3)
  19         MG=AMGLSS
  20 C
  21         XX=XARG
  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)
  24         F=-1.D0-BOT/(MG**2-MX**2)/XX/(1.D0-XX)*DLOG(TOP/BOT)
  25         SSGZG3=F
  26         RETURN
  27         END