PDF/spdf/dflm9.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.4  2000/09/18 10:02:35  hristov
   6 * Makefile added to PDF8
   7 *
   8 * Revision 1.1.1.2  1996/10/30 08:28:01  cernlib
   9 * Version 7.04
  10 *
  11 * Revision 1.1.1.1  1996/04/12 15:29:15  plothow
  12 * Version 7.01
  13 *
  14 *
  15 #include "pdf/pilot.h"
  16 C-----------------------------------------------------------------------
  17       SUBROUTINE DFLM9(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
  18 C
  19 C   ********************************************************************
  20 C   *                                                                  *
  21 C   *        Interface to DFLM set of structure functions              *
  22 C   *                                                                  *
  23 C   *        Author:    H. Plothow-Besch (CERN-PPE)                    *
  24 C   *                                                                  *
  25 C   ********************************************************************
  26 C
  27 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 300 MeV :
  28 C :::::::::::: Central distribution (NLLO)
  29 C
  30 #if defined(CERNLIB_DOUBLE)
  31       DOUBLE PRECISION
  32 #endif
  33 #if defined(CERNLIB_SINGLE)
  34       REAL
  35 #endif
  36      +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
  37       REAL   X, Q2
  38 #include "pdf/w50511.inc"
  39 C
  40       X = DX
  41       Q2 = DSCALE**2
  42 C
  43 C     generate the individual structure fcn calls
  44 C
  45       CALL FXNLLA(X,Q2,'UPVAL',VAL)
  46       DUPV = VAL
  47       CALL FXNLLA(X,Q2,'DOVAL',VAL)
  48       DDNV = VAL
  49       CALL FXNLLA(X,Q2,'UBAR ',VAL)
  50       DSEA = VAL
  51       CALL FXNLLA(X,Q2,'SBAR ',VAL)
  52       DSTR = VAL
  53       CALL FXNLLA(X,Q2,'CBAR ',VAL)
  54       DCHM = VAL
  55       CALL FXNLLA(X,Q2,'BBAR ',VAL)
  56       DBOT = VAL
  57       VAL = 0.
  58       IF (DSCALE.GT.TMAS) CALL FXNLLA(X,Q2,'TBAR ',VAL)
  59       DTOP = VAL
  60       CALL FXNLLA(X,Q2,'GLUON',VAL)
  61       DGL = VAL
  62 C
  63       RETURN
  64       END