Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...

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

diff --git a/PDF/spdf/srctq25.F b/PDF/spdf/srctq25.F
index 6b67a015043e0d71db023588d8666b4d47ca7fef..b37ccb41b60141282b78ba42e02c1b506e8133d5 100644 (file)
--- a/PDF/spdf/srctq25.F
+++ b/PDF/spdf/srctq25.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:37  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:30:56  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.322 GeV (MSb - LEP Lambda value) (CTEQ2ML)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       REAL   X, Q
       PARAMETER (ISET=4)