PDF/spdf/dflm1.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.2  1996/10/30 08:27:53  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 DFLM1(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 = 160 MeV :
  25 C
  26 #include "pdf/expdp.inc"
  27      +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
  28       REAL   X, Q2
  29 #include "pdf/w50511.inc"
  30 C
  31       X = DX
  32       Q2 = DSCALE**2
  33 C
  34 C     generate the individual structure fcn calls
  35 C
  36       CALL FXG160(X,Q2,'UPVAL',VAL)
  37       DUPV = VAL
  38       CALL FXG160(X,Q2,'DOVAL',VAL)
  39       DDNV = VAL
  40       CALL FXG160(X,Q2,'UBAR ',VAL)
  41       DSEA = VAL
  42       CALL FXG160(X,Q2,'SBAR ',VAL)
  43       DSTR = VAL
  44       CALL FXG160(X,Q2,'CBAR ',VAL)
  45       DCHM = VAL
  46       CALL FXG160(X,Q2,'BBAR ',VAL)
  47       DBOT = VAL
  48       VAL = 0.
  49       IF (DSCALE.GT.TMAS) CALL FXG160(X,Q2,'TBAR ',VAL)
  50       DTOP = VAL
  51       CALL FXG160(X,Q2,'GLUON',VAL)
  52       DGL  = VAL
  53 C
  54       RETURN
  55       END