5 * Revision 1.1.1.2 1996/10/30 08:28:29 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:22 plothow
12 #include "pdf/pilot.h"
15 C STRUCTURE FUNCTION GLUON FROM A PROTON
18 IF (ASQ.GT.0.) SI=SQ/ABS(SQ)
19 A=0.9243+2.51*SI*ASQ**0.5
20 B=8.558-9.227*SI*ASQ**0.3-0.655*SI*ASQ**1.5
21 C=53.57-68.78*SI*ASQ**0.3+19.3*SQ
25 GHRGL =A*(1.0+B*Y+C*Y**2)*(1.0-Y)**D+E* EXP(-F*Y)