7 common/ludat2/kchg(500,3),pmas(500,4),parf(2000),vckm(4,4)
15 ELSEIF(kfa.LE.100.OR.kc.LE.80.OR.kc.GT.100)
THEN
19 ELSEIF(mod(kfa/1000,10).EQ.0)
THEN
20 luchge=(kchg(mod(kfa/100,10),1)-kchg(mod(kfa/10,10),1))*
21 & (-1)**mod(kfa/100,10)
22 ELSEIF(mod(kfa/10,10).EQ.0)
THEN
23 luchge=kchg(mod(kfa/1000,10),1)+kchg(mod(kfa/100,10),1)
25 luchge=kchg(mod(kfa/1000,10),1)+kchg(mod(kfa/100,10),1)+
26 & kchg(mod(kfa/10,10),1)