DOUBLE PRECISION PHEP,VHEP
COMMON /POEVT1/ NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP),
& JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),
- & VHEP(4,NMXHEP)
+ & VHEP(4,NMXHEP), NSD1, NSD2, NDD
C extension to standard particle data interface (PHOJET specific)
INTEGER IMPART,IPHIST,ICOLOR
COMMON /POEVT2/ IMPART(NMXHEP),IPHIST(2,NMXHEP),ICOLOR(2,NMXHEP)
& KHLOO,KSDPO,KHDPO,KEVENT,KSOFT,KHARD
COMMON /PODEBG/ IDEB(NMAXD),KSPOM,KHPOM,KSREG,KHDIR,KACCEP,KSTRG,
& KHTRG,KSLOO,KHLOO,KSDPO,KHDPO,KEVENT,KSOFT,KHARD
+ PARAMETER (NMXHEP=4000)
+ COMMON /POEVT1/ NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP),
+ & JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),
+ & VHEP(4,NMXHEP), NSD1, NSD2, NDD
+
C model switches and parameters
CHARACTER*8 MDLNA
INTEGER ISWMDL,IPAMDL
CALL PHO_PREVNT(-1)
RETURN
ENDIF
- IF(IPROC.EQ.5) ID1A = ID1A+1
- IF(IPROC.EQ.6) ID2A = ID2A+1
- IF(IPROC.EQ.7) ID3A = ID3A+1
-
+ IF(IPROC.EQ.5) THEN
+ ID1A = ID1A+1
+ NSD1 = NSD1 +1
+ ENDIF
+ IF(IPROC.EQ.6) THEN
+ ID2A = ID2A+1
+ NSD2 = NSD2 + 1
+ ENDIF
+ IF(IPROC.EQ.7) THEN
+ ID3A = ID3A+1
+ NDD = NDD + 1
+ ENDIF
C-----------------------------------------------------------------------
C single / double direct processes
CALL PHO_PREVNT(-1)
RETURN
ENDIF
- IF(IPROC.EQ.5) ID1A = ID1A+1
- IF(IPROC.EQ.6) ID2A = ID2A+1
- IF(IPROC.EQ.7) ID3A = ID3A+1
+ IF(IPROC.EQ.5) THEN
+ ID1A = ID1A+1
+ NSD1 = NSD1 +1
+ ENDIF
+ IF(IPROC.EQ.6) THEN
+ ID2A = ID2A+1
+ NSD2 = NSD2 + 1
+ ENDIF
+ IF(IPROC.EQ.7) THEN
+ ID3A = ID3A+1
+ NDD = NDD + 1
+ ENDIF
IDIA = IDIA+MHDIR
C-----------------------------------------------------------------------