5 * Revision 1.1.1.2 1996/10/30 08:27:56 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:15 plothow
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14 SUBROUTINE DFLM4(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 :::::::::::: Soft Valence Quark distribution (LO)
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 FXVSOF(X,Q2,'UPVAL',VAL)
39 CALL FXVSOF(X,Q2,'DOVAL',VAL)
41 CALL FXVSOF(X,Q2,'UBAR ',VAL)
43 CALL FXVSOF(X,Q2,'SBAR ',VAL)
45 CALL FXVSOF(X,Q2,'CBAR ',VAL)
47 CALL FXVSOF(X,Q2,'BBAR ',VAL)
50 IF (DSCALE.GT.TMAS) CALL FXVSOF(X,Q2,'TBAR ',VAL)
52 CALL FXVSOF(X,Q2,'GLUON',VAL)