10 #include "hijjet4.inc"
12 C****************Reset the momentum of initial particles************
13 C and assign flavors to the proj and targ string *
14 C*******************************************************************
19 IF(IHNT2(5).NE.0) IPP=IHNT2(5)
20 IF(IHNT2(6).NE.0) IPT=IHNT2(6)
21 C ********in case the proj or targ is a hadron.
26 PP(I,3)=SQRT(HINT1(1)**2/4.0-HINT1(8)**2)
44 IF(I.GT.ABS(IHNT2(2))) NFP(I,3)=2112
45 CALL ATTFLV(NFP(I,3),IDQ,IDQQ)
49 IF(ABS(IDQ).GT.1000.OR.(ABS(IDQ*IDQQ).LT.100.AND.
50 & RLU_HIJING(0).LT.0.5)) NFP(I,15)=1
51 PP(I,14)=ULMASS_HIJING(IDQ)
52 PP(I,15)=ULMASS_HIJING(IDQQ)
58 PT(I,3)=-SQRT(HINT1(1)**2/4.0-HINT1(9)**2)
76 IF(I.GT.ABS(IHNT2(4))) NFT(I,3)=2112
77 CALL ATTFLV(NFT(I,3),IDQ,IDQQ)
81 IF(ABS(IDQ).GT.1000.OR.(ABS(IDQ*IDQQ).LT.100.AND.
82 & RLU_HIJING(0).LT.0.5)) NFT(I,15)=-1
83 PT(I,14)=ULMASS_HIJING(IDQ)
84 PT(I,15)=ULMASS_HIJING(IDQQ)