]>
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.*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 |