5 * Revision 1.1.1.2 1996/10/30 08:29:06 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:26 plothow
12 #include "pdf/pilot.h"
13 SUBROUTINE PFTOPDG(DX,DSCALE,DXPDF)
15 #include "pdf/expdp.inc"
16 + DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL,
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
23 DXPDF(1) = DDNV + DDSEA
24 DXPDF(2) = DUPV + DUSEA