Change PYTHIA5 subroutine calls to PYTHIA6.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 7 Sep 2000 12:17:07 +0000 (12:17 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 7 Sep 2000 12:17:07 +0000 (12:17 +0000)
GEANT321/gkine/gludky.F
GEANT321/gkine/glund.F
GEANT321/gkine/glundi.F

index aebb335caa2c9be24ffa53ae99fc6d2b990b5595..163128ed5f3c7b9c21d8505c1e6f3df6c400b778 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:20  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:21:18  cernlib
 * Geant
 *
@@ -57,13 +60,13 @@ C
 *--  Set some particles to be stable in LUND so that GEANT can handle
 *--  their tracking and decays. (K0s, sigma+-, xi0-, lambda0, omega-)
 *
-         MDCY(LUCOMP(310) ,1)=0
-         MDCY(LUCOMP(3222),1)=0
-         MDCY(LUCOMP(3112),1)=0
-         MDCY(LUCOMP(3322),1)=0
-         MDCY(LUCOMP(3312),1)=0
-         MDCY(LUCOMP(3122),1)=0
-         MDCY(LUCOMP(3334),1)=0
+         MDCY(PYCOMP(310) ,1)=0
+         MDCY(PYCOMP(3222),1)=0
+         MDCY(PYCOMP(3112),1)=0
+         MDCY(PYCOMP(3322),1)=0
+         MDCY(PYCOMP(3312),1)=0
+         MDCY(PYCOMP(3122),1)=0
+         MDCY(PYCOMP(3334),1)=0
          IFINIT(6) = 1
       ENDIF
 C
@@ -76,8 +79,8 @@ C
 *            for TAU+ TAU-
 *            could be extended to all charm particles
 *
-         CALL LU1ENT(1,IPLUND(IPART),EDKY,THDKY,PHDKY)
-         CALL LUEXEC
+         CALL PY1ENT(1,IPLUND(IPART),EDKY,THDKY,PHDKY)
+         CALL PYEXEC
          NGKINE=0
          DO 20 I = 1,N
             IF(K(I,1).GE.1.AND.K(I,1).LE.10) THEN
index 08182f909a9497b898cf9222dedaa72219d5be57..e63f318acccca48a0a4acfbd86de2836b1b49210 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:20  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:21:18  cernlib
 * Geant
 *
@@ -52,7 +55,7 @@ C.
 *.
       IF (IFINIT(3).EQ.0)  CALL GLUNDI
 *
-      CALL LUEEVT(IFLUND,ECLUND)
+      CALL PYEEVT(IFLUND,ECLUND)
 *
       NCVERT = 10
       NCKINE = N+10
index 29ab711f9f7d26f5310dd53bc03eaf6b30e00ecc..1adac3495da21197c67f7dddddbdfd785c636552 100644 (file)
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:20  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:21:18  cernlib
 * Geant
 *
@@ -67,13 +70,13 @@ C.
 *--  Set some particles to be stable in LUND so that GEANT can handle
 *--  their tracking and decays. (K0s, sigma+-, xi0-, lambda0, omega-)
 *
-         MDCY(LUCOMP(310) ,1)=0
-         MDCY(LUCOMP(3222),1)=0
-         MDCY(LUCOMP(3112),1)=0
-         MDCY(LUCOMP(3322),1)=0
-         MDCY(LUCOMP(3312),1)=0
-         MDCY(LUCOMP(3122),1)=0
-         MDCY(LUCOMP(3334),1)=0
+         MDCY(PYCOMP(310) ,1)=0
+         MDCY(PYCOMP(3222),1)=0
+         MDCY(PYCOMP(3112),1)=0
+         MDCY(PYCOMP(3322),1)=0
+         MDCY(PYCOMP(3312),1)=0
+         MDCY(PYCOMP(3122),1)=0
+         MDCY(PYCOMP(3334),1)=0
 *
          CALL FFKEY('LUND',IFLUND,2,'MIXED')
       ENDIF