2 C-----------------------------------------------------------------------
3 SUBROUTINE SPCTQ51(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 CETQ5M1 Parametrization
15 C :::::::::::: Lambda = 0.326 GeV (MSbar) (CTEQ5M1)
17 #include "pdf/impdp.inc"
20 #include "pdf/w50511.inc"
25 C generate the individual structure fcn calls
42 IF (DSCAL.GT.TMAS) TOP = Ctq5Mi(-6,X,QL)