5 * Revision 1.1.1.2 1996/10/30 08:28:31 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:22 plothow
12 #include "pdf/pilot.h"
15 C STRUCTURE FUNCTION S-QUARK FROM A PROTON
18 IF ( ASQ.GT.0.) SI=SQ/ABS(SQ)
19 A=0.0625+0.1132*SI*ASQ**1.3
20 B=12.64*SQ-51.70*SI*ASQ**1.8+38.02*SQ**2
25 GHRXS=A*(1.0+B*Y+C*Y**2)*(1.0-Y)**D+E* EXP(-F*Y)