125     integer itab[13], i__;  in chanwr_0_()  local
153     itab[0] = *ipitv;  in chanwr_0_()
154     itab[1] = *irms;  in chanwr_0_()
155     itab[2] = 0;  in chanwr_0_()
158 	itab[i__ + 2] = irc[*order + 1 - i__] & 32767;  in chanwr_0_()
162 	ibits[i__] = itab[iblist[i__ - 1] - 1] & 1;  in chanwr_0_()
163 	itab[iblist[i__ - 1] - 1] /= 2;  in chanwr_0_()
177 	itab[i__ - 1] = 0;  in chanwr_0_()
180 	itab[iblist[54 - i__ - 1] - 1] = (itab[iblist[54 - i__ - 1] - 1] << 1)  in chanwr_0_()
186 	if ((itab[i__ + 2] & bit[i__ - 1]) != 0) {  in chanwr_0_()
187 	    itab[i__ + 2] -= bit[i__ - 1] << 1;  in chanwr_0_()
191     *ipitv = itab[0];  in chanwr_0_()
192     *irms = itab[1];  in chanwr_0_()
195 	irc[i__] = itab[*order + 4 - i__ - 1];  in chanwr_0_()