5 * Revision 1.1.1.2 1996/10/30 08:27:57 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:15 plothow
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14 SUBROUTINE DFLM5(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
16 C ********************************************************************
18 C * Interface to DFLM set of structure functions *
20 C * Author: H. Plothow-Besch (CERN-PPE) *
22 C ********************************************************************
24 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
25 C :::::::::::: Hard Valence Quark distribution
27 #include "pdf/expdp.inc"
28 + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
30 #include "pdf/w50511.inc"
35 C generate the individual structure fcn calls
37 CALL FXVHAR(X,Q2,'UPVAL',VAL)
39 CALL FXVHAR(X,Q2,'DOVAL',VAL)
41 CALL FXVHAR(X,Q2,'UBAR ',VAL)
43 CALL FXVHAR(X,Q2,'SBAR ',VAL)
45 CALL FXVHAR(X,Q2,'CBAR ',VAL)
47 CALL FXVHAR(X,Q2,'BBAR ',VAL)
50 IF (DSCALE.GT.TMAS) CALL FXVHAR(X,Q2,'TBAR ',VAL)
52 CALL FXVHAR(X,Q2,'GLUON',VAL)