Pythia 6.1 dependence removed.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 1 Sep 2008 12:43:26 +0000 (12:43 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 1 Sep 2008 12:43:26 +0000 (12:43 +0000)
DPMJET/dpmjet3.0-5.f
DPMJET/libdpmjet.pkg
DPMJET/phojet1.12-35c3.f

index 9d10ca8..5079da5 100644 (file)
 * flags for activated histograms
       COMMON /DTHIS3/ IHISPP(50),IHISXS(50),IXSTBL
       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
-      COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+      COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
 * LEPTO
 **LUND single / double precision
       REAL CUT,PARL,TMPX,TMPY,TMPW2,TMPQ2,TMPU
@@ -15096,7 +15096,7 @@ C     DO 1 I=NPOINT(5),NEND
       COMMON /DTEVT2/ IDRES(NMXHKK),IDXRES(NMXHKK),NOBAM(NMXHKK),
      &                IDBAM(NMXHKK),IDCH(NMXHKK),NPOINT(10),
      &                IHIST(2,NMXHKK)
-      COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+      COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
       PARAMETER (MAXLND=4000)
       COMMON/PYJETS/N,NPAD,K(MAXLND,5),P(MAXLND,5),V(MAXLND,5)
@@ -15699,7 +15699,7 @@ C     ISU = 4
 
       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
-      COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+      COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
 * flags for particle decays
       COMMON /DTFRPA/ MSTUX(20),PARUX(20),MSTJX(20),PARJX(20),
      &                IMSTU(20),IPARU(20),IMSTJ(20),IPARJ(20),
index ca30144..31fbd9d 100644 (file)
@@ -10,10 +10,9 @@ DHDR:=dpmjetLinkDef.h
 FSRCS:= \
 dpmjet3.0-5.f\
 phojet1.12-35c3.f\
-pythia6115dpm3.f\
 user3.0-5.f\
-openfile.f\
-pyqdummy.f
+openfile.f
+
 
 ifeq (g95,$(F77))
 PACKFFLAGS := $(filter-out -O%,$(FFLAGS))
index c3bd70f..c2e55ad 100644 (file)
@@ -494,7 +494,7 @@ C  hard cross sections and MC selection weights
       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
       INTEGER MDCY,MDME,KFDP
       DOUBLE PRECISION  BRAT
-      COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+      COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
 
       INTEGER PYCOMP
 
@@ -33870,7 +33870,7 @@ C  input/output channels
       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
       INTEGER MDCY,MDME,KFDP
       DOUBLE PRECISION  BRAT
-      COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+      COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
 
       INTEGER PYCOMP