PDF/spdf/bxglue.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:27:40  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:05  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13       SUBROUTINE BXGLUE (X,QQ,XGL)
  14 C.......................................................................
  15 C.
  16 C.    GLUON
  17 C.
  18 C.......................................................................
  19 #include "pdf/impdp.inc"
  20       DATA XLAM /0.47D00/, Q02/5.D0/
  21       DATA ONED/1.D0/, FIVED2/5.2D0/
  22 C
  23       S = LOG( LOG( MAX( FIVED2,QQ)/XLAM**2)/ LOG( Q02/XLAM**2))
  24 C     CGL=2.01D00-3.56D00*S+5.10D00*S**2
  25 C ... modified according to Z. Phys. C2 (79) 265, HPB - 25.2.91
  26       CGL=2.01D00-3.56D00*S+1.98D00*S*S
  27       ETA1=-1.13D00*S+0.48D00*S*S
  28       ETA2=2.90D00+5.08D00*S*4.00D00/25.0D00
  29       XGL=CGL*(X**ETA1)*((ONED-X)**ETA2)
  30       RETURN
  31       END