63     integer j;  in lpfilt_()  local
77     for (j = *len + 1 - *nsamp; j <= i__1; ++j) {  in lpfilt_()
78 	t = (inbuf[j] + inbuf[j - 30]) * -.0097201988f;  in lpfilt_()
79 	t += (inbuf[j - 1] + inbuf[j - 29]) * -.0105179986f;  in lpfilt_()
80 	t += (inbuf[j - 2] + inbuf[j - 28]) * -.0083479648f;  in lpfilt_()
81 	t += (inbuf[j - 3] + inbuf[j - 27]) * 5.860774e-4f;  in lpfilt_()
82 	t += (inbuf[j - 4] + inbuf[j - 26]) * .0130892089f;  in lpfilt_()
83 	t += (inbuf[j - 5] + inbuf[j - 25]) * .0217052232f;  in lpfilt_()
84 	t += (inbuf[j - 6] + inbuf[j - 24]) * .0184161253f;  in lpfilt_()
85 	t += (inbuf[j - 7] + inbuf[j - 23]) * 3.39723e-4f;  in lpfilt_()
86 	t += (inbuf[j - 8] + inbuf[j - 22]) * -.0260797087f;  in lpfilt_()
87 	t += (inbuf[j - 9] + inbuf[j - 21]) * -.0455563702f;  in lpfilt_()
88 	t += (inbuf[j - 10] + inbuf[j - 20]) * -.040306855f;  in lpfilt_()
89 	t += (inbuf[j - 11] + inbuf[j - 19]) * 5.029835e-4f;  in lpfilt_()
90 	t += (inbuf[j - 12] + inbuf[j - 18]) * .0729262903f;  in lpfilt_()
91 	t += (inbuf[j - 13] + inbuf[j - 17]) * .1572008878f;  in lpfilt_()
92 	t += (inbuf[j - 14] + inbuf[j - 16]) * .2247288674f;  in lpfilt_()
93 	t += inbuf[j - 15] * .250535965f;  in lpfilt_()
94 	lpbuf[j] = t;  in lpfilt_()