21     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in zhbmv_()  local
296 		i__4 = j - 1;  in zhbmv_()
297 		for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in zhbmv_()
314 		i__4 = j;  in zhbmv_()
323 		y[i__4].r = z__1.r, y[i__4].i = z__1.i;  in zhbmv_()
331 		i__4 = jx;  in zhbmv_()
332 		z__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, z__1.i =  in zhbmv_()
333 			 alpha->r * x[i__4].i + alpha->i * x[i__4].r;  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_()
343 		    i__4 = iy;  in zhbmv_()
350 		    y[i__4].r = z__1.r, y[i__4].i = z__1.i;  in zhbmv_()
352 		    i__4 = ix;  in zhbmv_()
353 		    z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i =  in zhbmv_()
354 			     z__3.r * x[i__4].i + z__3.i * x[i__4].r;  in zhbmv_()
362 		i__4 = jy;  in zhbmv_()
366 		z__2.r = y[i__4].r + z__3.r, z__2.i = y[i__4].i + z__3.i;  in zhbmv_()
393 		i__4 = j;  in zhbmv_()
397 		z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhbmv_()
401 		i__4 = *n, i__2 = j + *k;  in zhbmv_()
402 		i__3 = min(i__4,i__2);  in zhbmv_()
404 		    i__4 = i__;  in zhbmv_()
411 		    y[i__4].r = z__1.r, y[i__4].i = z__1.i;  in zhbmv_()
413 		    i__4 = i__;  in zhbmv_()
414 		    z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i =  in zhbmv_()
415 			     z__3.r * x[i__4].i + z__3.i * x[i__4].r;  in zhbmv_()
421 		i__4 = j;  in zhbmv_()
424 		z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhbmv_()
439 		i__4 = jy;  in zhbmv_()
443 		z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhbmv_()
449 		i__4 = *n, i__2 = j + *k;  in zhbmv_()
450 		i__3 = min(i__4,i__2);  in zhbmv_()
454 		    i__4 = iy;  in zhbmv_()
461 		    y[i__4].r = z__1.r, y[i__4].i = z__1.i;  in zhbmv_()
463 		    i__4 = ix;  in zhbmv_()
464 		    z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i =  in zhbmv_()
465 			     z__3.r * x[i__4].i + z__3.i * x[i__4].r;  in zhbmv_()
471 		i__4 = jy;  in zhbmv_()
474 		z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhbmv_()