112     integer idel, nbit, i__, j, i2, i3, mrk;  in encode_()  local
205     for (i__ = 1; i__ <= i__1; ++i__) {  in encode_()
206 	irc[i__] = rc[i__] * 32768.f;  in encode_()
241     for (i__ = 1; i__ <= 2; ++i__) {  in encode_()
242 	i2 = irc[i__];  in encode_()
254 	irc[i__] = i2;  in encode_()
258     for (i__ = 3; i__ <= i__1; ++i__) {  in encode_()
259 	i2 = irc[i__] / 2;  in encode_()
260 	i2 = (i2 + enadd[contrl_1.order + 1 - i__ - 1]) * enscl[  in encode_()
261 		contrl_1.order + 1 - i__ - 1];  in encode_()
265 	nbit = enbits[contrl_1.order + 1 - i__ - 1];  in encode_()
274 	irc[i__] = i2;  in encode_()