Updates on golden D hadronic decay channel by

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

diff --git a/PDF/spdf/sfmrs_99a1.F b/PDF/spdf/sfmrs_99a1.F
index b770690f511e5d80f787af057309d097ddb02599..07fbd54c9a00ae4c3a6032c5fcf7bda188c87b0e 100644 (file)
--- a/PDF/spdf/sfmrs_99a1.F
+++ b/PDF/spdf/sfmrs_99a1.F
@@ -5,7 +5,12 @@ C
 C
       parameter(nx=49,nq=37,ntenth=23,np=8)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
      +     .00524,    .00225,   1.11506,    .89493,    .00000,