[u/mrichter/AliRoot.git] / ISAJET / code / kkgf1.F

#include "isajet/pilot.h"
      REAL FUNCTION KKGF1(S,T,M2)
      REAL S,T,M2
      REAL XG,YG
      XG = T/S
      YG = M2/S
      KKGF1 =
     &   ( -4.*XG*(1.+XG)*(1.+2.*XG+2.*XG**2) 
     &     + YG*(1.+6.*XG+18.*XG**2+16.*XG**3) 
     &     - 6.*YG**2*XG*(1.+2.*XG) + YG**3*(1.+4.*XG) ) / 
     &   ( XG*(YG-1.-XG) )
      RETURN
      END
Commit	Line	Data
0795afa3	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.XG2+16.XG**3)
	10	& - 6.YG2XG(1.+2.XG) + YG*3(1.+4.*XG) ) /
	11	& ( XG*(YG-1.-XG) )
	12	RETURN
	13	END