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

#include "isajet/pilot.h"
      REAL FUNCTION KKGF3(S,T,M2)
      REAL S,T,M2
      REAL XG,YG
      XG = T/S
      YG = M2/S
      KKGF3 = 
     &   ( 1. + 2.*XG + 3.*XG**2 + 2.*XG**3 + XG**4 - 2.*YG*(1.+XG**3)
     &     + 3.*YG**2*(1.+XG**2) - 2.*YG**3*(1.+XG) + YG**4 ) /
     &   ( XG*(YG-1.-XG) )
      RETURN
      END
Commit	Line	Data
0795afa3	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.XG3 + XG4 - 2.YG(1.+XG**3)
	9	& + 3.YG2(1.+XG*2) - 2.YG*3(1.+XG) + YG**4 ) /
	10	& ( XG*(YG-1.-XG) )
	11	RETURN
	12	END