PDF/spdf/spctq53.F

   1 #include "pdf/pilot.h"
   2 C-----------------------------------------------------------------------
   3       SUBROUTINE SPCTQ53(DX,DSCAL,
   4      +                     DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL)
   5 C
   6 C   ********************************************************************
   7 C   *                                                                  *
   8 C   *        Interface to CTEQset of structure functions               *
   9 C   *                                                                  *
  10 C   *        Author:    H. Plothow-Besch (CERN-PPE)                    *
  11 C   *                                                                  *
  12 C   ********************************************************************
  13 C
  14 C :::::::::::: Structure functions from CETQ5L Parametrization
  15 C :::::::::::: Lambda = 0.192 GeV (LO) (CTEQ5L)
  16 C
  17 #include "pdf/impdp.inc"
  18 C
  19       PARAMETER (ISET=3)
  20 #include "pdf/w50511.inc"
  21 C
  22       X = DX
  23       Q = DSCAL
  24 C
  25 C     generate the individual structure fcn calls
  26 C
  27       UPV = Ctq5Lp(1,X,Q)
  28       DNV = Ctq5Lp(2,X,Q)
  29       SEAU = Ctq5Lp(-1,X,Q)
  30       DSEA = SEAU * X
  31       DUPV = (UPV-SEAU) * X
  32       SEAD = Ctq5Lp(-2,X,Q)
  33       DSEAD = SEAD * X
  34       DDNV = (DNV-SEAD) * X
  35       STR = Ctq5Lp(-3,X,Q)
  36       DSTR = STR * X
  37       CHM = Ctq5Lp(-4,X,Q)
  38       DCHM = CHM * X
  39       BOT = Ctq5Lp(-5,X,Q)
  40       DBOT = BOT * X
  41       TOP = 0.
  42       IF (DSCAL.GT.TMAS) TOP = Ctq5Lp(-6,X,QL)
  43       DTOP = TOP * X
  44       GL = Ctq5Lp(0,X,Q)
  45       DGL = GL * X
  46 C
  47       RETURN
  48       END