5 * Revision 1.1.1.2 1996/10/30 08:27:31 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:28:58 plothow
12 #include "pdf/pilot.h"
15 BETS=1-4.*CMS*X/(1.-X)/Q2
21 CPLU=(8.*X*(1.-X)-1.-4.*CMS*X*(1.-X)/Q2)*BETA
22 CAU=X**2+(1.-X)**2+4.*CMS*X*(1.-3.*X)/Q2-8.*CMS**2*X**2/Q2**2
23 CPLU=CPLU+CAU* LOG((1.+BETA)/(1.-BETA))
24 AFCPLU=3.*(4./9.)*CPLU*X/(3.1415*137.)