PDF/spdf/dflm4.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:27:56  cernlib
   6 * Version 7.04
   7 *
   8 * Revision 1.1.1.1  1996/04/12 15:29:15  plothow
   9 * Version 7.01
  10 *
  11 *
  12 #include "pdf/pilot.h"
  13 C-----------------------------------------------------------------------
  14       SUBROUTINE DFLM4(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
  15 C
  16 C   ********************************************************************
  17 C   *                                                                  *
  18 C   *        Interface to DFLM set of structure functions              *
  19 C   *                                                                  *
  20 C   *        Author:    H. Plothow-Besch (CERN-PPE)                    *
  21 C   *                                                                  *
  22 C   ********************************************************************
  23 C
  24 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
  25 C :::::::::::: Soft Valence Quark distribution (LO)
  26 C
  27 #include "pdf/expdp.inc"
  28      +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
  29       REAL   X, Q2
  30 #include "pdf/w50511.inc"
  31 C
  32       X = DX
  33       Q2 = DSCALE**2
  34 C
  35 C     generate the individual structure fcn calls
  36 C
  37       CALL FXVSOF(X,Q2,'UPVAL',VAL)
  38       DUPV = VAL
  39       CALL FXVSOF(X,Q2,'DOVAL',VAL)
  40       DDNV = VAL
  41       CALL FXVSOF(X,Q2,'UBAR ',VAL)
  42       DSEA = VAL
  43       CALL FXVSOF(X,Q2,'SBAR ',VAL)
  44       DSTR = VAL
  45       CALL FXVSOF(X,Q2,'CBAR ',VAL)
  46       DCHM = VAL
  47       CALL FXVSOF(X,Q2,'BBAR ',VAL)
  48       DBOT = VAL
  49       VAL = 0.
  50       IF (DSCALE.GT.TMAS) CALL FXVSOF(X,Q2,'TBAR ',VAL)
  51       DTOP = VAL
  52       CALL FXVSOF(X,Q2,'GLUON',VAL)
  53       DGL = VAL
  54 C
  55       RETURN
  56       END