21     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in zhbmv_()  local
244 		    i__3 = i__;  in zhbmv_()
245 		    z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,   in zhbmv_()
246 			    z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]  in zhbmv_()
266 		    i__3 = iy;  in zhbmv_()
267 		    z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,   in zhbmv_()
268 			    z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]  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_()
299 		    i__3 = i__;  in zhbmv_()
304 		    z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;  in zhbmv_()
316 		i__3 = kplus1 + j * a_dim1;  in zhbmv_()
317 		d__1 = a[i__3].r;  in zhbmv_()
341 		i__3 = j - 1;  in zhbmv_()
342 		for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {  in zhbmv_()
361 		i__3 = jy;  in zhbmv_()
370 		y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhbmv_()
387 		i__3 = j;  in zhbmv_()
388 		z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i =  in zhbmv_()
389 			 alpha->r * x[i__3].i + alpha->i * x[i__3].r;  in zhbmv_()
392 		i__3 = j;  in zhbmv_()
398 		y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhbmv_()
402 		i__3 = min(i__4,i__2);  in zhbmv_()
403 		for (i__ = j + 1; i__ <= i__3; ++i__) {  in zhbmv_()
420 		i__3 = j;  in zhbmv_()
425 		y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhbmv_()
433 		i__3 = jx;  in zhbmv_()
434 		z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i =  in zhbmv_()
435 			 alpha->r * x[i__3].i + alpha->i * x[i__3].r;  in zhbmv_()
438 		i__3 = jy;  in zhbmv_()
444 		y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhbmv_()
450 		i__3 = min(i__4,i__2);  in zhbmv_()
451 		for (i__ = j + 1; i__ <= i__3; ++i__) {  in zhbmv_()
470 		i__3 = jy;  in zhbmv_()
475 		y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhbmv_()