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