5 * Revision 1.4 2000/09/18 10:02:35 hristov
6 * Makefile added to PDF8
8 * Revision 1.1.1.2 1996/10/30 08:27:53 cernlib
11 * Revision 1.1.1.1 1996/04/12 15:29:15 plothow
15 #include "pdf/pilot.h"
16 C-----------------------------------------------------------------------
17 SUBROUTINE DFLM2(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
19 C ********************************************************************
21 C * Interface to DFLM set of structure functions *
23 C * Author: H. Plothow-Besch (CERN-PPE) *
25 C ********************************************************************
27 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 260 MeV :
29 #if defined(CERNLIB_DOUBLE)
32 #if defined(CERNLIB_SINGLE)
35 + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
37 #include "pdf/w50511.inc"
42 C generate the individual structure fcn calls
44 CALL FXG260(X,Q2,'UPVAL',VAL)
46 CALL FXG260(X,Q2,'DOVAL',VAL)
48 CALL FXG260(X,Q2,'UBAR ',VAL)
50 CALL FXG260(X,Q2,'SBAR ',VAL)
52 CALL FXG260(X,Q2,'CBAR ',VAL)
54 CALL FXG260(X,Q2,'BBAR ',VAL)
57 IF (DSCALE.GT.TMAS) CALL FXG260(X,Q2,'TBAR ',VAL)
59 CALL FXG260(X,Q2,'GLUON',VAL)