5 * Revision 1.1.1.2 1996/10/30 08:27:50 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:10 plothow
12 #include "pdf/pilot.h"
15 SUBROUTINE Ctq3Pds(Iset, Pdf, X, Q, Irt)
17 C This function returns the CTEQ parton distributions xf^Iset_Iprtn/proton
18 C --- the Momentum density in array form
20 C (Iset, X, Q): explained in header comment lines;
22 C Irt : return error code -- cumulated over flavors:
23 C see module Ctq3Pd for explanation on individual flavors.
25 C Iparton = -6, -5, ...0, 1, 2 ... 6
26 C has the same meaning as explained in the header comment lines.
28 C Implicit Double Precision (A-H, O-Z)
35 Pdf(I) = Ctq3Pd(Iset,I,X,Q,Irt1)
38 Pdf(I) = Ctq3Pd(Iset,I,X,Q,Irt1) + Pdf(-I)
44 C *************************