5 * Revision 1.1.1.2 1996/10/30 08:29:02 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:26 plothow
12 #include "pdf/pilot.h"
14 FUNCTION PDXMT (ISET, IPARTON, X, Q, IRT)
16 C For ISET = 1, 2 .. , returns sets of Parton Distributions
17 C (in the proton) with parton label Iparton (6, 5, ...,0, ..
18 C for (t, b, c, s, d, u, g, u-bar, ... t-bar), and kinematic
19 C variables (X, Q). IRT is a return error code.
21 C Iset = 1, 2, 3, 4 corresponds to the S1, B1, B2, and E1 fits of M
22 C Tung (Fermilab-Pub-90/74, IIT-90/11) to NLO in the DIS sch
24 C 5 corresponds to a new set with input strange quark distri
25 C being 1/2 of the non-strange sea quarks (as prefered by so
27 C 6, 7, 8, 9 corresponds to the S1, B1, B2, and E1 fits of M
28 C Tung (Fermilab-Pub-90/74, IIT-90/11) to NLO in the MSbar s
30 C 10 corresponds to a new set with input strange quark distr
31 C being 1/2 of the non-strange sea quarks (as prefered by so
34 C All the above sets assume a SU(3)-symmetric sea.
36 C 11 corresponds to a set of LO distributions suitable to be
37 C with LO hard scattering matrix elements.
39 C The "lambda" parameter (4-flavors) for each parton distribution set c
40 C obtained by making the following FUNCTION call:
41 C Alam = Vlambd (Iset, Iorder)
42 C where Iset is the (input) set #, Iorder is the (output) order of the
43 C for set 11, 2 for all the others), and Alam is the value of the effec
44 C lambda for 4 flavors.
46 C Details about the 1 - 5 distributions are
47 C given in the above-mentioned preprint.
49 #include "pdf/impdp.inc"
54 DATA (THRSLD(I), I=0,6) / 4*0.0, 1.5, 5.0, 90.0 /
58 C Return 0 if below th
59 IF (Q .LE. THRSLD(JFL)) THEN
66 ELSEIF (IFL .LE. 2) THEN
67 VL = PDZXMT(ISET, IFL, X, Q, IRT)
72 SEA = PDZXMT (ISET, -JFL, X, Q, IRT)
77 C *************************