]>
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.*YG**2*(1.+4.*XG+XG**2) + 4.*YG**3*(1.+XG) - 2.*YG**4 ) / | |
10 | & ( XG*(YG-1.-XG) ) | |
11 | RETURN | |
12 | END |