Removal of useless dependencies via forward declarations

[u/mrichter/AliRoot.git] / PDF / spdf / sfgal.F

#include "pdf/pilot.h"
       SUBROUTINE SFGAL(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL)
C
C********************************************************************
C*                                                                  *
C*    Parametrization of parton distribution functions              *
C*    in the photon (LO analysis) - full  solution of AP eq.!       *
C*                                                                  *
C* authors: H.Abramowicz, E. Gurvich and A.Levy  (GAL)              *
C*                 /hep-ph/9711355/                                 *
C*                                                                  *
C* Prepared by:                                                     *
C*             Dr E. Gurvich                                        *
C*             Tel Aviv University                                  *
C*             e-mail: gurvich@post.tau.ac.il                       *
C*                                                                  *
C* Modified by:                                                     *
C*             H. Plothow-Besch/CERN-PPE                            *
C*                                                                  *
C********************************************************************
C
C...LAMBDA=0.2 GeV, Nf=4  (i.e. xb=0)
C...range of validity:
C...    10**-4 < X  < 1
C...     4(1)  < Q2 < 10**5 GeV**2
C
#include "pdf/impdp.inc"
#include "pdf/expdp.inc"
     +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL,
     +        XPDF(-6:6), X, Q, Q2
C
       X = DX
       Q = DQ
       Q2 = Q*Q
       CALL PHGAL(X,Q2,XPDF)
C
      DDV = XPDF(1)
      DUV = XPDF(2)
      DDB = XPDF(-1)
      DUB = XPDF(-2)
      DSB = XPDF(-3)
      DCB = XPDF(-4)
      DBB = XPDF(-5)
      DTB = XPDF(-6)
      DGL = XPDF(0)
C
      RETURN
      END