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)
17 IF(
i.LT.0.OR.
i.GT.mstu(4).OR.
j.LE.0)
THEN
18 ELSEIF(
i.EQ.0.AND.
j.EQ.1)
THEN
20 ELSEIF(
i.EQ.0.AND.(
j.EQ.2.OR.
j.EQ.6))
THEN
36 IF(
k(
i,1).GE.1.AND.
k(
i,1).LE.10)
klu=1
42 IF(kc.NE.0) kq=kchg(kc,2)
43 IF(
j.EQ.9.AND.kc.NE.0.AND.kq.NE.0)
klu=
k(
i,2)
44 IF(
j.EQ.10.AND.kc.NE.0.AND.kq.EQ.0)
klu=
k(
i,2)
46 IF(
j.EQ.12)
klu=kq*isign(1,
k(
i,2))
51 klu=mod(kfa/100,10)*(-1)**mod(kfa/100,10)
53 IF(mod(kfa/1000,10).NE.0)
klu=mod(kfa/1000,10)
64 IF(
i1.GT.0.AND.
k(
i1,1).GT.0.AND.
k(
i1,1).LE.20) goto 110
80 IF(
i1.EQ.0.OR.
k(i0,1).LE.0.OR.
k(i0,1).GT.20.OR.kc.EQ.0)
THEN
85 IF(kchg(kc,2).EQ.0) goto 130
87 IF(
k(
i1,1).NE.12)
RETURN
90 IF(
i2.LT.
n.AND.
k(
i2,1).NE.11) goto 140
92 IF(k3m.GE.
i1.AND.k3m.LE.
i2)
klu=0
99 IF(
k(
i,4).EQ.0.OR.
k(
i,5).EQ.0)
klu=0
101 IF(
k(
i,1).NE.3.AND.
k(
i,1).NE.13.AND.
k(
i,1).NE.14)
RETURN
102 IF(
j.EQ.19)
klu=mod(
k(
i,4)/mstu(5),mstu(5))
103 IF(
j.EQ.20)
klu=mod(
k(
i,5)/mstu(5),mstu(5))
104 IF(
j.EQ.21)
klu=mod(
k(
i,4),mstu(5))
105 IF(
j.EQ.22)
klu=mod(
k(
i,5),mstu(5))