1 C-----------------------------------------------------------------------
3 SUBROUTINE SFSAS23(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 (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 IF(IP.LT.0 .OR. IP.GT.7) IP=0
37 C generate the individual structure fcn calls
39 CALL SASGAM2(ISET,X,Q2,P2,IP,F2GAM,XPDFGM)
55 C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6)