Do not rely on the memory being 0 in JX bank
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 20 May 2000 14:48:51 +0000 (14:48 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 20 May 2000 14:48:51 +0000 (14:48 +0000)
GEANT321/gtrak/gsxyz.F

index 5f2be2e..bbccf73 100644 (file)
@@ -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