5 * Revision 1.4 2000/09/18 10:02:36 hristov
6 * Makefile added to PDF8
8 * Revision 1.1.1.2 1996/10/30 08:30:35 cernlib
11 * Revision 1.1.1.1 1996/04/12 15:29:45 plothow
15 #include "pdf/pilot.h"
17 SUBROUTINE SFMTU2(DX,DSCAL,
18 + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL)
20 C ********************************************************************
22 C * Interface to M-T set of structure functions *
24 C * Author: H. Plothow-Besch (CERN-PPE) *
26 C ********************************************************************
28 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
29 C :::::::::::: Lambda = 0.194 GeV
31 #if defined(CERNLIB_DOUBLE)
34 #if defined(CERNLIB_SINGLE)
37 + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
40 #include "pdf/w50511.inc"
45 C generate the individual structure fcn calls
47 UPV = PDZXMT(ISET, 1,X,Q,IFL)
49 DNV = PDZXMT(ISET, 2,X,Q,IFL)
51 SEAU = PDZXMT(ISET,-1,X,Q,IFL)
53 SEAD = PDZXMT(ISET,-2,X,Q,IFL)
55 STR = PDZXMT(ISET,-3,X,Q,IFL)
57 CHM = PDZXMT(ISET,-4,X,Q,IFL)
59 BOT = PDZXMT(ISET,-5,X,Q,IFL)
62 IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL)
64 GL = PDZXMT(ISET, 0,X,Q,IFL)