20     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in chbmv_()  local
295 		i__4 = j - 1;  in chbmv_()
296 		for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in chbmv_()
313 		i__4 = j;  in chbmv_()
322 		y[i__4].r = q__1.r, y[i__4].i = q__1.i;  in chbmv_()
330 		i__4 = jx;  in chbmv_()
331 		q__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, q__1.i =  in chbmv_()
332 			 alpha->r * x[i__4].i + alpha->i * x[i__4].r;  in chbmv_()
339 		i__4 = 1, i__2 = j - *k;  in chbmv_()
341 		for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {  in chbmv_()
342 		    i__4 = iy;  in chbmv_()
349 		    y[i__4].r = q__1.r, y[i__4].i = q__1.i;  in chbmv_()
351 		    i__4 = ix;  in chbmv_()
352 		    q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i, q__2.i =  in chbmv_()
353 			     q__3.r * x[i__4].i + q__3.i * x[i__4].r;  in chbmv_()
361 		i__4 = jy;  in chbmv_()
365 		q__2.r = y[i__4].r + q__3.r, q__2.i = y[i__4].i + q__3.i;  in chbmv_()
392 		i__4 = j;  in chbmv_()
396 		q__1.r = y[i__4].r + q__2.r, q__1.i = y[i__4].i + q__2.i;  in chbmv_()
400 		i__4 = *n, i__2 = j + *k;  in chbmv_()
401 		i__3 = min(i__4,i__2);  in chbmv_()
403 		    i__4 = i__;  in chbmv_()
410 		    y[i__4].r = q__1.r, y[i__4].i = q__1.i;  in chbmv_()
412 		    i__4 = i__;  in chbmv_()
413 		    q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i, q__2.i =  in chbmv_()
414 			     q__3.r * x[i__4].i + q__3.i * x[i__4].r;  in chbmv_()
420 		i__4 = j;  in chbmv_()
423 		q__1.r = y[i__4].r + q__2.r, q__1.i = y[i__4].i + q__2.i;  in chbmv_()
438 		i__4 = jy;  in chbmv_()
442 		q__1.r = y[i__4].r + q__2.r, q__1.i = y[i__4].i + q__2.i;  in chbmv_()
448 		i__4 = *n, i__2 = j + *k;  in chbmv_()
449 		i__3 = min(i__4,i__2);  in chbmv_()
453 		    i__4 = iy;  in chbmv_()
460 		    y[i__4].r = q__1.r, y[i__4].i = q__1.i;  in chbmv_()
462 		    i__4 = ix;  in chbmv_()
463 		    q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i, q__2.i =  in chbmv_()
464 			     q__3.r * x[i__4].i + q__3.i * x[i__4].r;  in chbmv_()
470 		i__4 = jy;  in chbmv_()
473 		q__1.r = y[i__4].r + q__2.r, q__1.i = y[i__4].i + q__2.i;  in chbmv_()