5 * Revision 1.1.1.2 1996/10/30 08:29:59 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:38 plothow
12 #include "pdf/pilot.h"
13 SUBROUTINE SFLACG3(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL)
15 C********************************************************************
17 C* Parametrization of parton distribution functions *
18 C* in the photon (LO analysis) - full solution of AP eq.! *
20 C* authors: H.Abramowicz, K.Charchula and A.Levy (LAC) *
21 C* /Phys. Lett. B269 (1991) 458/ *
24 C* Krzysztof Charchula, DESY *
25 C* bitnet: F1PCHA@DHHDESY3 *
26 C* decnet: 13313::CHARCHULA *
29 C* H. Plothow-Besch/CERN-PPE *
31 C********************************************************************
33 C...ISET Q20(GEV2) comments
34 C...------------------------------------------------------------
35 C... 3 1 as result--very hard gluons
36 C...------------------------------------------------------------
37 C...LAMBDA=0.2 GeV, Nf=4 (i.e. xb=0)
38 C...range of validity:
40 C... 4(1) < Q2 < 10**5 GeV**2
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
50 CALL PHLAC3(X,Q2,XPDF)