PDF/spdf/dflm3.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:27:54  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 DFLM3(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 = 360 MeV :
  28 C
  29 #if defined(CERNLIB_DOUBLE)
  30       DOUBLE PRECISION
  31 #endif
  32 #if defined(CERNLIB_SINGLE)
  33       REAL
  34 #endif
  35      +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
  36       REAL   X, Q2
  37 #include "pdf/w50511.inc"
  38 C
  39       X = DX
  40       Q2 = DSCALE**2
  41 C
  42 C     generate the individual structure fcn calls
  43 C
  44       CALL FXG360(X,Q2,'UPVAL',VAL)
  45       DUPV = VAL
  46       CALL FXG360(X,Q2,'DOVAL',VAL)
  47       DDNV = VAL
  48       CALL FXG360(X,Q2,'UBAR ',VAL)
  49       DSEA = VAL
  50       CALL FXG360(X,Q2,'SBAR ',VAL)
  51       DSTR = VAL
  52       CALL FXG360(X,Q2,'CBAR ',VAL)
  53       DCHM = VAL
  54       CALL FXG360(X,Q2,'BBAR ',VAL)
  55       DBOT = VAL
  56       VAL = 0.
  57       IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL)
  58       DTOP = VAL
  59       CALL FXG360(X,Q2,'GLUON',VAL)
  60       DGL  = VAL
  61 C
  62       RETURN
  63       END