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