Merge branch 'master' of https://git.cern.ch/reps/AliRoot

[u/mrichter/AliRoot.git] / PYTHIA6 / pythia6214.f

diff --git a/PYTHIA6/pythia6214.f b/PYTHIA6/pythia6214.f
index 6deccbf2e1a11fb229a1536ea9da8c0cd0386ac2..0237c8af412554922191bd34e82099bff4314e32 100644 (file)
--- a/PYTHIA6/pythia6214.f
+++ b/PYTHIA6/pythia6214.f
@@ -56238,6 +56238,7 @@ C...Loop over all particles. Find cell that was hit by given particle.
      &    KC.EQ.18) GOTO 110
           IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0)
      &    GOTO 110
+
         ENDIF
         NP=NP+1
         PT=SQRT(P(I,1)**2+P(I,2)**2)
@@ -59423,7 +59424,10 @@ C...Format for error printout.
       END
  
 C*********************************************************************
- 
+c
+c This dummy routine is commented out; an implementation for AliRoot 
+c resides in pyevwt.f
+c 
 C...PYEVWT
 C...Dummy routine, which the user can replace in order to multiply the
 C...standard PYTHIA differential cross-section by a process- and
@@ -59432,56 +59436,56 @@ C...to generation of weighted events, with weight 1/WTXS, while for
 C...MSTP(142)=2 it corresponds to a modification of the underlying
 C...physics.
  
-      SUBROUTINE PYEVWT(WTXS)
+c      SUBROUTINE PYEVWT(WTXS)
  
 C...Double precision and integer declarations.
-      IMPLICIT DOUBLE PRECISION(A-H, O-Z)
-      IMPLICIT INTEGER(I-N)
-      INTEGER PYK,PYCHGE,PYCOMP
+c      IMPLICIT DOUBLE PRECISION(A-H, O-Z)
+c      IMPLICIT INTEGER(I-N)
+c      INTEGER PYK,PYCHGE,PYCOMP
 C...Commonblocks.
-      COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
-      COMMON/PYINT1/MINT(400),VINT(400)
-      COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
-      SAVE /PYDAT1/,/PYINT1/,/PYINT2/
+c      COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
+c      COMMON/PYINT1/MINT(400),VINT(400)
+c      COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
+c      SAVE /PYDAT1/,/PYINT1/,/PYINT2/
  
 C...Set default weight for WTXS.
-      WTXS=1D0
+c      WTXS=1D0
  
 C...Read out subprocess number.
-      ISUB=MINT(1)
-      ISTSB=ISET(ISUB)
+c      ISUB=MINT(1)
+c      ISTSB=ISET(ISUB)
  
 C...Read out tau, y*, cos(theta), tau' (where defined, else =0).
-      TAU=VINT(21)
-      YST=VINT(22)
-      CTH=0D0
-      IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) CTH=VINT(23)
-      TAUP=0D0
-      IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUP=VINT(26)
+c      TAU=VINT(21)
+c      YST=VINT(22)
+c      CTH=0D0
+c      IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) CTH=VINT(23)
+c      TAUP=0D0
+c      IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUP=VINT(26)
  
 C...Read out x_1, x_2, x_F, shat, that, uhat, p_T^2.
-      X1=VINT(41)
-      X2=VINT(42)
-      XF=X1-X2
-      SHAT=VINT(44)
-      THAT=VINT(45)
-      UHAT=VINT(46)
-      PT2=VINT(48)
+c      X1=VINT(41)
+c      X2=VINT(42)
+c      XF=X1-X2
+c      SHAT=VINT(44)
+c      THAT=VINT(45)
+c      UHAT=VINT(46)
+c      PT2=VINT(48)
  
 C...Modifications by user to be put here.
  
 C...Stop program if this routine is ever called.
 C...You should not copy these lines to your own routine.
-      WRITE(MSTU(11),5000)
-      IF(PYR(0).LT.10D0) STOP
+c      WRITE(MSTU(11),5000)
+c      IF(PYR(0).LT.10D0) STOP
  
 C...Format for error printout.
- 5000 FORMAT(1X,'Error: you did not link your PYEVWT routine ',
-     &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/
-     &1X,'Execution stopped!')
+c 5000 FORMAT(1X,'Error: you did not link your PYEVWT routine ',
+c     &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/
+c     &1X,'Execution stopped!')
  
-      RETURN
-      END
+c      RETURN
+c      END
  
 C*********************************************************************