1 C-----------------------------------------------------------------------
3 SUBROUTINE SFSAS11(DX,DQ2,DP2,
4 + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL)
6 C ********************************************************************
8 C * Interface to SASset of structure functions *
10 C * Author: H. Plothow-Besch (CERN-PPE) *
12 C ********************************************************************
14 C :::::::::::: Structure functions from the SAS group version 2
15 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (DIS)
17 #if defined(CERNLIB_DOUBLE)
20 #if defined(CERNLIB_SINGLE)
24 + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
25 DIMENSION XPDFGM(-6:6)
26 REAL X, Q, Q2, P2, F2GAM, XPDFGM
28 #include "pdf/w50511.inc"
35 C generate the individual structure fcn calls
37 CALL SASGAM1(ISET,X,Q2,P2,F2GAM,XPDFGM)
53 C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6)