PDF/spdf/rxglue.F

   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/XLAM**2)/LOG(Q00/XLAM**2)
  24       S=LOG(S)
  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)
  32       RETURN
  33       END