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