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

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:29:06  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:26  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
      SUBROUTINE PFTOPDG(DX,DSCALE,DXPDF)
C
#include "pdf/expdp.inc"
     +       DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL,
     +       DXPDF(-6:6)
C... call STRUCTM in PDFLIB to get flavour content
      CALL STRUCTM(DX,DSCALE,
     +                   DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL)
C... convert flavour convention of PDFLIB to PDG convention
      DXPDF(0) = DGL
      DXPDF(1) = DDNV + DDSEA
      DXPDF(2) = DUPV + DUSEA
      DXPDF(3) = DSTR
      DXPDF(4) = DCHM
      DXPDF(5) = DBOT
      DXPDF(6) = DTOP
      DXPDF(-1) = DDSEA
      DXPDF(-2) = DUSEA
      DXPDF(-3) = DSTR
      DXPDF(-4) = DCHM
      DXPDF(-5) = DBOT
      DXPDF(-6) = DTOP
C
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:29:06 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:29:26 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	SUBROUTINE PFTOPDG(DX,DSCALE,DXPDF)
	14	C
	15	#include "pdf/expdp.inc"
	16	+ DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL,
	17	+ DXPDF(-6:6)
	18	C... call STRUCTM in PDFLIB to get flavour content
	19	CALL STRUCTM(DX,DSCALE,
	20	+ DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL)
	21	C... convert flavour convention of PDFLIB to PDG convention
	22	DXPDF(0) = DGL
	23	DXPDF(1) = DDNV + DDSEA
	24	DXPDF(2) = DUPV + DUSEA
	25	DXPDF(3) = DSTR
	26	DXPDF(4) = DCHM
	27	DXPDF(5) = DBOT
	28	DXPDF(6) = DTOP
	29	DXPDF(-1) = DDSEA
	30	DXPDF(-2) = DUSEA
	31	DXPDF(-3) = DSTR
	32	DXPDF(-4) = DCHM
	33	DXPDF(-5) = DBOT
	34	DXPDF(-6) = DTOP
	35	C
	36	RETURN
	37	END