]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.2 1996/10/30 08:27:31 cernlib | |
6 | * Version 7.04 | |
7 | * | |
8 | * Revision 1.1.1.1 1996/04/12 15:28:58 plothow | |
9 | * Version 7.01 | |
10 | * | |
11 | * | |
12 | #include "pdf/pilot.h" | |
13 | FUNCTION AFCPLU(X,Q2) | |
14 | CMS=1.5**2 | |
15 | BETS=1-4.*CMS*X/(1.-X)/Q2 | |
16 | IF(BETS.LE..0) THEN | |
17 | AFCPLU=.0 | |
18 | RETURN | |
19 | ENDIF | |
20 | BETA=SQRT(BETS) | |
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.) | |
25 | 1 RETURN | |
26 | END |