END
C*********************************************************************
-
+
+c Dummy routine commented out:
+c A reweighting routine for AliRoot is implemented 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
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)
- CALL PYSTOP(4)
+c WRITE(MSTU(11),5000)
+c CALL PYSTOP(4)
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*********************************************************************