single cell cluster is fixed

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

diff --git a/PDF/spdf/sfmsr4.F b/PDF/spdf/sfmsr4.F
index 12a5ba905f1a9240bed986d649c541f44d2fefa0..679af456cf876b3f41b09059972dd03d4c11b451 100644 (file)
--- a/PDF/spdf/sfmsr4.F
+++ b/PDF/spdf/sfmsr4.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)/
      +     .00085,    .00577,   2.56858,    .38075,    .00454,