PDF/spdf/ghrgl.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:28:29  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:22  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13       FUNCTION GHRGL(Y,SQ)
  14 C
  15 C  STRUCTURE FUNCTION GLUON FROM A PROTON
  16       ASQ=ABS(SQ)
  17       SI=1.
  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
  22       D=6.0+1.454*SQ
  23       E=11.29*SQ**2
  24       F=41.24+50.71*SQ
  25       GHRGL =A*(1.0+B*Y+C*Y**2)*(1.0-Y)**D+E* EXP(-F*Y)
  26       RETURN
  27       END