##102371 Port updated in TPHIC to trunk and release
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 28 Aug 2013 14:15:25 +0000 (14:15 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 28 Aug 2013 14:15:25 +0000 (14:15 +0000)
TPHIC/AliGenTPHIC.cxx
TPHIC/tphic17.f

index 9f3ea15..8bb0e81 100644 (file)
@@ -84,6 +84,7 @@ AliGenTPHIC::AliGenTPHIC() :
   // eta_b production in Ca-Ca collisions at 7 A*TeV
 
   SetMC(new TPHICgen());
+  fTPHICgen = (TPHICgen*) fMCEvGen;
   fPythia = AliPythia::Instance();
   fParticles = new TClonesArray("TParticle",100);
 
index e00da09..9f9852a 100644 (file)
@@ -1265,6 +1265,7 @@ C
       REAL*4  wlum
       DATA    ifl/0/, stpy/0./, stpm/0./
       REAL*8 ggrnd
+      save ifl,aky,akm,stpy,stpm,rmin,rmax,dr
 C
       IF (ifl.EQ.0) THEN
         IF (ymin.LT.ymn .OR. ymin.GT.ymx .OR.