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

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

diff --git a/PDF/spdf/strghr.F b/PDF/spdf/strghr.F
index 07dbb4a029543eb770178e495e8aba7894a9671d..ccaff9631bd38b788529578009dc9bc1dba61b80 100644 (file)
--- a/PDF/spdf/strghr.F
+++ b/PDF/spdf/strghr.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:31:02  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C-----------------------------------------------------------------------
       SUBROUTINE STRGHR(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL)
 C ::::::::::::   GHR   ::::::::::::::::::::::::::::
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL
       DATA ALAM2/0.160/, Q02/4.0/
       Q = DSCALE