*
* $Id: dflm7.F,v 1.1.1.2 1996/10/30 08:27:59 cernlib Exp $
*
* $Log: dflm7.F,v $
* Revision 1.1.1.2  1996/10/30 08:27:59  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:15  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
C-----------------------------------------------------------------------
      SUBROUTINE DFLM7(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
C
C   ********************************************************************
C   *                                                                  *
C   *        Interface to DFLM set of structure functions              *
C   *                                                                  *
C   *        Author:    H. Plothow-Besch (CERN-PPE)                    *
C   *                                                                  *
C   ********************************************************************
C
C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
C :::::::::::: Hard Gluon distribution (LO)
C
#include "pdf/expdp.inc"
     +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
      REAL   X, Q2
#include "pdf/w50511.inc"
C
      X = DX
      Q2 = DSCALE**2
C
C     generate the individual structure fcn calls
C
      CALL FXGHAR(X,Q2,'UPVAL',VAL)
      DUPV = VAL
      CALL FXGHAR(X,Q2,'DOVAL',VAL)
      DDNV = VAL
      CALL FXGHAR(X,Q2,'UBAR ',VAL)
      DSEA = VAL
      CALL FXGHAR(X,Q2,'SBAR ',VAL)
      DSTR = VAL
      CALL FXGHAR(X,Q2,'CBAR ',VAL)
      DCHM = VAL
      CALL FXGHAR(X,Q2,'BBAR ',VAL)
      DBOT = VAL
      VAL = 0.
      IF (DSCALE.GT.TMAS) CALL FXGHAR(X,Q2,'TBAR ',VAL)
      DTOP = VAL
      CALL FXGHAR(X,Q2,'GLUON',VAL)
      DGL  = VAL
C
      RETURN
      END
