Lines Matching refs:i__
125 integer itab[13], i__; in chanwr_0_() local
157 for (i__ = 1; i__ <= i__1; ++i__) { in chanwr_0_()
158 itab[i__ + 2] = irc[*order + 1 - i__] & 32767; in chanwr_0_()
161 for (i__ = 1; i__ <= 53; ++i__) { 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_()
176 for (i__ = 1; i__ <= 13; ++i__) { in chanwr_0_()
177 itab[i__ - 1] = 0; in chanwr_0_()
179 for (i__ = 1; i__ <= 53; ++i__) { in chanwr_0_()
180 itab[iblist[54 - i__ - 1] - 1] = (itab[iblist[54 - i__ - 1] - 1] << 1) in chanwr_0_()
181 + ibits[54 - i__]; in chanwr_0_()
185 for (i__ = 1; i__ <= i__1; ++i__) { 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_()
194 for (i__ = 1; i__ <= i__1; ++i__) { in chanwr_0_()
195 irc[i__] = itab[*order + 4 - i__ - 1]; in chanwr_0_()