Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 28 Sep 2005 13:35:48 +0000 (13:35 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 28 Sep 2005 13:35:48 +0000 (13:35 +0000)
179 files changed:
PDF/npdf/structa.F
PDF/pdf/w50511.inc
PDF/pdf/w50512.inc
PDF/pdf/w50513.inc
PDF/pdf/w50514.inc
PDF/pdf/w50514w.inc
PDF/pdf/w50518.inc
PDF/spdf/abfkw1.F
PDF/spdf/abfkw2.F
PDF/spdf/abfkw3.F
PDF/spdf/acfgp1.F
PDF/spdf/acfgp2.F
PDF/spdf/afgetfv.F
PDF/spdf/alphas2.F
PDF/spdf/aurpi1.F
PDF/spdf/aurpi2.F
PDF/spdf/aurpi3.F
PDF/spdf/aurpr.F
PDF/spdf/bbeta.F
PDF/spdf/bxf3.F
PDF/spdf/ctq1opd.F
PDF/spdf/ctq1pd.F
PDF/spdf/ctq2opd.F
PDF/spdf/ctq2ppd.F
PDF/spdf/ctq3pd.F
PDF/spdf/dbfint.F
PDF/spdf/dflm1.F
PDF/spdf/dflm2.F
PDF/spdf/dflm3.F
PDF/spdf/dflm4.F
PDF/spdf/dflm5.F
PDF/spdf/dflm6.F
PDF/spdf/dflm7.F
PDF/spdf/dflm8.F
PDF/spdf/dflm9.F
PDF/spdf/dgpho1.F
PDF/spdf/dgpho2.F
PDF/spdf/dgpho3.F
PDF/spdf/dgpho4.F
PDF/spdf/dopho1.F
PDF/spdf/dopho2.F
PDF/spdf/gamfun.F
PDF/spdf/grsgalo.F
PDF/spdf/grv94di.F
PDF/spdf/grv94ho.F
PDF/spdf/grv94lo.F
PDF/spdf/grvgah0.F
PDF/spdf/grvgaho.F
PDF/spdf/grvgalo.F
PDF/spdf/grvho.F
PDF/spdf/grvlo.F
PDF/spdf/grvpiho.F
PDF/spdf/grvpilo.F
PDF/spdf/gsxcor.F
PDF/spdf/newdo1.F
PDF/spdf/pdfset.F
PDF/spdf/pdzxmt.F
PDF/spdf/pftopdg.F
PDF/spdf/phgal.F
PDF/spdf/phlac1.F
PDF/spdf/phlac2.F
PDF/spdf/phlac3.F
PDF/spdf/rxdv.F
PDF/spdf/rxud.F
PDF/spdf/sfabfow.F
PDF/spdf/sfafg1.F
PDF/spdf/sfctq11.F
PDF/spdf/sfctq12.F
PDF/spdf/sfctq13.F
PDF/spdf/sfctq14.F
PDF/spdf/sfctq15.F
PDF/spdf/sfctq21.F
PDF/spdf/sfctq22.F
PDF/spdf/sfctq23.F
PDF/spdf/sfctq24.F
PDF/spdf/sfctq25.F
PDF/spdf/sfctq26.F
PDF/spdf/sfctq31.F
PDF/spdf/sfctq32.F
PDF/spdf/sfctq33.F
PDF/spdf/sfehlq1.F
PDF/spdf/sfehlq2.F
PDF/spdf/sfgal.F
PDF/spdf/sfgrvh.F
PDF/spdf/sfgrvl.F
PDF/spdf/sfgsho.F
PDF/spdf/sfgslo1.F
PDF/spdf/sfgslo2.F
PDF/spdf/sflacg1.F
PDF/spdf/sflacg2.F
PDF/spdf/sflacg3.F
PDF/spdf/sfmfr1.F
PDF/spdf/sfmfr2.F
PDF/spdf/sfmrs_98a1.F
PDF/spdf/sfmrs_98a2.F
PDF/spdf/sfmrs_98a3.F
PDF/spdf/sfmrs_98a4.F
PDF/spdf/sfmrs_98a5.F
PDF/spdf/sfmrs_98d1.F
PDF/spdf/sfmrs_98d2.F
PDF/spdf/sfmrs_98d3.F
PDF/spdf/sfmrs_98d4.F
PDF/spdf/sfmrs_98d5.F
PDF/spdf/sfmrs_98ht1.F
PDF/spdf/sfmrs_98lo1.F
PDF/spdf/sfmrs_98lo2.F
PDF/spdf/sfmrs_98lo3.F
PDF/spdf/sfmrs_98lo4.F
PDF/spdf/sfmrs_98lo5.F
PDF/spdf/sfmrs_99a1.F
PDF/spdf/sfmrs_99a10.F
PDF/spdf/sfmrs_99a11.F
PDF/spdf/sfmrs_99a12.F
PDF/spdf/sfmrs_99a2.F
PDF/spdf/sfmrs_99a3.F
PDF/spdf/sfmrs_99a4.F
PDF/spdf/sfmrs_99a5.F
PDF/spdf/sfmrs_99a6.F
PDF/spdf/sfmrs_99a7.F
PDF/spdf/sfmrs_99a8.F
PDF/spdf/sfmrs_99a9.F
PDF/spdf/sfmrs_99d1.F
PDF/spdf/sfmrs_99d10.F
PDF/spdf/sfmrs_99d11.F
PDF/spdf/sfmrs_99d2.F
PDF/spdf/sfmrs_99d3.F
PDF/spdf/sfmrs_99d4.F
PDF/spdf/sfmrs_99d5.F
PDF/spdf/sfmrs_99d6.F
PDF/spdf/sfmrs_99d7.F
PDF/spdf/sfmrs_99d8.F
PDF/spdf/sfmrs_99d9.F
PDF/spdf/sfmrsc1.F
PDF/spdf/sfmrsc2.F
PDF/spdf/sfmrsc3.F
PDF/spdf/sfmsr1.F
PDF/spdf/sfmsr2.F
PDF/spdf/sfmsr3.F
PDF/spdf/sfmsr4.F
PDF/spdf/sfmt10.F
PDF/spdf/sfmt11.F
PDF/spdf/sfmtu1.F
PDF/spdf/sfmtu2.F
PDF/spdf/sfmtu3.F
PDF/spdf/sfmtu4.F
PDF/spdf/sfmtu5.F
PDF/spdf/sfmtu6.F
PDF/spdf/sfmtu7.F
PDF/spdf/sfmtu8.F
PDF/spdf/sfmtu9.F
PDF/spdf/sfsas11.F
PDF/spdf/sfsas12.F
PDF/spdf/sfsas13.F
PDF/spdf/sfsas14.F
PDF/spdf/sfsas21.F
PDF/spdf/sfsas22.F
PDF/spdf/sfsas23.F
PDF/spdf/sfsas24.F
PDF/spdf/sfwhi1.F
PDF/spdf/sfwhi2.F
PDF/spdf/sfwhi3.F
PDF/spdf/sfwhi4.F
PDF/spdf/sfwhi5.F
PDF/spdf/sfwhi6.F
PDF/spdf/srctq21.F
PDF/spdf/srctq22.F
PDF/spdf/srctq23.F
PDF/spdf/srctq24.F
PDF/spdf/srctq25.F
PDF/spdf/srctq26.F
PDF/spdf/strbebc.F
PDF/spdf/strdo1.F
PDF/spdf/strdo2.F
PDF/spdf/strghr.F
PDF/spdf/strowp1.F
PDF/spdf/strowp2.F
PDF/spdf/structm.F
PDF/spdf/structp.F
PDF/spdf/wate32.F

index e31d71ddcdb67f8a02e3d61a10a037d78e85834a..cecf95db705508ce91bdd847dd660f9fd689d9f7 100644 (file)
@@ -94,7 +94,12 @@ C
 #include "pdf/w505120.inc"
 #include "pdf/w505121.inc"
       CHARACTER*20 PARM(NCHDIM)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       VAL(NCHDIM)
       DATA ZEROD/0.D0/,ONED/1.D0/,TWOD/2.D0/
       SAVE /W50514/, /W50514W/, /W50516/
index 87e7b8691cf0234f42abf9523761e6606241a857..093c702bfde0ff362cfb1727bb455c10484edc3c 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:34  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:27:12  cernlib
 * Version 7.04
 *
 * w50511.inc
 *
       COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS
-#include "expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       TMAS
index eaba29079752826001e12a6664bc9d2c1cd43211..29305947d0028f40f88c7097dc6b97fb6eb9781b 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:34  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:27:13  cernlib
 * Version 7.04
 *
 * w50512.inc
 *
       COMMON/W50512/ QCDL4,QCDL5
-#include "expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       QCDL4,QCDL5
index 0df4ab4b82563c60b7b0cc56501043ef66f026c4..6861304ab82d3d3e1e4754d8a9041dd152d7c179 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:34  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:27:16  cernlib
 * Version 7.04
 *
 * w50513.inc
 *
       COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX
-#include "expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       XMIN,XMAX,Q2MIN,Q2MAX
index 475b1258251a90eceea8212aef466c15d1671d35..243970fbc01c2565d7d687ede9cd0ace60726851 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:34  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:27:16  cernlib
 * Version 7.04
 *
 *
       COMMON/W50514/ WXMIN,WXMAX,WQ2MIN,WQ2MAX,
      +               WTXMIN,WTXMAX,WTQ2MIN,WTQ2MAX
-#include "expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       WXMIN,WXMAX,WQ2MIN,WQ2MAX,
      +       WTXMIN,WTXMAX,WTQ2MIN,WTQ2MAX
index f6744b7411a898e3036ce95a2c5f28295fc5389b..d433c6ea7830fd402d08c6efd77a070045462f50 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:34  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.2  1996/10/30 08:27:17  cernlib
 * Version 7.04
 *
 * w50514w.inc
 *
       COMMON/W50514W/ PDFWGT
-#include "expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       PDFWGT
index 5ca88682d9b2c83d4f9b73d8b56d46ae193af837..898619a8b213b7a3f1ce61b717c834df83869896 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:34  hristov
+* Makefile added to PDF8
+*
 * Revision 1.3  1996/10/30 11:05:06  cernlib
 * Conflicts resolved
 *
      +               NPTYPP,NGROPP,NSETP,NFLP,LOP,TMASP,
      +               QCDL4P,QCDL5P,
      +               XMINP,XMAXP,Q2MINP,Q2MAXP
-#include "expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       TMASP,
      +       QCDL4P,QCDL5P,
      +       XMINP,XMAXP,Q2MINP,Q2MAXP
index aad216c95d5be2e5ed48ab1322a647abe641bee0..2daf3e4b7fecb1f9d6d39948af5658c0b11c6d6c 100644 (file)
@@ -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:27:26  cernlib
 * Version 7.04
 *
 *
 #include "pdf/pilot.h"
       SUBROUTINE ABFKW1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       PARPI(40),CALCPI(8,20,25),CALCPIO(8,20,25),ZEROD,
      +       DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL
       REAL    X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL
index e03409da3f0924af446ff336af7c78ff8c68436b..d21e163ec470a1a948d4eccd2ab6f371da773fd5 100644 (file)
@@ -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:27:27  cernlib
 * Version 7.04
 *
 *
 #include "pdf/pilot.h"
       SUBROUTINE ABFKW2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       PARPI(40),CALCPI(8,20,25),CALCPIO(8,20,25),ZEROD,
      +       DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL
       REAL    X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL
index 251a1e145aee7a8194a0154330170f90bb5b5a20..41152c5828c868f9bf3f9c250afa1cbbae6dde29 100644 (file)
@@ -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:27:28  cernlib
 * Version 7.04
 *
 *
 #include "pdf/pilot.h"
       SUBROUTINE ABFKW3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       PARPI(40),CALCPI(8,20,25),CALCPIO(8,20,25),ZEROD,
      +       DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL
       REAL    X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL
index 14d1fe181a970c8c001f9218da6f4bc7262c3433..4c80c4c8bd4b7b364badef301f794cd2ae328546 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:35  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.3  1996/11/07 11:52:38  cernlib
 * Import version 7.05
 *
@@ -42,7 +45,12 @@ C
 C                    F2 = PHOTON STRUCTURE FUNCTION WITHOUT CHARM
 C                    F2C=  "        "         "     WITH MASSIVE CHARM
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
       REAL    X, Q, UV, DV, UB, DB, SB, CB, BB, GL
       REAL       Q2
index 6165d78c07703f30c4634ac56e9108a396f48f13..7b137895ec92bf797ffdd78c4f26492278210666 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:35  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.3  1996/11/07 11:52:35  cernlib
 * Import version 7.05
 *
@@ -42,7 +45,12 @@ C
 C                    F2 = PHOTON STRUCTURE FUNCTION WITHOUT CHARM
 C                    F2C=  "        "         "     WITH MASSIVE CHARM
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
       REAL    X, Q, UV, DV, UB, DB, SB, CB, BB, GL
       REAL       Q2
index 12a8ad9104845dfb55830713baab4595048267d3..958a3fbb8e52af566fd946478c981b0ece3d78b6 100644 (file)
@@ -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:27:31  cernlib
 * Version 7.04
 *
        FUNCTION AFGETFV(X,FVL)
 C  NOUVEAU PROGRAMME D'INTERPOLATION UTILISANT UNE ROUTINE DE MATH. RECIPES
        DIMENSION FVL(32)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +                XI(32),WI(32),XX(33)
        COMMON/W5051I9/XI,WI,XX,NTERMS
        DIMENSION A(4),B(4)
index 10d78d980ea932c6db0863f5f16ef507f7d97a48..8b5b0e417d426fc30b291c33fe3cfeab6a8b090b 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:35  hristov
+* Makefile added to PDF8
+*
 * Revision 1.3  1996/10/30 11:05:22  cernlib
 * Conflicts resolved
 *
@@ -66,10 +69,20 @@ C
 #include "pdf/w505120.inc"
 #include "pdf/w505121.inc"
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +    NF,KNF
       CHARACTER*20 PARM(NCHDIM)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       VAL(NCHDIM)
       DATA XMC/1.5D0/,XMB/4.75D0/,XMT/100.D0/
       DATA ZEROD/0.D0/,PONED/0.001D0/,ONED/1.D0/,TWOD/2.D0/
index 3cad314520a8afc9d93503fe5a76e7ee1205df1d..b2bc64efff8d7c744661a011ffb1bdf43c6e0e15 100644 (file)
@@ -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:27:36  cernlib
 * Version 7.04
 *
 #include "pdf/pilot.h"
 C
       SUBROUTINE AURPI1(I,NDRV,X,S,ANS)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       CALCPIO(8,20,25)
       COMMON/W5051I4/CALCPIO
       REAL   F1(25),F2(25)
index 97a31f65957f8087d084e22094641448a859059a..7f41f02bb953ad13edb2ec84f1a0111938917ae6 100644 (file)
@@ -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:27:36  cernlib
 * Version 7.04
 *
 #include "pdf/pilot.h"
 C
       SUBROUTINE AURPI2(I,NDRV,X,S,ANS)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       CALCPIO(8,20,25)
       COMMON/W5051I5/CALCPIO
       REAL   F1(25),F2(25)
index dcea5c0c4091e504d3080cc11b368ff8c07c4983..e70cc12da37a631b419e9c3122a5094919360ba7 100644 (file)
@@ -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:27:37  cernlib
 * Version 7.04
 *
 #include "pdf/pilot.h"
 C
       SUBROUTINE AURPI3(I,NDRV,X,S,ANS)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       CALCPIO(8,20,25)
       COMMON/W5051I6/CALCPIO
       REAL   F1(25),F2(25)
index dcd40742c60ac18e6a12807879f56d88890a1516..2de2daaafcef5ed924ea69ab0e93accb00768ef0 100644 (file)
@@ -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:27:37  cernlib
 * Version 7.04
 *
 *
 #include "pdf/pilot.h"
       SUBROUTINE AURPR(I,NDRV,X,S,ANS)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       CALCO(8,20,25)
       COMMON/W5051I3/CALCO
       REAL   F1(25),F2(25)
index 22d2a065c59df2f49f4b6237632477cf934e91d4..d732699c290189cddd689496593d23a001023432 100644 (file)
@@ -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:27:38  cernlib
 * Version 7.04
 *
 #if defined(CERNLIB_DOUBLE)
       DOUBLE PRECISION FUNCTION BBETA(X,Y)
 #endif
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DGAMMA,
      +       X,Y
 #if defined(CERNLIB_SINGLE)
index 295118d69123642445b071d352aebd207169f774..c07f2db64731afed912edff05a129bcc9f798220 100644 (file)
@@ -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:27:39  cernlib
 * Version 7.04
 *
@@ -17,7 +20,12 @@ C.    F3   (GIVES VALENCE FOR U AND D)
 C.
 C.......................................................................
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       BBETA
       DATA XLAM /0.47D00/, Q02/5.D0/
       DATA ONED/1.D0/, FIVED2/5.2D0/
index 70df099c5b46518864de1d32b80566cc99580078..3b3aa65de8a6a3e7083fce33eb3720acb5ece9ec 100644 (file)
@@ -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:27:41  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ C+SEQ, IMPDP.
       PARAMETER (Nex = 5, MxFl = 6, Npn = 3, Nst = 30, Nexpt=20)
       Parameter (Nst4 = Nst*4)
 
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       P012, P34, P5, PDFD
       REAL PDF
 
index d7d09d836b1b9bf06ebea3c0a20e65ff3b089688..cfc27b8a17a7b89c0c4c122fe3183d2c286b9ece 100644 (file)
@@ -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:32:14  cernlib
 * Version 7.04
 *
@@ -34,7 +37,12 @@ C+SEQ, IMPDP.
       PARAMETER (NEX = 5, MXFL = 6, NPN = 3, NST = 30, NEXPT=20)
       PARAMETER (NST4 = NST*4)
 
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       P012, P34, P5, PDFD
       REAL PDF
 
index ae23c699debfb461967441d07f88efc5fe0082c4..f96cb9f836c2f6401b13f3081536599bfd007ae7 100644 (file)
@@ -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:27:43  cernlib
 * Version 7.04
 *
@@ -37,7 +40,12 @@ C+SEQ, IMPDP.
       PARAMETER (Nex = 5, MxFl = 6, Npn = 3, Nst = 30, Nexpt=20)
       Parameter (Nst4 = Nst*4)
 
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       P012, P34, P5, PDFD
       REAL PDF
 
index 8b85b1eacbb500ae0d04d05107bd32505d6a8ac4..44dfcbe64896d1c2a67c4d125f6c640ee56cf9fd 100644 (file)
@@ -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:27:47  cernlib
 * Version 7.04
 *
@@ -40,7 +43,12 @@ C+SEQ, IMPDP.
       PARAMETER (Nex = 5, MxFl = 6, Npn = 3, Nst = 30, Nexpt=20)
       Parameter (Nst4 = Nst*4)
 
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       P012, P34, P5, PDFD
 
       DIMENSION
index 912e3ac0c609b914ef201881565dbd6491938b54..d6a7b51fc9f994ec6f34620d5d80a759b46ef2cb 100644 (file)
@@ -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:27:50  cernlib
 * Version 7.04
 *
@@ -38,7 +41,12 @@ C+SEQ, IMPDP.
       PARAMETER (D0=0D0, D1=1D0, D2=2D0, D3=3D0, D4=4D0, D10=1D1)
       Parameter (Nst = 3)
 
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       P012, P34, P5, PDFD
 
       DIMENSION
index 23656fdbffa27b8cd03a9dd8bcdc034775149d46..779ad1ad185474569b3cd90b84306e7a37184600 100644 (file)
@@ -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:27:52  cernlib
 * Version 7.04
 *
 #endif
 #include "pdf/impdp.inc"
              INTEGER NA(NARG), INDEX(32)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ARG(NARG),ENT(10),TABLE(10),WEIGHT(32)
       DATA ZEROD/0.D0/ONED/1.D0/
 C
index e39fcfa0c12a7891d6e0e7a92d98adbe65d529c3..4d8a31d4394ad446ba5fb55458ac45bbbbea1e77 100644 (file)
@@ -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:27:53  cernlib
 * Version 7.04
 *
@@ -23,7 +26,12 @@ C   ********************************************************************
 C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 160 MeV :
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index f3645529b2bb09a7c355967aee59edfe4c46cd8a..1f5e7c7f24fa2077c38011c75fe5bf21d64d299c 100644 (file)
@@ -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:27:53  cernlib
 * Version 7.04
 *
@@ -23,7 +26,12 @@ C   ********************************************************************
 C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 260 MeV :
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index 916700a4de0d26a8a1519b679595f4acad420ef2..f70cfc94ea85b99a5433e052d27983b83045c8f8 100644 (file)
@@ -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:27:54  cernlib
 * Version 7.04
 *
@@ -23,7 +26,12 @@ C   ********************************************************************
 C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 360 MeV :
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index d26ab92c0593bb98313305ca02ac80bacfb8388a..d5bf221919b8769329385e6d840228c42ed43536 100644 (file)
@@ -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:27:56  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
 C :::::::::::: Soft Valence Quark distribution (LO)
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index 59fd14cffded4ec0bfda3c4a34cdf0ac7d03bee5..8c104ddd7254b8ec894dc5b2b0fc1d11757b97d2 100644 (file)
@@ -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:27:57  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
 C :::::::::::: Hard Valence Quark distribution
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index ea7a0c3d2bf01d365dbe86a1cf05851274593e69..a45354b8a14c0a7e9d37b354d72ebfe7d82e1b40 100644 (file)
@@ -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:27:58  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
 C :::::::::::: Soft Gluon distribution (LO)
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index 38da2c2f56e6baaef249625c3f11712bf70a6340..90b81c9ed511b234fb47e908e2808a274b8929d0 100644 (file)
@@ -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:27:59  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
 C :::::::::::: Hard Gluon distribution (LO)
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index 6e5b7d43bc27b5be4db7e5fc58c5bc6dcbd09699..d456cb075592868e8673ca1863918a62bb09caaa 100644 (file)
@@ -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:00  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
 C :::::::::::: Central distribution (LO)
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index ed733be9b0c87518e9b0e4d771ccb8f09191400b..d51e92649e390bb215a40d48c8927277e70c7cec 100644 (file)
@@ -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:01  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 300 MeV :
 C :::::::::::: Central distribution (NLLO)
 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,DBOT,DTOP,DGL
       REAL   X, Q2
 #include "pdf/w50511.inc"
index 6fb16d1f1f484cfeca9ffa19e6810e50bc626aed..edddc1891950ffc4b5f84ce5bf1af2929a0d2195 100644 (file)
@@ -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:02  cernlib
 * Version 7.04
 *
@@ -30,7 +33,12 @@ C*                                                                  *
 C********************************************************************
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        A(3,4,3),AT(3),
      +        B(5,4,2,3),BT(5,2),XQPOM(2),E(2),
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
index c9638066c5a5944365ba50e350c33b98efa4c20f..9a0db6aac24701744dc786c85131e5295138c37f 100644 (file)
@@ -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:04  cernlib
 * Version 7.04
 *
@@ -30,7 +33,12 @@ C*                                                                  *
 C********************************************************************
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        A(3,4,3),AT(3),
      +        B(5,4,2,3),BT(5,2),XQPOM(2),E(2),
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
index 1f0d775933982b7e01bf29443ebfd71dc5fb2974..af011926a3aef02fe88540a55154f8817cbe9d5b 100644 (file)
@@ -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:04  cernlib
 * Version 7.04
 *
@@ -30,7 +33,12 @@ C*                                                                  *
 C********************************************************************
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        A(3,4,3),AT(3),
      +        B(5,4,2,3),BT(5,2),XQPOM(2),E(2),
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
index a7cb10922947d15df672fa09636b88ab2eb81955..9c284dd4eb7dd87d854da75bbfa474099e84c4aa 100644 (file)
@@ -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:05  cernlib
 * Version 7.04
 *
@@ -30,7 +33,12 @@ C*                                                                  *
 C********************************************************************
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        A(3,4,3),AT(3),
      +        B(5,4,2,3),BT(5,2),XQPOM(2),E(2),
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
index 5a69e4f95a040615d41c6d850d02992328a18971..60def23cabbb5882de749715e7027292aea95b4e 100644 (file)
@@ -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:06  cernlib
 * Version 7.04
 *
@@ -33,7 +36,12 @@ C*                                                                  *
 C********************************************************************
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        CQ(5),
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
       PARAMETER (ALPEM=7.29927D-3, PI=3.141592D0)
index bd8a75874de19989648f1cdf9a972debedf74d1b..4d92ce11cc3fd87049be0df1ba393ede7e678f87 100644 (file)
@@ -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:07  cernlib
 * Version 7.04
 *
@@ -33,7 +36,12 @@ C*                                                                  *
 C********************************************************************
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        CQ(5),
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
       PARAMETER (ALPEM=7.29927D-3,PI=3.141592D0)
index 7fe835d5b611f32d76415ad1a95e56cef08ae0bb..1fc30655286024fe089eab1d9ffa49d6f6f19013 100644 (file)
@@ -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:27  cernlib
 * Version 7.04
 *
@@ -20,7 +23,12 @@ C
       DOUBLE PRECISION FUNCTION GAMFUN(Y)
 #endif
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +     Y,R,S,T,AFSPL,X,
      +     COEF(10),PI,ZEROD,HALFD,ONED,TWOD,TEND
 C
index 27333b2681488f1ac30a95ee81374302496d8bfa..103b564e07e7a135663c4938606d887e079fc19b 100644 (file)
@@ -42,7 +42,12 @@ C-----------------------------------------------------------------------
      +                     DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL)
 C      subroutine grsgalo(x,q2,p2,ugam,dgam,sgam,ggam)
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          x, q2, p2, mu2, lam2,
      +          ugam, dgam, sgam, ggam,
      +          DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL
index 1549cf5a912dd8a3524c3975676f5d391f60b52c..7106f59eff9a6fc4d83829038a7b08b39340d76e 100644 (file)
@@ -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:34  cernlib
 * Version 7.04
 *
        SUBROUTINE GRV94DI (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL)
        IMPLICIT REAL (A - Y)
 C+SEQ, IMPDP.
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +      ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL
        REAL X, Q
        X = ZX
index 5c919c4c151d1af9ac8854cc84dc659801547a2b..35f90fc7f01bafa1df69e9ba8d8de478da052471 100644 (file)
@@ -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:35  cernlib
 * Version 7.04
 *
        SUBROUTINE GRV94HO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL)
        IMPLICIT REAL (A - Y)
 C+SEQ, IMPDP.
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +      ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL
        REAL X, Q
        X = ZX
index 7712361c903a10fccddd690de60a4e7ade792177..c1d221e5c4b0a065a813ca922247d7ac2f049838 100644 (file)
@@ -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:36  cernlib
 * Version 7.04
 *
        SUBROUTINE GRV94LO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL)
        IMPLICIT REAL (A - Y)
 C+SEQ, IMPDP.
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +      ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL
        REAL X, Q
        X = ZX
index c8015315af2bacbba1d3d3f3aad5d130858335e5..97e1ef09551cbb0c011e0cf3a647b7dd5fe8cb8e 100644 (file)
@@ -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:32:35  cernlib
 * Version 7.04
 *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 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,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL
        REAL  X, Q
        DATA ALPHEM/7.29927D-3/
index c8eea9dfc36f84c8d141cc9c947a3f9ea8f9c347..45ced2a8b57ed300c49b4cde5222949dbdae0d7f 100644 (file)
@@ -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:40  cernlib
 * Version 7.04
 *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 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,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL
        DATA ALPHEM/7.29927D-3/
        REAL  X, Q
index 56a42ce5752c56c70d9700f36868ead6de89a9c3..60ab34c34fde38797e519d06ca9e7a4ae94e951e 100644 (file)
@@ -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:40  cernlib
 * Version 7.04
 *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 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,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL
        REAL  X, Q
        DATA ALPHEM/7.29927D-3/
index d9d1b62ec41aba58e4e269fddc6709de4c450bec..d90fd8acc36729f945274d4485e06208c4f588cd 100644 (file)
@@ -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:42  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C
 C...HO PARAMATRIZATIONS :
        SUBROUTINE GRVHO (ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL)
        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
index ae2d440d301c295dfab6cf41705d731670c7ce1a..727cce8ae9fdbfaa02ecbca0740a9b85cf2f2279 100644 (file)
@@ -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:43  cernlib
 * Version 7.04
 *
@@ -42,7 +45,12 @@ C
 C...LO PARAMETRIZATIONS :
        SUBROUTINE GRVLO (ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL)
        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
index 3bc4344dfa27d1127ea8f1668179512c2f2c4c4c..c7954c8a53374a448ff2a508078f87c329ce023d 100644 (file)
@@ -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
 *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 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
index 807cb623c9f86c4d72ae79fff4b1392b6f9a3fd5..1f9c32c17b023f0693f72462032ff0800ec76a39 100644 (file)
@@ -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
 *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 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
index 24fc5d3a8258dac008eff48687938e613837bdbb..7b2f4520aace7b9816cea91bf66e8d5884b15943 100644 (file)
@@ -2,7 +2,12 @@
       SUBROUTINE GSXCOR(Y,NP)
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       Y(NP)
       N=1
       DO 10 IX=1,20,2
index 6ca448abdbbec30c415c47c1e4697b11f64b1f54..eace2eaa9cf45880eb6d6fa3707101dbdb6ee220 100644 (file)
@@ -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:32:48  cernlib
 * Version 7.04
 *
@@ -21,7 +24,12 @@ C       adapted and corrected by---H.Plothow-Besch (Aug 14, 1991)
 C       BASED ON FSU-HEP-910606 PREPRINT
 C--------------------------------------------------------------
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       R8X,R8QSQ,R8U,R8D,R8SS,R8STR,R8C,R8G
         REAL ND,NUD,X,QSQ
         DATA Q0/2./, ALAM/0.177/
index 293dc4b8eb7ec3c8930619eb564f56e6d7bbd2d0..fcfb9b88638bf93e15bcf8892acdd75dbab99be0 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:36  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.4  2000/04/19 13:28:34  mclareni
 * Import version 8.04
 *
@@ -69,7 +72,12 @@ C
 #include "pdf/w505120.inc"
 #include "pdf/w505121.inc"
 #include "pdf/w505122.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       PQCDL4(NPTYMX,NGRMAX,NSETMX), PQCDL5(NPTYMX,NGRMAX,NSETMX),
      +       PXMIN(NPTYMX,NGRMAX,NSETMX),  PXMAX(NPTYMX,NGRMAX,NSETMX),
      +       PQ2MIN(NPTYMX,NGRMAX,NSETMX), PQ2MAX(NPTYMX,NGRMAX,NSETMX)
@@ -77,7 +85,12 @@ C.
       PARAMETER (NSDIM = 16)
       CHARACTER*2 AV(NSDIM)
       CHARACTER*20 PARM(NCHDIM),STRING
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       VAL(NCHDIM)
 C.
       EQUIVALENCE (VALUE,IVALUE)
index 90f4a59d50ac0a50769170f984317fb50e6ddcfe..1bdb0a43486c32768cd905753a9deb93eb0aa3b9 100644 (file)
@@ -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:05  cernlib
 * Version 7.04
 *
       FUNCTION PDZXMT (IST, LP, XX, QQ, IRT)
 C
 #include "pdf/w50511.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       AIEX, FXIEX, PDFD, ONED
       REAL PDF
 C
index 3827fa2cd344b39aae9e240af2eb274cf504254a..f0f0b6bdd76e59a2e0c8758bfcd62d50c74e25ed 100644 (file)
@@ -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:06  cernlib
 * Version 7.04
 *
 #include "pdf/pilot.h"
       SUBROUTINE PFTOPDG(DX,DSCALE,DXPDF)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL,
      +       DXPDF(-6:6)
 C... call STRUCTM in PDFLIB to get flavour content
index e45f5cf52009ce41e839bcc83043ff13ee22f83f..86047932b129553e9f2aa78c83036a2e9685102c 100644 (file)
@@ -2,7 +2,12 @@
       SUBROUTINE PHGAL(X,Q2,XPDF)
 #include "pdf/impdp.inc"
       PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ),
      +       XPV(IX,IQ,0:NFUN),XPDF(-6:6)
index 691e48ed137f4272723686f8d8d0bc8bcc75b4f5..02226de6a9234fd90556f89ba1839852e65ea4e9 100644 (file)
@@ -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:07  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C-----------------------------------------------
       SUBROUTINE PHLAC1(X,Q2,XPDF)
 #include "pdf/impdp.inc"
       PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ),
      +       XPV(IX,IQ,0:NFUN),XPDF(-6:6)
index 92dfb793cefa8af00a4f400bf399e69d5db77617..cb741818f33993683329ba366b025f7a60c8f8c9 100644 (file)
@@ -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:12  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C-------------------------------------------------------------
       SUBROUTINE PHLAC2(X,Q2,XPDF)
 #include "pdf/impdp.inc"
       PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ),
      +       XPV(IX,IQ,0:NFUN),XPDF(-6:6)
index 32bd6c9a5bb60c7327d19c58dd21bee1924474c9..1290a986ddc5bdfaf6143922540cf9ae6cd36569 100644 (file)
@@ -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:14  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C--------------------------------------------------------------
       SUBROUTINE PHLAC3(X,Q2,XPDF)
 #include "pdf/impdp.inc"
       PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ),
      +       XPV(IX,IQ,0:NFUN),XPDF(-6:6)
index 38b22676b55cf99d7cec58950fe193b9fa7127f7..c1cedeede4f8325fd8e1441fcd476bb75b6636df 100644 (file)
@@ -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:15  cernlib
 * Version 7.04
 *
@@ -17,7 +20,12 @@ C.    DV
 C.
 C.......................................................................
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       BBETA
       DATA XLAM /0.50D00/, Q0/2.1D0/, Q00/1.8D0/
       DATA ONED/1.D0/, THRED/3.D0/
index 92c35d43d8909f7d060e6b1a366f0fc1b035bcdc..8ab0b40938d3b8fa49d1e0788496adec84153976 100644 (file)
@@ -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:18  cernlib
 * Version 7.04
 *
@@ -17,7 +20,12 @@ C.    F3   (GIVES VALENCE FOR U AND D)
 C.
 C.......................................................................
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       BBETA
       DATA XLAM /0.50D00/, Q0/2.1D0/, Q00/1.8D0/
       DATA ONED/1.D0/, THRED/3.D0/
index 17376e3d2f98cff37975c7a9e4567729c753b2a2..2c6c3365611c0928d2cae64bbecf79d618f3e383 100644 (file)
@@ -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:21  cernlib
 * Version 7.04
 *
 *
 #include "pdf/pilot.h"
       SUBROUTINE SFABFOW(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       PAR(40),CALC(8,20,25),CALCO(8,20,25),ZEROD,
      +       DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL
       REAL    X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL
index 292236c4eb33b3d0ef7c53fd4ed6ace054a1a2de..5bf09b03410b3f886196a8805b5b50e3c11c13ca 100644 (file)
@@ -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:32:30  cernlib
 * Version 7.04
 *
@@ -59,7 +62,12 @@ C
 C
 C**************************************************************************
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL
       REAL    X, Q, UV, DV, UB, DB, SB, CB, BB, GL
       REAL       Q2
index bc38506329066e8c8f3dbae78b32c446feff2d02..ea6267fc80ba03f2fa072fde674a01b870c81fcc 100644 (file)
@@ -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:28  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.168 GeV (LO)
 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)
index 35dbcacb5f3f64e8d7ea9c4f65b28a3e5154aa1a..45ebef2ca778f62804adde31019bb21bc90ac5bb 100644 (file)
@@ -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:28  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.231 GeV (MSb) (CTEQ1M)
 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=1)
index 7fe987a43704bae5bb0ba826b563c04343796c20..f062c5f59893cc84c1aa1a5b452aa41f2c049938 100644 (file)
@@ -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:30  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.231 GeV (MSb - singular gluon) (CTEQ1MS)
 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=2)
index 20e847de9fdd4fc118cf084ad8049ce3f8df1780..40a916adc9a9d84502dbb0e79973d70cb81a11b5 100644 (file)
@@ -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:30  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) (CTEQ1ML)
 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=5)
index e05216c3baa6aca3be36fa7fb610137a7bdd3597..5769a41a1a84e12072d6416ef6451cd95400eea9 100644 (file)
@@ -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:31  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.247 GeV (DIS) (CTEQ1D)
 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)
index fcd8dc96eff3bcef662435641faa98446de61e7a..86a7f436f921c426c78cd2c7c51617aa049e2ee4 100644 (file)
@@ -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:32  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.190 GeV (LO) (CTEQ2L)
 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=5)
index 3479f80dfdbc56de40da8e89212953f8cd030ad3..ea4b3c3c71d22b4d918440c8488e7808cdc1a95e 100644 (file)
@@ -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:32  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.213 GeV (MSb)  (CTEQ2M)
 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=1)
index b3783f2e83f6cb8443935cfa20c2fc0ed734f732..3592a228b6a50a07bf2702ffa6fdd1dbb5dec27e 100644 (file)
@@ -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:33  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.208 GeV (MSb - singular gluon) (CTEQ2MS)
 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=2)
index 32a59a2b1133c7706df48cd350e93bdc79f2bae0..86e66ed13479991fd679449e84d26e89826f6e67 100644 (file)
@@ -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)
index a5d16d8e41bdde097d63da31a17ba458fc3ef3e6..ac254d14c45dc1f4885531906024dc19263ae241 100644 (file)
@@ -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:35  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)
index f3c8db4327ab8c4415a9c58940824874304e1fe0..04af77b653c2d642f744137f1e6d696b75a5f72d 100644 (file)
@@ -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:36  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.235 GeV (DIS)
 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=6)
index 12f98735e5a81c386709862aa483bad4ebf1b93a..531dbdd934b3e9756b62e440bbfe2a9c3c3887e3 100644 (file)
@@ -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:37  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.177 GeV (LO) (CTEQ3L)
 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=2)
index f8efff8eee5335fd93679d75caba7dc9078e399b..67593bf7536c971d1fc49b724d013445dab8ef88 100644 (file)
@@ -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:37  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.239 GeV (MSb)  (CTEQ3M)
 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=1)
index 312c919b30aeff675c390b617a6739610636817e..d583dc78ba1464be2da88ffff2529f28173c941d 100644 (file)
@@ -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:38  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.247 GeV (DIS)
 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)
index a0fff2d302a1a48682a0906019ef59c675e0eafb..8ee6d2155c12b5a4839210b0aa38076af2e2ed99 100644 (file)
@@ -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:46  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C-----------------------------------------------------------------------
       SUBROUTINE SFEHLQ1(DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
 C   ::::::: EHLQ SET 1  SUPERFAST DOUBLE PRECISION :::::::
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
       PARAMETER (ALAM=0.2, Q02=5.0)
 #include "pdf/w50511.inc"
index f60d0d667ffe62e4c5cf9cdbadbcbc862972ed1e..743d9753085844b951756e6b43240ccab175719a 100644 (file)
@@ -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:47  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C-----------------------------------------------------------------------
       SUBROUTINE SFEHLQ2(DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
 C   ::::::: EHLQ SET 2  SUPERFAST DOUBLE PRECISION :::::::
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
       PARAMETER (ALAM=0.29, Q02=5.0)
 #include "pdf/w50511.inc"
index dc82f04557b4ab496b86e16e0f08f037bfb06c6b..7a0bb896098a25bb9619b0ad470b4b3d638602f8 100644 (file)
@@ -25,7 +25,12 @@ C...    10**-4 < X  < 1
 C...     4(1)  < Q2 < 10**5 GeV**2
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL,
      +        XPDF(-6:6), X, Q, Q2
 C
index 463a3ac5a73fc6943c9fe3f9e879a05105f3d1c7..accd5e93b38fcedd78cb71667f35ca5610ec248c 100644 (file)
@@ -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:48  cernlib
 * Version 7.04
 *
@@ -17,7 +20,12 @@ C :::::::::::: Structure functions from Glueck, Reya and Vogt  (HO)
 C :::::::::::: Lambda(NF=3) = 0.200 GeV
 C
       DIMENSION XQ(7)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCAL,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
       PARAMETER (ALAM=0.200)
 C
index d35918282a0bf86dcdbcfe932a2aeaa41da8c263..8828a4aec9de7031f87ea839b5db924394d61663 100644 (file)
@@ -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:48  cernlib
 * Version 7.04
 *
@@ -17,7 +20,12 @@ C :::::::::::: Structure functions from Glueck, Reya and Vogt  (LO)
 C :::::::::::: Lambda(NF=3) = 0.250 GeV
 C
       DIMENSION XQ(7)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DSCAL,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
       PARAMETER (ALAM=0.250)
 C
index 62b054b6e49c1c929d91c9f31fddd115bda7d881..4e7e276320b977da111a0124ff9e115437aa4b2b 100644 (file)
@@ -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:50  cernlib
 * Version 7.04
 *
@@ -24,7 +27,12 @@ C
 C
 #include "pdf/impdp.inc"
       PARAMETER(NP=78,NQ=11,NARG=2)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP),
      +       XT(NARG),A(NP+NQ),QT(NQ)
index 95fd6140e3815ff2065d36fa727dfbad04c2dc8c..41b298757d58586fcea2891be2ea27801a9668da 100644 (file)
@@ -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:51  cernlib
 * Version 7.04
 *
 C
 #include "pdf/impdp.inc"
       PARAMETER(NP=78,NQ=11,NARG=2)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP),
      +       XT(NARG),A(NP+NQ),QT(NQ)
index 92cb5c03d7b1c1898ce35489c703fc12fc1e6498..2dab16d486ef11ffcb72a1bcfc323b414aaeb40d 100644 (file)
@@ -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:53  cernlib
 * Version 7.04
 *
 C
 #include "pdf/impdp.inc"
       PARAMETER(NP=78,NQ=11,NARG=2)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DBFINT,
      +       SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP),
      +       XT(NARG),A(NP+NQ),QT(NQ)
index 6bcb041f0fe193dd749452e2010899edc5f0a6a3..b049090324ad3510b3b2bb802a019cbe12d3b0f4 100644 (file)
@@ -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:57  cernlib
 * Version 7.04
 *
@@ -40,7 +43,12 @@ C...    10**-4 < X  < 1
 C...     4(1)  < Q2 < 10**5 GeV**2
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL,
      +        XPDF(-6:6), X, Q, Q2
 C
index ad24d9cdcc3a4bff3181407fcd599e9ef8b6090e..fa56f18589710336afdce2c1a6eee58006068dd0 100644 (file)
@@ -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:58  cernlib
 * Version 7.04
 *
@@ -40,7 +43,12 @@ C...    10**-4 < X  < 1
 C...     4(1)  < Q2 < 10**5 GeV**2
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL,
      +        XPDF(-6:6), X, Q, Q2
 C
index 8fd25fb388a74cad5e56ed088d1584150ad2d556..2e98e0f21099ef0d1a48e9c8dbea82c180021ed0 100644 (file)
@@ -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:59  cernlib
 * Version 7.04
 *
@@ -40,7 +43,12 @@ C...    10**-4 < X  < 1
 C...     4(1)  < Q2 < 10**5 GeV**2
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +        DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL,
      +        XPDF(-6:6), X, Q, Q2
 C
index d32a375c0664915734805ce45e18a368ef555c62..cdcfad14263724e2b038666d4dbd2b3599a1cda2 100644 (file)
@@ -10,7 +10,12 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 C
 #include "pdf/impdp.inc"
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       F(8)
       REAL   Z(18,8)
       DATA Z/
index be5c2c7ad73351ee80382376a6ed2f43ee6b3209..9f7939b4198421203bae28203351a281fe6b0292 100644 (file)
@@ -10,7 +10,12 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 C
 #include "pdf/impdp.inc"
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       F(8)
       REAL   Z(18,8)
       DATA Z/
index f9d9e9f93477f0f76c1dee85d91f03f2fae6c40b..0e5a4dd56488df2d5cde69a73cad62767bf87cc1 100644 (file)
@@ -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)/
      +     .00561,    .00197,   1.10471,    .90600,    .00000,
index c0b31f76fa9b440e2e1f206b775c265568bcd602..83a0ce7f6c9b6fbd95ae2bf389358fb18b27ec28 100644 (file)
@@ -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)/
      +     .00510,    .00251,   1.10688,    .90346,    .00000,
index f6c2cfd91b36089bd22eceb4d01e956936dd9fc5..9221699cd14ede647221a39e7a27a60dbd61a17a 100644 (file)
@@ -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)/
      +     .00408,    .00237,   1.12142,    .87870,    .00000,
index 4907d925d7712073193c2af9bb4cac298b009768..eff313cd1d856fbed4afe669339af70b959f8d5c 100644 (file)
@@ -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)/
      +     .00586,    .00199,    .88070,    .92272,    .00000,
index c6f0481c394cbe85a9f787ffa15d42e55a9ceb63..be731150ef898afbb98806fce41c59e85d64e354 100644 (file)
@@ -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)/
      +     .00410,    .00145,   1.13388,    .83967,    .00000,
index a1d64e4350aa3c3556beee79f71562f37b6e6840..bb57fb24ea4ab3e0d94f8c07a801e8e57fbc22c5 100644 (file)
@@ -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)/
      +     .00683,    .00255,   1.14248,    .89678,    .00000,
index cb698f9da908bb808bdfc78ad1ef937bbf2f8c99..c45bd8acdb8add12f5cb016f7f13b1af75212b0d 100644 (file)
@@ -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)/
      +     .00633,    .00311,   1.14392,    .89438,    .00000,
index 245637fa1c955df86a146f035000f796fb5140cd..8c711d9a294bd868deb3bfd1d100ec59b7522c7e 100644 (file)
@@ -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)/
      +     .00526,    .00297,   1.16049,    .86935,    .00000,
index 0643969caa81729b23b1f0e5e4939e903294d372..17b52ecc99b828b98d828f896e504936016920d4 100644 (file)
@@ -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)/
      +     .00698,    .00251,    .88556,    .91935,    .00000,
index 9c9898fddf0c36df0f2eb39069bc4cdc12fc1777..787cb7aa094f941e4fb3c773a56f301876a22655 100644 (file)
@@ -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)/
      +     .00538,    .00208,   1.18692,    .82770,    .00000,
index f70c5f8a8053f52544666a0bb90ce89a66c67be3..7f40ab5a370d4a4ae374a3243816d714d3bedd51 100644 (file)
@@ -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)/
      +     .00536,    .00167,   1.07366,    .84905,    .00000,
index 11af25410977cefefbf740dc5fb60e47e9c17398..2efed02612eab14af440ec2d746c961084e5d049 100644 (file)
@@ -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)/
      +     .01518,    .00513,   3.68244,    .86800,    .00000,
index 42f9ad908626a51215eb4326794b097a38d91314..97a48a5de5c07eeaab7f826485ab8d5905dfac39 100644 (file)
@@ -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)/
      +     .01616,    .00683,   2.49594,    .96883,    .00000,
index 18dd4623e813db10a7cb0429d24eef33aad88047..3203982ff1c92579c91e85eef8b3ae27d758817d 100644 (file)
@@ -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)/
      +     .01533,    .00682,   3.82482,   1.04177,    .00000,
index 2e3fad852cd597b3f598bbe6a822762042f88867..db71860eb58f93e97b63c8ca180ea1a154043f19 100644 (file)
@@ -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)/
      +     .01652,    .00676,   3.98484,    .93109,    .00000,
index 9a2780315103b41d48846e8b0f4a7e16805dc242..fc33c5c8a25b5c30b9094beec733b979922b69f0 100644 (file)
@@ -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)/
      +     .01522,    .00506,   4.20964,    .84794,    .00000,
index b770690f511e5d80f787af057309d097ddb02599..07fbd54c9a00ae4c3a6032c5fcf7bda188c87b0e 100644 (file)
@@ -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)/
      +     .00524,    .00225,   1.11506,    .89493,    .00000,
index 0aa70407b91bf69089a6d0fc7863854ccbf50a36..9b038ddde7562b3d231eb8ed477d157c3608a013 100644 (file)
@@ -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)/
      +     .00525,    .00225,   1.12228,    .89535,    .00000,
index 713fba8ccbd12438efec43b2315f54fd79e226c3..ef6da8fc0548637a326e011c443c53873a8bf1f9 100644 (file)
@@ -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)/
      +     .00524,    .00225,   1.10708,    .89447,    .00000,
index 5951ce9301943363a048d90bf73ee0a652b1a2d9..b829cd67eb9fea90ef8c804516db87f632d65218 100644 (file)
@@ -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)/
      +     .00515,    .00191,   1.11860,    .90463,    .00000,
index b63af9ba754a05c8133cf2ce18859fef3540e7d4..035899ce40ce39e141b40eca2300d05cf0fb0b92 100644 (file)
@@ -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)/
      +     .00497,    .00272,   1.10631,    .87038,    .00000,
index fff678e94338638656949fd9753a33033fa1b643..1785947f8df27e28bfd9fe107138009f5a6e0b26 100644 (file)
@@ -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)/
      +     .00398,    .00281,   1.13349,    .87009,    .00000,
index abb4a7f89e188d6b6d41e2d175f6fff4e0e06652..7beaf9582dd2b3f744f11459633348c58e5bd151 100644 (file)
@@ -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)/
      +     .00585,    .00245,    .82805,    .91213,    .00000,
index b3f9f73ffa650a6d314dd773d16c34e7f41b9e7a..acefc0881cf899bd658af5f4d80191a062665595 100644 (file)
@@ -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)/
      +     .00384,    .00181,   1.10758,    .81616,    .00000,
index 6c06cbcf6f487fe768cfe8bdd998d02a32869f27..5122dbfaa2977fc970fbbe3a61caa6dd0e931173 100644 (file)
@@ -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)/
      +     .00497,    .00177,   1.15210,    .89336,    .00000,
index fb9b90cfcf852b21c6a86f71f74ed31d057ad6cb..b061b6c50d46ad7c54415d55d9225a53ec984d98 100644 (file)
@@ -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)/
      +     .00593,    .00280,   1.09369,    .87912,    .00000,
index 0432414daa33cf55cb53b7d7fec433f3a1fc342d..ba10240260f41a42c96e57ef161892e0a902f389 100644 (file)
@@ -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)/
      +     .00524,    .00225,   1.11507,    .87315,    .00000,
index 648f48ce19516ad5756ced7695776820d285c45d..03f1115d0f7ee4cecf5e04dfa88afe4cf874157d 100644 (file)
@@ -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)/
      +     .00524,    .00225,   1.11507,    .91673,    .00000,
index 2302acc2d6d22c4f23c63cdb74389cda09181fc0..28ad71a18aef491f45181cd99848ad21c23dd5dd 100644 (file)
@@ -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)/
      +     .00643,    .00286,   1.15221,    .88585,    .00000,
index 75054317402a950b3a48f829afd38c2177acb3f8..5cf2e8d93795833087dea5bfd700922d1f2e73df 100644 (file)
@@ -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)/
      +     .00644,    .00286,   1.15921,    .88630,    .00000,
index 5c2cca85ddbf8d06c5c37cfb6972b616a6edeac1..2e11edf9e418af0094ed6dad9a7548ac00169174 100644 (file)
@@ -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)/
      +     .00643,    .00286,   1.14446,    .88535,    .00000,
index cb90ef7ef767eb237954f76d37eaed40e0f29706..0d1c7dab4b8b522de51c9f8150ecb017615d989b 100644 (file)
@@ -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)/
      +     .00619,    .00334,   1.13786,    .86234,    .00000,
index 37cf3d721c0dffb17674bca496d55d26e946e786..dae1c25cd3dd757f55a3f639947b365205452e2e 100644 (file)
@@ -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)/
      +     .00515,    .00344,   1.17157,    .86093,    .00000,
index 0ba65e6abbe9368f683f7d25f36820fe62b02a22..d4b837a6828639fc395ea2212ea62a6521377571 100644 (file)
@@ -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)/
      +     .00697,    .00300,    .83888,    .90778,    .00000,
index 11ec2777f7796a72cb96182fa17251ddae0f51e1..9e0f939a1a80fb5a5a703813e3b435e00c1e25a1 100644 (file)
@@ -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)/
      +     .00510,    .00248,   1.15875,    .80457,    .00000,
index 924632d7dc950b5bfefbd63f388b04df631338fd..e505bb2d91b1c44560127c113a1cbea92021e569 100644 (file)
@@ -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)/
      +     .00615,    .00233,   1.18742,    .88462,    .00000,
index 84c5512035c6393f4d744d6c9df2774bceb04a8a..f973a1061a03a1b394c4de4a3cabdaf68e20e3c2 100644 (file)
@@ -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)/
      +     .00717,    .00345,   1.13235,    .86984,    .00000,
index 90acd1b071cde4395081588389022205e3e50acb..13e497154d472f6469ea5dca903c463f5e24b31c 100644 (file)
@@ -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)/
      +     .00643,    .00286,   1.15222,    .86448,    .00000,
index e15d15d83fee6a4a233a451adbf00fd5ba1bd88b..0a2ae83ee8d67a2e9d52469ff14507564306c005 100644 (file)
@@ -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)/
      +     .00643,    .00286,   1.15221,    .90723,    .00000,
index d1755c483c40ad855334d7efa7b970fa9692f54d..ef76b44c4af570b8aae89c3bad93822f447c7487 100644 (file)
@@ -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)/
      +     .00258,    .00689,   1.15756,    .85917,    .00000,
index 1ba399d1465e222f426a3bc3818d5245f544d69a..9c820a2ab4a7c56c365430fc1647b1d67746aa18 100644 (file)
@@ -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)/
      +     .00259,    .00689,   1.16588,    .85968,    .00000,
index 2378a433c9294bbe13743f4f3e661eec7195ef3c..0c5ccf1519eed2fd7babd011fee9a020f056b88b 100644 (file)
@@ -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)/
      +     .00258,    .00689,   1.14806,    .85861,    .00000,
index ebf4fa65818fa9610c7488ba074094a101c15ad3..43a47cc63fe9375879d07867750e53413df03228 100644 (file)
@@ -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)/
      +     .00150,    .00820,   1.27651,    .47232,    .00361,
index ed2fa7dc32b4b3c17d4ea87c6646c123b39e094b..590e61c1dc5d60c58bb50221ccb34b8cafd12e0e 100644 (file)
@@ -4,7 +4,12 @@ C
 #include "pdf/impdp.inc"
 C
       PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8)
-#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)/
      +     .00125,    .00705,    .95079,    .46974,    .00369,
index adc4f5a09c8e9491d81c0ff42a398a09f1ea7a7e..e983dc89ab943d9756d48aa0092756e78a55568a 100644 (file)
@@ -4,7 +4,12 @@ C
 #include "pdf/impdp.inc"
 C
       PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8)
-#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)/
      +     .00181,    .00812,   5.27909,    .39654,    .00527,
index 12a5ba905f1a9240bed986d649c541f44d2fefa0..679af456cf876b3f41b09059972dd03d4c11b451 100644 (file)
@@ -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,
index 9f065ab86a9bf158d8c842259e82f2fd0cf27880..8c0f8c9c7b96e72ea580c1d639690a5bd571f608 100644 (file)
@@ -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:30:29  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.237 GeV
 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=10)
index 1bbce7f169d49392e792638b3da726ce98d7577f..041b5f0749d9f6102dc8072d190441935036504e 100644 (file)
@@ -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:30:31  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.144 GeV
 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=11)
index ba26ccac8555bd703d5e9a516d3fc9c3d92ee3f5..10d284f933a6ddcf1f50a1b871da8b9f80a58e75 100644 (file)
@@ -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:30:34  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.212 GeV
 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=1)
index da494f77cebbcc401c5d14c0b348f59d905db9a9..5a649e63d8a44294503220e13b9fc11c75ef3edd 100644 (file)
@@ -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:30:35  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.194 GeV
 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=2)
index 01257d855a7695cff92e1326b04ed07e0991d2f1..e322fa67fed27861498866b7855ebbc32727f340 100644 (file)
@@ -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:30:36  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.192 GeV
 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)
index d49b315ee9dbf7825d947acb7f11fbe7e15ae98f..159fb6c9f024b51762e64c86e59fc09233c2df87 100644 (file)
@@ -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:30:37  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.155 GeV
 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)
index 2d73186efa2f8c5af26fb48015b269a6ebc831dc..04858bd2a7d7c7a40eba455262b3d6198c9f276b 100644 (file)
@@ -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:30:38  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.237 GeV
 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=5)
index 6cc1a5f355077f781a226c9e8dd140a910119e21..3f58201cce49b047c2a879da078fcd43ff357796 100644 (file)
@@ -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:30:39  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.212 GeV
 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=6)
index b654420007928466e4364af52d052b5ad6e299ed..bd0ecbd143f8c602d43fdbb283f7fa188b3afaf4 100644 (file)
@@ -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:30:40  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.194 GeV
 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=7)
index 786ca609cf5c38e8973768d33d99fe384fefec1b..59c03f80d174bbd7ec348b540634ce33c5d1a046 100644 (file)
@@ -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:30:41  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.192 GeV
 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=8)
index a0d53f8ae53004c214316d43b1afd606820c69d9..8f2efa0bd03ce5009cbdf0363a04d2b78f7da54f 100644 (file)
@@ -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:30:41  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.155 GeV
 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=9)
index 8259a1d089f3de927200247e1e1d073e6c5d81ab..42e78494f2c64f7860b5a398e22715e66b22feb3 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (DIS)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index 57486381ccb508b83f8b8d25f8f02e8ddcbba0d7..c4744513defe48bff87d034b2958408bb56d9680 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (MS_bar)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index 5d429fefa4645d098d9d184c07e3879008e874a0..a3efc3c11ed1cd452c683f92cf3e91643c3dd52a 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (DIS)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index 08c50e06626f2bec0e1621a908133fbedb97be05..773b471ceacf5d7c8cb8b325e8ca7053538fd4c3 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (MS_bar)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index 9e1709bbd5e12d368ceef34d3c9a5ac25b104c0e..289573fae51e24333c5a460b31c4a75b8eeab131 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (DIS)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index ca46086d48f422bc376bed1660d70016361cd2fd..cb247a3da06b517e0801bf9fea7d257ad926ddc2 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (MS_bar)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index 9e4db6feaae29efa4be206a5ae8fa28aa99a261d..f9bbfab96f94318b12525fbe0db31a1e2d94de80 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (DIS)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index cf937a8597fd3f657038e01254f5e81f645ee325..9469e470f505b053beee6045b1f42d926053428a 100644 (file)
@@ -14,7 +14,12 @@ C
 C :::::::::::: Structure functions from the SAS group version 2
 C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (MS_bar)
 C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +          DX,DQ2,DP2,
      +          DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL
       DIMENSION XPDFGM(-6:6)
index 17824f0617aef5b96650b34f66600e0d761a4b2b..9f6f9a270862944b05296f0bb02031917f603c7e 100644 (file)
@@ -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:30:42  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ c     Modified by I.Watanabe on July 22, 1994.
 c-------------------------------------------------------
       implicit none
       external WHIT1G
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL
 c arg
       integer ic
index 3388d4d75d134655b0cafbaba6c90ef4ae254280..4e6ba8c301586561526e6526a3a068151b2476b4 100644 (file)
@@ -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:30:43  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ c     Modified by I.Watanabe on July 22, 1994.
 c-------------------------------------------------------
       implicit none
       external WHIT2G
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL
 c arg
       integer ic
index b5ed589a4cc72b159057f5bf78b08a5fc3e27aa1..e1c83f0fd4a9430aa65622f35c3909115a71dcc5 100644 (file)
@@ -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:30:44  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ c     Modified by I.Watanabe on July 22, 1994.
 c-------------------------------------------------------
       implicit none
       external whit3g
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL
 c arg
       integer ic
index dbcf134f98b88bf305d29e23a485472b00a2a1aa..caafe4557f38cae72dde3cb176fbcfbcc3735ecb 100644 (file)
@@ -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:30:45  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ c     Modified by I.Watanabe on July 22, 1994.
 c-------------------------------------------------------
       implicit none
       external WHIT4G
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL
 c arg
       integer ic
index 1ecd7b0a0380a51ec589368f85cd2be88b145a6f..58c3ba99cbc4a80cd03ff45838daa132ba81e86a 100644 (file)
@@ -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:30:46  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ c     Modified by I.Watanabe on July 22, 1994.
 c-------------------------------------------------------
       implicit none
       external WHIT5G
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL
 c arg
       integer ic
index 2b905768a4127ed152bbd36dd34203496ca0110d..fde73c896fc1a8bbda930c2be7c4d28a029c9af9 100644 (file)
@@ -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:30:46  cernlib
 * Version 7.04
 *
@@ -32,7 +35,12 @@ c     Modified by I.Watanabe on July 22, 1994.
 c-------------------------------------------------------
       implicit none
       external WHIT6G
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL
 c arg
       integer ic
index f4d894315d66039d5807c552db976103aa4b11dc..0314b4e8fdbf8027772ad4f4d3cc46a9d0d30d6b 100644 (file)
@@ -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:54  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.190 GeV (LO) (CTEQ2L)
 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=5)
index 3ba6b4c8f0ddc9b207655aa72ecef542d8fe3d5a..9eddfb64b73499acdf61f1d74896d22f88e1580b 100644 (file)
@@ -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:54  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.213 GeV (MSb)  (CTEQ2M)
 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=1)
index 83680fc314b231d36020df722e2e247266da0231..70d175f1ee740ab72b2b7d8b0f30fa117e9d0868 100644 (file)
@@ -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:55  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.208 GeV (MSb - singular gluon) (CTEQ2MS)
 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=2)
index e53fd9830863fb856e10008e1de0e414dd92b49e..41ccdf3f2ab2919a2204906abf8d0d2b22be0ee1 100644 (file)
@@ -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.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)
index 6b67a015043e0d71db023588d8666b4d47ca7fef..b37ccb41b60141282b78ba42e02c1b506e8133d5 100644 (file)
@@ -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)
index 8358709565910b725bf070998501e1fbaa8eebc3..2eeb13d3f839c9699b469d126aa80f38977df0b0 100644 (file)
@@ -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:57  cernlib
 * Version 7.04
 *
@@ -25,7 +28,12 @@ C
 C :::::::::::: Structure functions from Morfin and Wu-Ki Tung
 C :::::::::::: Lambda = 0.235 GeV (DIS)
 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=6)
index 772e2bd52ad3ef8c01572a58e798fef3b0d5e74b..3677eb8663f81fa6162bbe3f430955ccc2666062 100644 (file)
@@ -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:32:16  cernlib
 * Version 7.04
 *
@@ -29,7 +32,12 @@ C     SUBROUTINE STRBEBC(DX,DQ,DUDV,DUDS,DSEA,DSTR,DGL)
 *                                                                   *
 *********************************************************************
 C.
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL
       REAL    X, Q, UPV, DNV, SEA, STR, GL, UDVAL, UDSEA
       PARAMETER (BVQ02=0.77, BSQ02=5.3, BGQ02=4., Q02=0.5)
index aac23f438e971dee7d72cd95a1848ba818a15068..8629fcadc878574209c3db6a19d0a4fb09730162 100644 (file)
@@ -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:01  cernlib
 * Version 7.04
 *
@@ -14,7 +17,12 @@ C
       SUBROUTINE STRDO1(X,SCALE,UPV,DNV,SEA,STR,CHM,GL)
 C :::::::::::: DUKE OWENS SET 1 ::::::::::::::::::::::::::::
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       F(5),A(6,5),B1(3,6,5)
       DATA Q0,QL1/2.D0,.2D0/
       DATA B1/3.D0,0.D0,0.D0,.419D0,.004383D0,-.007412D0,
index e4cb2b22dbd66c95a4c7363e2dd473d408197c4a..8bc4a83185d0c2bffe33da5454df5d0805130c88 100644 (file)
@@ -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
 *
@@ -15,7 +18,12 @@ C-----------------------------------------------------------------------
 C :::::::::::: DUKE OWENS SET 2 ::::::::::::::::::::::::::::
 C
 #include "pdf/impdp.inc"
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       F(5),A(6,5),B2(3,6,5)
       DATA Q0,QL2/2.D0,.4D0/
       DATA B2/3.D0,0.D0,0.D0,.3743D0,.013946D0,-.00031695D0,
index 07dbb4a029543eb770178e495e8aba7894a9671d..ccaff9631bd38b788529578009dc9bc1dba61b80 100644 (file)
@@ -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
index 307f72b7762747178fbc1d38ef2804c98dfb7296..3359f6404a9fd9bf48677c66533e8e437ff58ef2 100644 (file)
@@ -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:47  cernlib
 * Version 7.04
 *
@@ -18,7 +21,12 @@ C ::::::::::::::  OWENS SET 1 PION STRUCTURE FUNCTION  :::::::::::::::
 #if defined(CERNLIB_DOUBLE)
       DOUBLE PRECISION DGAMMA
 #endif
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       COW(3,5,4),TS(6),XQ(9)
 
 C...Expansion coefficients for up and down valence quark distributions.
index 1202eba974210679f783983efed889db0583881c..f2cebd8a53ae1a8a385ab2fa76fb9ce3fd09ad2b 100644 (file)
@@ -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:48  cernlib
 * Version 7.04
 *
@@ -18,7 +21,12 @@ C ::::::::::::::  OWENS SET 2 PION STRUCTURE FUNCTION  :::::::::::::::
 #if defined(CERNLIB_DOUBLE)
       DOUBLE PRECISION DGAMMA
 #endif
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       COW(3,5,4),TS(6),XQ(9)
 
 C...Expansion coefficients for up and down valence quark distributions.
index 52525d3d5e38a7112c7075c017f3e626acba2abc..59d4fd973b792531e29a6a933805afdb75c719c1 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.4  2000/09/18 10:02:37  hristov
+* Makefile added to PDF8
+*
 * Revision 1.1.1.3  2000/04/19 13:29:30  mclareni
 * Import version 8.04
 *
@@ -119,7 +122,12 @@ C
 #include "pdf/w505120.inc"
 #include "pdf/w505121.inc"
       CHARACTER*20 PARM(NCHDIM)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       VAL(NCHDIM)
       DATA ZEROD/0.D0/,ONED/1.D0/,TWOD/2.D0/
       SAVE /W50514/, /W50514W/, /W50516/
index 2e30f672ff8a40ae5dd85d65ac2de487b361267b..e95059e7ae7b6e333b8ad1059ce86ac40fab3679 100644 (file)
@@ -100,7 +100,12 @@ C
 #include "pdf/w505120.inc"
 #include "pdf/w505121.inc"
       CHARACTER*20 PARM(NCHDIM)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       VAL(NCHDIM)
       DATA ZEROD/0.D0/,ONED/1.D0/,TWOD/2.D0/
       SAVE /W50514/, /W50514W/, /W50516/
index 0cf9f04d380792b4f79b726ca099dc27c363cec8..1c7bc3984f9ed44037831ecb9fd1c1c9cb45c60e 100644 (file)
@@ -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:58  cernlib
 * Version 7.04
 *
 #include "pdf/pilot.h"
       SUBROUTINE WATE32
 C  32 POINT GAUSSIAN QUADRATURE ROUTINE
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +       X(16),W(16)
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL
+#endif
      +               XI(32),WI(32),XX(33)
       COMMON/W5051I9/XI,WI,XX,NTERMS
       NTERMS=32