PDF/spdf/pftopdg.F

   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