[u/mrichter/AliRoot.git] / PDF / spdf / ghrgl.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:28:29  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:22  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
      FUNCTION GHRGL(Y,SQ)
C
C  STRUCTURE FUNCTION GLUON FROM A PROTON
      ASQ=ABS(SQ)
      SI=1.
      IF (ASQ.GT.0.) SI=SQ/ABS(SQ)
      A=0.9243+2.51*SI*ASQ**0.5
      B=8.558-9.227*SI*ASQ**0.3-0.655*SI*ASQ**1.5
      C=53.57-68.78*SI*ASQ**0.3+19.3*SQ
      D=6.0+1.454*SQ
      E=11.29*SQ**2
      F=41.24+50.71*SQ
      GHRGL =A*(1.0+B*Y+C*Y**2)*(1.0-Y)**D+E* EXP(-F*Y)
      RETURN
      END
Commit	Line	Data
fe4da5cc	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.51SIASQ**0.5
	20	B=8.558-9.227SIASQ*0.3-0.655SIASQ*1.5
	21	C=53.57-68.78SIASQ*0.3+19.3SQ
	22	D=6.0+1.454*SQ
	23	E=11.29SQ*2
	24	F=41.24+50.71*SQ
	25	GHRGL =A(1.0+BY+CY2)(1.0-Y)*D+E EXP(-F*Y)
	26	RETURN
	27	END