Updates on golden D hadronic decay channel by

[u/mrichter/AliRoot.git] / PDF / spdf / sfsas11.F

diff --git a/PDF/spdf/sfsas11.F b/PDF/spdf/sfsas11.F
index 8259a1d089f3de927200247e1e1d073e6c5d81ab..42e78494f2c64f7860b5a398e22715e66b22feb3 100644 (file)
--- a/PDF/spdf/sfsas11.F
+++ b/PDF/spdf/sfsas11.F
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (DIS)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)