PDF/spdf/bxqbar.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:27:41  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 BXQBAR (X,QQ,XQBAR)
  14 C.......................................................................
  15 C.
  16 C.    SEA
  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       AA=0.99D00+0.72D00*S+0.96D00*S*S
  25       PP=8.10D00-1.49D00*S+5.10D00*S*S
  26       XQBAR=AA*(ONED-X)**PP
  27       RETURN
  28       END