Production point stored in AliFastGlauber.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 5 May 2009 09:06:52 +0000 (09:06 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 5 May 2009 09:06:52 +0000 (09:06 +0000)
PYTHIA6/QPYTHIA/q-pyshow.1.0.F

index 6ca3249..9198a50 100644 (file)
@@ -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