More volume overlaps corrected
[u/mrichter/AliRoot.git] / ISAJET / code / kkgf3.F
CommitLineData
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.*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