single cell cluster is fixed

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

diff --git a/PDF/spdf/grvpiho.F b/PDF/spdf/grvpiho.F
index 3bc4344dfa27d1127ea8f1668179512c2f2c4c4c..c7954c8a53374a448ff2a508078f87c329ce023d 100644 (file)
--- a/PDF/spdf/grvpiho.F
+++ b/PDF/spdf/grvpiho.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:35  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:28:44  cernlib
 * Version 7.04
 *
@@ -38,7 +41,12 @@
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 C
        IMPLICIT REAL (A - Y)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL
        REAL  X, Q
        X = ZX