20     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;  in ztbmv_()  local
251 			i__2 = 1, i__3 = j - *k;  in ztbmv_()
253 			for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in ztbmv_()
255 			    i__3 = i__;  in ztbmv_()
260 			    z__1.r = x[i__3].r + z__2.r, z__1.i = x[i__3].i +   in ztbmv_()
268 			    i__3 = kplus1 + j * a_dim1;  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_()
289 			i__3 = j - 1;  in ztbmv_()
290 			for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {  in ztbmv_()
304 			    i__3 = jx;  in ztbmv_()
310 			    x[i__3].r = z__1.r, x[i__3].i = z__1.i;  in ztbmv_()
329 			i__1 = *n, i__3 = j + *k;  in ztbmv_()
331 			for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {  in ztbmv_()
333 			    i__3 = i__;  in ztbmv_()
338 			    z__1.r = x[i__3].r + z__2.r, z__1.i = x[i__3].i +   in ztbmv_()
346 			    i__3 = j * a_dim1 + 1;  in ztbmv_()
347 			    z__1.r = x[i__1].r * a[i__3].r - x[i__1].i * a[  in ztbmv_()
348 				    i__3].i, z__1.i = x[i__1].r * a[i__3].i +   in ztbmv_()
349 				    x[i__1].i * a[i__3].r;  in ztbmv_()
367 			i__3 = j + 1;  in ztbmv_()
368 			for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {  in ztbmv_()
382 			    i__3 = jx;  in ztbmv_()
388 			    x[i__3].r = z__1.r, x[i__3].i = z__1.i;  in ztbmv_()
407 		    i__3 = j;  in ztbmv_()
408 		    temp.r = x[i__3].r, temp.i = x[i__3].i;  in ztbmv_()
412 			    i__3 = kplus1 + j * a_dim1;  in ztbmv_()
413 			    z__1.r = temp.r * a[i__3].r - temp.i * a[i__3].i,   in ztbmv_()
414 				    z__1.i = temp.r * a[i__3].i + temp.i * a[  in ztbmv_()
415 				    i__3].r;  in ztbmv_()
420 			i__3 = max(i__4,i__1);  in ztbmv_()
421 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ztbmv_()
442 			i__3 = max(i__4,i__1);  in ztbmv_()
443 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ztbmv_()
455 		    i__3 = j;  in ztbmv_()
456 		    x[i__3].r = temp.r, x[i__3].i = temp.i;  in ztbmv_()
463 		    i__3 = jx;  in ztbmv_()
464 		    temp.r = x[i__3].r, temp.i = x[i__3].i;  in ztbmv_()
470 			    i__3 = kplus1 + j * a_dim1;  in ztbmv_()
471 			    z__1.r = temp.r * a[i__3].r - temp.i * a[i__3].i,   in ztbmv_()
472 				    z__1.i = temp.r * a[i__3].i + temp.i * a[  in ztbmv_()
473 				    i__3].r;  in ztbmv_()
478 			i__3 = max(i__4,i__1);  in ztbmv_()
479 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ztbmv_()
501 			i__3 = max(i__4,i__1);  in ztbmv_()
502 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ztbmv_()
515 		    i__3 = jx;  in ztbmv_()
516 		    x[i__3].r = temp.r, x[i__3].i = temp.i;  in ztbmv_()
523 		i__3 = *n;  in ztbmv_()
524 		for (j = 1; j <= i__3; ++j) {  in ztbmv_()
579 		i__3 = *n;  in ztbmv_()
580 		for (j = 1; j <= i__3; ++j) {  in ztbmv_()