From A.Morsch: (#1363)

- Corrections in DPMcommon.h - Correction in TDPMjet.cxx to make it work for A-A and p-A Co-authored-by: hristov <[email protected]>
alisw · Jul 12, 2021 · 7701184 · 7701184
1 parent ff63cfd
commit 7701184
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/TDPMjet/DPMcommon.h b/TDPMjet/DPMcommon.h
@@ -168,7 +168,7 @@ typedef struct {
    Double_t    bimin;
    Double_t    bimax;
    Double_t    xsfrac;
-   Double_t    icent;
+   Int_t       icent;
 } DtimpaCommon;
 
 #define DTIMPA COMMON_BLOCK(DTIMPA,dtimpa)
@@ -229,7 +229,7 @@ typedef struct {
    Int_t        idifr1;
    Int_t        idifr2;
    Int_t        iddpom;
-   Int_t        ipron[15][4];
+   Int_t        ipron[4][15];
 } PoprcsCommon;
 
 #define POPRCS COMMON_BLOCK(POPRCS,poprcs)
@@ -245,7 +245,7 @@ COMMON_BLOCK_DEF(PoprcsCommon,POPRCS);
      &                JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),
      &                VHEP(4,NMXHEP), NSD1, NSD2, NDD
 */
-const Int_t nmxhep = 4000;
+const Int_t nmxhep = 8000;
 
 typedef struct {
   Int_t    nevhep;

diff --git a/TDPMjet/TDPMjet.cxx b/TDPMjet/TDPMjet.cxx
@@ -110,7 +110,7 @@ ClassImp(TDPMjet)
 	fEpn(0.),
 	fPpn(0.),
 	fCMEn(0.),
-	fIdp(0),
+	fIdp(1),
 	fBmin(0.),
 	fBmax(0.),
 	fFCentr(0),
@@ -134,7 +134,7 @@ TDPMjet::TDPMjet(DpmProcess_t  iproc, Int_t Ip=208, Int_t Ipz=82, Int_t It=208,
       fEpn(Epn),
       fPpn(0.),
       fCMEn(CMEn),
-      fIdp(0),
+      fIdp(1),
       fBmin(0.),
       fBmax(0.),
       fFCentr(0),
@@ -381,6 +381,7 @@ void TDPMjet::GenerateEvent()
    while (irej) {
      Dt_Kkinc(fIp, fIpz, fIt, fItz, fIdp, Elab, kkmat, irej);
    }
+
 }
 //______________________________________________________________________________
 void TDPMjet::Dt_Dtuini(int nevts, double epn, int npmass, int npchar,