5 * Revision 1.1.1.2 1996/10/30 08:27:54 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:15 plothow
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14 SUBROUTINE DFLM3(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 = 360 MeV :
26 #include "pdf/expdp.inc"
27 + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
29 #include "pdf/w50511.inc"
34 C generate the individual structure fcn calls
36 CALL FXG360(X,Q2,'UPVAL',VAL)
38 CALL FXG360(X,Q2,'DOVAL',VAL)
40 CALL FXG360(X,Q2,'UBAR ',VAL)
42 CALL FXG360(X,Q2,'SBAR ',VAL)
44 CALL FXG360(X,Q2,'CBAR ',VAL)
46 CALL FXG360(X,Q2,'BBAR ',VAL)
49 IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL)
51 CALL FXG360(X,Q2,'GLUON',VAL)