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

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:29:16  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:29  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
      SUBROUTINE RXGLUE (X,QQ,XGL)
C.......................................................................
C.
C.    GLUON
C.
C.......................................................................
#include "pdf/impdp.inc"
      DATA XLAM /0.50D00/, Q0/2.D0/, Q00/1.8D0/
      DATA ONED/1.D0/, THRED/3.D0/
      IF(QQ.LT.Q0) QQ=Q0
      S=LOG(QQ/XLAM**2)/LOG(Q00/XLAM**2)
      S=LOG(S)
      AG=2.412D00-1.9845D00*S+0.4443D00*S**2
      ETAG=5.0D00+1.5464D00*S-0.5287D00*S**2
      APG=3.6363D00*S-1.4146D00*S**2
      ETAPG=13.8237D00+0.7914D00*S-0.2873D00*S**2
      BG=7.6609D00*S-1.4595D00*S**2
      CG=36.7928D00+12.5884D00*S-1.1536D00*S**2
      XGL=AG*((ONED-X)**ETAG)+APG*((ONED-X)**ETAPG)+BG*EXP(-CG*X)
      RETURN
      END
Commit	Line	Data
21886bb6	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:29:16 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:29:29 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	SUBROUTINE RXGLUE (X,QQ,XGL)
	14	C.......................................................................
	15	C.
	16	C. GLUON
	17	C.
	18	C.......................................................................
	19	#include "pdf/impdp.inc"
	20	DATA XLAM /0.50D00/, Q0/2.D0/, Q00/1.8D0/
	21	DATA ONED/1.D0/, THRED/3.D0/
	22	IF(QQ.LT.Q0) QQ=Q0
	23	S=LOG(QQ/XLAM2)/LOG(Q00/XLAM2)
	24	S=LOG(S)
	25	AG=2.412D00-1.9845D00S+0.4443D00S**2
	26	ETAG=5.0D00+1.5464D00S-0.5287D00S**2
	27	APG=3.6363D00S-1.4146D00S**2
	28	ETAPG=13.8237D00+0.7914D00S-0.2873D00S**2
	29	BG=7.6609D00S-1.4595D00S**2
	30	CG=36.7928D00+12.5884D00S-1.1536D00S**2
	31	XGL=AG((ONED-X)ETAG)+APG((ONED-X)*ETAPG)+BGEXP(-CG*X)
	32	RETURN
	33	END