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

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

diff --git a/PDF/spdf/sfctq24.F b/PDF/spdf/sfctq24.F
index 32a59a2b1133c7706df48cd350e93bdc79f2bae0..86e66ed13479991fd679449e84d26e89826f6e67 100644 (file)
--- a/PDF/spdf/sfctq24.F
+++ b/PDF/spdf/sfctq24.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:36  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:29:34  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.208 GeV (MSb) (flat small-x) (CTEQ2MF)
 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=3)