]>
Commit | Line | Data |
---|---|---|
21886bb6 | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
7ef50f50 | 5 | * Revision 1.4 2000/09/18 10:02:35 hristov |
6 | * Makefile added to PDF8 | |
7 | * | |
21886bb6 | 8 | * Revision 1.1.1.2 1996/10/30 08:27:54 cernlib |
9 | * Version 7.04 | |
10 | * | |
11 | * Revision 1.1.1.1 1996/04/12 15:29:15 plothow | |
12 | * Version 7.01 | |
13 | * | |
14 | * | |
15 | #include "pdf/pilot.h" | |
16 | C----------------------------------------------------------------------- | |
17 | SUBROUTINE DFLM3(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) | |
18 | C | |
19 | C ******************************************************************** | |
20 | C * * | |
21 | C * Interface to DFLM set of structure functions * | |
22 | C * * | |
23 | C * Author: H. Plothow-Besch (CERN-PPE) * | |
24 | C * * | |
25 | C ******************************************************************** | |
26 | C | |
27 | C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 360 MeV : | |
28 | C | |
7ef50f50 | 29 | #if defined(CERNLIB_DOUBLE) |
30 | DOUBLE PRECISION | |
31 | #endif | |
32 | #if defined(CERNLIB_SINGLE) | |
33 | REAL | |
34 | #endif | |
21886bb6 | 35 | + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL |
36 | REAL X, Q2 | |
37 | #include "pdf/w50511.inc" | |
38 | C | |
39 | X = DX | |
40 | Q2 = DSCALE**2 | |
41 | C | |
42 | C generate the individual structure fcn calls | |
43 | C | |
44 | CALL FXG360(X,Q2,'UPVAL',VAL) | |
45 | DUPV = VAL | |
46 | CALL FXG360(X,Q2,'DOVAL',VAL) | |
47 | DDNV = VAL | |
48 | CALL FXG360(X,Q2,'UBAR ',VAL) | |
49 | DSEA = VAL | |
50 | CALL FXG360(X,Q2,'SBAR ',VAL) | |
51 | DSTR = VAL | |
52 | CALL FXG360(X,Q2,'CBAR ',VAL) | |
53 | DCHM = VAL | |
54 | CALL FXG360(X,Q2,'BBAR ',VAL) | |
55 | DBOT = VAL | |
56 | VAL = 0. | |
57 | IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL) | |
58 | DTOP = VAL | |
59 | CALL FXG360(X,Q2,'GLUON',VAL) | |
60 | DGL = VAL | |
61 | C | |
62 | RETURN | |
63 | END |