PDF/spdf/sfgal.F

   1 #include "pdf/pilot.h"
   2        SUBROUTINE SFGAL(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL)
   3 C
   4 C********************************************************************
   5 C*                                                                  *
   6 C*    Parametrization of parton distribution functions              *
   7 C*    in the photon (LO analysis) - full  solution of AP eq.!       *
   8 C*                                                                  *
   9 C* authors: H.Abramowicz, E. Gurvich and A.Levy  (GAL)              *
  10 C*                 /hep-ph/9711355/                                 *
  11 C*                                                                  *
  12 C* Prepared by:                                                     *
  13 C*             Dr E. Gurvich                                        *
  14 C*             Tel Aviv University                                  *
  15 C*             e-mail: gurvich@post.tau.ac.il                       *
  16 C*                                                                  *
  17 C* Modified by:                                                     *
  18 C*             H. Plothow-Besch/CERN-PPE                            *
  19 C*                                                                  *
  20 C********************************************************************
  21 C
  22 C...LAMBDA=0.2 GeV, Nf=4  (i.e. xb=0)
  23 C...range of validity:
  24 C...    10**-4 < X  < 1
  25 C...     4(1)  < Q2 < 10**5 GeV**2
  26 C
  27 #include "pdf/impdp.inc"
  28 #include "pdf/expdp.inc"
  29      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL,
  30      +        XPDF(-6:6), X, Q, Q2
  31 C
  32        X = DX
  33        Q = DQ
  34        Q2 = Q*Q
  35        CALL PHGAL(X,Q2,XPDF)
  36 C
  37       DDV = XPDF(1)
  38       DUV = XPDF(2)
  39       DDB = XPDF(-1)
  40       DUB = XPDF(-2)
  41       DSB = XPDF(-3)
  42       DCB = XPDF(-4)
  43       DBB = XPDF(-5)
  44       DTB = XPDF(-6)
  45       DGL = XPDF(0)
  46 C
  47       RETURN
  48       END