From: fca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Sat, 20 May 2000 14:48:51 +0000 (+0000)
Subject: Do not rely on the memory being 0 in JX bank
X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=commitdiff_plain;h=af0a46b32fb5fafee46f21c84b49eb670e0e06c5;hp=ca9d4947bdf86bad51340beb70aebd279ab4dfc3

Do not rely on the memory being 0 in JX bank
---

diff --git a/GEANT321/gtrak/gsxyz.F b/GEANT321/gtrak/gsxyz.F
index 5f2be2eba45..bbccf73926b 100644
--- a/GEANT321/gtrak/gsxyz.F
+++ b/GEANT321/gtrak/gsxyz.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:21  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:21:43  cernlib
 * Geant
 *
@@ -67,6 +70,8 @@ C
             IF(Q(IPOINT).NE.0.) THEN
                Q(JX+2)=Q(JX+2)+3.*Q(IPOINT)+2.
                Q(JX+1)=Q(JX+1)-2.
+               IPOINT=JX+Q(JX+2)
+               Q(IPOINT)=0
             ENDIF
          ENDIF
       ENDIF