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