PDF/spdf/sflacg3.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:29:59  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 SFLACG3(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... 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:
  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 PHLAC3(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