Allow any Cherenkov-like particle to be transported

[u/mrichter/AliRoot.git] / GEANT321 / gtrak / gskpho.F

diff --git a/GEANT321/gtrak/gskpho.F b/GEANT321/gtrak/gskpho.F
index 6e1b4f80d225297f18ca9e2e0bd741c79cd2c3ee..a64735bca4f9502f004b4923ce0ada9e8e58cc53 100644 (file)
--- a/GEANT321/gtrak/gskpho.F
+++ b/GEANT321/gtrak/gskpho.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
 *
@@ -89,7 +92,7 @@ C.
          IF (IQ(JSTAK+1).GT.NSTMAX) NSTMAX = IQ(JSTAK+1)
 *
          IQ(JST+1) = -ITRA
-         IQ(JST+2) = 50
+         IQ(JST+2) = IPART
          IQ(JST+3) = 0
          DO 10 I = 1,3
             Q(JST+3+I) = XPHOT(I  ,NN)