21 int chanwr_(integer *order, integer *ipitv, integer *irms, integer *irc, integer *ibits, struct lpc…
22 int chanrd_(integer *order, integer *ipitv, integer *irms, integer *irc, integer *ibits);
109 static int chanwr_0_(int n__, integer *order, integer *ipitv,   in chanwr_0_()  argument
156     i__1 = *order;  in chanwr_0_()
158 	itab[i__ + 2] = irc[*order + 1 - i__] & 32767;  in chanwr_0_()
184     i__1 = *order;  in chanwr_0_()
193     i__1 = *order;  in chanwr_0_()
195 	irc[i__] = itab[*order + 4 - i__ - 1];  in chanwr_0_()
200 /* Subroutine */ int chanwr_(integer *order, integer *ipitv, integer *irms,   in chanwr_()  argument
203     return chanwr_0_(0, order, ipitv, irms, irc, ibits, st);  in chanwr_()
206 /* Subroutine */ int chanrd_(integer *order, integer *ipitv, integer *irms,   in chanrd_()  argument
209     return chanwr_0_(1, order, ipitv, irms, irc, ibits, 0);  in chanrd_()