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

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