21     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in zhbmv_()  local
236 		    i__2 = i__;  in zhbmv_()
237 		    y[i__2].r = 0., y[i__2].i = 0.;  in zhbmv_()
243 		    i__2 = i__;  in zhbmv_()
248 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhbmv_()
257 		    i__2 = iy;  in zhbmv_()
258 		    y[i__2].r = 0., y[i__2].i = 0.;  in zhbmv_()
265 		    i__2 = iy;  in zhbmv_()
270 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhbmv_()
288 		i__2 = j;  in zhbmv_()
289 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhbmv_()
290 			 alpha->r * x[i__2].i + alpha->i * x[i__2].r;  in zhbmv_()
295 		i__2 = 1, i__3 = j - *k;  in zhbmv_()
297 		for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in zhbmv_()
298 		    i__2 = i__;  in zhbmv_()
305 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhbmv_()
307 		    i__2 = i__;  in zhbmv_()
308 		    z__2.r = z__3.r * x[i__2].r - z__3.i * x[i__2].i, z__2.i =  in zhbmv_()
309 			     z__3.r * x[i__2].i + z__3.i * x[i__2].r;  in zhbmv_()
315 		i__2 = j;  in zhbmv_()
319 		z__2.r = y[i__2].r + z__3.r, z__2.i = y[i__2].i + z__3.i;  in zhbmv_()
340 		i__4 = 1, i__2 = j - *k;  in zhbmv_()
342 		for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {  in zhbmv_()
344 		    i__2 = iy;  in zhbmv_()
349 		    z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;  in zhbmv_()
363 		i__2 = kplus1 + j * a_dim1;  in zhbmv_()
364 		d__1 = a[i__2].r;  in zhbmv_()
394 		i__2 = j * a_dim1 + 1;  in zhbmv_()
395 		d__1 = a[i__2].r;  in zhbmv_()
401 		i__4 = *n, i__2 = j + *k;  in zhbmv_()
402 		i__3 = min(i__4,i__2);  in zhbmv_()
405 		    i__2 = i__;  in zhbmv_()
410 		    z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;  in zhbmv_()
440 		i__2 = j * a_dim1 + 1;  in zhbmv_()
441 		d__1 = a[i__2].r;  in zhbmv_()
449 		i__4 = *n, i__2 = j + *k;  in zhbmv_()
450 		i__3 = min(i__4,i__2);  in zhbmv_()
455 		    i__2 = iy;  in zhbmv_()
460 		    z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;  in zhbmv_()