4 SUBROUTINE lufowo(H10,H20,H30,H40)
7 common/lujets/
n,
k(9000,5),
p(9000,5),
v(9000,5)
9 common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
11 common/ludat2/kchg(500,3),pmas(500,4),parf(2000),vckm(4,4)
19 IF(
k(
i,1).LE.0.OR.
k(
i,1).GT.10) goto 110
20 IF(mstu(41).GE.2)
THEN
22 IF(kc.EQ.0.OR.kc.EQ.12.OR.kc.EQ.14.OR.kc.EQ.16.OR.
24 IF(mstu(41).GE.3.AND.kchg(kc,2).EQ.0.AND.
luchge(
k(
i,2)).EQ.0)
27 IF(
n+
np.GE.mstu(4)-mstu(32)-5)
THEN
28 CALL
luerrm(11,
'(LUFOWO:) no more memory left in LUJETS')
46 CALL
luerrm(8,
'(LUFOWO:) too few particles for analysis')
63 h10=h10+
p(
i1,4)*
p(
i2,4)*cthe
64 h20=h20+
p(
i1,4)*
p(
i2,4)*(1.5*cthe**2-0.5)
65 h30=h30+
p(
i1,4)*
p(
i2,4)*(2.5*cthe**3-1.5*cthe)
66 h40=h40+
p(
i1,4)*
p(
i2,4)*(4.375*cthe**4-3.75*cthe**2+0.375)