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

*
* $Id$
*
* $Log$
* 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"
#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 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
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:29:57 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:29:37 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	SUBROUTINE SFLACG1(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... 1 4 xG(x,Q20)-->x**(-0.34) (fitted) at low x
	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 < 105 GeV2
	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 PHLAC1(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