Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...

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

*
* $Id$
*
* $Log$
* Revision 1.4  2000/09/18 10:02:36  hristov
* Makefile added to PDF8
*
* Revision 1.1.1.2  1996/10/30 08:29:57  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:37  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
       SUBROUTINE SFLACG1(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, K.Charchula and A.Levy  (LAC)             *
C*                 /Phys. Lett. B269 (1991) 458/                    *
C*                                                                  *
C* Prepared by:                                                     *
C*             Krzysztof Charchula, DESY                            *
C*             bitnet: F1PCHA@DHHDESY3                              *
C*             decnet: 13313::CHARCHULA                             *
C*                                                                  *
C* Modified by:                                                     *
C*             H. Plothow-Besch/CERN-PPE                            *
C*                                                                  *
C********************************************************************
C
C...ISET   Q20(GEV2)  comments
C...------------------------------------------------------------
C... 1        4        xG(x,Q20)-->x**(-0.34) (fitted) at low x
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"
#if defined(CERNLIB_DOUBLE)
      DOUBLE PRECISION
#endif
#if defined(CERNLIB_SINGLE)
      REAL
#endif
     +        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 PHLAC1(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