8 common/ludat2/kchg(500,3),pmas(500,4),parf(2000),vckm(4,4)
18 kflr=mod(kfa/10000,10)
21 IF(kfa.EQ.0.OR.kfa.GE.100000)
THEN
22 ELSEIF(kfa.LE.100)
THEN
24 IF(kf.LT.0.AND.kchg(kfa,3).EQ.0)
lucomp=0
25 ELSEIF(kfls.EQ.0)
THEN
33 ELSEIF(kfa-10000*kflr.LT.1000)
THEN
34 IF(kflb.EQ.0.OR.kflb.EQ.9.OR.kflc.EQ.0.OR.kflc.EQ.9)
THEN
35 ELSEIF(kflb.LT.kflc)
THEN
36 ELSEIF(kf.LT.0.AND.kflb.EQ.kflc)
THEN
37 ELSEIF(kflb.EQ.kflc)
THEN
38 IF(kflr.EQ.0.AND.kfls.EQ.1)
THEN
40 ELSEIF(kflr.EQ.0.AND.kfls.EQ.3)
THEN
42 ELSEIF(kflr.EQ.1.AND.kfls.EQ.3)
THEN
44 ELSEIF(kflr.EQ.1.AND.kfls.EQ.1)
THEN
46 ELSEIF(kflr.EQ.2.AND.kfls.EQ.3)
THEN
48 ELSEIF(kflr.EQ.0.AND.kfls.EQ.5)
THEN
51 ELSEIF(kflb.LE.5.AND.kflc.LE.3)
THEN
52 IF(kflr.EQ.0.AND.kfls.EQ.1)
THEN
53 lucomp=100+((kflb-1)*(kflb-2))/2+kflc
54 ELSEIF(kflr.EQ.0.AND.kfls.EQ.3)
THEN
55 lucomp=120+((kflb-1)*(kflb-2))/2+kflc
56 ELSEIF(kflr.EQ.1.AND.kfls.EQ.3)
THEN
57 lucomp=140+((kflb-1)*(kflb-2))/2+kflc
58 ELSEIF(kflr.EQ.1.AND.kfls.EQ.1)
THEN
59 lucomp=160+((kflb-1)*(kflb-2))/2+kflc
60 ELSEIF(kflr.EQ.2.AND.kfls.EQ.3)
THEN
61 lucomp=180+((kflb-1)*(kflb-2))/2+kflc
62 ELSEIF(kflr.EQ.0.AND.kfls.EQ.5)
THEN
63 lucomp=200+((kflb-1)*(kflb-2))/2+kflc
65 ELSEIF((kfls.EQ.1.AND.kflr.LE.1).OR.(kfls.EQ.3.AND.kflr.LE.2).
66 & or.(kfls.EQ.5.AND.kflr.EQ.0))
THEN
71 ELSEIF((kflr.EQ.0.OR.kflr.EQ.1).AND.kflc.EQ.0)
THEN
72 IF(kfls.NE.1.AND.kfls.NE.3)
THEN
73 ELSEIF(kfla.EQ.9.OR.kflb.EQ.0.OR.kflb.EQ.9)
THEN
74 ELSEIF(kfla.LT.kflb)
THEN
75 ELSEIF(kfls.EQ.1.AND.kfla.EQ.kflb)
THEN
81 ELSEIF(kflr.EQ.0.AND.kfls.EQ.2)
THEN
82 IF(kfla.EQ.9.OR.kflb.EQ.0.OR.kflb.EQ.9.OR.kflc.EQ.9)
THEN
83 ELSEIF(kfla.LE.kflc.OR.kfla.LT.kflb)
THEN
84 ELSEIF(kfla.GE.6.OR.kflb.GE.4.OR.kflc.GE.4)
THEN
86 ELSEIF(kflb.LT.kflc)
THEN
87 lucomp=300+((kfla+1)*kfla*(kfla-1))/6+(kflc*(kflc-1))/2+kflb
89 lucomp=330+((kfla+1)*kfla*(kfla-1))/6+(kflb*(kflb-1))/2+kflc
93 ELSEIF(kflr.EQ.0.AND.kfls.EQ.4)
THEN
94 IF(kfla.EQ.9.OR.kflb.EQ.0.OR.kflb.EQ.9.OR.kflc.EQ.9)
THEN
95 ELSEIF(kfla.LT.kflb.OR.kflb.LT.kflc)
THEN
96 ELSEIF(kfla.GE.6.OR.kflb.GE.4)
THEN
99 lucomp=360+((kfla+1)*kfla*(kfla-1))/6+(kflb*(kflb-1))/2+kflc