ISAJET/code/kkgf3.F

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