20     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in chbmv_()  local
235 		    i__2 = i__;  in chbmv_()
236 		    y[i__2].r = 0.f, y[i__2].i = 0.f;  in chbmv_()
242 		    i__2 = i__;  in chbmv_()
247 		    y[i__2].r = q__1.r, y[i__2].i = q__1.i;  in chbmv_()
256 		    i__2 = iy;  in chbmv_()
257 		    y[i__2].r = 0.f, y[i__2].i = 0.f;  in chbmv_()
264 		    i__2 = iy;  in chbmv_()
269 		    y[i__2].r = q__1.r, y[i__2].i = q__1.i;  in chbmv_()
287 		i__2 = j;  in chbmv_()
288 		q__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, q__1.i =  in chbmv_()
289 			 alpha->r * x[i__2].i + alpha->i * x[i__2].r;  in chbmv_()
294 		i__2 = 1, i__3 = j - *k;  in chbmv_()
296 		for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in chbmv_()
297 		    i__2 = i__;  in chbmv_()
304 		    y[i__2].r = q__1.r, y[i__2].i = q__1.i;  in chbmv_()
306 		    i__2 = i__;  in chbmv_()
307 		    q__2.r = q__3.r * x[i__2].r - q__3.i * x[i__2].i, q__2.i =  in chbmv_()
308 			     q__3.r * x[i__2].i + q__3.i * x[i__2].r;  in chbmv_()
314 		i__2 = j;  in chbmv_()
318 		q__2.r = y[i__2].r + q__3.r, q__2.i = y[i__2].i + q__3.i;  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_()
343 		    i__2 = iy;  in chbmv_()
348 		    q__1.r = y[i__2].r + q__2.r, q__1.i = y[i__2].i + q__2.i;  in chbmv_()
362 		i__2 = kplus1 + j * a_dim1;  in chbmv_()
363 		r__1 = a[i__2].r;  in chbmv_()
393 		i__2 = j * a_dim1 + 1;  in chbmv_()
394 		r__1 = a[i__2].r;  in chbmv_()
400 		i__4 = *n, i__2 = j + *k;  in chbmv_()
401 		i__3 = min(i__4,i__2);  in chbmv_()
404 		    i__2 = i__;  in chbmv_()
409 		    q__1.r = y[i__2].r + q__2.r, q__1.i = y[i__2].i + q__2.i;  in chbmv_()
439 		i__2 = j * a_dim1 + 1;  in chbmv_()
440 		r__1 = a[i__2].r;  in chbmv_()
448 		i__4 = *n, i__2 = j + *k;  in chbmv_()
449 		i__3 = min(i__4,i__2);  in chbmv_()
454 		    i__2 = iy;  in chbmv_()
459 		    q__1.r = y[i__2].r + q__2.r, q__1.i = y[i__2].i + q__2.i;  in chbmv_()