121     integer vlen, stop, i__;  in vparms_()  local
172     for (i__ = start; i__ <= i__1; ++i__) {  in vparms_()
173 	lp_rms__ += (r__1 = lpbuf[i__], abs(r__1));  in vparms_()
174 	ap_rms__ += (r__1 = inbuf[i__], abs(r__1));  in vparms_()
175 	e_pre__ += (r__1 = inbuf[i__] - inbuf[i__ - 1], abs(r__1));  in vparms_()
177 	r__1 = inbuf[i__];  in vparms_()
179 	*rc1 += inbuf[i__] * inbuf[i__ - 1];  in vparms_()
181 	r__1 = lpbuf[i__];  in vparms_()
184 	r__1 = lpbuf[i__ - *mintau];  in vparms_()
187 	r__1 = lpbuf[i__ + *mintau];  in vparms_()
189 	r_f__ += lpbuf[i__] * lpbuf[i__ + *mintau];  in vparms_()
190 	r_b__ += lpbuf[i__] * lpbuf[i__ - *mintau];  in vparms_()
191 	r__1 = inbuf[i__] + *dither;  in vparms_()