| 21886bb6 |
1 | * |
| 2 | * $Id$ |
| 3 | * |
| 4 | * $Log$ |
| 7ef50f50 |
5 | * Revision 1.4 2000/09/18 10:02:36 hristov |
| 6 | * Makefile added to PDF8 |
| 7 | * |
| 21886bb6 |
8 | * Revision 1.1.1.2 1996/10/30 08:29:06 cernlib |
| 9 | * Version 7.04 |
| 10 | * |
| 11 | * Revision 1.1.1.1 1996/04/12 15:29:26 plothow |
| 12 | * Version 7.01 |
| 13 | * |
| 14 | * |
| 15 | #include "pdf/pilot.h" |
| 16 | SUBROUTINE PFTOPDG(DX,DSCALE,DXPDF) |
| 17 | C |
| 7ef50f50 |
18 | #if defined(CERNLIB_DOUBLE) |
| 19 | DOUBLE PRECISION |
| 20 | #endif |
| 21 | #if defined(CERNLIB_SINGLE) |
| 22 | REAL |
| 23 | #endif |
| 21886bb6 |
24 | + DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL, |
| 25 | + DXPDF(-6:6) |
| 26 | C... call STRUCTM in PDFLIB to get flavour content |
| 27 | CALL STRUCTM(DX,DSCALE, |
| 28 | + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) |
| 29 | C... convert flavour convention of PDFLIB to PDG convention |
| 30 | DXPDF(0) = DGL |
| 31 | DXPDF(1) = DDNV + DDSEA |
| 32 | DXPDF(2) = DUPV + DUSEA |
| 33 | DXPDF(3) = DSTR |
| 34 | DXPDF(4) = DCHM |
| 35 | DXPDF(5) = DBOT |
| 36 | DXPDF(6) = DTOP |
| 37 | DXPDF(-1) = DDSEA |
| 38 | DXPDF(-2) = DUSEA |
| 39 | DXPDF(-3) = DSTR |
| 40 | DXPDF(-4) = DCHM |
| 41 | DXPDF(-5) = DBOT |
| 42 | DXPDF(-6) = DTOP |
| 43 | C |
| 44 | RETURN |
| 45 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame