119     integer i__, j, k;  in bsynz_()  local
244     for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
245 	exc2[i__ - 1] = exc2[*ipo + i__ - 1] * xy;  in bsynz_()
251 	for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
252 	    exc[contrl_1.order + i__ - 1] = (real) (random_(st) / 64);  in bsynz_()
274 	for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
275 	    exc[contrl_1.order + i__ - 1] = 0.f;  in bsynz_()
276 	    if (i__ <= 25) {  in bsynz_()
277 		exc[contrl_1.order + i__ - 1] = sscale * kexc[i__ - 1];  in bsynz_()
279 	    lpi0 = exc[contrl_1.order + i__ - 1];  in bsynz_()
280 	    r__2 = exc[contrl_1.order + i__ - 1] * .125f + *lpi1 * .75f;  in bsynz_()
282 	    exc[contrl_1.order + i__ - 1] = r__1 + *lpi3 * 0.f;  in bsynz_()
288 	for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
289 	    noise[contrl_1.order + i__ - 1] = random_(st) * 1.f / 64;  in bsynz_()
290 	    hpi0 = noise[contrl_1.order + i__ - 1];  in bsynz_()
291 	    r__2 = noise[contrl_1.order + i__ - 1] * -.125f + *hpi1 * .25f;  in bsynz_()
293 	    noise[contrl_1.order + i__ - 1] = r__1 + *hpi3 * 0.f;  in bsynz_()
299 	for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
300 	    exc[contrl_1.order + i__ - 1] += noise[contrl_1.order + i__ - 1];  in bsynz_()
307     for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
308 	k = contrl_1.order + i__;  in bsynz_()
319     for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
320 	k = contrl_1.order + i__;  in bsynz_()
331     for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
332 	exc[i__ - 1] = exc[*ip + i__ - 1];  in bsynz_()
333 	exc2[i__ - 1] = exc2[*ip + i__ - 1];  in bsynz_()
340     for (i__ = 1; i__ <= i__1; ++i__) {  in bsynz_()
341 	sout[i__] = gain * exc2[contrl_1.order + i__ - 1];  in bsynz_()