5 * Revision 1.1.1.2 1996/10/30 08:29:16 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:29 plothow
12 #include "pdf/pilot.h"
13 SUBROUTINE RXGLUE (X,QQ,XGL)
14 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/
23 S=LOG(QQ/XLAM**2)/LOG(Q00/XLAM**2)
25 AG=2.412D00-1.9845D00*S+0.4443D00*S**2
26 ETAG=5.0D00+1.5464D00*S-0.5287D00*S**2
27 APG=3.6363D00*S-1.4146D00*S**2
28 ETAPG=13.8237D00+0.7914D00*S-0.2873D00*S**2
29 BG=7.6609D00*S-1.4595D00*S**2
30 CG=36.7928D00+12.5884D00*S-1.1536D00*S**2
31 XGL=AG*((ONED-X)**ETAG)+APG*((ONED-X)**ETAPG)+BG*EXP(-CG*X)