]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.2 1996/10/30 08:29:58 cernlib | |
6 | * Version 7.04 | |
7 | * | |
8 | * Revision 1.1.1.1 1996/04/12 15:29:38 plothow | |
9 | * Version 7.01 | |
10 | * | |
11 | * | |
12 | #include "pdf/pilot.h" | |
13 | SUBROUTINE SFLACG2(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) | |
14 | C | |
15 | C******************************************************************** | |
16 | C* * | |
17 | C* Parametrization of parton distribution functions * | |
18 | C* in the photon (LO analysis) - full solution of AP eq.! * | |
19 | C* * | |
20 | C* authors: H.Abramowicz, K.Charchula and A.Levy (LAC) * | |
21 | C* /Phys. Lett. B269 (1991) 458/ * | |
22 | C* * | |
23 | C* Prepared by: * | |
24 | C* Krzysztof Charchula, DESY * | |
25 | C* bitnet: F1PCHA@DHHDESY3 * | |
26 | C* decnet: 13313::CHARCHULA * | |
27 | C* * | |
28 | C* Modified by: * | |
29 | C* H. Plothow-Besch/CERN-PPE * | |
30 | C* * | |
31 | C******************************************************************** | |
32 | C | |
33 | C...ISET Q20(GEV2) comments | |
34 | C...------------------------------------------------------------ | |
35 | C... 2 4 xG(x,Q20)-->const (fixed) at low x | |
36 | C...------------------------------------------------------------ | |
37 | C...LAMBDA=0.2 GeV, Nf=4 (i.e. xb=0) | |
38 | C...range of validity: | |
39 | C... 10**-4 < X < 1 | |
40 | C... 4(1) < Q2 < 10**5 GeV**2 | |
41 | C | |
42 | #include "pdf/impdp.inc" | |
43 | #include "pdf/expdp.inc" | |
44 | + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL, | |
45 | + XPDF(-6:6), X, Q, Q2 | |
46 | C | |
47 | X = DX | |
48 | Q = DQ | |
49 | Q2 = Q*Q | |
50 | CALL PHLAC2(X,Q2,XPDF) | |
51 | C | |
52 | DDV = XPDF(1) | |
53 | DUV = XPDF(2) | |
54 | DDB = XPDF(-1) | |
55 | DUB = XPDF(-2) | |
56 | DSB = XPDF(-3) | |
57 | DCB = XPDF(-4) | |
58 | DBB = XPDF(-5) | |
59 | DTB = XPDF(-6) | |
60 | DGL = XPDF(0) | |
61 | C | |
62 | RETURN | |
63 | END |