From: morsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Tue, 5 May 2009 09:06:52 +0000 (+0000)
Subject: Production point stored in AliFastGlauber.
X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=commitdiff_plain;h=99994a986dcee9044d721114c0e418e5ccd286d5

Production point stored in AliFastGlauber.
---

diff --git a/PYTHIA6/QPYTHIA/q-pyshow.1.0.F b/PYTHIA6/QPYTHIA/q-pyshow.1.0.F
index 6ca3249bd91..9198a500566 100644
--- a/PYTHIA6/QPYTHIA/q-pyshow.1.0.F
+++ b/PYTHIA6/QPYTHIA/q-pyshow.1.0.F
@@ -2435,13 +2435,12 @@ C     SCATTERING. THEY ARE THE ENTRIES THREE TO SEVEN IN ROUTINE PYROBO.
       COMMON/QPLT/AA1,AA2,BBX,BBY,BBZ
 cforalice+
       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
+      SAVE /PYPARS/
 c     Here the transverse coordinates of the hard scattering are set by
 c     glauber geometry. 
       call GetRandomXY(xrang,yrang) 
       xin=xrang ! fm
       yin=yrang ! fm
-      PARI(199) = xin
-      PARI(200) = yin
 cforalice-
       zin=0.d0 ! fm
       tin=0.d0 ! fm