20     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in ctbmv_()  local
245 		    i__2 = j;  in ctbmv_()
246 		    if (x[i__2].r != 0.f || x[i__2].i != 0.f) {  in ctbmv_()
247 			i__2 = j;  in ctbmv_()
248 			temp.r = x[i__2].r, temp.i = x[i__2].i;  in ctbmv_()
251 			i__2 = 1, i__3 = j - *k;  in ctbmv_()
253 			for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in ctbmv_()
254 			    i__2 = i__;  in ctbmv_()
262 			    x[i__2].r = q__1.r, x[i__2].i = q__1.i;  in ctbmv_()
267 			    i__2 = j;  in ctbmv_()
269 			    q__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[  in ctbmv_()
270 				    i__3].i, q__1.i = x[i__2].r * a[i__3].i +   in ctbmv_()
271 				    x[i__2].i * a[i__3].r;  in ctbmv_()
288 			i__4 = 1, i__2 = j - *k;  in ctbmv_()
290 			for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {  in ctbmv_()
292 			    i__2 = ix;  in ctbmv_()
297 			    q__1.r = x[i__2].r + q__2.r, q__1.i = x[i__2].i +   in ctbmv_()
306 			    i__2 = kplus1 + j * a_dim1;  in ctbmv_()
307 			    q__1.r = x[i__4].r * a[i__2].r - x[i__4].i * a[  in ctbmv_()
308 				    i__2].i, q__1.i = x[i__4].r * a[i__2].i +   in ctbmv_()
309 				    x[i__4].i * a[i__2].r;  in ctbmv_()
334 			    i__2 = l + i__ + j * a_dim1;  in ctbmv_()
335 			    q__2.r = temp.r * a[i__2].r - temp.i * a[i__2].i,   in ctbmv_()
336 				    q__2.i = temp.r * a[i__2].i + temp.i * a[  in ctbmv_()
337 				    i__2].r;  in ctbmv_()
371 			    i__2 = l + i__ + j * a_dim1;  in ctbmv_()
372 			    q__2.r = temp.r * a[i__2].r - temp.i * a[i__2].i,   in ctbmv_()
373 				    q__2.i = temp.r * a[i__2].i + temp.i * a[  in ctbmv_()
374 				    i__2].r;  in ctbmv_()
537 			i__1 = *n, i__2 = j + *k;  in ctbmv_()
538 			i__4 = min(i__1,i__2);  in ctbmv_()
541 			    i__2 = i__;  in ctbmv_()
542 			    q__2.r = a[i__1].r * x[i__2].r - a[i__1].i * x[  in ctbmv_()
543 				    i__2].i, q__2.i = a[i__1].r * x[i__2].i +   in ctbmv_()
544 				    a[i__1].i * x[i__2].r;  in ctbmv_()
559 			i__1 = *n, i__2 = j + *k;  in ctbmv_()
560 			i__4 = min(i__1,i__2);  in ctbmv_()
595 			i__1 = *n, i__2 = j + *k;  in ctbmv_()
596 			i__4 = min(i__1,i__2);  in ctbmv_()
599 			    i__2 = ix;  in ctbmv_()
600 			    q__2.r = a[i__1].r * x[i__2].r - a[i__1].i * x[  in ctbmv_()
601 				    i__2].i, q__2.i = a[i__1].r * x[i__2].i +   in ctbmv_()
602 				    a[i__1].i * x[i__2].r;  in ctbmv_()
618 			i__1 = *n, i__2 = j + *k;  in ctbmv_()
619 			i__4 = min(i__1,i__2);  in ctbmv_()