PDF/spdf/ghrdv.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:28:28  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:22  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13       FUNCTION GHRDV(Y,SQ)
  14 C
  15 C  D-QUARK FROM A PROTON STRUCTURE FUNCTION
  16       N=1
  17       A=0.364-0.0368*SQ
  18       ASQ=ABS(SQ)
  19       SI=1.
  20       IF (ASQ.GT.0.) SI=SQ/ABS(SQ)
  21       C=2-0.5414*SI*ASQ**0.8
  22       D=5.09+0.3463*SQ
  23       GHRDV=N*C*Y**A*(1.-Y**C)**D/BETA(D+1.0,A/C)
  24       RETURN
  25       END