1 C-----------------------------------------------------------------------
3 SUBROUTINE SFSAS24(DX,DQ2,DP2,IP2,
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 = 4 GeV**2 (MS_bar)
17 #include "pdf/expdp.inc"
19 + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
20 DIMENSION XPDFGM(-6:6)
21 REAL X, Q, Q2, P2, F2GAM, XPDFGM
23 #include "pdf/w50511.inc"
30 IF(IP.LT.0 .OR. IP.GT.7) IP=0
32 C generate the individual structure fcn calls
34 CALL SASGAM2(ISET,X,Q2,P2,IP,F2GAM,XPDFGM)
50 C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6)