5 * Revision 1.1.1.2 1996/10/30 08:30:41 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:45 plothow
12 #include "pdf/pilot.h"
14 SUBROUTINE SFMTU8(DX,DSCAL,
15 + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL)
17 C ********************************************************************
19 C * Interface to M-T set of structure functions *
21 C * Author: H. Plothow-Besch (CERN-PPE) *
23 C ********************************************************************
25 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
26 C :::::::::::: Lambda = 0.192 GeV
28 #include "pdf/expdp.inc"
29 + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
32 #include "pdf/w50511.inc"
37 C generate the individual structure fcn calls
39 UPV = PDZXMT(ISET, 1,X,Q,IFL)
41 DNV = PDZXMT(ISET, 2,X,Q,IFL)
43 SEAU = PDZXMT(ISET,-1,X,Q,IFL)
45 SEAD = PDZXMT(ISET,-2,X,Q,IFL)
47 STR = PDZXMT(ISET,-3,X,Q,IFL)
49 CHM = PDZXMT(ISET,-4,X,Q,IFL)
51 BOT = PDZXMT(ISET,-5,X,Q,IFL)
54 IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL)
56 GL = PDZXMT(ISET, 0,X,Q,IFL)