21     complex q__1, q__2, q__3;  in ctbmv_()  local
257 			    q__2.r = temp.r * a[i__5].r - temp.i * a[i__5].i,   in ctbmv_()
258 				    q__2.i = temp.r * a[i__5].i + temp.i * a[  in ctbmv_()
260 			    q__1.r = x[i__3].r + q__2.r, q__1.i = x[i__3].i +   in ctbmv_()
261 				    q__2.i;  in ctbmv_()
294 			    q__2.r = temp.r * a[i__5].r - temp.i * a[i__5].i,   in ctbmv_()
295 				    q__2.i = temp.r * a[i__5].i + temp.i * a[  in ctbmv_()
297 			    q__1.r = x[i__2].r + q__2.r, q__1.i = x[i__2].i +   in ctbmv_()
298 				    q__2.i;  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_()
338 			    q__1.r = x[i__3].r + q__2.r, q__1.i = x[i__3].i +   in ctbmv_()
339 				    q__2.i;  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_()
375 			    q__1.r = x[i__1].r + q__2.r, q__1.i = x[i__1].i +   in ctbmv_()
376 				    q__2.i;  in ctbmv_()
424 			    q__2.r = a[i__4].r * x[i__1].r - a[i__4].i * x[  in ctbmv_()
425 				    i__1].i, q__2.i = a[i__4].r * x[i__1].i +   in ctbmv_()
427 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
428 				    q__2.i;  in ctbmv_()
434 			    r_cnjg(&q__2, &a[kplus1 + j * a_dim1]);  in ctbmv_()
435 			    q__1.r = temp.r * q__2.r - temp.i * q__2.i,   in ctbmv_()
436 				    q__1.i = temp.r * q__2.i + temp.i *   in ctbmv_()
437 				    q__2.r;  in ctbmv_()
446 			    q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i,   in ctbmv_()
447 				    q__2.i = q__3.r * x[i__4].i + q__3.i * x[  in ctbmv_()
449 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
450 				    q__2.i;  in ctbmv_()
482 			    q__2.r = a[i__4].r * x[i__1].r - a[i__4].i * x[  in ctbmv_()
483 				    i__1].i, q__2.i = a[i__4].r * x[i__1].i +   in ctbmv_()
485 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
486 				    q__2.i;  in ctbmv_()
493 			    r_cnjg(&q__2, &a[kplus1 + j * a_dim1]);  in ctbmv_()
494 			    q__1.r = temp.r * q__2.r - temp.i * q__2.i,   in ctbmv_()
495 				    q__1.i = temp.r * q__2.i + temp.i *   in ctbmv_()
496 				    q__2.r;  in ctbmv_()
505 			    q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i,   in ctbmv_()
506 				    q__2.i = q__3.r * x[i__4].i + q__3.i * x[  in ctbmv_()
508 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
509 				    q__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_()
545 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
546 				    q__2.i;  in ctbmv_()
552 			    r_cnjg(&q__2, &a[j * a_dim1 + 1]);  in ctbmv_()
553 			    q__1.r = temp.r * q__2.r - temp.i * q__2.i,   in ctbmv_()
554 				    q__1.i = temp.r * q__2.i + temp.i *   in ctbmv_()
555 				    q__2.r;  in ctbmv_()
564 			    q__2.r = q__3.r * x[i__1].r - q__3.i * x[i__1].i,   in ctbmv_()
565 				    q__2.i = q__3.r * x[i__1].i + q__3.i * x[  in ctbmv_()
567 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
568 				    q__2.i;  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_()
603 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
604 				    q__2.i;  in ctbmv_()
611 			    r_cnjg(&q__2, &a[j * a_dim1 + 1]);  in ctbmv_()
612 			    q__1.r = temp.r * q__2.r - temp.i * q__2.i,   in ctbmv_()
613 				    q__1.i = temp.r * q__2.i + temp.i *   in ctbmv_()
614 				    q__2.r;  in ctbmv_()
623 			    q__2.r = q__3.r * x[i__1].r - q__3.i * x[i__1].i,   in ctbmv_()
624 				    q__2.i = q__3.r * x[i__1].i + q__3.i * x[  in ctbmv_()
626 			    q__1.r = temp.r + q__2.r, q__1.i = temp.i +   in ctbmv_()
627 				    q__2.i;  in ctbmv_()