6 SUBROUTINE hijfrg(JTP,NTP,IERROR)
15 common/hijdat/hidat0(10,10),hidat(10)
17 common/histrng/
nfp(300,15),
pp(300,15),
nft(300,15),
pt(300,15)
19 common/hijjet1/
npj(300),
kfpj(300,500),
pjpx(300,500),
30 common/lujets/
n,
k(9000,5),
p(9000,5),
v(9000,5)
32 common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
71 IF(ntp.EQ.2)
go to 200
72 IF(jtp.GT.
ihnt2(1))
RETURN
73 IF(
nfp(jtp,5).NE.3.AND.
nfp(jtp,3).NE.0
74 & .AND.
npj(jtp).EQ.0.AND.
nfp(jtp,10).EQ.0)
go to 1000
75 IF(
nfp(jtp,15).EQ.-1)
THEN
100 IF((abs(pb1-
pp(jtp,1)).GT.0.01.OR.
101 & abs(pb2-
pp(jtp,2)).GT.0.01).AND.
ihpr2(10).NE.0)
102 &
WRITE(6,*)
' Pt of Q and QQ do not sum to the total'
106 200
IF(jtp.GT.
ihnt2(3))
RETURN
107 IF(
nft(jtp,5).NE.3.AND.
nft(jtp,3).NE.0
108 & .AND.
ntj(jtp).EQ.0.AND.
nft(jtp,10).EQ.0)
go to 1200
109 IF(
nft(jtp,15).EQ.1)
THEN
135 IF((abs(pb1-
pt(jtp,1)).GT.0.01.OR.
136 & abs(pb2-
pt(jtp,2)).GT.0.01).AND.
ihpr2(10).NE.0)
137 &
WRITE(6,*)
' Pt of Q and QQ do not sum to the total'
139 300
IF(pecm.LT.
hipr1(1))
THEN
141 IF(
ihpr2(10).EQ.0)
RETURN
142 WRITE(6,*)
' ECM=',pecm,
' energy of the string is too small'
145 amt=pecm**2+pb1**2+pb2**2
146 amt1=am1**2+pq11**2+pq12**2
147 amt2=am2**2+pq21**2+pq22**2
148 pzcm=sqrt(abs(amt**2+amt1**2+amt2**2-2.0*amt*amt1
149 & -2.0*amt*amt2-2.0*amt1*amt2))/2.0/sqrt(amt)
156 p(1,4)=sqrt(amt1+pzcm**2)
163 p(2,4)=sqrt(amt2+pzcm**2)
186 CALL
hirobo(0.0,0.0,0.0,0.0,btz)
188 IF((pq21**2+pq22**2).GT.(pq11**2+pq12**2))
THEN
201 ELSE IF(ntp.EQ.2)
THEN
207 IF(ntp.EQ.1.AND.
npj(jtp).NE.0)
THEN
212 IF((abs(kf1).GT.1000.AND.kf1.LT.0)
213 & .OR.(abs(kf1).LT.1000.AND.kf1.GT.0)) iex=1
227 IF(iex.EQ.1) i0=
npj(jtp)-
i+1
232 IF(kk1.NE.21 .AND. kk1.NE.0)
k(
i+1,1)=
233 & 1+(abs(kk1)+(2*iex-1)*kk1)/2/abs(kk1)
241 ELSE IF(ntp.EQ.2.AND.
ntj(jtp).NE.0)
THEN
246 IF((abs(kf2).GT.1000.AND.kf2.LT.0)
247 & .OR.(abs(kf2).LT.1000.AND.kf2.GT.0)) iex=0
261 IF(iex.EQ.1) i0=
ntj(jtp)-
i+1
266 IF(kk1.NE.21 .AND. kk1.NE.0)
k(
i+1,1)=
267 & 1+(abs(kk1)+(2*iex-1)*kk1)/2/abs(kk1)
281 IF(
hint1(1).GE.1000.0.AND.jetot.EQ.0)
THEN
288 ELSE IF(jetot.EQ.0.AND.
ihpr2(1).GT.0.AND.
289 &
hint1(1).GE.1000.0.AND.
301 IF(ierror.NE.0)
RETURN