ISAJET/code/kkgf1.F

   1 #include "isajet/pilot.h"
   2       REAL FUNCTION KKGF1(S,T,M2)
   3       REAL S,T,M2
   4       REAL XG,YG
   5       XG = T/S
   6       YG = M2/S
   7       KKGF1 =
   8      &   ( -4.*XG*(1.+XG)*(1.+2.*XG+2.*XG**2)
   9      &     + YG*(1.+6.*XG+18.*XG**2+16.*XG**3)
  10      &     - 6.*YG**2*XG*(1.+2.*XG) + YG**3*(1.+4.*XG) ) /
  11      &   ( XG*(YG-1.-XG) )
  12       RETURN
  13       END