ENDIF
ENDIF
c
+
IF(I_TRIG.NE.0) GO TO 160
IF(I_TRIG.EQ.I_LAST) GO TO 150
MSTP(2)=2
MSUB(28)=1
MSUB(53)=1
MSUB(68)=1
- MSUB(81)=1
- MSUB(82)=1
+ MSUB(81)=1
+ MSUB(82)=1
DO 110 J=1,MIN(8,MDCY(21,3))
110 MDME(MDCY(21,2)+J-1,1)=0
ISEL=4
C structure functions are called in PYTHIA
C
C WRITE(6,*) "CALL PYINIT WITH", CKIN(3), CKIN(4), MSTP(61), MSTP(71), MSTP(91)
+C ALICE ->
+ IF (IHPR2(49) .EQ. 1) THEN
+C SWITCH OFF MASSIVE FINAL QUARKS
+ MSEL = 0
+C QCD on
+ MSUB(11) = 1
+ MSUB(12) = 1
+ MSUB(13) = 1
+ MSUB(28) = 1
+ MSUB(53) = 1
+ MSUB(68) = 1
+C HF OFF
+ MSUB(81) = 0
+ MSUB(82) = 0
+ MDME(127, 1) = 1
+ MDME(128, 1) = 1
+ MDME(129, 1) = 1
+C g->QQbar off
+ MDME(130, 1) = 0
+ MDME(131, 1) = 0
+C highest flavor in final state shower
+ MSTJ(45) = 3
+C highest flavor in initial state shower and pdf
+ MSTP(54) = 3
+ ENDIF
+C <- ALICE
CALL PYINIT_HIJING('CMS',BEAM,TARG,HINT1(1))
MINT4=MINT(44)
MINT5=MINT(45)