5 * Revision 1.4 2000/09/18 10:02:35 hristov
6 * Makefile added to PDF8
8 * Revision 1.1.1.2 1996/10/30 08:28:07 cernlib
11 * Revision 1.2 1996/10/28 14:59:26 pdflib
12 * PDFLIB new version 7.04
14 * Revision 1.1.1.1 1996/04/12 15:29:17 plothow
18 #include "pdf/pilot.h"
19 SUBROUTINE DOPHO2(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL)
20 C********************************************************************
22 C* Parametrization of parton distribution functions *
23 C* in the photon (LO analysis) - asymptotic solution of AP eq.! *
25 C* authors: D.Duke and H.Owens (DO) *
26 C* /Phys.Rev. D26 (1982) 1600/ *
29 C* Krzysztof Charchula, DESY *
30 C* bitnet: F1PCHA@DHHDESY3 *
31 C* decnet: 13313::CHARCHULA *
34 C* H. Plothow-Besch/CERN-PPE *
36 C********************************************************************
38 #include "pdf/impdp.inc"
39 #if defined(CERNLIB_DOUBLE)
42 #if defined(CERNLIB_SINGLE)
46 + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
47 PARAMETER (ALPEM=7.29927D-3,PI=3.141592D0)
48 PARAMETER (ALAM=0.4D0)
49 DATA CQ/0.33333D0,0.66666D0,0.33333D0,0.66666D0,0.33333D0/
53 FQ=ALPEM/(2.*PI)*LOG(Q2/ALAM2)
56 POMG=0.194*(1.-DX)**1.03/(DX**0.97)
60 POM1=(1.81-1.67*DX+2.16*DX**2)
61 POM2=DX**0.7/(1.-0.4*LOG(1.-DX))
62 POM3=38.D-4*(1.-DX)**1.82/(DX**1.18)
63 DDB=(CQ(1)**2*POM1*POM2+POM3)*FQ
65 DUB=(CQ(2)**2*POM1*POM2+POM3)*FQ
67 DSB=(CQ(3)**2*POM1*POM2+POM3)*FQ
68 DCB=(CQ(4)**2*POM1*POM2+POM3)*FQ
69 DBB=(CQ(5)**2*POM1*POM2+POM3)*FQ