1 C-----------------------------------------------------------------------
3 SUBROUTINE SFCTQ49(DX,DSCAL,
4 + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL)
6 C ********************************************************************
8 C * Interface to CTEQset of structure functions *
10 C * Author: H. Plothow-Besch (CERN-PPE) *
12 C ********************************************************************
14 C :::::::::::: Structure functions from the CTEQ collaboration version 4
15 C :::::::::::: Lambda = 0.174 GeV (MS_bar) low Q**2
17 #include "pdf/impdp.inc"
19 #include "pdf/w50511.inc"
24 C generate the individual structure fcn calls
26 UPV = Ctq4Fn(ISET, 1,X,Q)
27 DNV = Ctq4Fn(ISET, 2,X,Q)
28 SEAU = Ctq4Fn(ISET,-1,X,Q)
31 SEAD = Ctq4Fn(ISET,-2,X,Q)
34 STR = Ctq4Fn(ISET,-3,X,Q)
36 CHM = Ctq4Fn(ISET,-4,X,Q)
38 BOT = Ctq4Fn(ISET,-5,X,Q)
41 C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q)
43 GL = Ctq4Fn(ISET, 0,X,Q)