5 * Revision 1.1.1.2 1996/10/30 08:28:28 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:22 plothow
12 #include "pdf/pilot.h"
15 C D-QUARK FROM A PROTON STRUCTURE FUNCTION
20 IF (ASQ.GT.0.) SI=SQ/ABS(SQ)
21 C=2-0.5414*SI*ASQ**0.8
23 GHRDV=N*C*Y**A*(1.-Y**C)**D/BETA(D+1.0,A/C)