X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=PDF%2Fspdf%2Fsfmrs_99d10.F;fp=PDF%2Fspdf%2Fsfmrs_99d10.F;h=5cf2e8d93795833087dea5bfd700922d1f2e73df;hb=7ef50f5040b29b5f567443823cd6a4ee36b73b13;hp=75054317402a950b3a48f829afd38c2177acb3f8;hpb=63216d666bf927ac57c114fc3ba8d9b8d583230b;p=u%2Fmrichter%2FAliRoot.git

diff --git a/PDF/spdf/sfmrs_99d10.F b/PDF/spdf/sfmrs_99d10.F
index 75054317402..5cf2e8d9379 100644
--- a/PDF/spdf/sfmrs_99d10.F
+++ b/PDF/spdf/sfmrs_99d10.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)/
      +     .00644,    .00286,   1.15921,    .88630,    .00000,