PDF/spdf/ghruv.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.3  2000/04/19 13:28:08  mclareni
   6 * Import version 8.04
   7 *
   8 * Revision 1.2  2000/03/23 11:39:41  pdflib
   9 * beta function changed to pdf_beta function
  10 *
  11 * Revision 1.1.1.1  1996/04/12 15:29:22  plothow
  12 * Version 7.01
  13 *
  14 *
  15 #include "pdf/pilot.h"
  16       FUNCTION GHRUV(Y,SQ)
  17 C
  18 C  STRUCTURE FUNCTION U-QUARK FROM A PROTON
  19       N=2
  20       A=0.421-0.0412*SQ
  21       ASQ=ABS(SQ)
  22       SI=1.
  23       IF (ASQ.GT.0.) SI=SQ/ABS(SQ)
  24       C=2-0.6223*SI*ASQ**0.8
  25       D=3.37+0.4319*SQ
  26       GHRUV=N*C*Y**A*(1.-Y**C)**D/PDF_BETA(D+1.0,A/C)
  27       RETURN
  28       END